'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                      MUELLE CON FORMULAS MATEMATICAS TRIDIMENSIONALES
SCREEN 12

sensibilidad = .03
centrox = 320
centroy = 460

FOR t = 0 TO 172 STEP sensibilidad
   x = 20 * SIN(t)
   y = 9 * COS(t)
   z = 5 * (-t)

   PSET (x + centrox, y + (z / 2) + centroy - 1), 15
   PSET (x + centrox, y + (z / 2) + centroy), 7
   PSET (x + centrox, y + (z / 2) + centroy + 1), 8
   PSET (x + centrox - 1, y + (z / 2) + centroy), 7
   PSET (x + centrox + 1, y + (z / 2) + centroy), 7

NEXT