Mercurial > hg > octave-lyh

annotate scripts/plot/__gnuplot_has_feature__.m @ 8645:579f1f54cc3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for transparent surfaces
author Kai Habel
date Fri, 30 Jan 2009 14:52:32 -0500
parents a2dd2ffc504d
children 7d48766c21a5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8620
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
1 ## Copyright (C) 2009 Ben Abbott
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
2 ##
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
3 ## This program is free software; you can redistribute it and/or modify
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
4 ## it under the terms of the GNU General Public License as published by
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
5 ## the Free Software Foundation; either version 2 of the License, or
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
6 ## (at your option) any later version.
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
7 ##
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
8 ## This program is distributed in the hope that it will be useful,
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
11 ## GNU General Public License for more details.
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
12 ##
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
13 ## You should have received a copy of the GNU General Public License
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
14 ## along with Octave; see the file COPYING. If not, see
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
15 ## <http://www.gnu.org/licenses/>.
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
16
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
17 ## -*- texinfo -*-
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
18 ## @deftypefn {Function File} {@var{has_feature} = } __gnuplot_has_feature__ (@var{feature})
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
19 ## Undocumented internal function.
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
20 ## @end deftypefn
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
21
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
22 ## Author: Ben Abbott <bpabbott@mac.com>
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
23 ## Created: 2009-01-27
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
24
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
25 function res = __gnuplot_has_feature__ (feature)
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
26 persistent features has_features
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
27 features = {"x11_figure_position",
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
28 "transparent_patches",
8645
579f1f54cc3a Add support for transparent surfaces
Kai Habel
parents: 8620
diff changeset
29 "transparent_surface",
8620
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
30 "epslatex_implies_eps_filesuffix",
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
31 "epslatexstandalone_terminal"};
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
32
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
33 if (isempty (has_features))
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
34 gnuplot_version = __gnuplot_version__ ();
8645
579f1f54cc3a Add support for transparent surfaces
Kai Habel
parents: 8620
diff changeset
35 versions = {"4.2.4", "4.3", "4.3", "4.2", "4.2"};
579f1f54cc3a Add support for transparent surfaces
Kai Habel
parents: 8620
diff changeset
36 operators = {">", ">=", ">=", ">=", ">="};
8620
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
37 have_features = logical (zeros (size (features)));
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
38 for n = 1 : numel (have_features)
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
39 has_features(n) = compare_versions (gnuplot_version, versions{n}, operators{n});
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
40 endfor
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
41 endif
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
42
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
43 n = find (strcmpi (feature, features));
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
44 if (isempty (n))
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
45 res = NaN;
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
46 else
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
47 res = has_features(n);
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
48 endif
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
49 endfunction
a2dd2ffc504d __gnuplot_has_feature__.m: New file, checks for supported feature.
Ben Abbott <bpabbott@mac.com>
parents:
diff changeset
50