11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
|
## key=1 gives the key legend
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.11 2004/03/15 11:44:34 gawthrop
## Yet another option (to allow legend).
##
## Revision 1.10 2003/08/19 13:13:28 gawthrop
## No legend
##
## Revision 1.9 2002/09/12 08:39:27 gawthrop
## Removed spurious text
##
## Revision 1.8 2002/09/11 15:04:59 gawthrop
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
-
+
|
endif
replot;
gset term x11
gset output
replot;
if boxed # Add a box - makes a visible bounding box
fid = fopen(figfilename,"a+");
fid = fopen(figfilename,"a+t");
fprintf(fid,"2 4 0 2 31 7 50 0 -1 0.000 0 0 7 0 0 5\n");
fprintf(fid,"\t9675 5310 9675 270 225 270 225 5310 9675 5310\n");
fclose(fid);
endif
if nargin>1 # Do a file in another langueage
|