03-21-2024, 12:39 AM
Prank your co-worker with this program.
Code: (Select All)
Screen _ScreenImage
_FullScreen
Do
If InKey$ <> "" Then GoTo sa
Loop
sa:
Screen _NewImage(1920, 1080, 256)
_FullScreen
_MouseHide
Do
For e = 10 To 100
For c = 1 To 10
For w = 0 To 1920 Step e
For i = 0 To 1080 Step 2
x = Sin((i / c) * 3.1415927)
PSet (w + i, (x * w) + 20), 10
PSet (w + i, 1080 - (x * w) + 20), 12
PSet (i, (x * w) + 20), 10
PSet (i, 1080 - (x * w) + 20), 12
PSet (1920 - i, (x * w) + 20), 11
PSet (1920 - i, 1080 - (x * w) + 20), 15
PSet (1920 - i - w, (x * w) + 20), 11
PSet (1920 - i - w, 1080 - (x * w) + 20), 15
If InKey$ <> "" Then System
Next i
Next w
Line (500, 0)-(502, 1080), _RGB(17, 249, 139), BF
Line (550, 0)-(550, 1080), _RGB(17, 249, 139), BF
_Display
Line (0, 0)-(1920, 1080), _RGB(0, 0, 0), BF
'_Delay .00002
Next c
Next e
Loop