SawBlade

Marc DANIEL

Well-Known Member
Licensed User
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

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
 

Attachments

  • Schéma.jpg
    Schéma.jpg
    9.5 KB · Views: 108
  • SawBlade.zip
    60.2 KB · Views: 156
Last edited:
Top