[Plplot-general] Enter graphics output file name:

[Gérard R. <g.r...@fr...>]

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.