Ejercicio de dibujo de formas con WinLogo (LOGO) y empleo de listas (estructuras de datos)

; ---------------------------------------------------------
;    Exercici de dibuix de formes
     (un àncora, en aquest cas) fent ús de llistes
;   
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------

procediment Àncora
  inicia.dibuix
  desapareix
  fes.color 13 fes.gruix 2
  posa.a "punts 
    [
      [-10 -58] [-17 -58] [-48 -40] [-50 -50] «
      [-60 -10] [-37 -30] [-43 -30] [-25 -42] [-6 -45] [-3 40] «
      [-45 42] [-40 52] [-2 52] [-2 60] [-15 70] [0 85] [15 70] «
      [2 60] [2 52] [40 52] [45 42] [3 40] [6 -45] [25 -42] «
      [43 -30] [37 -30] [60 -10] [50 -50] [48 -40] [17 -58] «
      [10 -58] [0 -65]
    ] 
no.llapis posa't primer :punts llapis 
fi

procediment Dibuixa
  si :punts = [][posa't [-10 -58] fes.color 1 acaba]
  posa't primer :punts
  posa.a "punts Sense.primer :punts
  Dibuixa
fi
; ---------------------------------------------------------


% Àncora       
% Dibuixa  
% apareix      
% id