Trazar una forma con distintos tamaños

Veamos como trazar un cuadrado y un rectángulo con dos tamaños distintos. Ahora volvamos al ejemplo de la casa de la sección y cómo modificar el código para dibujar la casa sin que importen las dimensiones.

El objetivo es pasar un argumento al procedimiento casa para que, según el parámetro, la casa sea más o menos grande. Has de notar que:

• casa 10 dibujará la casa de la sección .
• casa 5 dibujará la casa a escala 0,5.
• casa 20 dibujará una casa con las dimensiones dos veces más grandes

La noción de proporcionalidad se da por conocida. Según el dibujo de la sección , un cuadrado representa 10 pasos. El procedimiento cuadrado era el siguiente:

   para cuadrado
      repite 4 [av 150 gd 90]
   fin

que ahora se va a convertir en:

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

Así, cuando se escriba cuadrado 10, el cuadrado tendá un lado igual a $15\times10=150$ . ¡Las proporciones se mantienen correctamente! De hecho, hay que darse cuenta de que va a ser necesario reescribir todos los procedimientos y cambiar las longitudes de desplazamiento de la siguiente manera.

• 70 se convertirá en 7 * :c
• av 45 se convertirá en av 4.5 * :c
• etc.

Eso hace que, en realidad, ¡sólamente haya que contar el número de cuadrados para cada longitud! Se obtiene:

   para cuadrado :c
      repite 4 [av 15*:c gd 90]
   fin

   para tri :c
      repite 3 [av 15*:c gd 120]
   fin

   para puerta :c
      repite 2 [av 7*:c gd 90 av 5*:c gd 90]
   fin

   para chi :c
      av 5.5*:c gd 90 av 2*:c gd 90 av 2*:c
   fin

   para desp1 :c
      gd 90 av 5*:c gi 90
   fin

   para desp2 :c
      gi 90 av 5*:c gd 90 av 15*:c gd 30
   fin

   para desp3 :c
     sl gd 60 av 2*:c gi 90 av 3.5*:c b1
   fin

   para casa :c
      cuadrado :c desp1 :c puerta :c desp2 :c tri :c desp3 :c chi :c
   fin