Subversion Repositories wimsdev

Rev

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

Rev 8321 Rev 8560
Line 99... Line 99...
99 
        slib_ligne=!line $slib_i of $slib_GG
 99 
        slib_ligne=!line $slib_i of $slib_GG
100 
        slib_test=!item $slib_j of $slib_ligne
 100 
        slib_test=!item $slib_j of $slib_ligne
101 
        !if $slib_test <> 0
 101 
        !if $slib_test <> 0
102 
            slib_point1=!line $slib_j of $slib_position
 102 
            slib_point1=!line $slib_j of $slib_position
103 
            slib_interm= !exec pari ([$slib_point]+2*[$slib_point1])/3
 103 
            slib_interm= !exec pari ([$slib_point]+2*[$slib_point1])/3
104 
            slib_dessin = !append line line $slib_point, $slib_point1, $slib_color1 to $slib_dessin
 104 
            slib_dessin = !append line segment $slib_point, $slib_point1, $slib_color1 to $slib_dessin
105 
            slib_dessin = !append line arrow $slib_point, $slib_interm, 10, $slib_color1 to $slib_dessin
 105 
            slib_dessin = !append line arrow $slib_point, $slib_interm, 10, $slib_color1 to $slib_dessin
106 
        !endif
 106 
        !endif
107 
    !next slib_j
 107 
    !next slib_j
108 
    !if $slib_text<>$empty
 108 
    !if $slib_text<>$empty
109 
        slib_texti=!item $slib_i of $slib_text
 109 
        slib_texti=!item $slib_i of $slib_text