gnuplot.red 409 B

123456789101112131415161718192021
  1. module gnuplot; % REDUCE interface for gnuplot graphics.
  2. create!-package('(gnuplot gnuintfc gnupldrv),nil);
  3. global '(plotdta!* plotdta!*2 plotmax!*
  4. plotmin!* plotcmds!* plotcommand!*
  5. lispsystem!*
  6. plotdriver!*);
  7. plotdriver!*:='gnuplot;
  8. put('gnuplot,'do,'gp!-do);
  9. put('gnuplot,'option,'gp!-option);
  10. load_package plot; % Generic plot package.
  11. endmodule;
  12. end;