Piccolo Manuale di LibreLogo

Vedi

• PDF: http://iamarf.ch/unifi/Piccolo-manuale-LibreLogo.pdf
• Blog: https://iamarf.org/category/librelogo/
• GitHub: https://github.com/iamarf/LibreLogo-manual-it
• WikiBooks: https://it.wikibooks.org/wiki/Piccolo_manuale_di_LibreLogo

Andreas R. Formiconi
Piccolo Manuale di LibreLogo
La Geometria della Tartaruga

1. Manuale ragionato di LibreLogo
2. LibreLogo
3. Il problema della matematica
4. Il Logo
5. DISEGNARE
6. RIPETERE
7. INCAPSULARE (sottoprogrammi)
8. DECIDERE
9. LA MAGIA DEI DUE SPECCHI (ricorsione)

5. DISEGNARE

 

39

HOME

40

FORWARD 100

40

FORWARD 50 RIGHT 90
FORWARD 50 RIGHT 90
FORWARD 50 RIGHT 90
FORWARD 50 RIGHT 90

41

FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90

 

42

FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm

43

FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 30
FORWARD 50mm RIGHT 120
FORWARD 50mm RIGHT 30

43

FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 30
FORWARD 50mm RIGHT 120
FORWARD 50mm RIGHT 120
PENCOLOR “red” PENSIZE 5
FORWARD 50mm/3 LEFT 90
FORWARD 50mm/3
PENCOLOR “black” PENSIZE 1

44

FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 30
FORWARD 50mm RIGHT 120
FORWARD 50mm RIGHT 120
PENUP
FORWARD 50mm/3 LEFT 90
FORWARD 50mm/3
PENDOWN
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90

44

PENCOLOR “green”
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 90
FORWARD 50mm RIGHT 30
PENCOLOR “red”
FORWARD 50mm RIGHT 120
FORWARD 50mm RIGHT 120
PENUP
FORWARD 50mm/3 LEFT 90
FORWARD 50mm/3
PENDOWN
PENCOLOR “blue”
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90
FORWARD 50mm/3 RIGHT 90

45

FORWARD 50mm RIGHT 90 
FORWARD 50mm RIGHT 90 
FORWARD 50mm RIGHT 90 
FORWARD 50mm RIGHT 90 
FORWARD 50mm RIGHT 30 
FILLCOLOR “yellow” FILL
FORWARD 50mm RIGHT 120
FORWARD 50mm RIGHT 120
FILLCOLOR “red” FILL
PENUP
FORWARD 50mm/3 LEFT 90
FORWARD 50mm/3
PENDOWN
FORWARD 50mm/3 RIGHT 90 
FORWARD 50mm/3 RIGHT 90 
FORWARD 50mm/3 RIGHT 90 
FORWARD 50mm/3 RIGHT 90 
FILLCOLOR “green” FILL

45

FORWARD 30mm RIGHT 90
FORWARD 30mm RIGHT 90

46

FORWARD 30mm RIGHT 90
FORWARD 30mm RIGHT 90
FILL

46

FORWARD 30mm RIGHT 90
FORWARD 30mm RIGHT 90
CLOSE

47

FORWARD 30mm RIGHT 90
FORWARD 30mm RIGHT 90
FILL
FORWARD 30mm RIGHT 90
FORWARD 30mm RIGHT 90
CLOSE

49

SQUARE(30mm)

50

FILLCOLOR [255,0,0]
SQUARE(20mm)
FORWARD -10mm RIGHT 90 FORWARD 10mm
FILLCOLOR [255,255,255]
SQUARE(20mm)

50

FILLCOLOR [255,0,0]
SQUARE(20mm)
FORWARD -10mm RIGHT 90 FORWARD 10mm 
FILLCOLOR [255,255,255,255]
SQUARE(20mm)

51

SQUARE 100
CIRCLE 100

52

PENSIZE 2
FILLCOLOR “red”
SQUARE 100
PENUP
RIGHT 90 FORWARD 100*3/4
RIGHT 90 FORWARD 100/4
PENDOWN
SQUARE 100/2
FILLCOLOR “black”
PENUP
LEFT 180 FORWARD 100*5/12
PENDOWN
SQUARE 100/3
PENUP
BACK 100*5/8
PENDOWN
CIRCLE 100/3
PENUP
LEFT 90 FORWARD 100
PENDOWN
CIRCLE 100/3

53

RECTANGLE [160,80]
PENUP FORWARD 10 LEFT 90 FORWARD 10 RIGHT 90 PENDOWN
RECTANGLE [140,60]
PENUP FORWARD 10 LEFT 90 FORWARD 10 RIGHT 90 PENDOWN
RECTANGLE [120,40]
PENUP FORWARD 10 LEFT 90 FORWARD 10 RIGHT 90 PENDOWN
RECTANGLE [100,20]
HIDETURTLE

56

ELLIPSE [120,80]
PENUP FORWARD 10 PENDOWN
ELLIPSE [90,60]
PENUP FORWARD 10 PENDOWN
ELLIPSE [60,40]
PENUP FORWARD 10 PENDOWN
ELLIPSE [30,20]
HIDETURTLE

57

RECTANGLE [100,80,10]

57

FILLCOLOR “invisible”
PENCOLOR “green”
RECTANGLE [200,150, 0]
PENCOLOR “black”
RECTANGLE [200,150, 10]
RECTANGLE [200,150, 20]
RECTANGLE [200,150, 30]
RECTANGLE [200,150, 40]
RECTANGLE [200,150, 50]
RECTANGLE [200,150, 60]
RECTANGLE [200,150, 70]
RECTANGLE [200,150, 80]
RECTANGLE [200,150, 90]
RECTANGLE [200,150, 100]
PENCOLOR “red”
ELLIPSE [200,150]

 

62

PENCOLOR “WHITE”
FONTSIZE 20

p=POSITION
LABEL “POSITION”
BACK 20

LABEL p[0]
BACK 20
LABEL p[1]
BACK 40

p=PAGESIZE
LABEL “PAGESIZE”
BACK 20
LABEL p[0]
BACK 20
LABEL p[1]

63

PENCOLOR “white”
FONTSIZE 20
p=POSITION
LABEL “POSITION”
BACK 20
LABEL p[0]
BACK 20
LABEL p[1]

POSITION [p[0]+100,p[1]-100]
HEADING 0

p=POSITION
LABEL “POSITION”
BACK 20
LABEL p[0]
BACK 20
LABEL p[1]

64

FONTSIZE 20

HOME HEADING 0 PENDOWN
FORWARD 100 CIRCLE 10
PENUP FORWARD 25 HEADING 0 
LABEL “0”

...

6. RIPETERE

73

FORWARD 50mm RIGHT 90°
FORWARD 50mm RIGHT 90°
FORWARD 50mm RIGHT 90°
FORWARD 50mm RIGHT 90°

74

lato=50mm
angolo=90°

FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo

74

lato=50mm 
angolo=120°

FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo

n=5
lato=50mm
angolo=360/n

FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo

n=10
lato=50mm
angolo=360/n

FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo
FORWARD lato RIGHT angolo

77

n=10
perimetro=200mm
lato=perimetro/n
angolo=360/n

REPEAT n [ 
   FORWARD lato
   RIGHT angolo
]

77

n=20
perimetro=200mm
lato=perimetro/n
angolo=360/n

REPEAT n [ 
   FORWARD lato
   RIGHT angolo

CLEARSCREEN
HOME
PENSIZE 2
perimetro=50mm

REPEAT 10 [
   n=REPCOUNT+2
   lato=perimetro/n
   angolo=360/n
   PENUP
   POSITION [60*REPCOUNT, 400]
   HEADING 0
   PENDOWN
   REPEAT n [
      FORWARD lato
      RIGHT angolo
   ]
   FILL
]
HIDETURTLE

CLEARSCREEN
HOME
PENSIZE 2
perimetro=50mm
n=3
riga=400
REPEAT 2 [
   colonna=50
   REPEAT 10 [
      PENUP
      POSITION [colonna, riga]
      HEADING 0
      PENDOWN
      lato=perimetro/n
      angolo=360/n
      REPEAT N [
         FORWARD lato
         RIGHT angolo
      ]
      FILL
      n=n+1
      colonna=colonna+60
   ]
   riga=riga+50
]
HIDETURTLE

83

CLEARSCREEN
HOME
PENSIZE 4
dim=40
angolo=60
angolo2=2*angolo
REPEAT 3 [
   FORWARD dim
   LEFT angolo
   FORWARD dim
   BACK dim
   RIGHT angolo2
   FORWARD dim
   BACK dim
   LEFT angolo
]
HIDETURTLE

83

CLEARSCREEN
HOME
PENSIZE 4
PENCOLOR “blue”
dim=40
angolo=60
angolo2=2*angolo
REPEAT 6 [
   REPEAT 3 [
      FORWARD dim
      LEFT angolo
      FORWARD dim
      BACK dim
      RIGHT angolo2
      FORWARD dim
      BACK dim
      LEFT angolo
   ]
   BACK 3*dim
   RIGHT 60
]
HIDETURTLE

83

CLEARSCREEN
HOME
PENSIZE 2
LATO=30
ANGOLO1=60
ANGOLO2=120
REPEAT 6 [
   FORWARD LATO
   LEFT ANGOLO1
   FORWARD LATO
   RIGHT ANGOLO2
]
FILL
HIDETURTLE

83

CLEARSCREEN
HOME
PENSIZE 2
PERIMETRO=50mm
N=5   ; 6, 7, ...
LATO=PERIMETRO/N
ANGOLO1=360/N
ANGOLO2=2*ANGOLO1
REPEAT N [
   FORWARD LATO
   LEFT ANGOLO1
   FORWARD LATO
   RIGHT ANGOLO2
]
FILL
HIDETURTLE

83

CLEARSCREEN
HOME
LATO=10
REPEAT 100 [
   FORWARD LATO
   RIGHT 90
   LATO=LATO+REPCOUNT/25
]
HIDETURTLE

84

CLEARSCREEN
HOME
N=3
M=13
D=100mm
DELTA=360/M
ANGOLO1=0
ANGOLO2=DELTA
FILLCOLOR “red”
REPEAT N [
   ELLIPSE [D, D, ANGOLO1,ANGOLO2]
   ANGOLO1=ANGOLO1+DELTA
   ANGOLO2=ANGOLO2+DELTA 
]
FILLCOLOR “blue”
REPEAT M-N [
   ELLIPSE [D, D, ANGOLO1,ANGOLO2]
   ANGOLO1=ANGOLO1+DELTA
   ANGOLO2=ANGOLO2+DELTA
]

7. INCAPSULARE

86

CLEARSCREEN
HOME
PENSIZE 2

TO QUADRATO
   REPEAT 4 [
      FORWARD 50
      RIGHT 90
   ]
END

QUADRATO
PENUP RIGHT 90 FORWARD 100 LEFT 90 PENDOWN
QUADRATO

87

CLEARSCREEN
HOME
PENSIZE 2

TO QUADRATO LATO
   REPEAT 4 [
      FORWARD LATO
      RIGHT 90
   ]
END

QUADRATO 50
PENUP RIGHT 90 FORWARD 100 LEFT 90 PENDOWN
QUADRATO 25

88

CLEARSCREEN
HOME
PENSIZE 2

TO QUADRATO LATO
   LATO2=LATO/2
   PENUP LEFT 90 FORWARD LATO2 RIGHT 90 PENDOWN
   FORWARD LATO2 RIGHT 90
   FORWARD LATO RIGHT 90
   FORWARD LATO RIGHT 90
   FORWARD LATO RIGHT 90
   FORWARD LATO2 RIGHT 90
   PENUP FORWARD LATO2 LEFT 90 PENDOWN
END

QUADRATO 50
PENUP RIGHT 90 FORWARD 100 LEFT 90 PENDOWN
QUADRATO 40

88

CLEARSCREEN HOME
PENSIZE 2

TO rettangolo lato1 lato2
   lato12=lato1/2
   lato22=lato2/2
   PENUP LEFT 90 FORWARD lato12 RIGHT 90 PENDOWN
   FORWARD lato22 RIGHT 90
   FORWARD lato1  RIGHT 90
   FORWARD lato2  RIGHT 90
   FORWARD lato1  RIGHT 90
   FORWARD lato22 RIGHT 90
   PENUP FORWARD lato12 LEFT 90 PENDOWN
END

rettangolo 80 60
PENUP RIGHT 90 FORWARD 100 LEFT 90 PENDOWN
rettangolo 60 40

8. DECIDERE

97

TO cerchio
   REPEAT [
      FORWARD 2
      RIGHT 1
   ]
]

cerchio

97

TO cerchio
   REPEAT [
      FORWARD 2
      RIGHT 1
      IF REPCOUNT == 90 [ STOP ]
   ]
]

cerchio

98

CLEARSCREEN HOME SHOWTURTLE HEADING 0
FONTSIZE 20 PENUP

REPEAT 15 [
  a=REPCOUNT
  POSITION [100, 75+a*25] HEADING 0
  LABEL a
  POSITION [150, 75+a*25] HEADING 0
  IF a < 10 AND a != 5 [ LABEL “VERO” ] [ LABEL “FALSO” ]
]

HIDETURTLE

9. LA MAGIA DEI DUE SPECCHI

101

;angolo tra i rami = 50
TO ALBERO ramo
   IF ramo < 2 [ STOP ]
   FORWARD ramo LEFT 50
   ALBERO ramo/2
   RIGHT 100
   ALBERO ramo/2
   LEFT 50 BACK ramo
END

CLEARSCREEN
HOME
ALBERO 200

103

TO ALBERO ramo
   IF ramo < 5 [ 
      FORWARD ramo BACK ramo
      STOP
   ]
   FORWARD ramo/3 LEFT 30
   ALBERO ramo*2/3
   RIGHT 30 FORWARD ramo/6 RIGHT 25
   ALBERO ramo/2
   LEFT 25 FORWARD ramo/3 RIGHT 25
   ALBERO ramo/2
   LEFT 25 FORWARD ramo/6 BACK ramo
END

CLEARSCREEN
HOME
HIDETURTLE ; per velocizzare
ALBERO 200