func intcircles
($x0,$y0,$r1,$x1,$y1,$r2)
Local $xp2, $yp2, $dx, $dy, $d
Local $return[4]
$dx = $x1 - $x0;
$dy = $y1 - $y0;
$d = sqrt(($x1 - $x0)^2 + ($y1 - $y0)^2)
If ($d > ($r1 + $r2)) or ($d < ($r1 - $r2)) Then
SetError(1);unsaluveable
Return $return
EndIf
;Determine the distance from point 0 to point 2.
$a = ($r1^2 - $r2^2 + $d^2) / (2.0 * $d)
;Determine the coordinates of point 2. */
$x2 = $x0 + ($dx * $a/$d);
$y2 = $y0 + ($dy * $a/$d);
;Determine the distance from point 2 to either of the intersection points.
$h = sqrt(($r1*$r1) - ($a*$a))
; Now determine the offsets of the intersection points from point 2.
$rx = -$dy * ($h/$d);
$ry = $dx * ($h/$d);
; Determine the absolute intersection points. ;
$return[0] = ($x2 + $rx);+($d/2)
$return[2] = ($x2 - $rx);+($d/2)
$return[1] = ($y2 + $ry);-($d/2)
$return[3] = ($y2 - $ry);-($d/2)
ConsoleWrite("$a = " & $a & @crlf)
ConsoleWrite("$d = " & $d & @crlf)
ConsoleWrite("$dx = " & $dx & @crlf)
ConsoleWrite("$dy = " & $dy & @crlf)
ConsoleWrite("$return 1 = " & $return[0] & @crlf)
ConsoleWrite("$return 2 = " & $return[1] & @crlf)
ConsoleWrite("$return 3 = " & $return[2] & @crlf)
ConsoleWrite("$return 4 = " & $return[3] & @crlf)
return $return
EndFunc
#include <GUIConstantsEx.au3>
#include <GDIPLus.au3>
#include <WinAPI.au3>
#include <ScreenCapture.au3>
Global $gui, $pic, $circ1x, $circ1y, $circ1r, $s4, $s5, $circ2r, $msg
$gui = GUICreate("Theo test", 800, 600)
$pic = GUICtrlCreatePic("", 0, 0, 600, 600)
GUICtrlCreateLabel("Circle 1 x", 630, 35)
$circ1x = GUICtrlCreateSlider(600, 50, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 400)
GUICtrlCreateLabel("Circle 1 y", 630, 135)
$circ1y = GUICtrlCreateSlider(600, 150, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 300)
GUICtrlCreateLabel("Circle 1 radius", 630, 235)
$circ1r = GUICtrlCreateSlider(600, 250, 200, 50)
GUICtrlSetLimit(-1, 300, 10)
GUICtrlSetData(-1, 75)
GUICtrlCreateLabel("Circle 1 x", 630, 335)
$circ2x = GUICtrlCreateSlider(600, 350, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 300)
GUICtrlCreateLabel("Circle 2 y", 630, 435)
$circ2y = GUICtrlCreateSlider(600, 450, 200, 50)
GUICtrlSetLimit(-1, 600, 10)
GUICtrlSetData(-1, 200)
GUICtrlCreateLabel("Circle 2 radius", 630, 535)
$circ2r = GUICtrlCreateSlider(600, 550, 200, 50)
GUICtrlSetLimit(-1, 300, 10)
GUICtrlSetData(-1, 175)
GUISetState()
test
($pic, 400, 300, 75, 300, 200, 175)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $circ1x, $circ1y, $circ1r, $circ2x, $circ2y, $circ2r
refresh
()
EndSwitch
WEnd
Func refresh
()
consolewrite("blarb" & @crlf)
Local $c1x, $c1y, $c1r, $c2x, $c2y, $c2r
$c1x = GUICtrlRead($circ1x)
$c1y = GUICtrlRead($circ1y)
$c1r = GUICtrlRead($circ1r)
$c2x = GUICtrlRead($circ2x)
$c2y = GUICtrlRead($circ2y)
$c2r = GUICtrlRead($circ2r)
$image = test
($pic, $c1x, $c1y, $c1r, $c2x, $c2y, $c2r)
return $image
EndFunc
Func test
($ctrl, $circ1x, $circ1y, $circ1r, $circ2x, $circ2y, $circ2r)
Local $hBmp, $hPen, $hBitmap1, $hGraphic, $hBitmap2, $OldBmp, $one, $two
$hBmp = _WinAPI_CreateBitmap(600, 600, 1, 32)
_GDIPlus_Startup()
$hPen = _GDIPlus_PenCreate(0xFFFFFFFF)
;~ ConsoleWrite("0x" & Hex(200 / $lines + 55,2) & "FFFFFF" & @crlf)
$hBitmap1 = _GDIPlus_BitmapCreateFromHBITMAP($hBmp)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hBitmap1)
_GDIPlus_GraphicsSetSmoothingMode($hGraphic, 4)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $circ1x - ($circ1r), $circ1y - ($circ1r), $circ1r*2, $circ1r*2, $hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $circ2x - ($circ2r), $circ2y - ($circ2r), $circ2r*2, $circ2r*2, $hPen)
$var = intcircles
($circ1x, $circ1y, $circ1r, $circ2x, $circ2y, $circ2r)
_GDIPlus_GraphicsDrawEllipse($hGraphic,$var[0] - 5,$var[1] - 5,10,10,$hPen)
_GDIPlus_GraphicsDrawEllipse($hGraphic,$var[2] - 5,$var[3] - 5,10,10,$hPen)
$hBitmap2 = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap1)
$oldbmp = GUICtrlSendMsg($ctrl, 0x0172, 0, $hBitmap2)
If $OldBmp Then _WinAPI_DeleteObject($OldBmp)
_WinAPI_DeleteObject($hBitmap2)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_BitmapDispose($hBitmap1)
_GDIPlus_PenDispose($hPen)
_GDIPlus_Shutdown()
_WinAPI_DeleteObject($hBmp)
EndFunc ;==>fracircle
Func Angle
($x1, $y1, $Ang, $Length, $round = 0)
If $Ang >= 360 Then $Ang -= 360
Local $Return[2]
$Return[0] = $x1 + ($Length * Cos($Ang / 180 * 3.14159265358979))
$Return[1] = $y1 - ($Length * Sin($Ang / 180 * 3.14159265358979))
If $round = 1 Then
$Return[0] = Round($Return[0])
$Return[1] = Round($Return[1])
EndIf
Return $Return
EndFunc ;==>Angle
func intcircles
($x0,$y0,$r1,$x1,$y1,$r2)
Local $xp2, $yp2, $dx, $dy, $d
Local $return[4]
$dx = $x1 - $x0;
$dy = $y1 - $y0;
$d = sqrt(($x1 - $x0)^2 + ($y1 - $y0)^2)
If ($d > ($r1 + $r2)) or ($d < ($r1 - $r2)) Then
SetError(1);unsaluveable
Return $return
EndIf
;Determine the distance from point 0 to point 2.
$a = ($r1^2 - $r2^2 + $d^2) / (2.0 * $d)
;Determine the coordinates of point 2. */
$x2 = $x0 + ($dx * $a/$d);
$y2 = $y0 + ($dy * $a/$d);
;Determine the distance from point 2 to either of the intersection points.
$h = sqrt(($r1*$r1) - ($a*$a))
; Now determine the offsets of the intersection points from point 2.
$rx = -$dy * ($h/$d);
$ry = $dx * ($h/$d);
; Determine the absolute intersection points. ;
$return[0] = ($x2 + $rx);+($d/2)
$return[2] = ($x2 - $rx);+($d/2)
$return[1] = ($y2 + $ry);-($d/2)
$return[3] = ($y2 - $ry);-($d/2)
ConsoleWrite("$a = " & $a & @crlf)
ConsoleWrite("$d = " & $d & @crlf)
ConsoleWrite("$dx = " & $dx & @crlf)
ConsoleWrite("$dy = " & $dy & @crlf)
ConsoleWrite("$return 1 = " & $return[0] & @crlf)
ConsoleWrite("$return 2 = " & $return[1] & @crlf)
ConsoleWrite("$return 3 = " & $return[2] & @crlf)
ConsoleWrite("$return 4 = " & $return[3] & @crlf)
return $return
EndFunc
