Section courante

A propos

Section administrative du site

CIRCLE

Cercle
GWBASIC

Syntaxe

CIRCLE (x,y),r,c,s,e,h

Paramètres

Nom Description
x Ce paramètre permet d'indiquer la position horizontale en pixel à l'écran
y Ce paramètre permet d'indiquer la position verticale en pixel à l'écran
r Ce paramètre permet d'indiquer le rayon du cercle
c Ce paramètre permet d'indiquer le numéro de la couleur du cercle
s Ce paramètre permet d'indiquer le rapport entre le point de début en radian
e Ce paramètre permet d'indiquer le rapport entre le point de fin en radian
h Ce paramètre permet d'indiquer le rapport entre la hauteur/largeur

Description

Cette commande permet d'afficher un cercle dans l'écran graphique.

Algorithme

MODULE CIRCLE(x_centre, y_centre, rayon, [couleur], [debut_angle], [fin_angle])
   SI rayon ≤ 0 ALORS
      Afficher une erreur "Rayon invalide"
      RETOURNE
   FIN SI

   SI debut_angle et fin_angle ne sont pas spécifiés ALORS
      debut_angle ← 0
      fin_angle ← 2 x π
   FIN SI

   BOUCLE POUR angle ← debut_angle JUSQU'À fin_angle avec un pas précis (par exemple, 1 degré)
      Calculer x ← x_centre + rayon * cos(angle en radians)
      Calculer y ← y_centre - rayon * sin(angle en radians)
      Tracer le point (x, y) avec la couleur spécifiée
   FIN BOUCLE POUR

Remarques

Exemples

L'exemple suivant permet de dessiner un cercle de rayon 50, centré aux points graphiques 100x et 100y :

  1. 10 SCREEN 1: CIRCLE(100,100), 50

L'exemple suivant permet de dessinera cercle de rayon 75 au milieu de l'écran :

  1. 10 SCREEN 2: CIRCLE(320,100), 75

L'exemple suivant permet de dessinera 17 ellipses :

  1. 10 CLS
  2. 20 SCREEN 1
  3. 30 FOR R=160 TO 0 STEP-10
  4. 40 CIRCLE (160,100),R,,,,5/18
  5. 50 NEXT

L'exemple suivant permet de dessiner 5 sphères :

  1. 20 GOTO 160
  2. 50 IF VERT GOTO 100
  3. 60 CIRCLE (X,Y),R,C,,,.07
  4. 70 FOR I = 1 TO 5
  5. 80 CIRCLE (X,Y),R,C,,,I*.2:NEXT I
  6. 90 IF VERT THEN RETURN
  7. 100 CIRCLE (X,Y),R,C,,,1.3
  8. 110 CIRCLE (X,Y),R,C,,,1.9
  9. 120 CIRCLE (X,Y),R,C,,,3.6
  10. 130 CIRCLE (X,Y),R,C,,,9.8
  11. 140 IF VERT GOTO 60
  12. 150 RETURN
  13. 160 CLS: SCREEN 1: COLOR 0,1: KEY OFF: VERT=0
  14. 170 X=160: Y=100: C=1: R=50: GOSUB 50
  15. 180 X=30: Y=30: C=2: R=30: GOSUB 50
  16. 190 X=30: Y=169: GOSUB 50
  17. 200 X=289: Y=30: GOSUB 50
  18. 210 X=289: Y=169: GOSUB 50
  19. 220 LINE (30,30)-(289,169),1
  20. 230 LINE (30,169)-(289,30),1
  21. 240 LINE (30,169)-(289,30),1,B
  22. 250 Z$=INKEY$: IF Z$="" THEN 250


Dernière mise à jour : Lundi, le 19 janvier 2015