Triangoli 2

Disegna il triangolo a partire dal centro di un lato

Continua con 2, 3, 4, …

Turtle.Speed=10

QUANTI=5
ANGOLO=360/QUANTI
DIM=200
DIM2=DIM/2

Turtle.TurnLeft()
For triangolo=1 To QUANTI   
  Turtle.Move(DIM2)
  Turtle.Turn(120)
  Turtle.Move(DIM)
  Turtle.Turn(120)
  Turtle.Move(DIM)
  Turtle.Turn(120)
  Turtle.Move(DIM2)
  
  Turtle.Turn(ANGOLO)
EndFor