tests/rtest_plotoptions.mac

   1 /* mailing list 2016-01-08: "set_plot_option question" */
   2
   3 (set_plot_option([style,[points,3],[lines,2]]),get_plot_option(style));
   4 [style, [points, 3], [lines, 2]]$
   5
   6 /*
   7  * Bug #3186, get_plot_option cannot get the last pair of *plot-options*
   8  *
   9  * Also, make sure get_plot_option returns a copy of *plot-options* so
  10  * changes to the result of get_plot_option don't change
  11  * *plot-options* unexpecgedly.
  12  */
  13 get_plot_option('gnuplot_term);
  14 [gnuplot_term, default];
  15
  16 c:get_plot_option('color);
  17 [color, blue, red, green, magenta, black, cyan];
  18
  19 c[2]:'purple;
  20 purple;
  21
  22 get_plot_option('color);
  23 [color, blue, red, green, magenta, black, cyan];