Mercurial > hg > octave-lyh

comparison scripts/plot/subwindow.m @ 2325:b5568c31ee2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-15 22:20:21 by jwe]
author jwe
date Mon, 15 Jul 1996 22:20:21 +0000
parents 5ca126254d15
children a034dcdbc282
comparison
equal deleted inserted replaced
2324:fdc6e2f81333 2325:b5568c31ee2c
36 error ("subwindow: gnuplot does not appear to support this feature"); 36 error ("subwindow: gnuplot does not appear to support this feature");
37 endif 37 endif
38 38
39 ## global variables to keep track of multiplot options 39 ## global variables to keep track of multiplot options
40 40
41 global multiplot_mode 41 global multiplot_mode
42 global multiplot_xsize multiplot_ysize 42 global multiplot_xsize multiplot_ysize
43 global multiplot_xn multiplot_yn 43 global multiplot_xn multiplot_yn
44 44
45 ## check calling argument count 45 ## check calling argument count
46 46
47 if (nargin != 2) 47 if (nargin != 2)
56 56
57 xn = round (xn); 57 xn = round (xn);
58 yn = round (yn); 58 yn = round (yn);
59 59
60 ## switch to multiplot mode if not already in, and use the args as the 60 ## switch to multiplot mode if not already in, and use the args as the
61 ## args to multiplot() 61 ## args to multiplot()
62 62
63 if (multiplot_mode != 1) 63 if (multiplot_mode != 1)
64 multiplot (xn, yn); 64 multiplot (xn, yn);
65 return; 65 return;
66 endif 66 endif
73 73
74 xo = (xn - 1.0)*multiplot_xsize; 74 xo = (xn - 1.0)*multiplot_xsize;
75 yo = (multiplot_yn - yn)*multiplot_ysize; 75 yo = (multiplot_yn - yn)*multiplot_ysize;
76 76
77 eval (sprintf ("set origin %g, %g", xo, yo)); 77 eval (sprintf ("set origin %g, %g", xo, yo));
78 78
79 endfunction 79 endfunction