Subversion Repositories wimsdev

!if $wims_read_parm!=$empty

!if $wims_read_parm!=$empty

 !set parms=$wims_read_parm

 !set parms=$wims_read_parm

 !set parms=!replace internal $ $ by $\

 !set parms=!replace internal $ $ by $\

$ in $parms

$ in $parms

 !set size=!line 1 of $parms

 !set size=!line 1 of $parms

 !if $parms=$empty

 !if $parms=$empty

  !exit

  !exit

 !endif

 !endif

 !distribute items $parms into sx,sy

 !distribute items $parms into sx,sy

 !set ppm=!item 3 to -1 of $parms

 !set ppm=!item 3 to -1 of $parms

!set ppm=!replace internal \filedir/ by $ in $ppm

!set ppm=!replace internal \filedir/ by $ in $ppm

!for pm in ppm, sx, sy

!for pm in ppm, sx, sy

 !set $pm=!slashsubst $($pm)

 !set $pm=!slashsubst $($pm)

!next pp

!next pp

  !set ins_anim_frames=!item 1 of $a

  !set ins_anim_frames=!item 1 of $a

  !set ins_anim_delay =!item 2 of $a

  !set ins_anim_delay =!item 2 of $a

  !set ins_anim_loop  =!item 3 of $a

  !set ins_anim_loop  =!item 3 of $a

 !endif

 !endif

!endif

!endif

!set insdraw_size=$sx,$sy

!set insdraw_size=$sx,$sy

!set ins_align=middle

!set ins_align=middle

!insdraw $pp

!insdraw $pp