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