Subversion Repositories wimsdev

Rev

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 
  !for slib_na=1 to $slib_S_cnt
 67 
!for slib_na=1 to $slib_S_cnt
69 
    slib_coord=!line $slib_na of $slib_sommet
 68 
  slib_coord=!line $slib_na of $slib_sommet
70 
    slib_out_sommet=$slib_out_sommet,$slib_coord
 69 
  slib_out_sommet=$slib_out_sommet,$slib_coord
71 
  !next slib_na
 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 
   slib_r=!line $slib_nc of $slib_face
 76 
  slib_r=!line $slib_nc of $slib_face
78 
   slib_r=!word 2 to -1 of $slib_r
 77 
  slib_r=!word 2 to -1 of $slib_r
79 
   slib_out_face=$slib_out_face $slib_r -1
 78 
  slib_out_face=$slib_out_face $slib_r -1
80 
 !next slib_nc
 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