function jpegwrite(fname,sz,qual)

% jpegwrite(fname,sz,qual)

if nargin<3
	qual=75;
end

set(gcf,'units','pixels')
szo=get(gcf,'position');
szo=szo(1:2);

if nargin<=1
	sz=get(gcf,'position');
	sz=sz(3:4);
else
	if max(size(sz))==4;
		szo=sz(1:2);
		sz=sz(3:4);	
	end
	if (sz(2)+szo(2))>1000
		szo(2)=990-sz(2);
	end
	if (sz(1)+szo(1))>1200
		szo(1)=1200-sz(1);
	end
end

set(gcf,'position',[szo,sz]);

[X,MAP] = getframe(gcf);
imwrite(X,MAP,fname,'jpeg','quality',qual)
