%
% get the screen and sequence into jpg
%
"_screen.jpg" ofbin

dup fileroot *finsures & second extension & exch pathonly ^

"scrsave " log()

%
% stack: screen-jpeg
%
 .002 .002 .996 .996

%
% stack: screen-jpeg x-per y-per w-per h-per
%
perscreen

fourth !xglo third !yglo second !wglo dup !hglo

screen