Subversion Repositories wimsdev

Rev

Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $parms=$empty
  2.  !exit
  3. !endif
  4.  
  5. !distribute items $parms into sx,sy
  6. !set ppm=!item 3 to -1 of $parms
  7. !set ppm=!replace internal \filedir/ by $ in $ppm
  8. !for pm in ppm, sx, sy
  9.  !set pp=$($pm)
  10.  !set pp=!replace internal \\ by ///?/?/?/// in $pp
  11.  !set pp=!replace internal \ by $$m_ in $pp
  12.  !set pp=!replace internal ///?/?/?/// by \\ in $pp
  13.  !set $pm=$pp
  14. !next pp
  15. !set ppm=!replace internal $    $ by $\
  16. $ in $ppm
  17. !set pp=$ppm
  18.  
  19. !set a=!word 1 of $pp
  20. !if $a=animate
  21.  !set a=!line 1 of $pp
  22.  !set a=!word 2 to -1 of $a
  23.  !set pp=!line 2 to -1 of $pp
  24.  !set ins_anim_frames=!item 1 of $a
  25.  !set ins_anim_delay =!item 2 of $a
  26.  !set ins_anim_loop  =!item 3 of $a
  27. !endif
  28.  
  29. !set insdraw_filebase=$docdir/$doc/files
  30. !set insdraw_size=$sx,$sy
  31. !set ins_align=middle
  32. !insdraw $pp
  33.  
  34.