'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                     CUBO TRIDIMENSIONAL EN MOVIMIENTO          
DECLARE SUB CUBO (co!)
DIM SHARED lg(0 TO 10, 1 TO 2)
SCREEN 12
CONST pi = 3.14

sensibilidad = 1.5708
centrox = 320
centroy = 300

lg(0, 1) = 320
lg(0, 2) = 340
lg(1, 1) = 520
lg(1, 2) = 300
lg(3, 1) = 320
lg(3, 2) = 260
lg(4, 1) = 120
lg(4, 2) = 300
DO
   FOR n = 0 TO 1.5708 STEP .05
      CUBO 0
      FOR t = 0 TO 3
         x = 200 * SIN(t * 1.5708 + n) + 320
         y = 50 * COS(t * 1.5708 + n) + 340
         lg(t, 1) = x
         lg(t, 2) = y
         lg(t + 4, 1) = lg(t, 1)
         lg(t + 4, 2) = lg(t, 2) - 250
      NEXT
      CUBO 15
      FOR delay = 1 TO 2000: NEXT
   NEXT
LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB CUBO (co)

LINE (lg(0, 1), lg(0, 2))-(lg(1, 1), lg(1, 2)), co
LINE STEP(0, 0)-(lg(2, 1), lg(2, 2)), co
LINE STEP(0, 0)-(lg(3, 1), lg(3, 2)), co
LINE STEP(0, 0)-(lg(0, 1), lg(0, 2)), co
LINE (lg(0, 1), lg(0, 2))-(lg(4, 1), lg(4, 2)), co
LINE STEP(0, 0)-(lg(5, 1), lg(5, 2)), co
LINE (lg(1, 1), lg(1, 2))-(lg(5, 1), lg(5, 2)), co
LINE STEP(0, 0)-(lg(6, 1), lg(6, 2)), co
LINE (lg(2, 1), lg(2, 2))-(lg(6, 1), lg(6, 2)), co
LINE STEP(0, 0)-(lg(7, 1), lg(7, 2)), co
LINE (lg(3, 1), lg(3, 2))-(lg(7, 1), lg(7, 2)), co
LINE STEP(0, 0)-(lg(4, 1), lg(4, 2)), co

END SUB