Código Logo

para cambio
sl av 120 gi 90 av 360 bl gd 90
fin

para cuadrado :l
repite 4[av :l gd 90]
fin

para figura :columnas :filas
repite :columnas[cuadrado sl gd 90 av 120 gd 90 bl]
repite :filas[
fin


para figura2
fila cambio fila cambio fila
fin

para fila
repite 3[cuadrado gd 90 sl av 120 bl gi 90]
fin

para pentagono
repite 5 [av 100 gi  72]
fin

para poligono :nlados :lado
haz "angulo 360/:nlados
repite :nlados [av :lado gd :angulo]
fin







para fila
Fin

para mosaico :columnas :filas
Fin

para poligono :nlados :lado
haz "angulo 360/:nlados
repite :nlados [av :lado gd :angulo]
fin

Haz "angulo 120

para cambio :columnas :lado :separacion
haz "salto :columnas*:lado+:columnas*:separacion
haz "retrocede :separacion+:lado
sl gi 90 av :salto gd 90 re :retrocede bl
fin

para cuadrado :lado
repite 4 [av :lado gd 90]
fin


para figura :columnas :filas :lado :separacion
repite :filas [fila :columnas :lado+:separacion cambio :columnas :lado+:separacion]
fin

para fila :columnas :lado :separacion
repite :columnas [cuadrado :lado sl gd 90 av :lado+:separacion gi 90 bl]
fin

Haz "retrocede 220
Haz "salto 440