Subversion Repositories wimsdev

Rev

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

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