%
% execute commands based upon phase of xact directory
%
0 !xcounter
curxact
{
 snap "xact*" xactseed File.FoldNext
%%% "xactfold" log)(
 any?
 {
  fileroot -4 left
%%% "newcur " log)(
  !Xact
%%%  *tamerxac
  pop false
  not
  {
%
% no process of xact directory
%
   +xcounter 30 gt
  } if
 }
 {
%
% have run through all the xact chain
%
  0 !Xact
  _Tsrv.Qdone
  {
%
% the que is available for loading textures for tree
%
   _Tsrv.Qpass
   {
%
% have new xacts to load into tree textures
% load the textures in que
%
    @@
    "signal" @^Sque
    false !Tsrv.Qdone
   }
   {
%
% no xacts to load, make sure initial pass flag is reset
%
    false !Tsrv.Qload
   } ifelse
  }
  {
%
% the que is still being processed
%
  } ifelse
  true
 } ifelse
 ?
} loop

_Xact "_curxact" text!bin