Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou
slib_comment=<pre>8 6 12\
 1    1    1\
 1    1   -1\
 1   -1    1\
 1   -1   -1\
-1    1    1\
-1    1   -1\
-1   -1    1\
-1   -1   -1\
4 6 4 0 2\
4 5 1 0 4\
4 7 5 4 6\
4 1 3 2 0\
4 3 7 6 2\
4 7 3 1 5\
0 1\
0 2\
0 4\
1 3\
1 5\
2 3\
2 6\
3 7\
4 5\
4 6\
5 7\
6 7\
</pre>
slib_example=8 6 12; 1 1 1;1 1 -1; 1 -1 1; 1 -1 -1;-1 1 1;-1 1 -1;-1 -1 1;-1 -1 -1;4 6 4 0 2;4 5 1 0 4;4 7 5 4 6;4 1 3 2 0;4 3 7 6 2;4 7 3 1 5;0 1;0 2;0 4;1 3;1 5;2 3;2 6;3 7;4 5;4 6;5 7;6 7

!exit

:proc
slib_data = $wims_read_parm

slib_option= !item -1 of $wims_read_parm

slib_out=


!!********** Lecture des données off

slib_off=$slib_data
slib_off=!replace internal ; by $\
$ in $slib_off
slib_H=1
slib_u=!line 1 of $slib_off
slib_nom=!replace internal # by $empty in $slib_u
!while # isin $slib_u
  !advance slib_H
  slib_u=!line $slib_H of $slib_off
!endwhile

!distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt

slib_sommet=!line $[$slib_H+1] to $[$slib_H+$slib_S_cnt] of $slib_off
slib_sommet=!nonempty lines $slib_sommet


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_off
slib_arete=!nonempty line $slib_arete
slib_face=!line $[$slib_H+$slib_S_cnt+1] to $[$slib_H+$slib_S_cnt+$slib_F_cnt] of $slib_off
slib_face=!nonempty line $slib_face


!!********** code de dessin des sommets

slib_out=
slib_Sommet=
!for slib_na=1 to $slib_S_cnt
  slib_coord=!line $slib_na of $slib_sommet
  slib_out=!append line X$slib_na $slib_coord to $slib_out
  slib_Sommet=!append line ATOM X$slib_na 255 0 0 0 to $slib_Sommet
!next slib_na

!!********** code de dessin des arêtes

!for slib_nb=1 to $slib_A_cnt
   slib_r=!line $slib_nb of $slib_arete
   slib_cnt_r=!itemcnt $slib_r
   slib_lien1=!word 1 of $slib_r
   slib_lien2=!word 2 to -1 of $slib_r
   slib_r1=!line $[1+$slib_lien1] of $slib_out
   slib_r1=$slib_r1 $[1+$slib_lien1] $[1+$slib_lien2]
   slib_out=!replace internal line number $[1+$slib_lien1] by $slib_r1 in $slib_out
!next slib_nb
slib_out=$slib_Sommet\
$slib_out