Mercurial > octave-dspies

comparison scripts/plot/appearance/orient.m @ 17672:36917b3db6b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
orient.m: Setting 'landscape' orientation also sets plot to take up full page. * scripts/plot/appearance/orient.m: Check for 'landscape' orientation and set paperposition to be entire page minus 0.25" margins.
author Rik <rik@octave.org>
date Thu, 17 Oct 2013 09:11:24 -0700
parents 7bb76a22cde1
children 26bd7d18a50c
comparison
equal deleted inserted replaced
17671:ddfc1600a311 17672:36917b3db6b2
63 paperposition = get (cf, "paperposition"); 63 paperposition = get (cf, "paperposition");
64 set (cf, "paperorientation", orientation); 64 set (cf, "paperorientation", orientation);
65 set (cf, "papersize", papersize([2, 1])); 65 set (cf, "papersize", papersize([2, 1]));
66 set (cf, "paperposition", paperposition([2, 1, 4, 3])); 66 set (cf, "paperposition", paperposition([2, 1, 4, 3]));
67 endif 67 endif
68 ## landscape also sets the plot to occupy the entire page
69 if (strcmpi (orientation, "landscape"))
70 papersize = get (cf, "papersize");
71 set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]);
72 endif
68 elseif (strcmpi (varargin{1}, 'tall')) 73 elseif (strcmpi (varargin{1}, 'tall'))
69 orient ("portrait"); 74 orient ("portrait");
70 papersize = get (cf, "papersize"); 75 papersize = get (cf, "papersize");
71 set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]); 76 set (cf, "paperposition", [0.25, 0.25, (papersize - 0.5)]);
72 else 77 else