xxxxxxxxxx' cube rotator in 11 lines. From a 19 liner by Entropy, shrinked by Antoni Gual'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003'------------------------------------------------------------------------1 IF x1 = 0 THEN SCREEN 13 ELSE r = (r + .01745) + 6.283185 * (r >= 6.283185)2 FOR x = -30 TO 30 STEP 103 FOR y = -30 TO 30 STEP 104 FOR z = -30 TO 30 STEP 105 x1 = ((x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * COS(r) + (y * COS(r) + z * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)6 y1 = ((y * COS(r) + z * SIN(r)) * COS(r) - (x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)7 PSET ((100 * x1 + 160), (100 * y1 + 100)), 31'7 PSET ((100 * (((x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * COS(r) + (y * COS(r) + z * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)) + 160), (100 * (((y * COS(r) + z * SIN(r)) * COS(r) - (x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)) + 100)), 318 NEXT z, y, x9 WAIT &H3DA, 810 LINE (99, 39)-(221, 161), 0, BF11 IF LEN(INKEY$) = 0 THEN GOTO 1| WARN | : | 4 | : | Missing or unsupported method: '1' - ignoring line |
| WARN | : | 10 | : | Missing or unsupported method: '7' - ignoring line |
| WARN | : | 12 | : | Missing or unsupported method: '8' - ignoring line |
| WARN | : | 13 | : | Missing or unsupported method: '9' - ignoring line |
| WARN | : | 14 | : | Missing or unsupported method: '10' - ignoring line |
| WARN | : | 15 | : | Missing or unsupported method: '11' - ignoring line |
| WARN | : | 15 | : | Missing or unsupported method: 'GOTO' |
| ERROR | : | 0 | : | Unexpected identifier 'FOR'
SyntaxError: Unexpected identifier 'FOR'
at new AsyncFunction ( |