%
% process each file in the series, add to the collected large image
%
% stack: current-seed
%
!Xpan.Current

31.10927835051546 !Scope.MicPix 

_Scope.X _Scope.ZeroX sub
250000 mul %%% micpix calc on 4 times file size
_Scope.MicPix div normint
"scpix" log)(
!Scope.PixX

_Scope.Y _Scope.ZeroY sub
250000 mul %%% micpix calc on 4 times file size
_Scope.MicPix div normint
"scpiy" log)(
!Scope.PixY

_Scope.PixX !Xpan.X
_Scope.PixY !Xpan.Y

*xpanning
&"
XpanSeek("
%
%radw,radh,zerx,zery,ctrx,ctry
%
_Xpan.radW &"," &_Xpan.radH &","
&_Xpan.ZpixX &"," &_Xpan.ZpixY &","
&_Xpan.X &"," &_Xpan.Y
"newargs" log)(
&
&")
"
*phocperf