Hypnotist[QBasic] 09-27-2013, 06:34 PM
#1
Little script which makes you feel dizzy......
Code:
SCREEN 13
sizex% = 320
sizey% = 200
FOR i% = 0 TO 63
OUT 968, i%
OUT 969, i%
OUT 969, 0
OUT 969, 63 - i%
OUT 968, i% + 64
OUT 969, 63 - i%
OUT 969, i%
OUT 969, 0
OUT 968, i% + 128
OUT 969, 0
OUT 969, 63 - i%
OUT 969, i%
NEXT i%
FOR x% = 0 TO sizex% - 1
FOR y% = 0 TO sizey% - 1
xx% = x% - sizex% / 2
yy% = y% - sizey% / 2
IF xx% = 0 THEN
IF yy% < 0 THEN angle = 270 ELSE angle = 90
ELSE
angle = ATN(yy% / xx%) / (3.1415 / 180)
IF xx% <= 0 THEN angle = angle + 180
IF angle < 0 THEN angle = 360 + angle
END IF
distance% = SQR(xx% ^ 2 + yy% ^ 2)
flush% = INT((angle / 360 * 192 * 2 + distance%) MOD 192)
PSET (x%, y%), flush%
NEXT y%
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT x%
i% = 0
DO
i% = i% + 1
IF i% = 192 THEN i% = 0
FOR a% = 0 TO 63
OUT 968, (a% + i%) MOD 192
OUT 969, a%
OUT 969, 0
OUT 969, 63 - a%
OUT 968, (a% + 64 + i%) MOD 192
OUT 969, 63 - a%
OUT 969, a%
OUT 969, 0
OUT 968, (a% + 128 + i%) MOD 192
OUT 969, 0
OUT 969, 63 - a%
OUT 969, a%
NEXT a%
SOUND 0, .1
LOOP UNTIL INKEY$ = CHR$(27)![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
![[Image: wvBFmA5.png]](http://i.imgur.com/wvBFmA5.png)
