Subversion Repositories wimsdev

Rev

Rev 8409 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7622 bpr 1
!if $wims_read_parm!=$empty
12490 bpr 2
  !set parms=$wims_read_parm
3
  !set parms=!replace internal $        $ by $\
7622 bpr 4
$ in $parms
12490 bpr 5
  !set size=!line 1 of $parms
6
  !distribute items $size into sx,sy
7
  !set ppm=!line 2 to -1 of $parms
7622 bpr 8
!else
12490 bpr 9
  !if $parms=$empty
10
    !exit
11
  !endif
12
  !distribute items $parms into sx,sy
13
  !set ppm=!item 3 to -1 of $parms
7622 bpr 14
!endif
15
 
8404 bpr 16
!set ppm=!replace internal $    $ by $\
17
$ in $ppm
18
 
8409 bpr 19
!read canvasimagedir.phtml $ppm
20
!set ppm=$canvas_ppm
21
 
7622 bpr 22
!for pm in ppm, sx, sy
12490 bpr 23
  !set $pm=!slashsubst $($pm)
7622 bpr 24
!next pp
8404 bpr 25
 
7622 bpr 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