Subversion Repositories wimsdev

Rev

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

Rev 4351 Rev 7692
Line 50... Line 50...
50 
!!********** code de dessin des arêtes
 50 
!!********** code de dessin des arêtes
51 
 
 51 
 
52 
!for slib_nb=1 to $slib_A_cnt
 52 
!for slib_nb=1 to $slib_A_cnt
53 
   slib_r=!line $slib_nb of $slib_arete
 53 
   slib_r=!line $slib_nb of $slib_arete
54 
   slib_cnt_r=!itemcnt $slib_r
 54 
   slib_cnt_r=!itemcnt $slib_r
55 
   slib_lien1=!word 1 of $slib_r
55 
   slib_lien1=!word 1 of $slib_r
56 
   slib_lien2=!word 2 to -1 of $slib_r
56 
   slib_lien2=!word 2 to -1 of $slib_r
57 
   slib_r1=!line $[1+$slib_lien1] of $slib_out
 57 
   slib_r1=!line $[1+$slib_lien1] of $slib_out
58 
   slib_r1=$slib_r1 $[1+$slib_lien1] $[1+$slib_lien2]
 58 
   slib_r1=$slib_r1 $[1+$slib_lien1] $[1+$slib_lien2]
59 
   slib_out=!replace internal line number $[1+$slib_lien1] by $slib_r1 in $slib_out
 59 
   slib_out=!replace internal line number $[1+$slib_lien1] by $slib_r1 in $slib_out
60 
!next slib_nb
 60 
!next slib_nb
61 
slib_out=$slib_Sommet\
 61 
slib_out=$slib_Sommet\
62 
$slib_out
 62 
$slib_out
63 
 
 -