Rev 17790 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17790 | Rev 17955 | ||
---|---|---|---|
Line 9... | Line 9... | ||
9 | 70,2,10,,point html |
9 | 70,2,10,,point html |
10 | 10 | ||
11 | !exit |
11 | !exit |
12 | 12 | ||
13 | :proc |
13 | :proc |
14 | - | ||
- | 14 | !reset slib_segments slib_dessin |
|
15 | !distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text |
15 | !distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text |
16 | slib_option = !item 5 to -1 of $wims_read_parm |
16 | slib_option = !item 5 to -1 of $wims_read_parm |
17 | !default slib_s=5 |
17 | !default slib_s=5 |
18 | !default slib_h=8 |
18 | !default slib_h=8 |
19 | !default slib_color1=blue |
19 | !default slib_color1=blue |
Line 52... | Line 52... | ||
52 | !if perfect iswordof of $slib_option or $slib_c=1 |
52 | !if perfect iswordof of $slib_option or $slib_c=1 |
53 | slib_a=!item 1 to $slib_s of $slib_choix1 |
53 | slib_a=!item 1 to $slib_s of $slib_choix1 |
54 | !else |
54 | !else |
55 | slib_a=!shuffle $slib_choix |
55 | slib_a=!shuffle $slib_choix |
56 | slib_a=!item 1 to $slib_s of $slib_a |
56 | slib_a=!item 1 to $slib_s of $slib_a |
57 | !endif |
57 | !endif |
58 | slib_Li= |
58 | slib_Li= |
59 | !for slib_j=1 to $slib_s |
59 | !for slib_j=1 to $slib_s |
60 | slib_b=!item $slib_j of $slib_a |
60 | slib_b=!item $slib_j of $slib_a |
61 | !if $slib_b <> 0 |
61 | !if $slib_b <> 0 |
62 | #creation d'un fils |
62 | #creation d'un fils |
Line 93... | Line 93... | ||
93 | !next slib_k |
93 | !next slib_k |
94 | 94 | ||
95 | #Trace du dessin |
95 | #Trace du dessin |
96 | !set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2] |
96 | !set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2] |
97 | !set slib_yrange=$[-$slib_sizey-0.5],-0.5 |
97 | !set slib_yrange=$[-$slib_sizey-0.5],-0.5 |
98 | slib_dessin=xrange $slib_xrange\ |
- | |
99 | yrange $slib_yrange\ |
- | |
100 | linewidth 2 |
- | |
101 | slib_cnt=!linecnt $slib_G |
98 | slib_cnt=!linecnt $slib_G |
102 | - | ||
103 | !for |
99 | !for slib_k=1 to $slib_cnt |
104 |
|
100 | slib_u=!line $slib_k of $slib_G |
105 | slib_i=!item 1 of $slib_u |
101 | slib_i=!item 1 of $slib_u |
106 | slib_position_prov=!line $slib_k of $slib_position |
102 | slib_position_prov=!line $slib_k of $slib_position |
107 | !for slib_j in $slib_u |
103 | !for slib_j in $slib_u |
108 | !if $slib_j notsametext sentinelle |
104 | !if $slib_j notsametext sentinelle |
109 | #trace de la droite |
105 | #trace de la droite |
110 | slib_position_prov1=!line $slib_j of $slib_position |
106 | slib_position_prov1=!line $slib_j of $slib_position |
111 |
|
107 | slib_segments=!append item $slib_position_prov,$slib_position_prov1 to $slib_segments |
112 | to $slib_dessin |
- | |
113 | #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 |
114 | !if middle iswordof $slib_option |
109 | !if middle iswordof $slib_option |
115 | slib_milieu_prov=!line $slib_j of $slib_milieu |
110 | slib_milieu_prov=!line $slib_j of $slib_milieu |
116 | slib_dessin = !append line disk $slib_milieu_prov,30,white\ |
111 | slib_dessin = !append line disk $slib_milieu_prov,30,white\ |
117 | circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin |
112 | circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin |
Line 125... | Line 120... | ||
125 | !if $slib_text <> $empty |
120 | !if $slib_text <> $empty |
126 | slib_textk=!item $slib_k of $slib_text |
121 | slib_textk=!item $slib_k of $slib_text |
127 | slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin |
122 | slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin |
128 | !endif |
123 | !endif |
129 | !next slib_k |
124 | !next slib_k |
- | 125 | slib_dessin=xrange $slib_xrange\ |
|
- | 126 | yrange $slib_yrange\ |
|
- | 127 | linewidth 2\ |
|
- | 128 | segments $slib_color1,$slib_segments\ |
|
130 | 129 | $slib_dessin |
|
131 | slib_out=$slib_dessin |
130 | slib_out=$slib_dessin |
132 | - | ||
133 | !if url iswordof $slib_option or html iswordof $slib_option |
131 | !if url iswordof $slib_option or html iswordof $slib_option |
134 | !set slib_tmp=400 |
132 | !set slib_tmp=400 |
135 | !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height] |
133 | !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height] |
136 | !set insdraw_size=$[min(1500,($(slib_xrange[2])-($(slib_xrange[1])))/($(slib_yrange[2])-($(slib_yrange[1])))*$slib_tmp)],$slib_tmp |
134 | !set insdraw_size=$[min(1500,($(slib_xrange[2])-($(slib_xrange[1])))/($(slib_yrange[2])-($(slib_yrange[1])))*$slib_tmp)],$slib_tmp |
137 | - | ||
138 | !insdraw $slib_out |
135 | !insdraw $slib_out |
139 | slib_out=$ins_url |
136 | slib_out=$ins_url |
140 | !if html iswordof $slib_option |
137 | !if html iswordof $slib_option |
141 | slib_out=<img src="$ins_url" alt=""> |
138 | slib_out=<img src="$ins_url" alt=""> |
142 | !else |
139 | !else |