%
% create an image in the gallery of xacts/subject
%
+:counter

9 countup
{
 dup
 9 eq
 {
  empty *slidrfil
  "___Index___" _counter replall
  _counter 1 gt { ^"," } if
  pop2nd "gallery" ^:
 }
 {
  dup letter lower *slidrfil
  "___Index___" _counter replall
  _counter 1 gt { ^"," } if
  exch ^"gallery" ^:
 } ifelse
} for