%
% roll gallery for shooter app bottom drawer
%
% gather the  most recent 9 images from the camera roll
%
% execute commands based upon phase of xact directory
%
0 !Xact.Index
0 !Xact
0 !counter
{
 *xactreva
 {
  "G.jpg" ofxact dup exists
  {
%
% leave image on stack
% roll image in xact directory, add to image list
%

   +Xact.Index 8 gt
  }
  {
%
% no roll image in xact directory
%
   pop
   +counter 50 gt
  } ifelse
 }
 {
  true
 } ifelse
"xactc" log)(
 ?
} loop
_Xact.Index
%
% stack: [ image1 . . . ] count
%