Rev 17173 | Rev 18426 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17173 | Rev 17944 | ||
---|---|---|---|
Line 8... | Line 8... | ||
8 | 8 | ||
9 | !exit |
9 | !exit |
10 | 10 | ||
11 | :proc |
11 | :proc |
12 | 12 | ||
- | 13 | !reset slib_segments slib_texts slib_circles slib_disks |
|
13 | !distribute item $wims_read_parm into slib_G,slib_text |
14 | !distribute item $wims_read_parm into slib_G,slib_text |
14 | slib_doption=!item 3 to -1 of $wims_read_parm |
15 | slib_doption=!item 3 to -1 of $wims_read_parm |
15 | slib_option=$slib_doption |
16 | slib_option=$slib_doption |
16 | !default slib_color1=blue |
17 | !default slib_color1=blue |
17 | !default slib_color2=green |
18 | !default slib_color2=green |
18 | !default |
19 | !default slib_color3=yellow |
19 | slib_text=!declosing $slib_text |
20 | slib_text=!declosing $slib_text |
20 | !if [ isin $slib_text |
21 | !if [ isin $slib_text |
21 | !distribute item $slib_text into slib_textp, slib_textm |
22 | !distribute item $slib_text into slib_textp, slib_textm |
22 | !else |
23 | !else |
23 | slib_textp=$slib_text |
24 | slib_textp=$slib_text |
24 | !endif |
25 | !endif |
25 | slib_textp=!declosing $slib_textp |
26 | slib_textp=!declosing $slib_textp |
26 | slib_textm=!declosing $slib_textm |
27 | slib_textm=!declosing $slib_textm |
27 | slib_G=!declosing $slib_G |
28 | slib_G=!declosing $slib_G |
28 |
|
29 | slib_G=!translate internal ; to $\ |
29 | $ in $slib_G |
30 | $ in $slib_G |
30 | slib_col=!column 1 of $slib_G |
31 | slib_col=!column 1 of $slib_G |
31 | slib_NG=!linecnt $slib_G |
32 | slib_NG=!linecnt $slib_G |
32 | slib_n=!lines2items $slib_G |
33 | slib_n=!lines2items $slib_G |
33 | slib_n=!listuniq $slib_n |
34 | slib_n=!listuniq $slib_n |
34 | ## |
35 | ## slib_n=!item -1 of $slib_n |
35 | slib_complement=!listcomplement $slib_col in $slib_n |
36 | slib_complement=!listcomplement $slib_col in $slib_n |
36 | !for slib_i in $slib_complement |
37 | !for slib_i in $slib_complement |
37 | slib_G=!append line $slib_i to $slib_G |
38 | slib_G=!append line $slib_i to $slib_G |
38 | !next slib_i |
39 | !next slib_i |
39 | !read slib/data/columnsort 1,numeric, $slib_G |
40 | !read slib/data/columnsort 1,numeric, $slib_G |
40 | slib_G=$slib_out |
41 | slib_G=$slib_out |
41 | slib_n=!linecnt $slib_G |
42 | slib_n=!linecnt $slib_G |
42 |
|
43 | slib_A1=0 |
43 |
|
44 | slib_height1=1 |
44 |
|
45 | slib_sizey=1 |
45 |
|
46 | slib_cnt1=0 |
46 | slib_cnt=1 |
47 | slib_cnt=1 |
47 |
|
48 | slib_width1=15 |
48 | slib_Sizey=0 |
49 | slib_Sizey=0 |
49 |
|
50 | slib_position=$empty |
50 | 51 | ||
51 |
|
52 | slib_milieu=0,-1 |
52 | !for |
53 | !for slib_k=1 to $slib_n |
53 |
|
54 | slib_L=!line $slib_k of $slib_G |
54 | slib_i=!item 1 of $slib_L |
55 | slib_i=!item 1 of $slib_L |
55 | slib_position_prov=$(slib_A$slib_i),$[-$(slib_height$slib_i)] |
56 | slib_position_prov=$(slib_A$slib_i),$[-$(slib_height$slib_i)] |
56 |
|
57 | slib_position=!append line $slib_position_prov to $slib_position |
57 | slib_a=!item 2 to -1 of $slib_L |
58 | slib_a=!item 2 to -1 of $slib_L |
58 | slib_ss=!itemcnt $slib_L |
59 | slib_ss=!itemcnt $slib_L |
59 | !for slib_b in $slib_a |
60 | !for slib_b in $slib_a |
60 | slib_j=!positionof $slib_b in $slib_a |
61 | slib_j=!positionof $slib_b in $slib_a |
61 | !if $slib_b <> 0 and $slib_b<>$empty |
62 | !if $slib_b <> 0 and $slib_b<>$empty |
62 |
|
63 | slib_jj=$[$slib_cnt+1] |
63 | #sa hauteur |
64 | #sa hauteur |
64 |
|
65 | slib_height$slib_jj=$[$(slib_height$slib_i)+1] |
65 | #la hauteur de l'arbre |
66 | #la hauteur de l'arbre |
66 | slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))] |
67 | slib_sizey=$[max($slib_sizey, $(slib_height$slib_jj))] |
67 | # Ne sert à rien ? |
68 | # Ne sert à rien ? |
68 | slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1] |
69 | slib_cnt$(slib_height$slib_jj)=$[$(slib_cnt$(slib_height$slib_jj))+1] |
69 | #nombre de sommets |
70 | #nombre de sommets |
70 |
|
71 | slib_cnt=$[$slib_cnt +1] |
71 | #position |
72 | #position |
72 | slib_test=$[($slib_ss)%2] |
73 | slib_test=$[($slib_ss)%2] |
73 | !ifval |
74 | !ifval $slib_test=1 |
74 | slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_ss)/2)*$(slib_width$slib_i)] |
75 | slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_ss)/2)*$(slib_width$slib_i)] |
75 | !else |
76 | !else |
76 | slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_ss)/2-1)*$(slib_width$slib_i)] |
77 | slib_A$slib_jj=$[$(slib_A$slib_i)+($slib_j-($slib_ss)/2-1)*$(slib_width$slib_i)] |
77 | !endif |
78 | !endif |
78 | #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 |
79 | slib_width$slib_jj=$[$(slib_width$slib_i)/($slib_ss-0.5)] |
80 | slib_width$slib_jj=$[$(slib_width$slib_i)/($slib_ss-0.5)] |
80 | slib_milieu_prov=$[($(slib_A$slib_i)+2*$(slib_A$slib_jj))/3],$[-($(slib_height$slib_i) |
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 |
|
82 | slib_milieu=!append line $slib_milieu_prov to $slib_milieu |
82 | !endif |
83 | !endif |
83 | !next slib_b |
84 | !next slib_b |
84 | !next slib_k |
85 | !next slib_k |
85 | slib_s=!line -1 of $slib_position |
86 | slib_s=!line -1 of $slib_position |
86 |
|
87 | slib_s=!item 1 of $slib_s |
87 | 88 | ||
88 | #Trace du dessin |
89 | #Trace du dessin |
89 |
|
90 | slib_dessin=xrange $[-($slib_s)-5], $[$slib_s+5]\ |
90 | yrange $[-($slib_sizey)-0.5],-0.5\ |
91 | yrange $[-($slib_sizey)-0.5],-0.5\ |
91 | linewidth 2 |
92 | linewidth 2 |
92 |
|
93 | slib_cnt=!linecnt $slib_G |
93 | !for |
94 | !for slib_k=1 to $slib_cnt |
94 |
|
95 | slib_u=!line $slib_k of $slib_G |
95 | slib_i=!item 1 of $slib_u |
96 | slib_i=!item 1 of $slib_u |
96 | slib_u=!item 2 to -1 of $slib_u |
97 | slib_u=!item 2 to -1 of $slib_u |
97 | slib_position_prov=!line $slib_k of $slib_position |
98 | slib_position_prov=!line $slib_k of $slib_position |
98 | !for slib_j in $slib_u |
99 | !for slib_j in $slib_u |
99 | !if $slib_j notsametext sentinelle |
100 | !if $slib_j notsametext sentinelle |
100 | #trace de la droite |
101 | #trace de la droite |
101 | slib_position_prov1=!line $slib_j of $slib_position |
102 | slib_position_prov1=!line $slib_j of $slib_position |
102 |
|
103 | slib_segments=!append item $slib_position_prov,$slib_position_prov1 to $slib_segments |
103 | to $slib_dessin |
- | |
104 | #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte |
104 | #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte |
105 | 105 | ||
106 | !if middle iswordof $slib_doption |
106 | !if middle iswordof $slib_doption |
107 | slib_milieu_prov=!line $slib_j of $slib_milieu |
107 | slib_milieu_prov=!line $slib_j of $slib_milieu |
108 |
|
108 | slib_disks=!append line disk $slib_milieu_prov,30,white to $slib_disk |
109 | circle $slib_milieu_prov, 30,$slib_color3 to |
109 | slib_circles=!append line circle $slib_milieu_prov, 30,$slib_color3 to $slib_circles |
110 | !if $slib_textm <> $empty |
110 | !if $slib_textm <> $empty |
111 | slib_textk=!item $slib_j of $slib_textm |
111 | slib_textk=!item $slib_j of $slib_textm |
112 | slib_milieu_prov1=!item 1 of $slib_milieu_prov |
112 | slib_milieu_prov1=!item 1 of $slib_milieu_prov |
113 | slib_milieu_prov2=!item 2 of $slib_milieu_prov |
113 | slib_milieu_prov2=!item 2 of $slib_milieu_prov |
114 | slib_milieu_prov=$[$slib_milieu_prov1-0.9], $[$slib_milieu_prov2+0.1] |
114 | slib_milieu_prov=$[$slib_milieu_prov1-0.9], $[$slib_milieu_prov2+0.1] |
115 |
|
115 | slib_texts=!append line text black,$slib_milieu_prov, large,$slib_textk to $slib_texts |
116 | !endif |
116 | !endif |
117 | !endif |
117 | !endif |
118 | !endif |
118 | !endif |
119 | !next slib_j |
119 | !next slib_j |
120 | !if point iswordof $slib_doption |
120 | !if point iswordof $slib_doption |
121 |
|
121 | slib_disks=!append line disk $slib_position_prov,30,white to $slib_disks |
122 | circle $slib_position_prov,30,$slib_color2 to |
122 | slib_circles=!append line circle $slib_position_prov,30,$slib_color2 to $slib_circles |
123 | !endif |
123 | !endif |
124 | !if |
124 | !if $(slib_textp[$slib_k]) <> $empty |
125 | slib_textk=!item $slib_k of $slib_textp |
- | |
126 | slib_position_prov1=!item 1 of $slib_position_prov |
125 | slib_position_prov1=!item 1 of $slib_position_prov |
127 | slib_position_prov2=!item 2 of $slib_position_prov |
126 | slib_position_prov2=!item 2 of $slib_position_prov |
128 | slib_position_prov=$[$slib_position_prov1-0.9], $[$slib_position_prov2+0.1] |
127 | slib_position_prov=$[$slib_position_prov1-0.9], $[$slib_position_prov2+0.1] |
129 |
|
128 | slib_texts=!append line text black,$slib_position_prov, large,$(slib_textp[$slib_k]) to $slib_texts |
130 | !endif |
129 | !endif |
131 | - | ||
132 | !next slib_k |
130 | !next slib_k |
- | 131 | slib_dessin=xrange $[-($slib_s)-5], $[$slib_s+5]\ |
|
- | 132 | yrange $[-($slib_sizey)-0.5],-0.5\ |
|
- | 133 | linewidth 2\ |
|
- | 134 | segments $slib_color1, $slib_segments\ |
|
- | 135 | $slib_disks\ |
|
- | 136 | $slib_circles\ |
|
- | 137 | $slib_texts |
|
133 | 138 | ||
134 |
|
139 | slib_out=$slib_dessin |
135 | !if url iswordof $slib_doption or html iswordof $slib_doption |
140 | !if url iswordof $slib_doption or html iswordof $slib_doption |
136 | insdraw_size=300,300 |
141 | insdraw_size=300,300 |
137 | !insdraw $slib_out |
142 | !insdraw $slib_out |
138 | slib_out=$ins_url |
143 | slib_out=$ins_url |
139 | !if html iswordof $slib_doption |
144 | !if html iswordof $slib_doption |