Rev 13593 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
14152 | bpr | 1 | !!no more use |
981 | bpr | 2 | !if $wims_read_parm!=slib_header |
13593 | bpr | 3 | !goto proc |
20 | reyssat | 4 | !endif |
5 | |||
4351 | bpr | 6 | slib_author=Bernadette, Perrin-Riou |
20 | reyssat | 7 | |
8 | !exit |
||
9 | |||
10 | :proc |
||
11 | |||
12 | !distribute items $wims_read_parm into slib_polyedre,slib_options |
||
13 | slib_prgm= |
||
14 | !reset slib_points, slib_faces, slib_aretes |
||
15 | !!********** Traitement des options |
||
16 | |||
17 | slib_optcnt=!itemcnt $slib_options |
||
18 | !for slib_no=1 to $slib_optcnt |
||
19 | slib_option=!item $slib_no of $slib_options |
||
20 | slib_option=!declosing $slib_option |
||
13593 | bpr | 21 | slib_optionname=!item 1 of $slib_option |
22 | slib_optionvalue=!items 2 to -1 of $slib_option |
||
23 | !if $slib_optionname issametext faces |
||
24 | slib_faces=$slib_optionvalue |
||
25 | !endif |
||
26 | !if $slib_optionname issametext aretes |
||
27 | slib_aretes=$slib_optionvalue |
||
28 | !endif |
||
29 | !if $slib_optionname issametext points |
||
30 | slib_points=$slib_optionvalue |
||
31 | !endif |
||
20 | reyssat | 32 | !next slib_no |
33 | !default slib_faces=0 |
||
34 | !default slib_aretes=0 |
||
35 | !default slib_points=0 |
||
36 | |||
37 | !!********** Lecture des données polyedre |
||
38 | |||
39 | slib_polyedre=!record 0 of data/polyedre_off/$slib_polyedre.off |
||
40 | slib_H=1 |
||
41 | slib_u=!line 1 of $slib_polyedre |
||
42 | slib_nom=!replace internal # by $empty in $slib_u |
||
43 | !while # isin $slib_u |
||
13593 | bpr | 44 | !advance slib_H |
45 | slib_u=!line $slib_H of $slib_polyedre |
||
20 | reyssat | 46 | !endwhile |
47 | |||
48 | |||
49 | !distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt |
||
50 | |||
51 | slib_sommet=!line $[$slib_H+1] to $[$slib_H+$slib_S_cnt] of $slib_polyedre |
||
52 | slib_sommet=!nonempty lines $slib_sommet |
||
53 | |||
54 | slib_arete=!line $[$slib_H+$slib_S_cnt+$slib_F_cnt+1] to $[$slib_H+$slib_S_cnt+$slib_F_cnt+$slib_A_cnt] of $slib_polyedre |
||
55 | slib_arete=!nonempty line $slib_arete |
||
56 | |||
57 | slib_face=!line $[$slib_H+$slib_S_cnt+1] to $[$slib_H+$slib_S_cnt+$slib_F_cnt] of $slib_polyedre |
||
58 | slib_face=!nonempty line $slib_face |
||
59 | |||
60 | !!********** code de mise en scene |
||
61 | |||
62 | slib_prelim= |
||
63 | slib_fin= |
||
64 | !!********** code de dessin des sommets |
||
65 | |||
66 | slib_out_sommet= |
||
67 | |||
13593 | bpr | 68 | !for slib_na=1 to $slib_S_cnt |
69 | slib_coord=!line $slib_na of $slib_sommet |
||
70 | slib_out_sommet=$slib_out_sommet,$slib_coord |
||
71 | !next slib_na |
||
20 | reyssat | 72 | slib_out_sommet=!nonempty items $slib_out_sommet |
73 | slib_out_sommet=!singlespace $slib_out_sommet |
||
7692 | bpr | 74 | !!********** code de dessin des faces |
20 | reyssat | 75 | slib_out_face= |
76 | !for slib_nc=1 to $slib_F_cnt |
||
13593 | bpr | 77 | slib_r=!line $slib_nc of $slib_face |
78 | slib_r=!word 2 to -1 of $slib_r |
||
79 | slib_out_face=$slib_out_face $slib_r -1 |
||
80 | !next slib_nc |
||
20 | reyssat | 81 | slib_out_face=!singlespace $slib_out_face |
82 | |||
83 | slib_out=$slib_S_cnt $slib_F_cnt;$slib_out_sommet;$slib_out_face |