Modelo de una mariposa con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'una senzilla papallona
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment acoloreix :nombre.color
  no.llapis gira.dreta 30
  av 3 llapis
  fes.color :nombre.color pinta
  no.llapis recula 3
  gira.esquerra 30 llapis fes.color 1
fi

procediment ales :radi :nombre.costats
  posa.a "color 13
  id
  repeteix 4 
    [
      dues.circumferències :radi :nombre.costats :color 
      posa.a "radi :radi - 10 posa.a "color :color - 1
    ]
fi

procediment circumferència :radi :nombre.costats :color
  repeteix :nombre.costats 
    [
      avança 2 * pi * :radi / :nombre.costats gira.dreta 360 / :nombre.costats
    ]
  acoloreix :color
fi


procediment dues.circumferències :radi :nombre.costats :color
  repeteix 2 
  [
    circumferència :radi :nombre.costats :color gd 180
  ]
fi

procediment ull :llarg :radi
  av :llarg
  ge 90
  repeteix 100 
    [
      avança 2 * pi * :radi / 100 gira.dreta 360 / 100
    ]
  gd 90
fi

procediment cos.papallona
  recula 60
  av 90
  ge 20
  ull 10 5 acoloreix 1
  recula 10
  gd 40
  ull 10 5 acoloreix 1
fi


procediment papallona :radi :nombre.costats
  ales :radi :nombre.costats
  cos.papallona 
  desapareix
fi

; ---------------------------------------------------------
;Exemple:
% papallona 100 100