Disegna il triangolo a partire dal centro di un lato
Continua con 2, 3, 4, …
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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 |