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