Subversion Repositories wimsdev

Rev

Rev 16212 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16212 Rev 16272
Line 1... Line -...
1 
 
 - 
 
- 
 
 1 
!!see scripts/oef/draw.phtml modules/adm/doc/primitives/draw.phtml scripts/primitives/draw.phtml
2 
!if $wims_read_parm!=$empty
 2 
!if $wims_read_parm!=$empty
3 
  !set parms=$wims_read_parm
 3 
  !set parms=$wims_read_parm
4 
  !set parms=!replace internal $        $ by $\
 4 
  !set parms=!replace internal $        $ by $\
5 
$ in $parms
 5 
$ in $parms
6 
  !set size=!line 1 of $parms
 6 
  !set size=!line 1 of $parms
Line 10... Line 10...
10 
  !if $parms=$empty
 10 
  !if $parms=$empty
11 
    !exit
 11 
    !exit
12 
  !endif
 12 
  !endif
13 
  !distribute items $parms into sx,sy
 13 
  !distribute items $parms into sx,sy
14 
  !set ppm=!item 3 to -1 of $parms
 14 
  !set ppm=!item 3 to -1 of $parms
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
!set ppm=!replace internal \filedir/ by $ in $ppm
 17 
!set ppm=!replace internal \filedir/ by $ in $ppm
18 
!for pm in ppm, sx, sy
 18 
!for pm in ppm, sx, sy
19 
  !set $pm=!slashsubst $($pm)
 19 
  !set $pm=!slashsubst $($pm)
20 
!next pp
 20 
!next pp
21 
!set ppm=!replace internal $    $ by $\
 21 
!set ppm=!replace internal $    $ by $\
22 
$ in $ppm
 22 
$ in $ppm
23 
!set pp=!trim $ppm
 23 
!set pp=!trim $ppm
24 
 
 24 
 
- 
 
 25 
!set a_=!word 1 of $pp
- 
 
 26 
!if $a_=alt
- 
 
 27 
  !set a_=!line 1 of $pp
- 
 
 28 
  !set a_=!word 2 to -1 of $a_
- 
 
 29 
  !set pp=!line 2 to -1 of $pp
- 
 
 30 
  !set ins_attr=alt="$a_"
- 
 
 31 
  !set wims_ins_alt=empty
- 
 
 32 
!endif
25 
!set a=!word 1 of $pp
 33 
!set a=!word 1 of $pp
26 
!if $a=animate
 34 
!if $a=animate
27 
  !set a=!line 1 of $pp
 35 
  !set a=!line 1 of $pp
28 
  !set a=!word 2 to -1 of $a
 36 
  !set a=!word 2 to -1 of $a
29 
  !set pp=!line 2 to -1 of $pp
 37 
  !set pp=!line 2 to -1 of $pp