1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
procedure TForm1.btnTraceClick(Sender: TObject);
// Tracé de parabole
var x,y : integer; R : TRect;
begin R:=Rect(0,0,Image1.width,Image1.Height);
with Image1.canvas do
begin pen.mode:=pmCopy;
pen.width:=1;
brush.color:=clBlack;
FillRect(R); // met le fond de l'image en noir
pen.color:=clBlue;
for x:=0 to Image1.width do
begin y:= round(0.005*x*x -2.3*x + 185); //< ici l'équation de la parabole : parenthèse à remplacer par l'équation de ta courbe
if x=0 then moveTo(x,y);
lineTo(x,y); //< lineTo() est préférable à Pixels[x,y] qui donnerait un rendu de pointillés dans les zones où la courbe est fortement croissante
end;
end;
end; |
Partager