Subversion Repositories wimsdev

Rev

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

  1.  
  2. !if $wims_read_parm!=$empty
  3.  !set parms=$wims_read_parm
  4.  !set parms=!replace internal $ $ by $\
  5. $ in $parms
  6.  !set size=!line 1 of $parms
  7.  !distribute items $size into sx,sy
  8.  !set ppm=!line 2 to -1 of $parms
  9. !else
  10.  !if $parms=$empty
  11.   !exit
  12.  !endif
  13.  !distribute items $parms into sx,sy
  14.  !set ppm=!item 3 to -1 of $parms
  15. !endif
  16.  
  17. !set ppm=!replace internal \filedir/ by $ in $ppm
  18. !for pm in ppm, sx, sy
  19.  !set $pm=!slashsubst $($pm)
  20. !next pp
  21. !set ppm=!replace internal $    $ by $\
  22. $ in $ppm
  23. !set pp=!trim $ppm
  24.  
  25. !set a=!word 1 of $pp
  26. !if $a=animate
  27.  !set a=!line 1 of $pp
  28.  !set a=!word 2 to -1 of $a
  29.  !set pp=!line 2 to -1 of $pp
  30.  !if $printable!=yes
  31.   !set ins_anim_frames=!item 1 of $a
  32.   !set ins_anim_delay =!item 2 of $a
  33.   !set ins_anim_loop  =!item 3 of $a
  34.  !endif
  35. !endif
  36. !readproc $docdir/.def
  37. !! only in case that we come from adm/doc to read common_images
  38. !! already read in other case
  39. !if /doc isin $(docdir)
  40.   !set docdir1= !replace internal /doc by in $(docdir)
  41.   !readdef $docdir1/var.proc
  42. !endif
  43. !! end only
  44. !if $common_files=yes
  45.   !set doc_=$docdir/files
  46. !else
  47.   !if $common_files=$empty or $common_files=no
  48.     !set doc_=$docdir/$doc/files
  49.   !else
  50.     !set doc_=!replace datamodule by modules/data in $common_files
  51.   !endif
  52. !endif
  53. !set insdraw_filebase=$(doc_)
  54. !set insdraw_size=$sx,$sy
  55. !set ins_align=middle
  56. !insdraw $pp
  57.