|
|
Post by bplus on Sept 3, 2023 18:25:20 GMT -5
being passed around
_Title "Mod for vince mod for b+" ' b+ 2023-09-03
Dim w, h
w = 640
h = 640
Screen _NewImage(w, h, 32)
_ScreenMove 340, 60
Dim i, t, x, y, p(1 To 4)
p(1) = &HFFFF0000: p(2) = &HFF009900: p(3) = &HFF0000FF: p(4) = &HFFAAFF00
Do
t = t + 0.1
Line (0, 0)-(w, h), &H25000000, BF
For i = 1 To 4
Color p(i)
For x = 0 To w
y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.01)
Circle (x, h / 2 + y), 2
y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.01)
Circle (w / 2 + y, x), 2
Next
Next
_Display
_Limit 30
Loop
Kinda pretty
|
|
|
|
Post by bplus on Sept 6, 2023 6:57:26 GMT -5
Here is Dav's mod:
' Dav's mod of this https://qb64phoenix.com/forum/showthread.php?tid=162&pid=19402#pid19402
Dim w, h
w = 640
h = 640
Screen _NewImage(w, h, 32)
_ScreenMove 340, 60
Dim i, t, x, y
Do
t = t + 0.01
Line (0, 0)-(w, h), _RGBA(0, 0, 0, 25), BF
For i = 1 To 8
Color _RGBA(i * 32, i * 32 * .7, 0, i * 32)
For x = 0 To w
y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.1)
Circle (x, h / 2 + y), i
Circle (w / 2 + y, x), i
Next
Next
_Display
_Limit 30
Loop
|
|
|
|
Post by bplus on Sept 25, 2023 17:07:05 GMT -5
And another:
_Title "Flower Wheel"
Screen _NewImage(600, 600, 12)
Dim o
Do
Cls
o = o + _Pi / 180
drawc _Width / 2, _Height / 2, _Width / 5, .25, 4, o
_Display
_Limit 30
Loop
Sub drawc (x, y, r, a, n, o)
Dim t, xx, yy
If n > 0 Then
For t = 0 To _Pi(2) Step _Pi(1 / 3)
xx = x + r * Cos(t + o)
yy = y + r * Sin(t + o)
Circle (xx, yy), r
drawc xx, yy, a * r, a, n - 1, -o - n * _Pi / 180
Next
End If
End Sub
|
|
|
|
Post by bplus on Sept 26, 2023 19:37:42 GMT -5
And another:
'Option _Explicit
_Title "Tiny Mandelbrot" 'b+ 2021-07-5
Dim y, x, m, r, k, j, l
Screen _NewImage(100, 80, 12)
For y = -35 To 35
For x = -5 To 69
m = 0: r = 0
For k = 0 To 111
j = r ^ 2 - m ^ 2 - 2 + x / 25
m = 2 * r * m + y / 25
r = j
l = (k + 15) Mod 16
If j ^ 2 + m ^ 2 > 11 Then k = 112
Next
PSet (x + 18, y + 40), l
Next
Next
Sleep
|
|
