Here is an old program for LOGO turtle :
TO SAWTOOTH
RIGHT 45
FORWARD 56.56
LEFT 135
FORWARD 40
RIGHT 90
END
TO SAWBLADE
REPEAT 12 [ SAWTOOTH RIGHT 30 ]
END
SAWBLADE
TO SAWTOOTH
RIGHT 45
FORWARD 56.56
LEFT 135
FORWARD 40
RIGHT 90
END
TO SAWBLADE
REPEAT 12 [ SAWTOOTH RIGHT 30 ]
END
SAWBLADE
Turtle_Start:
Sub Turtle_Start
Turtle.ClearScreen.Home
Turtle.SetTurtleVisible(True)
Lgv = Turtle.Width
Htv = Turtle.Height
d1 = (Lgv/200)* 56.56
d2 = (Lgv/200)* 40
Lame_de_scie
End Sub
Sawblade:
Sub Sawtooth
Turtle.TurnRight(45)
Turtle.MoveForward(d1)
Turtle.TurnLeft(135)
Turtle.MoveForward(d2)
Turtle.TurnRight(90)
End Sub
Sub Sawblade
For i = 1 To 12
Sawtooth
Turtle.TurnRight(30)
Next
End Sub
Last edited: