%
% create products and product displayer
%
_Xact !Xact.Process

"Donn" *allseter

twilnum
 zero
{

empty
dup !Arching.Src
^"SelTem" ^"p:\___Final\" folder
dup !Arching.Dest
&"src" folder !Arching.Dsrc

"p:\___Fire\Robot\glotempz_universal global templates.txt"
"c:\___Fire\Robot\glotempz_universal global templates.txt"
copyfile

9 countup
{

dup true
%
% stack: tem tem MMS
%
 *glotempz
%
% stack: tem has-caption drop-type template-ident
%
 pop2&3 ^"p:\___Work\Templates\" jpeg
"src" log)(
 dup !Tem.Root
 jpeg
"srcpsd" log)(
 exists
 {
 }
 {
  "NoImage.jpg" oftem _Tem.Root jpeg copyfile
 } ifelse

 _Tem.Root jpeg
 "SelTem" &_Arching.Src &"_Tem" &3) ^_Arching.Dsrc jpeg
"dest" log)(
 copyfile
} for

}
{

twilchan

dup !Arching.Src
^"SelTem" ^"p:\___Final\" folder
dup !Arching.Dest
&"src" folder !Arching.Dsrc

/*
9 countup
{
 dup _Arching.Src true
%
% stack: tem tem twi MMS
%
 *glotempl
%
% stack: tem has-caption drop-type template-ident
%
 pop2&3 ^"p:\___Work\Templates\" jpeg
"src" log)(
 dup !Tem.Root
 jpeg
"srcpsd" log)(
 exists
 {
 }
 {
  "NoImage.jpg" oftem _Tem.Root jpeg copyfile
 } ifelse

 _Tem.Root jpeg
 "SelTem" &_Arching.Src &"_Tem" &3) ^_Arching.Dsrc jpeg
"dest" log)(
 copyfile
} for
*/
} ifelse

%
% uses template thumbnails
%
*xactsrcj


"//+Templar
//*
Templating('donexacj');
"
*phocperf