Mercurial > hg > octave-lyh

comparison scripts/plot/subplot.m @ 2520:a034dcdbc282

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-11-15 04:57:21 by jwe]
author jwe
date Fri, 15 Nov 1996 04:59:08 +0000
parents 8fc0fa7ae9ca
children 8b262e771614
comparison
equal deleted inserted replaced
2519:6914eab16f0b 2520:a034dcdbc282
115 115
116 if (columns*rows == 1) 116 if (columns*rows == 1)
117 117
118 ## switching to single plot ? 118 ## switching to single plot ?
119 119
120 set nomultiplot; 120 gset nomultiplot;
121 set size 1, 1; 121 gset size 1, 1;
122 set origin 0, 0; 122 gset origin 0, 0;
123 123
124 multiplot_xn = 1; 124 multiplot_xn = 1;
125 multiplot_yn = 1; 125 multiplot_yn = 1;
126 multiplot_mode = 0; 126 multiplot_mode = 0;
127 127
150 multiplot_xn = columns; 150 multiplot_xn = columns;
151 multiplot_yn = rows; 151 multiplot_yn = rows;
152 multiplot_xsize = 1.0 ./ columns; 152 multiplot_xsize = 1.0 ./ columns;
153 multiplot_ysize = 1.0 ./ rows; 153 multiplot_ysize = 1.0 ./ rows;
154 154
155 set multiplot; 155 gset multiplot;
156 156
157 eval (sprintf ("set size %g, %g", multiplot_xsize, multiplot_ysize)); 157 eval (sprintf ("gset size %g, %g", multiplot_xsize, multiplot_ysize));
158 158
159 endif 159 endif
160 160
161 ## get the sub plot location 161 ## get the sub plot location
162 162
168 ## set the origin 168 ## set the origin
169 169
170 xo = (xp - 1.0)*multiplot_xsize; 170 xo = (xp - 1.0)*multiplot_xsize;
171 yo = (rows - yp)*multiplot_ysize; 171 yo = (rows - yp)*multiplot_ysize;
172 172
173 eval (sprintf ("set origin %g, %g", xo, yo)); 173 eval (sprintf ("gset origin %g, %g", xo, yo));
174 174
175 endif 175 endif
176 176
177 endfunction 177 endfunction