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 |