Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 8321
Line 34... Line 34...
34 
slib_noeud = 1,$slib_noeud
 34 
slib_noeud = 1,$slib_noeud
35 
slib_choix=$slib_choix1, $slib_choix0
 35 
slib_choix=$slib_choix1, $slib_choix0
36 
slib_position =$empty
 36 
slib_position =$empty
37 
slib_milieu =0,-1
 37 
slib_milieu =0,-1
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
53 
			!endif
 53 
            !endif
54 
			slib_Li =
 54 
            slib_Li =
55 
			!for slib_j = 1 to $slib_s
 55 
            !for slib_j = 1 to $slib_s
56 
				slib_b=!item $slib_j of $slib_a
 56 
                slib_b=!item $slib_j of $slib_a
57 
				!if $slib_b <> 0
 57 
                !if $slib_b <> 0
58 
#creation d'un fils
 58 
#creation d'un fils
59 
					slib_jj =$[$slib_cnt+1]
 59 
                    slib_jj =$[$slib_cnt+1]
60 
#sa hauteur
 60 
#sa hauteur
61 
					slib_height$slib_jj= $[$(slib_height$slib_i)+1]
 61 
                    slib_height$slib_jj= $[$(slib_height$slib_i)+1]
62 
#la hauteur de l'arbre
 62 
#la hauteur de l'arbre
63 
					slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))]
 63 
                    slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))]
64 
# Ne sert à rien ?
 64 
# Ne sert à rien ?
65 
					slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1]
 65 
                    slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1]
66 
#on rajoute une ligne pour le fils
 66 
#on rajoute une ligne pour le fils
67 
					slib_G =!append line $slib_jj to $slib_G
 67 
                    slib_G =!append line $slib_jj to $slib_G
68 
#nombre de sommets
 68 
#nombre de sommets
69 
					slib_cnt = $[$slib_cnt +1]
 69 
                    slib_cnt = $[$slib_cnt +1]
70 
				!else
 70 
                !else
71 
					slib_jj=sentinelle
 71 
                    slib_jj=sentinelle
72 
				!endif
 72 
                !endif
73 
#on rajoute le fils sur la ligne du père, rien s'il n'y a rien à cette position
 73 
#on rajoute le fils sur la ligne du père, rien s'il n'y a rien à cette position
74 
				slib_Li =!append item $slib_jj to $slib_Li
 74 
                slib_Li =!append item $slib_jj to $slib_Li
75 
#le calcul suivant sert pour le dessin. Faut-il le mettre ici ?
 75 
#le calcul suivant sert pour le dessin. Faut-il le mettre ici ?
76 
				!if $slib_b <> 0
 76 
                !if $slib_b <> 0
77 
#position
 77 
#position
78 
					slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_s+1)/2)*$(slib_width$slib_i)]
 78 
                    slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_s+1)/2)*$(slib_width$slib_i)]
79 
#calcul de la largeur donnée au sommet $slib_jj pour ses fils éventuels
 79 
#calcul de la largeur donnée au sommet $slib_jj pour ses fils éventuels
80 
					slib_width$slib_jj=$[$(slib_width$slib_i)/min($slib_s,$slib_s+1)]
 80 
                    slib_width$slib_jj=$[$(slib_width$slib_i)/min($slib_s,$slib_s+1)]
81 
					slib_milieu_prov=$[($(slib_A$slib_i)+2*$(slib_A$slib_jj))/3],$[-($(slib_height$slib_i) +2*$(slib_height$slib_jj))/3]
 81 
                    slib_milieu_prov=$[($(slib_A$slib_i)+2*$(slib_A$slib_jj))/3],$[-($(slib_height$slib_i) +2*$(slib_height$slib_jj))/3]
82 
			 		slib_milieu = !append line $slib_milieu_prov to $slib_milieu
 82 
                     slib_milieu = !append line $slib_milieu_prov to $slib_milieu
83 
				!endif
 83 
                !endif
84 
			!next slib_j
 84 
            !next slib_j
85 
#on met la ligne $slib_k définitive
 85 
#on met la ligne $slib_k définitive
86 
  		slib_G = !replace line number $slib_k by $slib_L,$slib_Li in $slib_G
 86 
          slib_G = !replace line number $slib_k by $slib_L,$slib_Li in $slib_G
87 
		!endif
 87 
        !endif
88 
  !endif
 88 
  !endif
89 
!next slib_k
 89 
!next slib_k
90 
 
 90 
 
91 
#Trace du dessin
 91 
#Trace du dessin
92 
slib_dessin =xrange $[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]\
 92 
slib_dessin =xrange $[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]\
93 
yrange $[-$slib_Sizey-0.5],-0.5\
 93 
yrange $[-$slib_Sizey-0.5],-0.5\
94 
linewidth 2
 94 
linewidth 2
95 
slib_cnt =!linecnt $slib_G
 95 
slib_cnt =!linecnt $slib_G
96 
 
 96 
 
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 line  $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\
111 
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
 111 
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
112 
			!endif
 112 
            !endif
113 
		!endif
 113 
        !endif
114 
	!next slib_j
 114 
    !next slib_j
115 
	!if point iswordof $slib_option
 115 
    !if point iswordof $slib_option
116 
		slib_dessin =!append line disk $slib_position_prov,30,white\
 116 
        slib_dessin =!append line disk $slib_position_prov,30,white\
117 
	  circle $slib_position_prov,30,$slib_color2 to $slib_dessin
 117 
      circle $slib_position_prov,30,$slib_color2 to $slib_dessin
118 
	!endif
 118 
    !endif
119 
	!if $slib_text <> $empty
 119 
    !if $slib_text <> $empty
120 
		slib_textk=!item $slib_k of $slib_text
 120 
        slib_textk=!item $slib_k of $slib_text
121 
		slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
 121 
        slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
122 
	!endif
 122 
    !endif
123 
!next slib_k
 123 
!next slib_k
124 
 
 124 
 
125 
slib_out=$slib_dessin
 125 
slib_out=$slib_dessin
126 
 
 126 
 
127 
!if url iswordof $slib_option or html iswordof $slib_option
 127 
!if url iswordof $slib_option or html iswordof $slib_option