%
% use the baby birth-indexed jpgs
% stack: baby-index
%
!idx
*babymsgl
{
%
% has baby mother
%

`var BabyMother = "` &_Shooter.Mother
&`";
Xact = "xact` &_Xact
&`";
var srcrng = 23;
function ClearSrc(dims)
{
 var idx;
 for (idx=SourceImage.length;idx < dims;idx++)
 {
  SourceImage[idx] = "";
 }
 for (idx=SourceText.length;idx < dims;idx++)
 {
  SourceText[idx] = "";
 }
}

`

&`
function XactSrc()
{
 HostData("BabyMother");
 HostData("Xact");
 SourceImage = [ `
%
% xsrc-build
%
 *babylker read
%
% xsrc-build image-look
%
% check for index n_0 then index n_1
% for image slot 1
%
*babyxact
{
 !Xact
 "incoming.jpg" ofxact
 -1 left ^"p"
 tojsquo
}
{
 '""'
} ifelse
 &",
"
%
% xsrc-build image-look xsrc-add
%

rot ^
exch
%
% xsrc-build image-look
%

%
% check for index n_6
% for image slot 2
%
empty !BabyImage
_idx &"_6" second lookstr)
_BabyImage any?
{
 !Xact
 "incoming.jpg" ofxact
-1 left ^"p"
 tojsquo
}
{
 '""'
} ifelse
 &",
"

rot ^
exch
%
% xsrc-build image-look
%

pop
%
% xsrc-build 
%




 &'""'
 &" ] ;
 SourceText = [ "

_birth_1_BabyGender !BabyGender
_birth_1_BabyName !BabyName
_birth_1_BabyDate !BabyDate
_birth_1_BabyWeight !BabyWeight
_birth_1_BabyLength !BabyLength


%
% BabyGender text slot 1
% BabyName text slot 2
% BabyDate text slot 3
% BabyLength text slot 4
% BabyWeight text slot 5
%

_BabyGender *textjsxr &
 &",
"
_BabyName *textjsxr &
 &",
"
_BabyDate *textjsxr &
 &",
"
_BabyLength *textjsxr &
 &",
"
_BabyWeight *textjsxr &
 &",
"


% ----BabyDate
% time text slot 6
% month,day,year text slot 7
%
_BabyDate any?
{
 empty !builder
 dtfull

%
% xsrc-build dow-verbose month-verbose dom-super year time-ampm
%
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose dom-super year
%
 ^", " exch -2 right ^ ^" " &
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose
%
 pop

&_builder

}
{
 &'"", "", '
} ifelse
%
% xsrc-build
%

% ----BabyDate
% am/pm text slot 8
% minute text slot 9
% hour text slot 10
% year text slot 11
% suffix text slot 12
% day text slot 13
% month verbose text slot 14
% dow verbose text slot 15
% last name text slot 16
% first name text slot 17
% length inches text slot 18
% time hour:minutes text slot 19
% weight ozs text slot 20
% weight lbs text slot 21
% family ident text slot 22

_BabyDate any?
{
 empty !builder
 dtfull

%
% xsrc-build dow-verbose month-verbose dom-super year time-ampm
%
 dup 2 right
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose dom-super year time-ampm
%
 -2 right trim ":" slice 
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose dom-super year hour
%
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose dom-super year
%
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose dom-super
%
  dup 2 right
  *textjsxr
 &",
"
^:builder

  -2 right
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose month-verbose
%
  *textjsxr
 &",
"
^:builder

%
% xsrc-build dow-verbose
%
  *textjsxr
 &",
"
^:builder


&_builder

}
{
%
% xsrc-build
%
 &'"", "", "", "", "", "", "", "", '
} ifelse

%
% xsrc-build
%

empty !builder
_BabyName " " right$ trim
  *textjsxr
 &",
"
^:builder

_BabyName " " left$ trim
  *textjsxr
 &",
"
^:builder

_BabyLength " " left$
  *textjsxr
 &",
"
^:builder

_BabyDate " " right$ -2 right
  *textjsxr
 &",
"
^:builder

_BabyWeight " " 0 4 1 parse
%
% xsrc-build lbs lbs-str ozs ozs-str
%
  pop
  *textjsxr
 &",
"
^:builder

%
% xsrc-build lbs lbs-str
%
  pop
  *textjsxr
 &",
"
^:builder

%
% xsrc-build
%

_BabyName " " right$/ ^"The " &" Family"
  *textjsxr
 &",
"
^:builder

&_builder


&'""'
 &"
 ];
 MaxOrdinal = "

"srcrng - 1"
%%% _Shooter.Alt any)? { 2 } { 1 } ifelse

 & &";
 Xact = "

 xact

quoter & &";
 SourcePath = " empty oftem jsfend
 &" TargetPath = "


%%% _Xact.Dir

"xact1\" ofsnap


 jsfend &" Coloring = '"
%%%  _Sms.Coloring
 _Shooter.Color
 &
 &"';
 ProdType = '"
 _Shooter.ProdType
 &
 &"';
 OriginalLet = '" _Shooter.Twi & &"';
 OriginalNum = " _Shooter.Tem quoter & &";
 Template = SourcePath + "

_BabyGender lower "m" eq$
{
 "MannA"
}
{
 "FannA"
} ifelse
/*
 _Shooter.Twi upper?
 {
  _Shooter.Tem
%%% _Shooter.Twi
%%% _Shooter.ProdType letter true *glotempl

 true *glotempz
  exch !Shooter.Drop
  exch !Shooter.Capt

  psd
 }
 {
  _Shooter.Tem
%%% _Shooter.Twi

%%% _Shooter.ProdType letter

 false *glotempz
  exch !Shooter.Drop
  exch !Shooter.Capt

  psd
 } ifelse

*/

psd

"++++Template" log)(
 quoter & jsend
%
% additional inside XactSrc settings created here
%
&_Shooter.InSrc
&"
ClearSrc(srcrng);
}
"
%
% additional settings outside XactSrc created here
%
&_Shooter.ExSrc
count &"--- " &2 logs

dup

"XactSrc" jsx!xact

%%% "XactSrc" jsx!desk

"XactSrd" jsx!desk

}
{
%
% no baby mother
%
} ifelse