Mercurial > octave-nkf

comparison scripts/plot/subplot.m @ 5252:3d9afb170a39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-28 18:40:35 by jwe]
author jwe
date Mon, 28 Mar 2005 18:40:35 +0000
parents 32c569794216
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5251:454e3c98300d 5252:3d9afb170a39
155 __multiplot_xsize__ = __multiplot_scale__(1) ./ columns; 155 __multiplot_xsize__ = __multiplot_scale__(1) ./ columns;
156 __multiplot_ysize__ = __multiplot_scale__(2) ./ rows; 156 __multiplot_ysize__ = __multiplot_scale__(2) ./ rows;
157 157
158 gnuplot_command_replot = "cle;rep"; 158 gnuplot_command_replot = "cle;rep";
159 159
160 __gnuplot_set__ multiplot; 160 __gnuplot_raw__ ("set multiplot;\n");
161 161
162 eval (sprintf ("__gnuplot_set__ size %g, %g", __multiplot_xsize__, 162 __gnuplot_raw__ (sprintf ("set size %g, %g;\n",
163 __multiplot_ysize__)); 163 __multiplot_xsize__, __multiplot_ysize__));
164 endif 164 endif
165 165
166 ## get the sub plot location 166 ## get the sub plot location
167 167
168 yp = fix ((index-1)/columns); 168 yp = fix ((index-1)/columns);
173 ## set the origin 173 ## set the origin
174 174
175 xo = (xp - 1.0) * __multiplot_xsize__; 175 xo = (xp - 1.0) * __multiplot_xsize__;
176 yo = (rows - yp) * __multiplot_ysize__; 176 yo = (rows - yp) * __multiplot_ysize__;
177 177
178 eval (sprintf ("__gnuplot_set__ origin %g, %g", xo, yo)); 178 __gnuplot_raw__ (sprintf ("set origin %g, %g;\n", xo, yo));
179 179
180 endif 180 endif
181 181
182 endfunction 182 endfunction