mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
19 lines
1 KiB
QBasic
19 lines
1 KiB
QBasic
'-----------------------------------------------------------------------
|
|
'GUJERO2.BAS by Antoni Gual 2/2004
|
|
'For the QBNZ 1/2004 9 liner contest
|
|
'-----------------------------------------------------------------------
|
|
'Tunnel effect (more or less)
|
|
'FFIX recommended. It does compile.
|
|
'-----------------------------------------------------------------------
|
|
'DECLARE SUB ffix
|
|
'ffix
|
|
1 IF i = 0 THEN SCREEN 13 ELSE IF i = 1 THEN OUT &H3C8, 0 ELSE IF i <= 194 THEN OUT &H3C9, INT((i - 2) / 3)
|
|
2 IF i <= 194 THEN GOTO 8
|
|
3 FOR y = -100 TO 99
|
|
4 FOR x = -160 TO 159
|
|
5 IF x >= 0 THEN IF y < 0 THEN alpha = 1.57079632679# + ATN(x / (y + .000001)) ELSE alpha = -ATN(y / (x + .000001)) ELSE IF y < 0 THEN alpha = 1.57079632679# + ATN(x / (y + .000001)) ELSE alpha = -1.57079632679# + ATN(x / (y + .000001))
|
|
6 PSET (x + 160, y + 100), (x * x + y * y) * .00003 * ((INT(-10000 * i + 5.2 * SQR(x * x + y * y)) AND &H3F) XOR (INT((191 * alpha) + 10 * i) AND &H3F))
|
|
7 NEXT x, y
|
|
8 i = i + 1
|
|
9 IF LEN(INKEY$) = 0 THEN GOTO 1
|
|
|