Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Bernadette, Perrin-Riou

!exit

:proc

!distribute items $wims_read_parm into slib_polyedre,slib_options

slib_prgm=

!reset slib_points, slib_faces, slib_aretes

!!********** Traitement des options

slib_optcnt=!itemcnt $slib_options

!for slib_no=1 to $slib_optcnt

  slib_option=!item $slib_no of $slib_options

  slib_option=!declosing $slib_option

 slib_optionname=!item 1 of $slib_option

 slib_optionvalue=!items 2 to -1 of $slib_option

 !if $slib_optionname issametext faces

  slib_faces=$slib_optionvalue

 !endif

 !if $slib_optionname issametext aretes

  slib_aretes=$slib_optionvalue

 !endif

 !if $slib_optionname issametext points

  slib_points=$slib_optionvalue

 !endif

!next slib_no

!default slib_faces=0

!default slib_aretes=0

!default slib_points=0

!!********** Lecture des données polyedre

slib_polyedre=!record  0 of data/polyedre_off/$slib_polyedre.off

slib_H=1

slib_u=!line 1 of $slib_polyedre

slib_nom=!replace internal # by $empty in $slib_u

!while # isin $slib_u

!advance slib_H

slib_u=!line $slib_H of $slib_polyedre

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

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_polyedre

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_polyedre

slib_face=!nonempty line $slib_face

!!********** code de mise en scene

slib_prelim=

slib_fin=

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

 slib_out_sommet=

  !for slib_na=1 to $slib_S_cnt

    slib_coord=!line $slib_na of $slib_sommet

    slib_out_sommet=$slib_out_sommet,$slib_coord

  !next slib_na

slib_out_sommet=!nonempty items $slib_out_sommet

slib_out_sommet=!singlespace $slib_out_sommet

!!********** code de dessin des faces

slib_out_face=

!for slib_nc=1 to $slib_F_cnt

   slib_r=!line $slib_nc of $slib_face

   slib_r=!word 2 to -1 of $slib_r

   slib_out_face=$slib_out_face $slib_r -1

 !next slib_nc

slib_out_face=!singlespace $slib_out_face

slib_out=$slib_S_cnt $slib_F_cnt;$slib_out_sommet;$slib_out_face