Mercurial > octave-nkf

comparison scripts/plot/__go_draw_axes__.m @ 6413:cf8e671beada

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-15 14:11:51 by jwe]
author jwe
date Thu, 15 Mar 2007 14:11:51 +0000
parents b298a4c12fc3
children 6b1535a09268
comparison
equal deleted inserted replaced
6412:b2096bb759b1 6413:cf8e671beada
30 30
31 axis_obj = get (h); 31 axis_obj = get (h);
32 32
33 parent_figure_obj = get (axis_obj.parent); 33 parent_figure_obj = get (axis_obj.parent);
34 34
35 have_newer_gnuplot = compare_versions (__gnuplot_version__ (), "4.0", ">"); 35 persistent have_newer_gnuplot ...
36 = compare_versions (__gnuplot_version__ (), "4.0", ">");
36 37
37 ## Set axis properties here? 38 ## Set axis properties here?
38 39
39 if (! isempty (axis_obj.outerposition)) 40 if (! isempty (axis_obj.outerposition))
40 pos = axis_obj.outerposition; 41 pos = axis_obj.outerposition;
763 764
764 endfunction 765 endfunction
765 766
766 function style = do_linestyle_command (obj, idx, plot_stream) 767 function style = do_linestyle_command (obj, idx, plot_stream)
767 768
768 have_newer_gnuplot = compare_versions (__gnuplot_version__ (), "4.0", ">"); 769 persistent have_newer_gnuplot ...
770 = compare_versions (__gnuplot_version__ (), "4.0", ">");
769 771
770 if (have_newer_gnuplot) 772 if (have_newer_gnuplot)
771 fprintf (plot_stream, "set style line %d default;\n", idx); 773 fprintf (plot_stream, "set style line %d default;\n", idx);
772 endif 774 endif
773 fprintf (plot_stream, "set style line %d", idx); 775 fprintf (plot_stream, "set style line %d", idx);
810 if (isfield (obj, "marker")) 812 if (isfield (obj, "marker"))
811 switch (obj.marker) 813 switch (obj.marker)
812 case "+" 814 case "+"
813 pt = "1"; 815 pt = "1";
814 case "o" 816 case "o"
815 pt = "7"; 817 pt = "6";
816 case "*" 818 case "*"
817 pt = "3"; 819 pt = "3";
818 case "." 820 case "."
819 pt = "0"; 821 pt = "7";
820 case "x" 822 case "x"
821 pt = "2"; 823 pt = "2";
822 case {"square", "s"} 824 case {"square", "s"}
823 pt = "5"; 825 pt = "5";
824 case {"diamond", "d"} 826 case {"diamond", "d"}
832 case "<" 834 case "<"
833 pt = "10"; 835 pt = "10";
834 case {"pentagram", "p"} 836 case {"pentagram", "p"}
835 pt = "4"; 837 pt = "4";
836 case {"hexagram", "h"} 838 case {"hexagram", "h"}
837 pt = "6"; 839 pt = "12";
838 case "none" 840 case "none"
839 pt = ""; 841 pt = "";
840 otherwise 842 otherwise
841 pt = ""; 843 pt = "";
842 endswitch 844 endswitch