Challenges

[2112]

Doyle Spirals are a bit like crop circles except I made mine more colorful.

I tried a similar thing with crop circles in Proggies some time ago using the Golden Angle 137.5 degrees but the spirals going in opposite directions did not show nearly as clean as here:



Can anyone come close to duplicating this graphic?

Code: (Select All)

handle& = _NewImage(620, 630, 32)

Screen handle&

stars = 360

Dim sr(stars + 1) As Integer 'radius of stars

Dim ss(stars + 1) As Integer 'step speed of stars

Dim sd(stars + 1) As Integer 'degrees of stars

Dim sx(stars + 1) As Single 'x position of stars

Dim sy(stars + 1) As Single 'y position of stars

Dim sxf, syf As Integer 'x,y final position of stars



Dim pi As Single

pi = 360 ' 3.14159

For i = 1 To stars

    ss(i) = 1 'step

    sr(i) = i / 2 '100'radius

    sd(i) = 360 'degrees

    sx(i) = i * (360 / stars) 'x pos

    sy(i) = i * (360 / stars) 'y pos

Next i

Do

    Cls

    For i = stars To 1 Step -1

        If sx(i) < 360 Then sx(i) = sx(i) + ss(i) Else sx(i) = sx(i) - 360

        If sy(i) < 360 Then sy(i) = sy(i) + ss(i) Else sy(i) = sy(i) - 360

        sxf = Sin(pi * sx(i) / sd(i)) * (sr(i) / 1)

        syf = Cos(pi * sy(i) / sd(i)) * (sr(i) / 2) - (360 - i)

        syf2 = Cos(pi * sy(i) / sd(i)) * (sr(i) / 1)

        Line (300 + sxf, 500 + syf)-(302 + sxf, 502 + syf), _RGB(Rnd * 200, 220, 0), BF ' TREE

        Line (300 + sxf / 3, 70 + syf2 / 3)-(301 + sxf / 3, 71 + syf2 / 3), _RGB(150 + Rnd * 100, 150 + Rnd * 100, 0), BF 'STAR

    Next i

    _Delay .01

    _Display

Loop Until InKey$ = Chr$(27)

_AutoDisplay

End