%
% Xpan seed psd is loaded
%
% stack: pshop-info-file
%
fromjs exec

__OriginalDocWidth_
"xpanw" log)(
dup 2 div
dup !Xpan.ZpixX
dup !Xpan.PrevX
!Xpan.X
dup 4 div !Xpan.W
8 div !Xpan.radW

__OriginalDocHeight_
"xpanh" log)(
dup 2 div
dup !Xpan.ZpixY
dup !Xpan.PrevY
!Xpan.Y
dup 4 div !Xpan.H
8 div !Xpan.radH

%
% find the new series start
%
0 *xpanscan
%
% stack: stills-folder series-start
%
any?
{
%
% start of the series, process the stills into the main file
%
% stack: stills-folder series-start
%
 exch !Xpan.Stills
 *xpanproc
}
{
%
% series not present
%
% stack: stills-folder
%
 pop
} ifelse