Español   Ejemplos: Espirógrafos

Cambia el espirógrafo a tu gusto

En este programa puedes cambiar los parámetros del espirógrafo para ver distintos tipos de dibujos.

Se simula el dibujo hecho por tres brazos rotatorios (en blanco en la imagen), unidos uno a continuación del otro y que rotan 360° independientemente. Sus longitudes vienen dadas por "r, "s y "t

para empezar
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro subelapiz ocultatortuga
#
  pontortuga 1 # una tortuga para los brazos
  centro poncolorlapiz 5
  ponposicion [0 190] pontortuga 0 bajalapiz
#
  inviertelapiz # Dibujaremos con lapiz invertido
  # Estas son las longitudes de los brazos
  haz "r 90 haz "s 60 haz "t 40
  repitepara [q 0 360 4]
    [ haz "rang :q haz "sang 3*:q + 90
      haz "tang cambiasigno 2*:q -90
      spir :r :rang :s :sang :t :tang
      poncolorlapiz 1 circulo 2
      haz "a posicion
      pontortuga 1 poncolorlapiz 11 ponposicion :a bajalapiz
      pontortuga 0
      si :q=360 [poncolorlapiz 1 circulo 1 alto]
      espera 10
      spir :r :rang :s :sang :t :tang ]
fin

para spir :r :rang :s :sang :t :tang
  subelapiz centro poncolorlapiz blanco bajalapiz circulo 2
  giraizquierda :rang avanza :r circulo 2
  giraizquierda :sang avanza :s circulo 2
  giraizquierda :tang avanza :t
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar