"P" *ctonmxmt

1
countup
{
 dup dup 1 eq
 {
  pop ""
 } if
%
% stack: count count-or-blank
%
% do possibly blank ordinal first
%
 _Cton.Pmodel
 "/*___Panel#___*/"
 third
 replall
%
% continue with possibly blank ordinal
%
 "___Panel#___"
 rot
 replall
%
% substitue ordinal minus one for atlas suffix
%
 "___Image#___"
 rot - ^"-" ^_Cton.Root
 replall

 ^:Cton.Output
} for