view toolboxes/FullBNT-1.0.7/KPMtools/previewfig.m @ 0:e9a9cd732c1e tip

first hg version after svn

function f = previewfig(h,varargin)
%PREVIEWFIG  Preview a figure to be exported using EXPORTFIG.
%   F = PREVIEWFIG(H) creates a preview of H with the default
%   EXPORTFIG options and returns the preview's figure handle in F.
%   F = PREVIEWFIG(H,OPTIONS) creates a preview with OPTIONS as
%   described in EXPORTFIG.
%   PREVIEWFIG(...,PARAM1,VAL1,PARAM2,VAL2,...) creates a preview
%   with the specified parameter-value pairs to H as described in
%   EXPORTFIG. 
%
%   See also EXPORTFIG, APPLYTOFIG, RESTOREFIG.

%  Copyright 2000 Ben Hinkle
%  Email bug reports and comments to [e-mail]

filename = [tempname, '.png'];
args = {'resolution',0,'format','png'};
if nargin > 1
  exportfig(h, filename, varargin{:}, args{:});
else
  exportfig(h, filename, args{:});
end

X = imread(filename,'png');
height = size(X,1);
width = size(X,2);
delete(filename);
f = figure( 'Name', 'Preview', ...
	    'Menubar', 'none', ...
	    'NumberTitle', 'off', ...
	    'Visible', 'off');
image(X);
axis image;
ax = findobj(f, 'type', 'axes');
axesPos = [0 0 width height];
set(ax, 'Units', 'pixels', ...
	'Position', axesPos, ...
	'Visible', 'off');
figPos = get(f,'Position');
rootSize = get(0,'ScreenSize');
figPos(3:4) = axesPos(3:4);
if figPos(1) + figPos(3) > rootSize(3)
  figPos(1) = rootSize(3) - figPos(3) - 50;
end
if figPos(2) + figPos(4) > rootSize(4)
  figPos(2) = rootSize(4) - figPos(4) - 50;
end
set(f, 'Position',figPos, ...
       'Visible', 'on');