SawBlade

[Marc DANIEL]

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

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

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

 

[Marc DANIEL]

Download the APK file

​