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 |