1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-
-
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
|
function figfig(filename,language,boxed)
## Usage: figfig(filename[,language,boxed])
function figfig(filename,language,boxed,monochrome)
## Usage: figfig(filename[,language,boxed,monochrome])
## Puts octave figure into fig file (filename.fig)
## If second argument, converts to filename.language using fig2dev
## eg:
## figfig("foo");
## figfig("foo","eps");
## figfig("foo","pdf");
## Boxed=1 gives a box aroundd the figure
## Boxed=1 gives a box around the figure
## Monochrome=1 gives a monchrome plot
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 2001/05/10 19:08:35 gawthrop
## Cosmetic improvements
##
## Revision 1.4 2001/05/08 15:18:12 gawthrop
## Added trig and hyperbolic functions to argument exclusion list
##
## Revision 1.3 2001/04/10 12:54:50 gawthrop
## Minor fixes for sensitivity versions
##
## Revision 1.2 2000/12/27 16:06:02 peterg
## *** empty log message ***
##
## Revision 1.1 2000/11/03 10:43:10 peterg
## Initial revision
###############################################################
if nargin<3
boxed=1;
endif
if nargin<4
monochrome=0;
else
monochrome=1;
endif
figfilename = sprintf("%s.fig",filename);
eval(sprintf("gset output \"%s\" ",figfilename));
if (monochrome==1)
gset term fig monochrome portrait fontsize 16 size 20 10 metric
else
gset term fig color portrait fontsize 16 size 20 10 metric
gset term fig color portrait fontsize 16 size 20 10 metric
endif
replot;
gset term x11
gset output
replot;
if boxed # Add a box - makes a visible bounding box
|