Rev 8407 | Rev 8409 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
7622 | bpr | 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 | |||
8404 | bpr | 16 | !set ppm=!replace internal $ $ by $\ |
17 | $ in $ppm |
||
8408 | bpr | 18 | !if copy isin $ppm or imagefill isin $ppm or bgimage isin $ppm |
8404 | bpr | 19 | !set line_cnt=!linecnt $ppm |
20 | !for l_=1 to $line_cnt |
||
21 | !set line=!line $l_ of $ppm |
||
8408 | bpr | 22 | !if copy isin $line or imagefill isin $line or bgimage isin $line |
8404 | bpr | 23 | !set im=!item -1 of $line |
8408 | bpr | 24 | !if bgimage isin $line |
25 | !set im=!word -1 of $im |
||
26 | !set line=bgimage \filedir/$im |
||
27 | !else |
||
28 | line=$(line[1..-2]),\filedir/$im |
||
29 | !endif |
||
8404 | bpr | 30 | !if / notin $im |
8408 | bpr | 31 | !set ppm=!replace line number $l_ by $line in $ppm |
8404 | bpr | 32 | !endif |
33 | !endif |
||
8408 | bpr | 34 | !next |
8404 | bpr | 35 | !endif |
36 | |||
7622 | bpr | 37 | !for pm in ppm, sx, sy |
38 | !set $pm=!slashsubst $($pm) |
||
39 | !next pp |
||
8400 | bpr | 40 | |
7622 | bpr | 41 | !set pp=!trim $ppm |
42 | |||
43 | !set pp=!line 1 to -1 of $pp |
||
44 | !set pp=!translate internal $ $ to $\ |
||
45 | $ in $pp |
||
46 | !set pp=!trim $pp |
||
47 | |||
48 | !set canvasdraw_out=!exec canvasdraw\ |
||
49 | size $sx,$sy\ |
||
50 | $pp |
||
51 | |||
52 | $canvasdraw_out |