'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                   FLOR TRIDIMENSIONAL
SCREEN 12

sensibilidad = 5
centrox = 300
centroy = 220
desv = 5

FOR t = 1 TO 400 STEP sensibilidad
   FOR u = 1 TO 64 STEP sensibilidad
      x = 200 * COS(t) * COS(u)
      y = 200 * COS(t) * SIN(u)
      z = 200 * SIN(t)
      LINE (320, 240)-(x + (z / desv) + centrox, y + (z / desv) + centroy), 1
      PSET (x + (z / desv) + centrox, y + (z / desv) + centroy), 11
   NEXT
NEXT