Circle()

Syntax

Circle(x, y, Radius [, Farbe])

Zeichnet auf dem aktuellen Ausgabekanal einen ausgefüllten Kreis an der Position 'x, y' mit der Größe des angegebenen Radius. Wenn der optionale Parameter 'Farbe' nicht verwendet wird, benutzt PureBasic die mittels FrontColor() festgelegte Zeichenfarbe. RGB() kann zum Ermitteln eines gültigen Farbwertes benutzt werden. Der aktuelle Ausgabekanal wird mittels StartDrawing() festgelegt.

Beispiel:

  ; Mehrere Kreise in zufälligen Farben
  Width=200
  Height=150 
  If OpenWindow(0, 0, 0, Width, Height, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "Circles")
    If StartDrawing(WindowOutput())
      x = Width/2
      y = Height/2
      For Radius = Height/2 To 10 Step -10
        Circle(x, y, radius ,RGB(Random(255),Random(255),Random(255)))
      Next
      StopDrawing() ; Dies ist nach Abschluss der Zeichenoperationen immer nötig!!! Vergessen Sie dies nie!
    EndIf
    
    Repeat : EventID = WaitWindowEvent() : Until  EventID = #PB_Event_CloseWindow
  EndIf

Unterstützte OS

All