Mercurial > hg > octave-lyh

comparison scripts/plot/__go_draw_axes__.m @ 8112:31e86163b752

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add the datetick function
author David Bateman <dbateman@free.fr>
date Wed, 17 Sep 2008 16:04:27 -0400
parents c066714ee5d5
children 0d37c99fc06f
comparison
equal deleted inserted replaced
8111:587eee4120ff 8112:31e86163b752
1547 endfunction 1547 endfunction
1548 1548
1549 function do_tics_1 (ticmode, tics, labelmode, labels, color, ax, 1549 function do_tics_1 (ticmode, tics, labelmode, labels, color, ax,
1550 plot_stream, mirror, mono, axispos, tickdir) 1550 plot_stream, mirror, mono, axispos, tickdir)
1551 colorspec = get_text_colorspec (color, mono); 1551 colorspec = get_text_colorspec (color, mono);
1552 if (strcmpi (ticmode, "manual")) 1552 if (strcmpi (ticmode, "manual") || strcmpi (labelmode, "manual"))
1553 if (isempty (tics)) 1553 if (isempty (tics))
1554 fprintf (plot_stream, "unset %stics;\n", ax); 1554 fprintf (plot_stream, "unset %stics;\n", ax);
1555 elseif (strcmpi (labelmode, "manual") && ! isempty (labels)) 1555 elseif (strcmpi (labelmode, "manual") && ! isempty (labels))
1556 if (ischar (labels)) 1556 if (ischar (labels))
1557 labels = cellstr (labels); 1557 labels = cellstr (labels);
1560 k = 1; 1560 k = 1;
1561 ntics = numel (tics); 1561 ntics = numel (tics);
1562 nlabels = numel (labels); 1562 nlabels = numel (labels);
1563 fprintf (plot_stream, "set format %s \"%%s\";\n", ax); 1563 fprintf (plot_stream, "set format %s \"%%s\";\n", ax);
1564 if (mirror) 1564 if (mirror)
1565 fprintf (plot_stream, "set %stics %s %s (", ax, tickdir, axispos); 1565 fprintf (plot_stream, "set %stics %s %s mirror (", ax,
1566 tickdir, axispos);
1566 else 1567 else
1567 fprintf (plot_stream, "set %stics %s %s nomirror (", ax, 1568 fprintf (plot_stream, "set %stics %s %s nomirror (", ax,
1568 tickdir, axispos); 1569 tickdir, axispos);
1569 endif 1570 endif
1570 labels = regexprep(labels, "%", "%%"); 1571 labels = regexprep(labels, "%", "%%");
1571 for i = 1:ntics 1572 for i = 1:ntics
1572 fprintf (plot_stream, " \"%s\" %g", labels{k++}, tics(i)); 1573 fprintf (plot_stream, " \"%s\" %.15g", labels{k++}, tics(i));
1573 if (i < ntics) 1574 if (i < ntics)
1574 fputs (plot_stream, ", "); 1575 fputs (plot_stream, ", ");
1575 endif 1576 endif
1576 if (k > nlabels) 1577 if (k > nlabels)
1577 k = 1; 1578 k = 1;
1582 error ("unsupported type of ticklabel"); 1583 error ("unsupported type of ticklabel");
1583 endif 1584 endif
1584 else 1585 else
1585 fprintf (plot_stream, "set format %s \"%%g\";\n", ax); 1586 fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
1586 if (mirror) 1587 if (mirror)
1587 fprintf (plot_stream, "set %stics %s %s (", ax, tickdir, axispos ); 1588 fprintf (plot_stream, "set %stics %s %s mirror (", ax, tickdir,
1589 axispos);
1588 else 1590 else
1589 fprintf (plot_stream, "set %stics %s %s nomirror (", ax, tickdir, 1591 fprintf (plot_stream, "set %stics %s %s nomirror (", ax, tickdir,
1590 axispos); 1592 axispos);
1591 endif 1593 endif
1592 fprintf (plot_stream, " %g,", tics(1:end-1)); 1594 fprintf (plot_stream, " %.15g,", tics(1:end-1));
1593 fprintf (plot_stream, " %g);\n", tics(end)); 1595 fprintf (plot_stream, " %.15g);\n", tics(end));
1594 endif 1596 endif
1595 else 1597 else
1596 fprintf (plot_stream, "set format %s \"%%g\";\n", ax); 1598 fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
1597 if (mirror) 1599 if (mirror)
1598 fprintf (plot_stream, "set %stics %s %s %s;\n", ax, axispos, tickdir, 1600 fprintf (plot_stream, "set %stics %s %s %s;\n", ax, axispos, tickdir,