Subversion Repositories wimsdev

Rev

Rev 8409 | 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 $    $ by $\
  17. $ in $ppm
  18.  
  19. !read canvasimagedir.phtml $ppm
  20. !set ppm=$canvas_ppm
  21.  
  22. !for pm in ppm, sx, sy
  23.   !set $pm=!slashsubst $($pm)
  24. !next pp
  25.  
  26. !set pp=!trim $ppm
  27.  
  28. !set pp=!line 1 to -1 of $pp
  29. !set pp=!translate internal $   $ to $\
  30. $ in $pp
  31. !set pp=!trim $pp
  32.  
  33. !set canvasdraw_out=!exec canvasdraw\
  34. size $sx,$sy\
  35. $pp
  36.  
  37. $canvasdraw_out
  38.