Section courante

A propos

Section administrative du site

ARC

Arc
QuickPascal Graph

Syntaxe

Procedure Arc(x,y:Integer; angle_a,angle_b,r:Word);

Paramètres

Nom Description
x Ce paramètre permet d'indiquer la coordonnée X
y Ce paramètre permet d'indiquer la coordonnée Y
angle_a Ce paramètre permet d'indiquer l'angle en degré de début. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre.
angle_b Ce paramètre permet d'indiquer l'angle en degré de fin. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre.
r Ce paramètre permet d'indiquer le rayon

Description

Cette procédure permet d'effectuer le traçage d'un arc de cercle dans un écran graphique.

Remarques

Exemple

Voici un exemple de générer les 100 en arc dans le quatrième cadran :

  1. Program ArcSamples;
  2.  
  3. Uses Graph;
  4.  
  5. Var
  6.  Gd,Gm:Integer;
  7.  I:Integer;
  8.  
  9. BEGIN
  10.  Gd:=Detect;
  11.  InitGraph(Gd,Gm,'');
  12.  If(GraphResult <> grOk)Then Halt(1);
  13.  For I := 1 to 100 do Begin
  14.   SetColor(Random(GetMaxColor)+1);
  15.   Arc(0,0,270,360,I*3);
  16.  End;
  17.  Readln;
  18.  CloseGraph;
  19. END.

on obtiendra le résultat semblable au suivant :



Dernière mise à jour : Dimanche, le 20 avril 2014