%
% process the xact directory for green-screen ops
%
  _Camera.Phase
"<<<>>>" log)(
  <

  |Greening
%
% if not a Builder, perform greening
%
   _Aamg.ContrB not
   {
    "gs\incoming.png" oflocal exists
    {
     +Camera.GreenCount 10 gt
     {
      "Greened" *shootern
     } if
    } if
   } if
   false

  |Greened
%
% if not a Builder, thumb with green drop
%
   _Aamg.ContrB not
   {
    false !Camera.Greening
    _Xact.Process zero
    {
     *transacu
     "Thumbing" *shootern
     *camertim
     true
    }
    {
     false
    } ifelse
   }
   {
    false
   } ifelse

  > not
  {
%
% not an intercepted camera phase
%
   false
  } if
 } ifelse
%
% stack: action-taken
%