- sclgraf.shq [c+]
[..] La fonction [shq] drawRingshq
Code
int drawring_shq_xpl(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
shq::beginDrawing(PRM_BEGINDRAWING_SHQ); // <Initializes the
"connection"
shq::newFigure("drawring_shq"); // <Creates a new
figure
int tirn=40, tiri;
double rx, ry, ra, re, rp;
scltracefc("rande=%d\n", ∞ns);
shq::newGroup("Bagad Gwer",/*"[vert]darkGreen"*/"[#00CC0026]darkGreen"); //vert transparence 15%
shq::newGroup("Bagad Melen",/*"darkYellow[carotte]"*/"darkYellow[#FFC00026]"); //carotte transparence 15%
shq::newGroup("Bagad Glaz",/*"[bleu]darkBlue"*/"[#0066FF26]darkBlue"); //bleu transparence 15%
shq::newGroup("Bagad Ruz",/*"darkRed[chaire]"*/"darkRed[#C0000026]"); //chaire transparence 15%
double r=/*(double)RAND_MAX*/100;
for(tiri=0;tiri<tirn;tiri++){
rx=((double)rand())/((double)∞ns)*r;
ry=((double)rand())/((double)∞ns)*r;
ra=((double)rand())/((double)∞ns)*r;
re=((double)rand())/((double)∞ns)*r;
if(re<ra){ rp=re; re=ra; ra=rp; }
if(ra<re*0.80){ ra=re*0.80; }
if(tiri%4==0){
shq::drawRing( r+rx, r+ry, ra, re,
shq::Params("group","Bagad Gwer"));
}
else if(tiri%4==1){
shq::drawRing(-r-rx, r+ry, ra, re,
shq::Params("group","Bagad Melen"));
}
else if(tiri%4==2) {
shq::drawRing(-r-rx,-r-ry, ra, re,
shq::Params("group","Bagad Glaz"));
}
else{
shq::drawRing( r+rx,-r-ry, ra, re,
shq::Params("group","Bagad Ruz"));
}
}
shq::axisAuto("drawring_shq");
shq::axisEqual("drawring_shq");
shq::axisLabels("[m]", "[m]", "drawring_shq");
shq::saveImage("./srt/drawring_shq.svg");
shq::endDrawing(); // <Closes the
"connection"
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 31-05-2025 18:33:33 */
Sortie
[>..\xpl\src\sclgraf.shq.xpl.cpp.drawring_shq_xpl]
scl-25.05 (gwin64) : 31-05-2025 18:33:33
rande=32767
[<..\xpl\src\sclgraf.shq.xpl.cpp.drawring_shq_xpl]