%
% Mosaicer - mosaic 2 phase product driver
%
% first phase is to fill the number of sockets past
% the first socket with angled inserts of the first socket
%
% stack: num-sockets
%
!Xhead.Sockets

"
function XactSrc()
{
 SourceImage = [ " "Psm.png" ofxact tojsquo & &",
 ] ;
 SourceText = [ " _Shooter.Caption *textjsxr & &"
 ];
 MaxOrdinal = " 
 _Xhead.Sockets + & &";
 Xact = " xact quoter & &";
 SourcePath = " empty oftem jsfend
 &" TargetPath = " empty ofxact jsfend
 &" Coloring = '"
 _Shooter.Color
 & &"';
 ProdType = '"
%%% _Shooter.ProdType
6
 & &"';
 OriginalLet = '" _Shooter.Twi & &"';
 OriginalNum = " _Shooter.Tem quoter & &";
 Template = SourcePath + "
/*
 _Shooter.Twi upper?
 {
  6
  true *glotempz
  exch !Shooter.Drop
  exch !Shooter.Capt
  psd

 }
 {
 _Shooter.Twi
 _Shooter.ProdType letter

  exch !Shooter.Drop
  exch !Shooter.Capt
  psd
 } ifelse
*/
 _Shooter.Tem "-" left$ psd
"++++Template" log)(
 quoter & &';
 Backgr = SourcePath + "Backs/" + '
 _Shooter.Tem "-" right$ png quoter & jsend
%
% additional inside XactSrc settings created here
%
&_Shooter.InSrc
&"
}
"
%
% additional settings outside XactSrc created here
%
&_Shooter.ExSrc

count &"--- " &2 logs

dup "XactSrc" jsx!desk
"XactSrm" jsx!desk

"//+Mosaic
//*

Mosaic('donemosa', "

&_Xhead.Sockets

jspend

*phocperf