Spiral Creator

[AutoItKing]

I used some of my Algebra 2 skills for this one. The unit Circle. You know: p = [ r cos(ÆŸ) , r sin(ÆŸ) ]

ÆŸ = Theta

Making the unit circle is really easy.

The Unit Circle:

#include<GuiConstants.au3>
$theta = 1
$r = 250
GUICreate("Unit circle",500,500)
GUISetState()
$label = GUICtrlCreateLabel($theta,1,1,20)
While $theta <= 360
    GUICtrlCreatePic("px.bmp",($r*Cos($theta))+(500/2),($r*Sin($theta))+(500/2),1,1)
    $theta += 15
    GUICtrlSetData($label,$theta)
WEnd
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
oÝ÷ ØÚ0¶æ¬¦*ÚØ^®ö¥¹èZ²Ú"ÊÞjÇ°Ø^iÈmëZw+y«N¬²Ö«µçhºÚ'$Èóv¬¶¬r^¬9÷°ëkRªæ«{MQÐT-¹@+)¶©ûNr8ÓQ²)øÓx×íQûMQh÷(uäáÇ(uì"Y欦*Úéí¨º×¥+m¢Ëh¤ò¢ì"²h©¢w­«pYe¢+méâqêí¯+aÇ(u䨢{hrmjÜ©z+_»-çÃÿr^:K(¶­ßÛ²«jZ'iÆ¥réZ¶ÛºÜ!jÖ¢ë@ºÚµ8b²+0«HßÛÞrº"¶®¶­s`¢6æ6ÇVFRfÇC´wV6öç7FçG2æS2fwC°¢b33c·FWFÒ¢b33c¶Ò¢b33c·"ÒçWD&÷gV÷C²gV÷C²ÂgV÷CµvBvÆÂ"&SòBb33·27F'FærfÇVRgV÷C²Ã¢b33c·%òÒçWD&÷gV÷C²gV÷C²ÂgV÷C´'÷r×V6vÆÂ"æ7&V6RâV6FW&FöãògV÷C²Âã"¢b33c¶òÒçWD&÷gV÷C²gV÷C²ÂgV÷C´÷rÖçFW&Föç3ògV÷C²Ã2 ¤uT7&VFRgV÷Cµ7&ÂgV÷C²ÃSÃS ¤uT6WE7FFR¢b33c¶Æ&VÂÒuT7G&Ä7&VFTÆ&VÂb33c·FWFÃà ¥vÆRb33c¶fÇC³Òb33c¶ð uT7G&Ä7&VFU2gV÷C·æ&×gV÷C²Âb33c·"¤6÷2b33c·FWF²Só"Âb33c·"¥6âb33c·FWF²Só"Ã"Ã" b33c·"³Òb33c·%ð b33c·FWF³Ò uT7G&Å6WDFFb33c¶Æ&VÂÂb33c·FWF bb33c·FWFfwC³Ò3cFVâ b33c·FWFÒ b33c¶³Ò VæD`¥tVæ@¥vÆR b33c¶×6rÒuTvWD×6r 7vF6b33c¶×6p 66Rb33c´uTôUdTåEô4Äõ4P W@ VæE7vF6¥tVæ@

You'll need to make a Bitmap that is 1x1 pixels, in any color other than what the GUI color is, preferably black.

Or you can use mine:

px.bmp

Feedback is welcome.

Edited June 19, 2007 by AutoItKing

[AutoItKing]

Uhhh what happened to my theta? Æ? And my arrow? Ummm....

[Skrip]

This is pretty cool, but I don't even know what a therta is. lol

Edited June 17, 2007 by Firestorm

[Achilles]

Nice

Edit: I would suggest making a circular GUI to coincide with the spiral effect

Edited June 17, 2007 by Piano_Man

[PaulIA]

Just a bit of rework so you don't consume all of the AutoIt control IDs (and fix the "=<" bug too):

#include <GuiConstants.au3>

$theta = 1
$r = 250
$hGUI = GUICreate("Unit circle",500,500)
GUISetState()
$hDC = GetDC($hGUI)
$label = GUICtrlCreateLabel($theta,1,1,20)
While $theta <= 360
  SetPixel($hDC, ($r*Cos($theta))+(500/2), ($r*Sin($theta))+(500/2))
  $theta += 1
  GUICtrlSetData($label,$theta)
WEnd

do
until GUIGetMsg() = $GUI_EVENT_CLOSE

Func GetDC($hWnd)
  Local $aResult
  $aResult = DllCall("User32.dll", "hwnd", "GetDC", "hwnd", $hWnd)
  Return $aResult[0]
EndFunc

Func SetPixel($hDC, $iX, $iY, $iColor=0)
  DllCall("GDI32.dll", "int", "SetPixel", "hwnd", $hDC, "int", $iX, "int", $iY, "int", $iColor)
EndFunc

[nfwu]

In a unit circle, for the formula p = [ r cos(Æ) , r sin(Æ) ], r=1.....

Also note that another formula for a unit circle at the origin is x^2 + y^2 = 1

So, what you're really doing is representing 250 pixels as 1 unit.

#)

[Toady]

Here is a script I wrote a while back to draw spirals in MS paint for fun.

Press middle mouse button to draw spiral.

#include <Misc.au3>

HotKeySet("{ESC}","_Exit")
_Singleton("win")
While 1
    Local $pos = MouseGetPos()
    If _IsPressed("04") Then _MouseMoveCircle($pos[0],$pos[1], 1, 7000)
    Sleep(1000/@DesktopRefresh)
WEnd

Func _MouseMoveCircle($x, $y, $r, $t); x coord, y coord, radius, time to loop (milliseconds)
    $tInit = TimerInit()
    MouseDown("left")
    Do
        $timer = TimerDiff($tInit)
        $r += 0.1 ;Increase radius a little bit at a time to make spiral
        MouseMove($x + ($r * Sin($timer/100)), $y + ($r * Cos($timer/100)) ,1)
    Until $timer > $t
    MouseUp("left")
EndFunc

Func _Exit()
    Exit
EndFunc

Edited June 18, 2007 by Toady

[LuckyMurari]

Nice one Toady

[RazerM]

I like that one Toady, an actual continous spiral.

[AutoItKing]

In a unit circle, for the formula p = [ r cos(ÆŸ) , r sin(ÆŸ) ], r=1.....

Also note that another formula for a unit circle at the origin is x^2 + y^2 = 1

So, what you're really doing is representing 250 pixels as 1 unit.

#)

Another formula for a circle is:

(x²+h) + (y²+k) = r²

h is the x coord of the center, and k is the y coord. depending on how you change the r value, the size will change.

Edited June 18, 2007 by AutoItKing

[AutoItKing]

Seems like this topic is DEAD.

[Mast3rpyr0]

O boy i better learn alot this year or when i get to Alg2 im definatly going to fail.

[AutoItKing]

O boy i better learn alot this year or when i get to Alg2 im definatly going to fail.

So how is Algebra for you? Not too hard I hope.

[martin]

Another formula for a circle is:

(x²+h) + (y²+k) = r²

h is the x coord of the center, and k is the y coord. depending on how you change the r value, the size will change.

I don't think it is.

Do you mean

(X - H)² + (Y - K)2 = r²

with Xmax = h + r, Xmin = h - r ?