+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Moving Multi-Layered Snowflake (/showthread.php?tid=3268)
Moving Multi-Layered Snowflake - SierraKen - 12-10-2024
Here is just 1 moving snowflake, but very large. I used this to make the Dancing Snowflakes on the other thread.
Code: (Select All)
'By SierraKen
Screen _NewImage(800, 600, 32)
size = 10
x = 400: y = 300
pi = _Pi
tt = -360
a = 1
Do
If tt > 0 Then
tt = tt + .2
End If
If tt < 0 Or tt = 0 Then
tt = tt - .2
End If
If tt > 360 Then
tt = 0
End If
If tt < -360 Then
tt = 0
End If
oldxxx = xxx
oldyyy = yyy
xxx = Sin(tt)
yyy = Cos(tt)
For t = 0 To 360
xx = Sin(t + xxx) * 180 + size + x
yy = Cos(t + yyy) * 180 + size + y
If t = 0 Then
oldxx = xx
oldyy = yy
End If
If t / 4 = Int(t / 4) Then
Line (xx + xxx, yy + yyy)-(oldxx + oldxxx, oldyy + oldyyy), _RGB32(255, 255, 255)
oldxx = xx
oldyy = yy
End If
skip:
Next t
_Delay .1
_Display
Cls
Loop Until InKey$ = Chr$(27)