Español   Ejemplos: Espirógrafos

Damasquinados con XLOGO

Vamos a realizar un damasquinado sencillo con XLOGO.

En lugar de hilos de oro, vamos a trabajar con hilos de colores. Imagina una circunferencia, que sobre ella clavamos 90 clavos equidistantes y que los numeramos en sentido horario desde el situado en la parte superior. A continuación, atamos el hilo en el primer clavo y lo llevamos hacia otro de donde vuelve, no hacia el inicial, sino al que está a su derecha. Desde este sale de nuevo, pero esta vez hacia el que está dos, tres o cuatro clavos a la derecha del que antes era "llegada".

Dicho de otro modo, tenemos clavos de partida y de llegada. En los primeros vamos desplazándonos de uno en uno hacia la derecha, pero de los segundos vamos desplazándonos de dos en dos, siendo la secuencia 1-3, 2-5, 3-7, ... de tres en tres (1-3, 2-6, 3-9, ...) o cuatro en cuatro (1-3, 2-7, 3-11, ...)

El programa dibuja los patrones generados para un incremento de 4, 3 y, finalmente, 2 pasos. Esta secuencia es la mostrada en la imagen.

para empezar
  repitepara [c 4 2 -1]
     [ nuevo hilar :c espera 100]
fin

para nuevo
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga
fin

para hilar :c
  repitepara (frase "t 0 360 (6-:c))
    [ poncolorlapiz angcol :t subelapiz
    # movemos a punto de partida en el circulo
      ponxy 190*seno :t 190*coseno :t bajalapiz
    # movemos a punto de llegada en el circulo
      ponxy 190*seno (:c*:t) 190*coseno (:c*:t)
      espera 10 ]
fin

para angcol :t
  # devuelve lista de rojo, verde, azul
  haz "rojo 127*(1+coseno :t)
  haz "verde 127*(1+coseno(120+:t))
  haz "azul 127*(1+coseno(240+:t))
  devuelve frase lista :rojo :verde :azul
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar