1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
unit uGraph;
{$mode objfpc}{$H+}
{ _____________________________________________________________________________
| BIBLIOTHEQUE DE PROCEDURES ET FONCTIONS GRAPHIQUES
| Version 1 pour Lazarus
| Dernière Mise à jour le :
| 22.06.2021
|_____________________________________________________________________________|
| Catégories de Fonctions :
|
| 1. Figures géométriques traditionnelles dans le plan Euclidien 2 Dimensions.
| Selon différents points d'entrées : coordonnées, centre, longueurs...
|
| 2. Utilitaires de tracé et de conversions
|
|_____________________________________________________________________________|
}
interface
Uses Types, Windows, Graphics;//,ExtCtrls;
...
{=== Figures géométriques de base dans le plan euclidien 2 Dimensions =========}
procedure Dessine_Point(Ox,Oy,R,e : Integer; aCanvas : TCanvas;aColorExt,aColorInt: Tcolor);
implementation
-Dessine_Point ----------------------------------------------------------------
Dessine Un point aux coordonnées spécifiées (Ox,Oy), de rayon R
-------------------------------------------------------------------------------}
procedure Dessine_Point(Ox,Oy,R,e : integer; aCanvas : TCanvas;aColorExt,aColorInt: Tcolor);
var CircRect : TRect; // coordonnées figure circonscrite
begin
CircRect := Rect( Ox - R , OY - R, OX + R, OY + R);
With aCanvas do
begin
// Couleur de fond
Brush.Color := aColorInt;
Brush.Style := bsSolid;
Pen.Color := aColorExt;
Pen.Style := psSolid;
Pen.Width := e;
Ellipse(CircRect);
end;
end; |
Partager