WebSVN – wimsdev – Diff – /trunk/wims/public_html/scripts/slib/graph/randtree



!endif
slib_author=Bernadette, Perrin-Riou
 
slib_example= 5,3,3,,perfect middle\
12,2,4,[A,B,C,D],point html
 
!exit
 
:proc
 
!distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text

	!if $slib_L<>$empty
		slib_i=!item 1 of $slib_L
		slib_position_prov=$(slib_A$slib_i),$[-$(slib_height$slib_i)]
		slib_position = !append line  $slib_position_prov to $slib_position
		!if $slib_cnt > $[$slib_N] or $slib_sizey > $slib_Sizey
		!else
#choix des fils (position et nombre : la position est-elle intéressante pour un arbre non binaire ? )
			slib_c=!item $slib_k  of $slib_noeud
			!if perfect iswordof of $slib_option or $slib_c = 1
				slib_a =!item 1 to $slib_s of $slib_choix1
			!else
				slib_a =!shuffle $slib_choix
				slib_a=!item 1 to $slib_s of $slib_a
			!endif
			slib_Li =
			!for slib_j = 1 to $slib_s
				slib_b=!item $slib_j of $slib_a
				!if $slib_b <> 0
#creation d'un fils
					slib_jj =$[$slib_cnt+1]
#sa hauteur
					slib_height$slib_jj= $[$(slib_height$slib_i)+1]
#la hauteur de l'arbre
					slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))]
# Ne sert à rien ?
					slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1]
#on rajoute une ligne pour le fils
					slib_G =!append line $slib_jj to $slib_G
#nombre de sommets
					slib_cnt = $[$slib_cnt +1]
				!else
					slib_jj=sentinelle
				!endif
#on rajoute le fils sur la ligne du père, rien s'il n'y a rien à cette position
				slib_Li =!append item $slib_jj to $slib_Li
#le calcul suivant sert pour le dessin. Faut-il le mettre ici ?
				!if $slib_b <> 0
#position
					slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_s+1)/2)*$(slib_width$slib_i)]
#calcul de la largeur donnée au sommet $slib_jj pour ses fils éventuels
					slib_width$slib_jj=$[$(slib_width$slib_i)/min($slib_s,$slib_s+1)]
					slib_milieu_prov=$[($(slib_A$slib_i)+2*$(slib_A$slib_jj))/3],$[-($(slib_height$slib_i) +2*$(slib_height$slib_jj))/3]
			 		slib_milieu = !append line $slib_milieu_prov to $slib_milieu
				!endif
			!next slib_j
#on met la ligne $slib_k définitive
  		slib_G = !replace line number $slib_k by $slib_L,$slib_Li in $slib_G
		!endif
  !endif
!next slib_k
 
#Trace du dessin
slib_dessin =xrange $[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]\
yrange $[-$slib_Sizey-0.5],-0.5\
linewidth 2
slib_cnt =!linecnt $slib_G
 
!for slib_k= 1 to $slib_cnt
	slib_u =!line $slib_k of $slib_G
	slib_i=!item 1 of $slib_u
	slib_position_prov=!line $slib_k of $slib_position
	!for slib_j in $slib_u
		!if $slib_j  notsametext sentinelle
#trace de la droite
			slib_position_prov1=!line $slib_j of $slib_position
			slib_dessin = !append line line  $slib_position_prov,$slib_position_prov1, $slib_color1\
			 to $slib_dessin
#on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
			!if middle iswordof $slib_option
				slib_milieu_prov=!line $slib_j of $slib_milieu
				slib_dessin = !append line disk $slib_milieu_prov,30,white\
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
			!endif
		!endif
	!next slib_j
	!if point iswordof $slib_option
		slib_dessin =!append line disk $slib_position_prov,30,white\
	  circle $slib_position_prov,30,$slib_color2 to $slib_dessin
	!endif
	!if $slib_text <> $empty
		slib_textk=!item $slib_k of $slib_text
		slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
	!endif
!next slib_k
 
slib_out=$slib_dessin
 
!if url iswordof $slib_option or html iswordof $slib_option
  insdraw_size=300,300

Rev 5736	Rev 7692
Line 3...	Line 3...
3	!endif	3	!endif
4	slib_author=Bernadette, Perrin-Riou	4	slib_author=Bernadette, Perrin-Riou
5		5
6	slib_example= 5,3,3,,perfect middle\	6	slib_example= 5,3,3,,perfect middle\
7	12,2,4,[A,B,C,D],point html	7	12,2,4,[A,B,C,D],point html
8		8
9	!exit	9	!exit
10		10
11	:proc	11	:proc
12		12
13	!distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text	13	!distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text
Line 40...	Line 40...
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
128	insdraw_size=300,300	128	insdraw_size=300,300

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/slib/graph/randtree – Rev 5736 → 7692