1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| void TFormJeux::CanonDessiner(angle segmentLongueur)
{
ImageGraphe->Canvas->Pen->Color = clWhite;
ImageGraphe->Canvas->Pen->Width = 5;
ImageGraphe->Canvas->MoveTo(segmentDebutX, segmentDebutY);
ImageGraphe->Canvas->LineTo(segmentFinX, segmentFinY);
segmentFinX = segmentDebutX + segmentLongueur * cos(angle);
segmentFinY = segmentDebutY + segmentLongueur * sin(angle);
ImageGraphe->Canvas->Pen->Color = clRed;
ImageGraphe->Canvas->Pen->Width = 5;
ImageGraphe->Canvas->MoveTo(segmentDebutX, segmentDebutY);
ImageGraphe->Canvas->LineTo(segmentFinX, segmentFinY);
} |
Partager