Semejanzas: dibujando casitas de diversos tamaños con WinLogo (LOGO)

; ---------------------------------------------------------
; Semblances: dibuixant casetes 
; de diverses gradàries i d'igual forma
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment cases.decreixents :costat 
  si :costat < 20 [acaba]
  rep 4 [avança :costat gira.dreta 90]
  pinta.façana 9
  teulada :costat
  cases.decreixents :costat - 10
fi

procediment pinta.façana :color
no.llapis gd 45 av 2 llapis fes.color :color pinta
no.llapis recula 2 ge 45 llapis fes.color 1
fi

procediment pinta.teulada :color
no.llapis gd 30 av 2 llapis fes.color :color pinta
no.llapis recula 2 ge 30 llapis fes.color 1
fi

procediment fes.teulada :costat
  av :costat gd 30 
  rep 3 [av :costat gd 120]
fi

procediment teulada :costat
  fes.teulada :costat
  pinta.teulada 10
  no.llapis gd 60 av :costat ge 90 recula :costat llapis
fi

procediment cases.creixents :costat 
  si :costat < 20 [acaba]
  cases.creixents :costat - 10
  rep 4 [avança :costat gira.dreta 90]
  pinta.façana 9
  teulada :costat
fi

procediment cases :costat ;procediment principal
id
no.llapis ge 90 av 200 gd 90 llapis
cases.decreixents :costat
cases.creixents :costat
no.llapis centre llapis
fi 

; ---------------------------------------------------------
cases 60 ;exemple
id