Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 14850
Line 3... Line 3...
3
!endif
3
!endif
4
 
4
 
5
slib_author=Fabrice, Guerimand
5
slib_author=Fabrice, Guerimand
6
 
6
 
7
!exit
7
!exit
8
 
-
 
9
 
8
 
10
:proc
9
:proc
11
slib_input=$wims_read_parm
10
slib_input=$wims_read_parm
12
 
11
 
13
!distribute items $slib_input into a,b,mx,my,Mx,My
12
!distribute items $slib_input into a,b,mx,my,Mx,My
14
slib_out=$slib_input
13
slib_out=$slib_input
15
 
14
 
16
liste=$empty
15
liste=$empty
17
tmp=$[$mx*($a)+($b)]
16
tmp=$[$mx*($a)+($b)]
18
!ifval $tmp<=$My and $tmp>=$my
17
!ifval $tmp<=$My and $tmp>=$my
19
 liste=!append line $mx,$tmp to $liste
18
  liste=!append line $mx,$tmp to $liste
20
!endif
19
!endif
21
tmp=$[$Mx*($a)+($b)]
20
tmp=$[$Mx*($a)+($b)]
22
!ifval $tmp<=$My and $tmp>=$my
21
!ifval $tmp<=$My and $tmp>=$my
23
 liste=!append line $Mx,$tmp to $liste
22
  liste=!append line $Mx,$tmp to $liste
24
!endif
23
!endif
25
tmp=!linecnt $liste
24
tmp=!linecnt $liste
26
!if $tmp=2
25
!if $tmp=2
27
 !goto end
26
  !goto end
28
!endif
27
!endif
29
 
28
 
30
tmp=$[($my-($b))/($a)]
29
tmp=$[($my-($b))/($a)]
31
!ifval $tmp<=$Mx and $tmp>=$mx
30
!ifval $tmp<=$Mx and $tmp>=$mx
32
 liste=!append line $tmp,$my to $liste
31
  liste=!append line $tmp,$my to $liste
33
!endif
32
!endif
34
 
33
 
35
tmp=$[($My-($b))/($a)]
34
tmp=$[($My-($b))/($a)]
36
!ifval $tmp<=$Mx and $tmp>=$mx
35
!ifval $tmp<=$Mx and $tmp>=$mx
37
 liste=!append line $tmp,$My to $liste
36
  liste=!append line $tmp,$My to $liste
38
!endif
37
!endif
39
 
38
 
40
:end
39
:end
41
 
40
 
42
 
41
 
43
tmp=!linecnt $liste
42
tmp=!linecnt $liste
44
!if $tmp<2
43
!if $tmp<2
45
 slib_out=error
44
  slib_out=error
46
!else
45
!else
47
 slib_out=!line 1 to 2 of $liste
46
  slib_out=!line 1 to 2 of $liste
48
!endif
47
!endif