1 | C_TEXTE($1) |
2 | C_TEXTE($STR_text_wrk) |
3 | C_ENTIER($pos) |
4 | C_BLOB($my_blob) |
5 | C_IMAGE($IMG_graph) |
6 | C_ALPHA(16;$ref_SVG;Obj_SVG) |
7 | C_TEXTE($STR_color) |
8 | |
9 | $STR_text_wrk:=Sous chaine($1;2) |
10 | $pos:=Position("_";$STR_text_wrk) |
11 | Si($pos#0) |
12 | $STR_text_wrk:=Sous chaine($STR_text_wrk;1;$pos-1) |
13 | Fin de si |
14 | $STR_text_wrk:=Remplacer chaine($STR_text_wrk;" ";"\r") |
15 | $ref_SVG:=SVG_New |
16 | Obj_SVG:=SVG_New_text($ref_SVG;$STR_text_wrk;-90;0;"Arial";14;Gras;Aligné à gauche;"Black";-90) |
17 | |
18 | |
19 | |
20 | |
21 | |
22 | $IMG_graph:=SVG_Export_to_picture(Obj_SVG;1) |
23 | IMAGE VERS GIF($IMG_graph;$my_blob) |
24 | ENVOYER BLOB HTML($my_blob;"image/gif") |
25 | |
26 | SVG_CLEAR($ref_SVG) |