Español    Ejemplos: Animaciones.

Espirociclos

Una serie de animaciones con el estilo de los espirógrafos.

# Comando de Inicio: empezar
para empezar
# Inicializamos pantalla, lapiz, tortuga, ...
  reponetodo pontamañopantalla [400 400] ocultatortuga
  poncolorpapel negro poncolorlapiz verde subelapiz animacion
#
  haz "w 1
  mientras [cierto]
    [ inicializar poncolorlapiz :a spir ]
  detieneanimacion
fin

para inicializar
  haz "a (1 + azar 7)
  haz "b (1 + azar 5)
  haz "w cambiasigno :w
fin

para spir
  repitepara [r 0 180 4] [
  haz "s (180-:r) haz "theta 0
  subelapiz ponposicion xycurva :r :theta bajalapiz
  repitepara [theta 2 360 2] [ponposicion xycurva :r :theta]
  refrescar limpia] # poner "espera" aqui si va muy rapido
fin

para xycurva :r :theta
  haz "rota :a*:theta
  haz "rotb :b*:theta
  haz "x :r*(sen :rota) + :s*(cos :rotb)*:w
  haz "y :r*(cos :rota) + :s*(sen :rotb)
  devuelve (lista :x :y)
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar