El programa

Nos basaremos en el rectángulo sólido de la sección anterior:

   para rec :alto :ancho
      si :ancho = 0 | :alto =0 [alto]
      repite 2 [av :ancho gd 90 av :alto gd 90]
      rectangulo :alto-1 :ancho-1
   fin

Supondremos aquí que la tortuga parte de la esquina inferior izquierda. Vamos a definir un procedimiento llamado cifra que lee 7 argumentos :a, :b, :c, :d, :e, :f y :g.

• Cuando :a vale 1, dibuja el rectángulo 1. Si :a vale 0, no se dibuja.
• Cuando :b vale 1, dibuja el rectángulo 2. Si :b vale 0, no se dibuja.
• Cuando :c vale 1, dibuja el rectángulo 1. Si :c vale 0, no se dibuja.
• ...

Se obtiene el siguiente procedimiento:

   para cifra :a :b :c :d :e :f :g
         # Dibujamos el rectangulo 1
      si :a=1 [rec 160 40]
         # Dibujamos el rectangulo 2
      si :b=1 [rec 40 160]
      sl gd 90 av 120 gi 90 bl
         # Dibujamos el rectangulo 3
      si :c=1 [rec 160 40]
      sl av 120 bl
         # Dibujamos el rectangulo 5
      si :e=1 [rec 160 40]
         # Dibujamos el rectangulo 4
      gi 90 sl re 40 bl
      si :d=1 [rec 160 40]
         # Dibujamos el rectangulo 6
      gd 90 sl av 120 gi 90 bl
      si :f=1 [rec 160 40]
         # Dibujamos el rectangulo 7
      sl av 120 gi 90 re 40 bl
      si :g=1 [rec 160 40]
   fin