Subversion Repositories wimsdev

Rev

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

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