Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7692 | Rev 13593 | ||
---|---|---|---|
Line 1... | Line -... | ||
1 | - | ||
2 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
3 | !goto proc |
2 | !goto proc |
4 | !endif |
3 | !endif |
5 | 4 | ||
6 | slib_author=Bernadette, Perrin-Riou |
5 | slib_author=Bernadette, Perrin-Riou |
7 | 6 | ||
8 | !exit |
7 | !exit |
Line 16... | Line 15... | ||
16 | 15 | ||
17 | slib_optcnt=!itemcnt $slib_options |
16 | slib_optcnt=!itemcnt $slib_options |
18 | !for slib_no=1 to $slib_optcnt |
17 | !for slib_no=1 to $slib_optcnt |
19 | slib_option=!item $slib_no of $slib_options |
18 | slib_option=!item $slib_no of $slib_options |
20 | slib_option=!declosing $slib_option |
19 | slib_option=!declosing $slib_option |
21 | slib_optionname=!item 1 of $slib_option |
20 | slib_optionname=!item 1 of $slib_option |
22 | slib_optionvalue=!items 2 to -1 of $slib_option |
21 | slib_optionvalue=!items 2 to -1 of $slib_option |
23 | !if $slib_optionname issametext faces |
22 | !if $slib_optionname issametext faces |
24 | slib_faces=$slib_optionvalue |
23 | slib_faces=$slib_optionvalue |
25 | !endif |
24 | !endif |
26 | !if $slib_optionname issametext aretes |
25 | !if $slib_optionname issametext aretes |
27 | slib_aretes=$slib_optionvalue |
26 | slib_aretes=$slib_optionvalue |
28 | !endif |
27 | !endif |
29 | !if $slib_optionname issametext points |
28 | !if $slib_optionname issametext points |
30 | slib_points=$slib_optionvalue |
29 | slib_points=$slib_optionvalue |
31 | !endif |
30 | !endif |
32 | !next slib_no |
31 | !next slib_no |
33 | !default slib_faces=0 |
32 | !default slib_faces=0 |
34 | !default slib_aretes=0 |
33 | !default slib_aretes=0 |
35 | !default slib_points=0 |
34 | !default slib_points=0 |
36 | 35 | ||
Line 39... | Line 38... | ||
39 | slib_polyedre=!record 0 of data/polyedre_off/$slib_polyedre.off |
38 | slib_polyedre=!record 0 of data/polyedre_off/$slib_polyedre.off |
40 | slib_H=1 |
39 | slib_H=1 |
41 | slib_u=!line 1 of $slib_polyedre |
40 | slib_u=!line 1 of $slib_polyedre |
42 | slib_nom=!replace internal # by $empty in $slib_u |
41 | slib_nom=!replace internal # by $empty in $slib_u |
43 | !while # isin $slib_u |
42 | !while # isin $slib_u |
44 | !advance slib_H |
43 | !advance slib_H |
45 | slib_u=!line $slib_H of $slib_polyedre |
44 | slib_u=!line $slib_H of $slib_polyedre |
46 | !endwhile |
45 | !endwhile |
47 | 46 | ||
48 | 47 | ||
49 | !distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt |
48 | !distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt |
50 | 49 | ||
Line 63... | Line 62... | ||
63 | slib_fin= |
62 | slib_fin= |
64 | !!********** code de dessin des sommets |
63 | !!********** code de dessin des sommets |
65 | 64 | ||
66 | slib_out_sommet= |
65 | slib_out_sommet= |
67 | 66 | ||
68 |
|
67 | !for slib_na=1 to $slib_S_cnt |
69 |
|
68 | slib_coord=!line $slib_na of $slib_sommet |
70 |
|
69 | slib_out_sommet=$slib_out_sommet,$slib_coord |
71 |
|
70 | !next slib_na |
72 | slib_out_sommet=!nonempty items $slib_out_sommet |
71 | slib_out_sommet=!nonempty items $slib_out_sommet |
73 | slib_out_sommet=!singlespace $slib_out_sommet |
72 | slib_out_sommet=!singlespace $slib_out_sommet |
74 | !!********** code de dessin des faces |
73 | !!********** code de dessin des faces |
75 | slib_out_face= |
74 | slib_out_face= |
76 | !for slib_nc=1 to $slib_F_cnt |
75 | !for slib_nc=1 to $slib_F_cnt |
77 |
|
76 | slib_r=!line $slib_nc of $slib_face |
78 |
|
77 | slib_r=!word 2 to -1 of $slib_r |
79 |
|
78 | slib_out_face=$slib_out_face $slib_r -1 |
80 |
|
79 | !next slib_nc |
81 | slib_out_face=!singlespace $slib_out_face |
80 | slib_out_face=!singlespace $slib_out_face |
82 | 81 | ||
83 | slib_out=$slib_S_cnt $slib_F_cnt;$slib_out_sommet;$slib_out_face |
82 | slib_out=$slib_S_cnt $slib_F_cnt;$slib_out_sommet;$slib_out_face |