When I run this program:
(defpackage :system-examples
(:use :common-lisp
:cl-plplot-system))
(in-package :system-examples)
(defparameter gdev "xfig") ; (was aqt) set this to the appropriate plplot
device for your system
(defun my-make-array (dims)
(make-array dims :initial-element 0.0 :element-type 'float))
(defun plotparabol ()
(plsdev gdev)
(plinit)
(plcol0 1)
(plwid 1)
(plenv -6 6 0 36 0 0)
(plcol0 2)
(pllab "(x)" "(y)" "y = x#u2")
(let ((x (my-make-array 121))
(y (my-make-array 121)))
(dotimes (i 121)
(let ((tmp (* 0.1 (- i 60))))
(setf (aref x i) tmp)
(setf (aref y i) (* tmp tmp))))
(plcol0 3) ;; color de la courbe
(plline x y))
(plend))
(plotparabol)
I get : Enter graphics output file name:
How can I avoid this message? what I want is that the result is automatically
stored in a file whose name is given by the program.(say : parab1.fig)
Then I want to add the line in the program :
(run-program "/usr/bin/xfig" '("-nosp" "parab1.fig"))
for the curve appears on the screen.
------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
Plplot-general mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/plplot-general
