Code: (Select All)
_Title "Eggs o Dozens" 'b+ 2022-03-30 mod
Randomize Timer
Const Xmax = 1200, Ymax = 400, Pi = _Pi
Screen _NewImage(Xmax, Ymax, 32)
_ScreenMove 100, 100
scale = 96
Do
Cls
For y = 100 To 300 Step 200
For x = 100 To 1100 Step 200
drawEasterEgg x, y, Rnd * .75 * scale + .25 * scale, Rnd * 2 * Pi
Next
Next
_Delay 1
Loop Until _KeyDown(27)
Sub drawEasterEgg (xc, yc, scale, radianAngle)
r = Rnd: g = Rnd: b = Rnd
For x = -1 To 1 Step .01
For y = -1 To 1 Step .01
If x < 0 Then c = c + .0005 Else c = c - .0005
If (x * x + (1.4 ^ x * 1.6 * y) ^ 2 - 1) <= .01 Then
If y > 0 Then
Color _RGB32(128 * (1 - y) + 128 * (1 - y) * Sin(c * r), 128 * (1 - y) + 128 * (1 - y) * Sin(c * g), 127 * (1 - y) + 127 * (1 - y) * Sin(c * b))
Else
Color _RGB32(128 + 128 * Sin(c * r), 128 + 128 * Sin(c * g), 127 + 127 * Sin(c * b))
End If
a = _Atan2(y, x)
d = scale * Sqr(x * x + y * y)
Line (xc + d * Cos(a + radianAngle), yc + d * Sin(a + radianAngle))-Step(1, 1)
End If
Next
Next
End SubHidden in this program is an Easter egg or 2
b = b + ...
