Subversion Repositories wimsdev

Rev

Rev 2254 | 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.