Stuff

# KTurtle advertisement :)

reset
canvassize 400,190
penwidth 2

learn K $x,$y {
  dir 0
  pu
  go $x,$y
  pd
  bw 95
  pu
  go $x+35,$y+15
  pd
  dir -140
  fw 53
  bw 10
  tl 87
  fw 150
}

learn T $x,$y {
  pu
  go $x,$y
  pd
  dir 90
  fw 40
  pu
  bw 20
  dir 180
  # vertical line
  pd
  fw 45
 
}

learn u $x,$y {
  pu
  go $x,$y
  pd
  dir 180
  fw 45
  tl 90
  fw 20
  tl 90
  fw 45
}

learn r $x,$y {
  pu
  go $x,$y
  pd
  dir 180
  fw 45
  go $x,$y+6
  dir 90
  fw 20
dir 230
fw 25
dir 130
fw 140


}

learn L $x,$y {
  pu
  dir 180
  go $x,$y
  pd 
  fw 45
  dir 90
  fw 20
}

learn E $x,$y {
  pu
  go $x,$y
  pd
  dir 180 
fw 45 
go $x,$y
dir 90 
fw 25
pu
go $x,$y+22
pd
dir 90 
fw 15
pu
go $x,$y+45
pd
dir 90 
fw 25


}


K 50,15
T 108,50
u 160,50
r 200,50
T 230,50
L 289,50
E 330,50

penup
go 12,180
pendown
dir 0
fontsize 18
print "Educational Programming Environment"

spritehide
spriteshow


penup
go 270,15
pencolor 0, 0, 255
penwidth 1.5

pendown
repeat 8 {
  repeat 4 {
    forward 15
    turnright 30
  }
  repeat 7 {
    forward 10
    turnright 15
  }
  repeat 9 {
    forward 3
    turnright 10
  }
}

penup
go 145, 145
direction 0

pu
go 238,160