PSET "hat" graphic from old ad in BYTE

[bplus]

Hi @dcromley

Here is another mod by b+

Code: (Select All)

_Title "Hat - b+ mod of dcromley's port from atari" '  2022-04-30
' The "hat" - Front-to-back processing
' https://atariage.com/forums/topic/218503-graphics-8-fedora-hat/#comments
' Micro Tech Unlimited ad in Compute Magazine 11/1/81

'Screen 7
'Print _Width, _Height   ' get screen 7 measurements
'End
Const sw = 320, sh = 320 '     rcromley might enjoy a modern look?
Screen _NewImage(sw, sh, 32) ' converting to graphics for millions more color choices
_ScreenMove 500, 250
Color , &HFFBBBB99: Cls
Dim RR(320)
For I = 0 To 320: RR(I) = 193: Next I
XP = 144: XR = 4.71238905: XF = XR / XP
For ZI = 64 To -64 Step -.1
    ZT = ZI * 2.25: ZS = ZT * ZT
    XL = Int(Sqr(20736 - ZS) + 0.5)
    For XI = 0 - XL To XL Step 1.5
        XT = Sqr(XI * XI + ZS) * XF
        YY = (Sin(XT) + Sin(XT * 3) * 0.4) * 56
        X1 = XI + ZI + 160: Y1 = 96 - YY + ZI
        If RR(X1) > Y1 Then
            RR(X1) = Y1
            PSet (X1, Y1 + 80), _RGB32(70 + 2 * x / sw, 45 + 2 * x / sw, 3 * (16 + Y1 / sh)) ' attempt some colorization
        End If
Next XI: Next ZI
Beep: Sleep

I messed up color, need to get z involved and bigger multiplier than 1 for fraction of screen x, y is at. I leave that to another needing to kill time ;-))

I had fun with this thanks, thumbs up to you!