Subversion Repositories wimsdev

Rev

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

Rev 8321 Rev 8560
Line 38... Line 38...
38 
!for slib_k = 1 to $slib_n
 38 
!for slib_k = 1 to $slib_n
39 
    slib_L = !line $slib_k of $slib_G
 39 
    slib_L = !line $slib_k of $slib_G
40 
    !if $slib_L<>$empty
 40 
    !if $slib_L<>$empty
41 
        slib_i=!item 1 of $slib_L
 41 
        slib_i=!item 1 of $slib_L
42 
        slib_position_prov=$(slib_A$slib_i),$[-$(slib_height$slib_i)]
 42 
        slib_position_prov=$(slib_A$slib_i),$[-$(slib_height$slib_i)]
43 
        slib_position = !append line  $slib_position_prov to $slib_position
 43 
        slib_position = !append line $slib_position_prov to $slib_position
44 
        !if $slib_cnt > $[$slib_N] or $slib_sizey > $slib_Sizey
 44 
        !if $slib_cnt > $[$slib_N] or $slib_sizey > $slib_Sizey
45 
        !else
 45 
        !else
46 
#choix des fils (position et nombre : la position est-elle intéressante pour un arbre non binaire ? )
 46 
#choix des fils (position et nombre : la position est-elle intéressante pour un arbre non binaire ? )
47 
            slib_c=!item $slib_k  of $slib_noeud
 47 
            slib_c=!item $slib_k of $slib_noeud
48 
            !if perfect iswordof of $slib_option or $slib_c = 1
 48 
            !if perfect iswordof of $slib_option or $slib_c = 1
49 
                slib_a =!item 1 to $slib_s of $slib_choix1
 49 
                slib_a =!item 1 to $slib_s of $slib_choix1
50 
            !else
 50 
            !else
51 
                slib_a =!shuffle $slib_choix
 51 
                slib_a =!shuffle $slib_choix
52 
                slib_a=!item 1 to $slib_s of $slib_a
 52 
                slib_a=!item 1 to $slib_s of $slib_a
Line 97... Line 97...
97 
!for slib_k= 1 to $slib_cnt
 97 
!for slib_k= 1 to $slib_cnt
98 
    slib_u =!line $slib_k of $slib_G
 98 
    slib_u =!line $slib_k of $slib_G
99 
    slib_i=!item 1 of $slib_u
 99 
    slib_i=!item 1 of $slib_u
100 
    slib_position_prov=!line $slib_k of $slib_position
 100 
    slib_position_prov=!line $slib_k of $slib_position
101 
    !for slib_j in $slib_u
 101 
    !for slib_j in $slib_u
102 
        !if $slib_j  notsametext sentinelle
 102 
        !if $slib_j notsametext sentinelle
103 
#trace de la droite
 103 
#trace de la droite
104 
            slib_position_prov1=!line $slib_j of $slib_position
 104 
            slib_position_prov1=!line $slib_j of $slib_position
105 
            slib_dessin = !append line line  $slib_position_prov,$slib_position_prov1, $slib_color1\
 105 
            slib_dessin = !append line segment $slib_position_prov,$slib_position_prov1, $slib_color1\
106 
             to $slib_dessin
 106 
             to $slib_dessin
107 
#on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
 107 
#on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
108 
            !if middle iswordof $slib_option
 108 
            !if middle iswordof $slib_option
109 
                slib_milieu_prov=!line $slib_j of $slib_milieu
 109 
                slib_milieu_prov=!line $slib_j of $slib_milieu
110 
                slib_dessin = !append line disk $slib_milieu_prov,30,white\
 110 
                slib_dessin = !append line disk $slib_milieu_prov,30,white\