%
% construct the subject xacts wow slider
%
% stack: xact
%
0 !counter
empty !scripter
"xact_" textwild
empty oftack
empty
%
% stack: xact tack-dir seed
%

third
"tackmkag" log)(
!Xact
%
% stack: xact tack-dir seed
%
{
 nextfile ?
 +:counter
} loop
filing)
%
% stack: xact
%
_counter !dcount
%
% load the subject wow slider matching subject xacts count
%
"wowslider" _counter letter & &".html"
"Wow\Moading" _counter letter & &"\" ^
ofapp
"moadlet" log)(
read

%
% stack: xact wow-body
%
% add addtl js
%
*tackmvad

%
% stack: xact wow-body
%
% convert out-of-directory refs
%
*tackmvac

%
% stack: xact wow-body
%
"wowslider.html" oftack
2 copy
write
%
% stack: xact wow-body wow-dest
%
third !Xact
*tackmkcg

%
% stack: xact
%
% copy the basis of subject xact images to where the WowSlider expects it
%
*tackmkay
%
% stack: xact
%
dup !Xact