Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Bernadette, Perrin-Riou

!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_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