XLogo

Una maravilla de la naturaleza: el Arco-iris

Este programa dibuja un arco iris. Los colores se eligen desde una lista. Como el añil es un color "especial", lo dejaremos para la tercera versión del ejemplo.

Trazaremos seis bandas de color con la primitiva arco.

para arcoiris # Inicializamos papel, lapiz y tortuga reponetodo pontamañopantalla [400 400] poncolorpapel negro subelapiz ocultatortuga # ponformalapiz 1 pongrosor 10 # lapiz redondeado y grueso haz "cols [1 13 3 2 4 15 ] repitepara [n 1 6] [ poncolorlapiz elemento :n :cols arco (180-12*:n) cambiasigno 90 90 ] fin

Una forma alternativa es que la lista contenga los nombres de los colores, en vez de números:

para arcoiris ponformalapiz 1 pongrosor 10 haz "cols [rojo naranja amarillo verde azul violeta] repitepara [n 1 6] [ poncolorlapiz ejecuta frase (elemento :n :cols) [] arco (180-12*:n) cambiasigno 90 90 ] fin

Finalmente, si usamos una "lista de listas" que contenga la codificación [R V A] de los colores, podemos hacer aparecer el color añil:

para arcoiris ponformalapiz 1 pongrosor 10 haz "cols [ [255 0 0] [255 160 0] [255 255 0] [0 255 0] [0 0 255] [75 0 130] [128 0 255] ] repitepara [n 1 7] [ poncolorlapiz (elemento :n :cols) arco (180-12*:n) cambiasigno 90 90 ] fin