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