Subversion Repositories wimsdev

Rev

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