%
% roll gallery for shooter app bottom drawer
%
% gather the  most recent 10 images from the camera roll
% of the requesting shooter
%
% starting at the most recent xact directory, find any beyond the Thumbed status
% check that it belongs to the venue/shooter
% create the gallery json build
% look back through no more than 50 valid xact directories
%
% execute commands based upon phase of xact directory
%
*slidrpre
0 !counter
{
 snap "xact*" xactseed File.FoldPrev
 any?
 {
  fileroot -4 left !Xact
  "G.jpg" ofxact exists
  {
%
% roll image in xact directory, add to gallery json
%
   empty *slidrfil
   *slidrnxt
   _Xact.Index 10 gt
  }
  {
%
% no roll image in xact directory
%
   +counter 50 gt
  } ifelse
 }
 {
  true
 } ifelse
 ?
} loop
*slidrpst
%
% stack: gal-build
%