was sollen das denn genau für punkte sein ?? schonmal was von polaren punkten gehört??
Du musst 2*π anstatt 2 nehmen, oder du arbeitest gleich in Grad:
[autoit]Global Const $PI = 3.1415926535897932384626433832795
Global Const $DegToRad = $PI / 180
$mx = 0
$my = 0
$radius = 1
For $i = 0 To 259 Step 1 ; oder auch To 2*$PI
$x = $mx + Cos($i*$DegToRad)*$radius ; dann aber überall nur
$y = $my + Sin($i*$DegToRad)*$radius ; $i statt $i*$DegToRad
;...
Next
MfG, James C.
Hi,
die Punkte auf dem Kreis sind auch ohne trigonometrische Funktionen (sin, cos usw.) zu berechnen.
Kreisfunktion: x²+y²=1 (Einheitskreis) bzw. (x-xm)²+(y-ym)²=r²
#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit];Kreisfunktion: x²+y²=1 bzw. (x-xm)²+(y-ym)²=r²
;Kreisdaten
$mittelpunkt_x = 350
$mittelpunkt_y = 350
$radius = 300
$radius_2 = $radius ^ 2
$hgui = GUICreate("Kreis", 700, 700)
GUISetState()
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hgui)
$hPen = _GDIPlus_PenCreate()
;zu jeder x-Koordinate den passenden Pixel auf der y-Achse bestimmen
For $x = 0 To $radius * 0.7071; 8 mal ein Achtelkreis ergibt einen ganzen Kreis; 0.771 = 1/2 * Wurzel aus 2 = sin(45) = cos(45)
$y = Sqrt(($radius_2) - ($x ^ 2)) ;Punkt auf Kreis berechnen
;einzelne Pixel setzen
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x + $x, $mittelpunkt_y + $y, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x - $x, $mittelpunkt_y + $y, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x + $x, $mittelpunkt_y - $y, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x - $x, $mittelpunkt_y - $y, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x + $y, $mittelpunkt_y - $x, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x + $y, $mittelpunkt_y + $x, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x - $y, $mittelpunkt_y - $x, 1, 1, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x - $y, $mittelpunkt_y + $x, 1, 1, $hPen)
Next
[/autoit] [autoit][/autoit] [autoit];Vergleich zum GDI+ -Kreis, der den vorhergehenden Kreis "übermalt"
Sleep(1000)
$hPen = _GDIPlus_PenCreate(0xFF00FF00,2,2)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $mittelpunkt_x - $radius, $mittelpunkt_y - $radius, $radius * 2, $radius * 2, $hPen)
; Loop until user exits
Do
Until GUIGetMsg() = -3
; Clean up resources
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Für die (schnelle) grafische Darstellung des Kreises ist wichtig, daß jedem "x-Pixel" nicht mehr als die benötigten "y-Pixel" zugeordnet sind!
Daher wird meist nicht ein "ganzer" Kreis berechnet, sondern nur ein Achtel-Kreis, und die Punkte an der x- und y-Achse gespiegelt!
Somit reduziert sich die aufwändige Berechnung auf 12.5%, bzw beschleunigt die Darstelllung um Faktor 8!
Weiterhin besteht der Vorteil, zu zu jeder x-Koordinate auch nur genau eine y-Koordinate berechnen zu müssen.
Denn zwangsläufig benötigt man für die Dastellung eines geschlossenen Kreises mehr als die Anzahl von 4*Radius Pixel, nämlich Wurzel aus 2 (1.414) mal mehr...
