Langage de programmation - Turbo Pascal - Référence de procédures et de fonctions

ARC	Arc
Turbo Pascal 3+	Graph.p (Turbo Pascal 3) ou unité Graph (Turbo Pascal 4+)

Syntaxe

procedure Arc(X,Y,Angle,r,Color:Integer);	Turbo Pascal 3 ou unité Graph3 (Turbo Pascal 4 ou supérieur)
Procedure Arc(x,y:Integer; angle_a,angle_b,r:Word);	Turbo Pascal 4 ou supérieur

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

Dans la version Turbo Pascal 3, la procédure Arc doit être inclus à l'aide du fichier {$I Graph.p} et non pas d'un USES Graph;
Dessine un arc de cercle autour des coordonnées (X,Y), avec un rayon de rayon, l'arc se déplace de StAngle à EndAngle et est dessiné dans la couleur de dessin actuelle.
Chaque pilote graphique contient un rapport hauteur/largeur utilisé par les Circle, Arc et PieSlice. Un angle de départ de 0 et un angle de fin de 360 traceront un cercle complet. Les angles pour Arc, Ellipse et PieSlice vont dans le sens inverse des aiguilles d'une montre, avec 0 degré à 3 heures, 90 degrés à 12 heures,... Les informations sur le dernier appel à Arc peuvent être récupérées avec un appel à GetArcCoords.

Exemple

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


				
Program ArcSamples;

 
Uses Graph;

 
Var


 Gd,Gm:Integer;

 I:Integer;

BEGIN


 Gd:=Detect;

 InitGraph(Gd,Gm,'');


 If(GraphResult <> grOk)Then Halt(1);

 For I := 1 to 100 do Begin


  SetColor(Random(GetMaxColor)+1);

  Arc(0,0,270,360,I*3);


 End;

 Readln;

 CloseGraph;

END.

on obtiendra le résultat semblable au suivant :

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - CIRCLE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - ELLIPSE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - GETARCCOORDS

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 96.

Dernière mise à jour : Dimanche, le 25 janvier 2015

Section courante

A propos

Section administrative du site

ARC