Subversion Repositories wimsdev

Rev

Rev 8521 | Rev 14850 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8521 Rev 13593
Line 1... Line 1...
1
!if $wims_read_parm!=slib_header
1
!if $wims_read_parm!=slib_header
2
 !goto proc
2
  !goto proc
3
!endif
3
!endif
4
 
4
 
5
slib_author=Bernadette, Perrin-Riou
5
slib_author=Bernadette, Perrin-Riou
6
slib_require=pari
6
slib_require=pari
7
 
7
 
Line 21... Line 21...
21
slib_polyedre=!record  0 of data/polyedre_off/$slib_polyedre.off
21
slib_polyedre=!record  0 of data/polyedre_off/$slib_polyedre.off
22
slib_H=1
22
slib_H=1
23
slib_u=!line 1 of $slib_polyedre
23
slib_u=!line 1 of $slib_polyedre
24
slib_nom=!replace internal # by $empty in $slib_u
24
slib_nom=!replace internal # by $empty in $slib_u
25
!while # isin $slib_u
25
!while # isin $slib_u
26
!advance slib_H
26
  !advance slib_H
27
slib_u=!line $slib_H of $slib_polyedre
27
  slib_u=!line $slib_H of $slib_polyedre
28
!endwhile
28
!endwhile
29
 
29
 
30
!distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt
30
!distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt
31
 
31
 
32
slib_sommet=!line $[$slib_H+1] to $[$slib_H+$slib_S_cnt] of $slib_polyedre
32
slib_sommet=!line $[$slib_H+1] to $[$slib_H+$slib_S_cnt] of $slib_polyedre