; DrawLOGO - Draw the word "LOGO" on the graphics canvas ; -------- ; the following procedures (drawG, drawL, and drawO) draw a ; letter (the last character of their names). The letters ; are centered in a box that is 100 turtle steps tall and ; 50 turtle steps wide. The lower-left corner of the box ; is the turtle current position. The turtle is returned ; to this position after the letter is drawn. to drawG setheading 0 pendown forward 100 right 90 forward 50 back 50 left 90 back 100 right 90 forward 50 left 90 forward 50 left 90 forward 20 back 20 right 90 back 50 right 90 back 50 end to drawL setheading 0 pendown forward 100 back 100 right 90 forward 50 back 50 end to drawO setheading 90 pendown forward 50 left 90 forward 100 left 90 forward 50 left 90 forward 100 end ; move the turtle right the width of a letter (50 turtle steps) ; and then 15 more for separation spacing to moveRightLetter penup setheading 90 forward 50 forward 15 end ; draw the word: LOGO to drawLOGO drawL moveRightLetter drawO moveRightLetter drawG moveRightLetter drawO end ; MAIN - Program Starts Here ; ---- to main home clean showturtle setheading 0 setpensize 1 drawLogo hideturtle end main