Dégradé de couleur dans une ellipse
-
Bonjour. Il n’y a pas moyen de le faire avec l’instruction native… Je pense qu’on pourrait utiliser une boucle qui parcourt les couleurs de l’arc-en-ciel et dessine des ellipses concentriques.
defparam drawonlastbaronly=true //----------------------------------------------------- // Rainbow Ellipse Template - Optimized Gradient //----------------------------------------------------- // Variables for the area xStart = barindex[40] yTop = high + 20 * pipsize xEnd = barindex yBottom = low - 20 * pipsize // Resolution: more steps = higher quality gradient totalSteps = 25 // Calculating increments widthStep = (xEnd - xStart) / (2 * totalSteps) heightStep = (yTop - yBottom) / (2 * totalSteps) FOR i = 0 TO totalSteps DO // Current coordinates calculation currentX1 = xStart + (i * widthStep) currentY1 = yTop - (i * heightStep) currentX2 = xEnd - (i * widthStep) currentY2 = yBottom + (i * heightStep) // Smooth Rainbow Transition Logic // Division in 3 segments to cover the full spectrum IF i < (totalSteps / 3) THEN // Segment 1: Red to Yellow rVal = 255 gVal = (i * 255) / (totalSteps / 3) bVal = 0 ELSIF i < (2 * totalSteps / 3) THEN // Segment 2: Yellow to Cyan rVal = 255 - (((i - (totalSteps / 3)) * 255) / (totalSteps / 3)) gVal = 255 bVal = ((i - (totalSteps / 3)) * 255) / (totalSteps / 3) ELSE // Segment 3: Cyan to Magenta rVal = ((i - (2 * totalSteps / 3)) * 255) / (totalSteps / 3) gVal = 255 - (((i - (2 * totalSteps / 3)) * 255) / (totalSteps / 3)) bVal = 255 ENDIF // Transparency settings alphaVal = 40 // Execution of drawing DRAWELLIPSE(currentX1, currentY1, currentX2, currentY2) FILLCOLOR(rVal, gVal, bVal, alphaVal) COLOURED(0, 0, 0, 0) NEXT RETURNrobertogozzi thanked this postIvan,
Voici ce que j’ai pu coder pour colorer un cercle en dégradé grâce à des segments :
p=1000 for i = 0 to p x=400/p*(i) y=SQRT(SQUARE(210)-SQUARE(-210+210*2/(p-1)*i)) yprime=-SQRT(SQUARE(210)-SQUARE(-210+210*2/(p-1)*i)) z=p/4 if x<= 400*1/4 then r=255 g=165/z*i b=0 elsif x <= 400*2/4 then r=255 g=165+(255-165)/z*(i-z*1) b=0 elsif x <= 400*3/4 then r=255-255/z*(i-z*2) g=255 b=0 elsif x <= 400 then r=0 g=255-(255-128)/z*(i-z*3) b=0 endif drawsegment(-105+x,0+y,90,0) anchor (middle,xshift,yshift) COLOURED(r,g,b) style (line,5) drawsegment(-105+x,22+yprime,90,0) anchor (middle,xshift,yshift) COLOURED(r,g,b) style (line,5) next returnEt voici le code pour un demi-cercle :
p=1000 for i = 0 to p x=400/p*(i) y=SQRT(SQUARE(210)-SQUARE(-210+210*2/(p-1)*i)) z=p/4 if x<= 400*1/4 then r=255 g=165/z*i b=0 elsif x <= 400*2/4 then r=255 g=165+(255-165)/z*(i-z*1) b=0 elsif x <= 400*3/4 then r=255-255/z*(i-z*2) g=255 b=0 elsif x <= 400 then r=0 g=255-(255-128)/z*(i-z*3) b=0 endif drawsegment(-105+x,0+y,90,0) anchor (middle,xshift,yshift) COLOURED(r,g,b) style (line,5) next returnComme tu peux le voir sur les photos, j’ai triché sur le cercle entier en remontant le deuxième demi-cercle sur l’axe des y pour combler les trous.
Pour le demi-cercle il y une zone non colorée car j’ai utilisé la formule mathématique d’un demi-cercle. Or dans cette formule les points ne sont pas équidistants sur l’axe des y. Ils sont larges au début, puis se resserrent et s’écartent à nouveau de l’autre côté. J’ai un moyen d’y pallier en mettant p=5000, mais le calcul prend beaucoup de temps.
Si tu as une formule mathématique qui permet d’obtenir des points équidistants sur un cercle je suis preneur. Est-ce que ta méthode ci-avant (via l’ellipse) permet de coder le remplissage d’un demi-cercle ?
Merci
Nicolas thanked this post
- You must be logged in to reply to this topic.
Summary
This topic contains 5 replies,
has 2 voices, and was last updated by 
1 month, 2 weeks ago.
Topic Details
| Forum: | ProBuilder : Indicateurs & Outils Personnalisés |
| Language: | French |
| Started: | 01/09/2026 |
| Status: | Active |
| Attachments: | 3 files |
