Subversion Repositories wimsdev

Rev

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

Rev 8560 Rev 12676
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 
 
- 
 
 46 
    !else
- 
 
 47 
      #choix des fils (position et nombre : la position est-elle intéressante pour un arbre non binaire ? )
- 
 
 48 
      slib_c=!item $slib_k of $slib_noeud
- 
 
 49 
      !if perfect iswordof of $slib_option or $slib_c = 1
- 
 
 50 
        slib_a =!item 1 to $slib_s of $slib_choix1
- 
 
 51 
      !else
- 
 
 52 
        slib_a =!shuffle $slib_choix
- 
 
 53 
        slib_a=!item 1 to $slib_s of $slib_a
- 
 
 54 
      !endif
- 
 
 55 
      slib_Li =
- 
 
 56 
      !for slib_j = 1 to $slib_s
- 
 
 57 
        slib_b=!item $slib_j of $slib_a
- 
 
 58 
        !if $slib_b <> 0
- 
 
 59 
          #creation d'un fils
- 
 
 60 
          slib_jj =$[$slib_cnt+1]
- 
 
 61 
          #sa hauteur
- 
 
 62 
          slib_height$slib_jj= $[$(slib_height$slib_i)+1]
- 
 
 63 
          #la hauteur de l'arbre
- 
 
 64 
          slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))]
- 
 
 65 
          # Ne sert à rien ?
- 
 
 66 
          slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1]
- 
 
 67 
          #on rajoute une ligne pour le fils
- 
 
 68 
          slib_G =!append line $slib_jj to $slib_G
- 
 
 69 
          #nombre de sommets
- 
 
 70 
          slib_cnt = $[$slib_cnt +1]
45 
        !else
 71 
        !else
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
 - 
 
48 
            !if perfect iswordof of $slib_option or $slib_c = 1
 - 
 
49 
                slib_a =!item 1 to $slib_s of $slib_choix1
 - 
 
50 
            !else
 - 
 
51 
                slib_a =!shuffle $slib_choix
 - 
 
52 
                slib_a=!item 1 to $slib_s of $slib_a
 - 
 
53 
            !endif
 - 
 
54 
            slib_Li =
 - 
 
55 
            !for slib_j = 1 to $slib_s
 - 
 
56 
                slib_b=!item $slib_j of $slib_a
 - 
 
57 
                !if $slib_b <> 0
 - 
 
58 
#creation d'un fils
 - 
 
59 
                    slib_jj =$[$slib_cnt+1]
 - 
 
60 
#sa hauteur
 - 
 
61 
                    slib_height$slib_jj= $[$(slib_height$slib_i)+1]
 - 
 
62 
#la hauteur de l'arbre
 - 
 
63 
                    slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))]
 - 
 
64 
# Ne sert à rien ?
 - 
 
65 
                    slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1]
 - 
 
66 
#on rajoute une ligne pour le fils
 - 
 
67 
                    slib_G =!append line $slib_jj to $slib_G
 - 
 
68 
#nombre de sommets
 - 
 
69 
                    slib_cnt = $[$slib_cnt +1]
 - 
 
70 
                !else
 - 
 
71 
                    slib_jj=sentinelle
 72 
          slib_jj=sentinelle
72 
                !endif
 - 
 
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
 - 
 
75 
#le calcul suivant sert pour le dessin. Faut-il le mettre ici ?
 - 
 
76 
                !if $slib_b <> 0
 - 
 
77 
#position
 - 
 
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
 - 
 
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]
 - 
 
82 
                     slib_milieu = !append line $slib_milieu_prov to $slib_milieu
 - 
 
83 
                !endif
 - 
 
84 
            !next slib_j
 - 
 
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
 - 
 
87 
        !endif
 73 
        !endif
- 
 
 74 
        #on rajoute le fils sur la ligne du père, rien s'il n'y a rien à cette position
- 
 
 75 
        slib_Li =!append item $slib_jj to $slib_Li
- 
 
 76 
        #le calcul suivant sert pour le dessin. Faut-il le mettre ici ?
- 
 
 77 
        !if $slib_b <> 0
- 
 
 78 
          #position
- 
 
 79 
          slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_s+1)/2)*$(slib_width$slib_i)]
- 
 
 80 
          #calcul de la largeur donnée au sommet $slib_jj pour ses fils éventuels
- 
 
 81 
          slib_width$slib_jj=$[$(slib_width$slib_i)/min($slib_s,$slib_s+1)]
- 
 
 82 
          slib_milieu_prov=$[($(slib_A$slib_i)+2*$(slib_A$slib_jj))/3],$[-($(slib_height$slib_i) +2*$(slib_height$slib_jj))/3]
- 
 
 83 
          slib_milieu = !append line $slib_milieu_prov to $slib_milieu
- 
 
 84 
        !endif
- 
 
 85 
      !next slib_j
- 
 
 86 
      #on met la ligne $slib_k définitive
- 
 
 87 
      slib_G = !replace line number $slib_k by $slib_L,$slib_Li in $slib_G
- 
 
 88 
    !endif
88 
  !endif
 89 
  !endif
89 
!next slib_k
 90 
!next slib_k
90 
 
 91 
 
91 
#Trace du dessin
 92 
#Trace du dessin
92 
slib_dessin =xrange $[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]\
 93 
slib_dessin =xrange $[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]\
93 
yrange $[-$slib_Sizey-0.5],-0.5\
 94 
yrange $[-$slib_Sizey-0.5],-0.5\
94 
linewidth 2
 95 
linewidth 2
95 
slib_cnt =!linecnt $slib_G
 96 
slib_cnt =!linecnt $slib_G
96 
 
 97 
 
97 
!for slib_k= 1 to $slib_cnt
 98 
!for slib_k= 1 to $slib_cnt
98 
    slib_u =!line $slib_k of $slib_G
 99 
  slib_u =!line $slib_k of $slib_G
99 
    slib_i=!item 1 of $slib_u
 100 
  slib_i=!item 1 of $slib_u
100 
    slib_position_prov=!line $slib_k of $slib_position
 101 
  slib_position_prov=!line $slib_k of $slib_position
101 
    !for slib_j in $slib_u
 102 
  !for slib_j in $slib_u
102 
        !if $slib_j notsametext sentinelle
 103 
    !if $slib_j notsametext sentinelle
103 
#trace de la droite
 104 
      #trace de la droite
104 
            slib_position_prov1=!line $slib_j of $slib_position
 105 
      slib_position_prov1=!line $slib_j of $slib_position
105 
            slib_dessin = !append line segment $slib_position_prov,$slib_position_prov1, $slib_color1\
 106 
      slib_dessin = !append line segment $slib_position_prov,$slib_position_prov1, $slib_color1\
106 
             to $slib_dessin
 107 
       to $slib_dessin
107 
#on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
 108 
      #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
108 
            !if middle iswordof $slib_option
 109 
      !if middle iswordof $slib_option
109 
                slib_milieu_prov=!line $slib_j of $slib_milieu
 110 
        slib_milieu_prov=!line $slib_j of $slib_milieu
110 
                slib_dessin = !append line disk $slib_milieu_prov,30,white\
 111 
        slib_dessin = !append line disk $slib_milieu_prov,30,white\
111 
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
 112 
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
112 
            !endif
 - 
 
113 
        !endif
 113 
      !endif
114 
    !next slib_j
 - 
 
115 
    !if point iswordof $slib_option
 - 
 
116 
        slib_dessin =!append line disk $slib_position_prov,30,white\
 - 
 
117 
      circle $slib_position_prov,30,$slib_color2 to $slib_dessin
 - 
 
118 
    !endif
 - 
 
119 
    !if $slib_text <> $empty
 - 
 
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
 - 
 
122 
    !endif
 114 
    !endif
- 
 
 115 
  !next slib_j
- 
 
 116 
  !if point iswordof $slib_option
- 
 
 117 
    slib_dessin =!append line disk $slib_position_prov,30,white\
- 
 
 118 
      circle $slib_position_prov,30,$slib_color2 to $slib_dessin
- 
 
 119 
  !endif
- 
 
 120 
  !if $slib_text <> $empty
- 
 
 121 
    slib_textk=!item $slib_k of $slib_text
- 
 
 122 
    slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
- 
 
 123 
  !endif
123 
!next slib_k
 124 
!next slib_k
124 
 
 125 
 
125 
slib_out=$slib_dessin
 126 
slib_out=$slib_dessin
126 
 
 127 
 
127 
!if url iswordof $slib_option or html iswordof $slib_option
 128 
!if url iswordof $slib_option or html iswordof $slib_option
128 
  insdraw_size=300,300
 129 
  insdraw_size=300,300
129 
  !insdraw $slib_out
 130 
  !insdraw $slib_out
130 
  slib_out=$ins_url
 131 
  slib_out=$ins_url
131 
  !if html iswordof $slib_option
 132 
  !if html iswordof $slib_option
132 
   slib_out=<img src="$ins_url" alt=""/>
 133 
    slib_out=<img src="$ins_url" alt=""/>
133 
  !else
 134 
  !else
134 
   slib_out=$slib_out,[$slib_G],[$slib_position],[$slib_milieu],$insdraw_size
 135 
    slib_out=$slib_out,[$slib_G],[$slib_position],[$slib_milieu],$insdraw_size
135 
  !endif
 136 
  !endif
136 
!else
 137 
!else
137 
   slib_out=[$slib_dessin],[$slib_G],[$slib_position],[$slib_milieu]
 138 
  slib_out=[$slib_dessin],[$slib_G],[$slib_position],[$slib_milieu]
138 
!endif
 139 
!endif