Subversion Repositories wimsdev

Rev

Rev 12490 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7235 bpr 1
 
1744 bpr 2
!if $wims_read_parm!=$empty
12490 bpr 3
  !set parms=$wims_read_parm
4
  !set parms=!replace internal $        $ by $\
1744 bpr 5
$ in $parms
12490 bpr 6
  !set size=!line 1 of $parms
7
  !distribute items $size into sx,sy
8
  !set ppm=!line 2 to -1 of $parms
1744 bpr 9
!else
12490 bpr 10
  !if $parms=$empty
11
    !exit
12
  !endif
13
  !distribute items $parms into sx,sy
14
  !set ppm=!item 3 to -1 of $parms
1744 bpr 15
!endif
16
 
17
!set ppm=!replace internal \filedir/ by $ in $ppm
18
!for pm in ppm, sx, sy
12490 bpr 19
  !set $pm=!slashsubst $($pm)
1744 bpr 20
!next pp
21
!set ppm=!replace internal $    $ by $\
22
$ in $ppm
23
!set pp=!trim $ppm
24
 
25
!set a=!word 1 of $pp
26
!if $a=animate
12490 bpr 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
  !if $printable!=yes
31
    !distribute items $a into ins_anim_frames, ins_anim_delay, ins_anim_loop
32
  !endif
1744 bpr 33
!endif
8402 bpr 34
!readproc $docdir/.def
9261 bpr 35
!! only in case that we come from adm/doc to read common_files
36
!! already read in other cases
8402 bpr 37
!if /doc isin $(docdir)
38
  !set docdir1= !replace internal /doc by in $(docdir)
13340 bpr 39
  !readproc $docdir1/var.proc
8402 bpr 40
!endif
41
!! end only
7235 bpr 42
!if $common_files=yes
8402 bpr 43
  !set doc_=$docdir/files
7235 bpr 44
!else
8402 bpr 45
  !if $common_files=$empty or $common_files=no
46
    !set doc_=$docdir/$doc/files
47
  !else
48
    !set doc_=!replace datamodule by modules/data in $common_files
49
  !endif
7235 bpr 50
!endif
8402 bpr 51
!set insdraw_filebase=$(doc_)
1744 bpr 52
!set insdraw_size=$sx,$sy
53
!set ins_align=middle
54
!insdraw $pp