Mercurial > hg > octave-nkf

comparison scripts/plot/private/__actual_axis_position__.m @ 11589:b0084095098e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
missing semicolons in script files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 18:26:09 -0500
parents c792872f8942
children 72c96de7a403
comparison
equal deleted inserted replaced
11588:d5bd2766c640 11589:b0084095098e
35 35
36 ## Get figure size in pixels 36 ## Get figure size in pixels
37 orig_fig_units = get (axis_obj.parent, "units"); 37 orig_fig_units = get (axis_obj.parent, "units");
38 orig_fig_position = get (axis_obj.parent, "position"); 38 orig_fig_position = get (axis_obj.parent, "position");
39 unwind_protect 39 unwind_protect
40 set (axis_obj.parent, "units", "pixels") 40 set (axis_obj.parent, "units", "pixels");
41 fig_position = get (axis_obj.parent, "position"); 41 fig_position = get (axis_obj.parent, "position");
42 unwind_protect_cleanup 42 unwind_protect_cleanup
43 set (axis_obj.parent, "units", orig_fig_units) 43 set (axis_obj.parent, "units", orig_fig_units);
44 set (axis_obj.parent, "position", orig_fig_position) 44 set (axis_obj.parent, "position", orig_fig_position);
45 end_unwind_protect 45 end_unwind_protect
46 ## Get axes size in pixels 46 ## Get axes size in pixels
47 if (strcmp (get (axis_obj.parent, "__graphics_toolkit__"), "gnuplot") 47 if (strcmp (get (axis_obj.parent, "__graphics_toolkit__"), "gnuplot")
48 && strcmp (axis_obj.activepositionproperty, "outerposition")) 48 && strcmp (axis_obj.activepositionproperty, "outerposition"))
49 pos_in_pixels = axis_obj.outerposition .* fig_position([3, 4, 3, 4]); 49 pos_in_pixels = axis_obj.outerposition .* fig_position([3, 4, 3, 4]);