%
%%% |Staged
%
% tack is created or updated with xact
%
%%%   *xactmmtx
%
% stack: 
%
"stag1" log)(
Vm.*Anchor
"stag2" log)(
%
% check for photoshop busy with another xact
%
_Xact.Process zero
"ckstaged" log)(
{
%
% photoshop available, process template
%
% get the image information needed to build template
%
 "incoming.jpg" ofxact
%
% stack: inco-xact
%
"stag3" log)(
 _Arching.Vm
 {
%
% stack: inco-xact
%
% copy the incoming locally
%
  "xact1\incoming.jpg" ofsnap
%
% for vm it is local xact1
%
  -1 left ^"c"
%
% kill the local xact1 copy
%
  dup del
%
% copy the xact incoming local 
%
  2 copy
  copyfile
%
% stack: inco-xact inco-local
%
% copy possible pngs
%
  repng exch repng exch
  dup del
  copyfile(
%
% the targeted possible png check for existence
%
  dup exists
%
% stack: inco-xact-png exists
%
"stag4a" log)(
  {
%%% the png exists
  }
  {
%%% the jpg must exist then
   rejpg
  } ifelse
%
% stack: inco-xact-file
%
% remove the local crop copies jpg and png
%
  "xact1\Psm*.*" ofsnap
  -1 left ^"c"
  delfiles
 }
 {
 } ifelse
 empty !Shooter.Alt
"stag4b" log)(
%
% stack: inco-xact-file
%
 -1 left ^"c"
 !Shooter.Full
%
% insure building process does not hang up
%
 "Thumbing" *shootern
 *camertim
"stag5" log)(
%
% stack:
%
 *transact
"stag6" log)(
}
{
%
% photoshop not available
%
} ifelse