From: Arjen M. <arj...@de...> - 2013-02-13 10:23:48
|
Hello Gérard, you can use the -o option to specify the filename or in your program: (plsfnam 'somefilename) (Mind you, I did a bit of guess work here, as I do not program in LISP myself) Regards, Arjen On 2013-02-13 11:12, Gérard Robin wrote: > 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 > Plp...@li... > https://lists.sourceforge.net/lists/listinfo/plplot-general > DISCLAIMER: This message is intended exclusively for the addressee(s) and may contain confidential and privileged information. If you are not the intended recipient please notify the sender immediately and destroy this message. Unauthorized use, disclosure or copying of this message is strictly prohibited. The foundation 'Stichting Deltares', which has its seat at Delft, The Netherlands, Commercial Registration Number 41146461, is not liable in any way whatsoever for consequences and/or damages resulting from the improper, incomplete and untimely dispatch, receipt and/or content of this e-mail. |