Programa 21 - TÚNEL

Código fuente escrito en BASIC para AMSTRAD CPC que dibuja una especie de túnel 3D en menos de 20 lineas.

Código BASIC

10 REM ***********************************
20 REM *** Poligonos ciclo de colores  ***
30 REM ***        FlynnTron1982        ***
40 REM ***         16-12-2019          ***
50 REM ***********************************
60 MODE 1
70 BORDER 0:INK 0,0:INK 1,1:INK 2,6:INK 3,1:CLS
80 DEG
90 ORIGIN 320,200
100 radio=640
110 lados=3
120 FOR t=0 TO 360 STEP 5
130 col=col+1:IF col>3 THEN col=1
140 FOR ang=0 TO 359 STEP 360/lados
150 IF ang=0 THEN MOVE radio*COS(ang+t),radio*SIN(ang+t) ELSE DRAW radio*COS(ang+t),radio*SIN(ang+t),col
160 NEXT ang
170 DRAW radio*COS(t),radio*SIN(t),col
180 MOVE 0,0:FILL col
190 radio=radio-10:IF radio<10 THEN GOTO 210
200 NEXT t
210 INK 1,1:INK 2,6:INK 3,1:FOR t=1 TO 50:NEXT
220 INK 1,6:INK 2,1:INK 3,1:FOR t=1 TO 50:NEXT
230 INK 1,1:INK 2,1:INK 3,6:FOR t=1 TO 50:NEXT
240 GOTO 210