+- 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: Alien Eyes Using PSET (/showthread.php?tid=3645)
Alien Eyes Using PSET - SierraKen - 04-28-2025
Just goofing around as usual.
Code: (Select All)
Screen _NewImage(800, 600, 32)
_Limit 2000
Do
tilt = 1
r = 50
g = 100
b = 50
For t = 1 To 200000 Step .01
If t / 60 = Int(t / 60) Then
If tilt < 12 Then
tilt = tilt + .005
g = g + .025
Else
tilt = tilt + 1
End If
End If
seconds = (t - 60)
s = (60 - seconds) * 6 + 180
x = Int(Sin(s / 180 * 3.141592) * 125) + 250
y = Int(Cos(s / 180 * 3.141592) * 125) / tilt + 300
PSet (x, y), _RGB32(r, g, b)
PSet (x + 300, y), _RGB32(r, g, b)
Next t
tilt = 1
r = 100
g = 50
b = 50
For t = 1 To 200000 Step .01
If t / 60 = Int(t / 60) Then
If tilt < 12 Then
tilt = tilt + .005
r = r + .025
Else
tilt = tilt + 1
End If
End If
seconds = (t - 60)
s = (60 - seconds) * 6 + 180
x = Int(Sin(s / 180 * 3.141592) * 125) / tilt + 250
y = Int(Cos(s / 180 * 3.141592) * 125) + 300
PSet (x, y), _RGB32(r, g, b)
PSet (x + 300, y), _RGB32(r, g, b)
Next t
Loop Until InKey$ = Chr$(27)
RE: Alien Eyes Using PSET - bplus - 04-29-2025
Fun! I am gonna try that
RE: Alien Eyes Using PSET - Jack002 - 04-29-2025
Nice squint!!
RE: Alien Eyes Using PSET - SierraKen - 04-29-2025
LOL thanks guys.