Rev 17173 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
8560 | bpr | 1 | !if $wims_read_parm!=slib_header |
13587 | bpr | 2 | !goto proc |
20 | reyssat | 3 | !endif |
4158 | bpr | 4 | |
4351 | bpr | 5 | slib_author=Bernadette, Perrin-Riou |
4172 | bpr | 6 | slib_example=[0,0,1;0,0,1;1,1,0],red,blue, [A,B,C],[1,3,green;3,2,purple],html\ |
7 | [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green]\ |
||
12769 | bpr | 8 | [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green],html\ |
9 | [0,0,4,4;0,0,1,1;4,1,0,1;4,1,1,0],red,blue,,[1,3,2,green],html weight |
||
7692 | bpr | 10 | slib_require=pari |
20 | reyssat | 11 | !exit |
12 | |||
13 | :proc |
||
17852 | bpr | 14 | !reset slib_color1 slib_color2 slib_names slib_couleur |
12684 | bpr | 15 | !distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option |
20 | reyssat | 16 | slib_path=!declosing $slib_path |
12769 | bpr | 17 | slib_path=!translate internal ; to $\ |
20 | reyssat | 18 | $ in $slib_path |
19 | slib_cnt_path=!linecnt $slib_path |
||
12769 | bpr | 20 | !for slib_i=1 to $slib_cnt_path |
12676 | bpr | 21 | slib_path_prov= !line $slib_i of $slib_path |
22 | slib_path_color$slib_i= !item -1 of $slib_path_prov |
||
23 | slib_path_color$slib_i= !declosing $(slib_path_color$slib_i) |
||
24 | slib_path$slib_i=!item 1 to -2 of $slib_path_prov |
||
12769 | bpr | 25 | slib_path$slib_i=!nospace $(slib_path$slib_i) |
7692 | bpr | 26 | !next slib_i |
12684 | bpr | 27 | |
20 | reyssat | 28 | slib_G=!declosing $slib_G |
29 | |||
8560 | bpr | 30 | slib_G=!translate internal ; to $\ |
20 | reyssat | 31 | $ in $slib_G |
32 | |||
8560 | bpr | 33 | slib_GG=!translate internal $\ |
20 | reyssat | 34 | $ to ; in $slib_G |
35 | |||
36 | |||
7692 | bpr | 37 | slib_or=!exec pari Mat([$slib_GG])==Mat([$slib_GG])~ |
20 | reyssat | 38 | |
39 | slib_names=!declosing $slib_names |
||
40 | slib_color1=!declosing $slib_color1 |
||
41 | slib_color2=!declosing $slib_color2 |
||
42 | slib_n=!line 1 of $slib_G |
||
43 | slib_n=!itemcnt $slib_n |
||
44 | !default slib_color1=blue |
||
45 | !default slib_color2=blue |
||
8560 | bpr | 46 | !default slib_names=!values slib_i for slib_i=1 to $slib_n |
20 | reyssat | 47 | |
48 | !for slib_i =1 to $slib_n |
||
12676 | bpr | 49 | slib_COS$slib_i=$[cos(2*pi*$slib_i/$slib_n)] |
50 | slib_SIN$slib_i=$[sin(2*pi*$slib_i/$slib_n)] |
||
20 | reyssat | 51 | !next slib_i |
52 | slib_dessin = xrange -1.5,1.5\ |
||
53 | yrange -1.5,1.5 |
||
7692 | bpr | 54 | !for slib_i=1 to $slib_n |
12676 | bpr | 55 | slib_name =!item $slib_i of $slib_names |
17852 | bpr | 56 | !default slib_couleur=$slib_color1 |
57 | slib_dessin=$slib_dessin\ |
||
58 | disk $(slib_COS$slib_i),$(slib_SIN$slib_i), 6,$slib_couleur\ |
||
59 | text black, $[1.3*$(slib_COS$slib_i)],$[1.3*$(slib_SIN$slib_i)], medium, $slib_name |
||
60 | !reset slib_couleur |
||
12684 | bpr | 61 | !for slib_k=1 to $slib_cnt_path |
12685 | bpr | 62 | !!! vertex |
63 | !if $slib_i isitemof $(slib_path$slib_k) and $($(slib_path$slib_k)[3])=$empty |
||
12684 | bpr | 64 | slib_couleur=$(slib_path_color$slib_k) |
65 | !break |
||
66 | !endif |
||
67 | !next |
||
12676 | bpr | 68 | !if $slib_or=1 |
69 | !for slib_j=1 to $slib_i |
||
70 | slib_r=!line $slib_i of $slib_G |
||
71 | slib_u=!item $slib_j of $slib_r |
||
12769 | bpr | 72 | !if $slib_u>0 |
12676 | bpr | 73 | slib_couleur=$slib_color2 |
74 | !for slib_k=1 to $slib_cnt_path |
||
75 | !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k) |
||
76 | slib_couleur=$(slib_path_color$slib_k) |
||
77 | !break |
||
78 | !endif |
||
79 | !next slib_k |
||
80 | !if $slib_i<>$slib_j |
||
81 | slib_dessin=$slib_dessin\ |
||
8560 | bpr | 82 | segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$(slib_COS$slib_j),$(slib_SIN$slib_j),$slib_couleur |
12769 | bpr | 83 | !if weight iswordof $slib_option |
84 | slib_dessin=$slib_dessin\ |
||
85 | text black, $[(2*$(slib_COS$slib_i)+$(slib_COS$slib_j))/3],$[(2*$(slib_SIN$slib_i)+$(slib_SIN$slib_j))/3],medium,$(slib_GG[$slib_i;$slib_j]) |
||
86 | !endif |
||
12676 | bpr | 87 | !else |
88 | slib_dessin=$slib_dessin\ |
||
20 | reyssat | 89 | ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur |
12676 | bpr | 90 | !endif |
91 | !endif |
||
92 | !next slib_j |
||
93 | !else |
||
94 | !for slib_j=1 to $slib_n |
||
95 | slib_r=!line $slib_i of $slib_G |
||
96 | slib_u=!item $slib_j of $slib_r |
||
12769 | bpr | 97 | !if $slib_u>0 |
12676 | bpr | 98 | slib_couleur=$slib_color2 |
99 | !for slib_k=1 to $slib_cnt_path |
||
100 | !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k) |
||
101 | slib_couleur=$(slib_path_color$slib_k) |
||
102 | !break |
||
103 | !endif |
||
104 | !next slib_k |
||
105 | !if $slib_i<>$slib_j |
||
106 | slib_dessin=$slib_dessin\ |
||
20 | reyssat | 107 | arrow $(slib_COS$slib_i),$(slib_SIN$slib_i), $[($(slib_COS$slib_i)-$(slib_COS$slib_j))/2+$(slib_COS$slib_j)],$[($(slib_SIN$slib_i)-$(slib_SIN$slib_j))/2+$(slib_SIN$slib_j)],10,$slib_color2\ |
8584 | bpr | 108 | segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$[$(slib_COS$slib_j)],$(slib_SIN$slib_j),$slib_couleur |
12676 | bpr | 109 | !else |
110 | slib_dessin=$slib_dessin\ |
||
20 | reyssat | 111 | ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur |
12676 | bpr | 112 | !endif |
113 | !endif |
||
114 | !next slib_j |
||
115 | !endif |
||
17852 | bpr | 116 | !reset slib_couleur |
7692 | bpr | 117 | !next slib_i |
20 | reyssat | 118 | |
119 | slib_out= $slib_dessin |
||
120 | |||
4172 | bpr | 121 | !if url iswordof $slib_option or html iswordof $slib_option |
122 | insdraw_size=250,250 |
||
123 | !insdraw $slib_out |
||
124 | slib_out=$ins_url |
||
12676 | bpr | 125 | !if html iswordof $slib_option |
17173 | bpr | 126 | slib_out=<img src="$ins_url" alt=""> |
12676 | bpr | 127 | !else |
4908 | bpr | 128 | slib_out=$slib_out,$insdraw_size |
12676 | bpr | 129 | !endif |
4172 | bpr | 130 | !endif |