%
% get template and caption info
%
% stack: caption
%
trim
"origcap" log)(
dup !Shooter.OrigCap

%%% *twiphsnd dup !Shooter.AdjCap

%%% pop _Shooter.OrigCap

false !Shooter.ValidCap

*twiflgof

_Arching.Atype
"temcatypex" log)(
<
|FirstOf
|Mosaic
%%% pop _Shooter.OrigCap
 *twiltemc
>
{
%
% mosaic or firstof must ignore template type
%
}
{
%
% see if one or more letter/numbers at left of space
%
 dup
 " " slice
 trim
 exch

%
% stack: raw-caption post-space pre-space
%
"prelnx" log)(

 *twilteme
%
% stack: adj-caption
%

} ifelse

"newadjcap" log)(

%
% stack: adj-caption
%
dup !Shooter.AdjCap