Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
7640 bpr 1
!if $wims_read_parm=$empty
13798 bpr 2
  !exit
7640 bpr 3
!endif
7916 bpr 4
 
7640 bpr 5
!set pp=!trim $wims_read_parm
15293 bpr 6
!! useful only (?) in draw for symbols as \RR
7
!!set pp=!replace internal \\ by ///?/?/?/// in $pp
8
!!set pp=!replace internal \ by $$m_ in $pp
9
!!set pp=!replace internal ///?/?/?/// by \\ in $pp
13798 bpr 10
!set pp=!translate internal $   $ to $\
11
$ in $pp
7640 bpr 12
!set s_=!line 1 of $pp
7916 bpr 13
 
14566 bpr 14
!set tmp=!text remove ,0123456789 in $s_
15
!set tmpcnt=!itemcnt $s_
16552 bpr 16
!if size notin $s_ and ($tmp notsametext $empty or $s_=$empty or $tmpcnt!=2)
7640 bpr 17
  !exit
18
!endif
16552 bpr 19
!if size isin $s_
20
  !set s_=!replace internal size by in $s_
21
  !set s_=!trim $s_
22
!endif
7640 bpr 23
!set pp=!line 2 to -1 of $pp
8405 bpr 24
 
8409 bpr 25
!read canvasimagedir.phtml $pp
26
!set pp=!trim $canvas_ppm
8405 bpr 27
 
11986 bpr 28
!set pp=!rows2lines $pp
11053 bpr 29
!!non empty lines in canvasdraw
30
!set pp=!nonempty lines $pp
7640 bpr 31
!set canvasdraw_out=!exec canvasdraw\
32
size $s_\
33
$pp
11033 bpr 34
!reset canvasdraw_idclass
35
!set id1=!positionof canvas_div in $canvasdraw_out
36
!if $id1!=$empty
37
  !set id2=!positionof " in $canvasdraw_out
38
  !for j in $id2
39
    !if $j>$id1
40
      !break
41
    !endif
42
  !next
16845 bpr 43
  !set canvasdraw_idclass=!char $id1+1 to $j of $canvasdraw_out
11033 bpr 44
!endif
16845 bpr 45
!set canvasdraw_out=!replace internal , by in $canvasdraw_out
46
!!set canvasdraw_out=<div class="wims_scrollable">$canvasdraw_out</div>
7640 bpr 47
 
48
$canvasdraw_out