%
% create icon new action js
%
% stack: icon-act
%
% first (or only) image is main/static image
%
any?
{
%
% build the javascript statement changing icon animation
%
 _Sim.UniqueName 2 right dup 1 right &"].icons = {
"
 exch 1 left
 ^"tracker["
 &"]["
 ^
%%%"slicen " count & &" " log)(
%
% commas separate icons to be animated, retain for object list
%
 exch
 {
%
% stack: builder post-token add-object
%
%
% stack: builder icon-str
%
%%%"slicer " log)(
  "," slice
%%%"slices " log)(
  exch trim dup &": " exch quoter &
%
% stack: builder post-token add-object
%
  ^3)

  exch trim isnull
  {
%
% stack: builder empty
%
  }
  {
%
% more objects, add a comma
%
% stack: builder post-token
%
   exch &", " exch
  } ifelse
  isnull ?
 } loop
 pop
%
% stack: builder
%
% finalize icon objects
%
 &"
 };
"
%
% stack: builder
%
 ^_jsbulx !jsbulx

} if