- sclgraf.shq [c+]
[..] La fonction [shq] drawBoxshq
Code
int drawbox_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("drawbox_shq"); // <Creates a new
figure
int tirn=40, tiri;
double x_lb, x_ub, y_lb, y_ub, cd;
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*/1;
for(tiri=0;tiri<tirn;tiri++){
x_lb=((double)rand())/((double)∞ns)*r;
x_ub=((double)rand())/((double)∞ns)*r;
if(x_ub<x_lb){ cd=x_ub; x_ub=x_lb; x_lb=cd; }
y_lb=((double)rand())/((double)∞ns)*r;
y_ub=((double)rand())/((double)∞ns)*r;
if(y_ub<y_lb){ cd=y_ub; y_ub=y_lb; y_lb=cd; }
if(tiri%4==0){
x_lb+=r; y_lb+=r; x_ub+=r; y_ub+=r;
shq::drawBox(x_lb, x_ub, y_lb, y_ub,
shq::Params("group","Bagad Gwer"));
}
else if(tiri%4==1){
x_lb-=r; y_lb+=r; x_ub-=r; y_ub+=r;
shq::drawBox(x_lb, x_ub, y_lb, y_ub,
shq::Params("group","Bagad Melen"));
}
else if(tiri%4==2) {
x_lb-=r; y_lb-=r; x_ub-=r; y_ub-=r;
shq::drawBox(x_lb, x_ub, y_lb, y_ub,
shq::Params("group","Bagad Glaz"));
}
else{
x_lb+=r; y_lb-=r; x_ub+=r; y_ub-=r;
shq::drawBox(x_lb, x_ub, y_lb, y_ub,
shq::Params("group","Bagad Ruz"));
}
}
shq::axisAuto("drawbox_shq");
shq::axisEqual("drawbox_shq");
shq::axisLabels("[m]", "[m]", "drawbox_shq");
shq::saveImage("./srt/drawbox_shq.svg");
shq::endDrawing(); // <Closes the
"connection"
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 14-05-2025 23:35:31 */
Sortie
[>..\xpl\src\sclgraf.shq.xpl.cpp.drawbox_shq_xpl]
scl-25.04 (gwin64) : 14-05-2025 23:35:31
rande=32767
[<..\xpl\src\sclgraf.shq.xpl.cpp.drawbox_shq_xpl]