A Hat - Archimedes Spiral

[SierraKen]

C128 Version Posted On FaceBook Group: Basic Programming Language by Francesco Ferri
Edited for QB64pe by SierraKen

Code: (Select All)

'Hat - Archimedes' Spiral

'C128 Version Posted On FaceBook Group: Basic Programming Language by Francesco Ferri

'Edited For QB64pe by SierraKen



Screen _NewImage(800, 600, 32)

xp = 190: yp = 145

xr = 3.14 * 1.5

xf = xr / xp

zf = xr / yp

For ZI = -yp To yp

    ZT = ZI * xp / yp

    XL = Int(Sqr(Abs(xp * xp - ZT * ZT)) + .5)

    For XI = -XL To XL

        XT = Sqr(XI * XI + ZT * ZT) * xf

        YY = (Sin(XT) + Sin(XT * 3) * .4) * yp

        X1 = Int((XI + ZI + 140) / 2)

        Y1 = Int(YY - ZI + 90)

        PSet (X1 + 300, 270 - Y1 + 100), _RGB32(255, 255, 255)

    Next XI

Next ZI

[NakedApe]

Nice. That's pretty cool looking math!

@SierraKen, you said you'd be interested in trying the game I wrote that included your ChatGPT globe code. Check it out here:

The Sentinel

[SierraKen]

Thanks Ape. I replied to your Sentinel post.