# KTurtle Script for /r/Programming

reset
go 140,300
turnright 90
penwidth 5
forward 120
turnleft 85
repeat 45 {
  forward 1
  turnleft 3
}
go 140,300
direction -5
repeat 45 {
  forward 1
  turnright 3
}
direction 0
go 130,170
repeat 2 {
  $i = 0
  repeat 90 {
    $i = $i + 1
    turnright 1
    forward 1.9 / (90 / $i)
  }
  $i = 90
  repeat 90 {
    turnright 1
    forward 1.9 / (90 / $i)
    $i = $i - 1
  }
}
go 177,180
direction 180
$i = 0
penup
repeat 90 {
  $i = $i + 1
    if $i == 35 {
        pendown
    }
  turnleft 1
  forward .8 / (110 / $i)
}
$i = 90
repeat 55 {
  turnleft 1
  forward .8 / (110 / $i)
  $i = $i - 1
}
go 195,300
direction -90
$i = 0
repeat 90 {
  $i = $i + 1
  turnright 1
  forward 2 / (110 / $i)
}
$i = 90
repeat 22 {
  turnright 1
  forward 2 / (110 / $i)
  $i = $i - 1
}
go 205,300
direction 90
$i = 0
repeat 90 {
  $i = $i + 1
  turnleft 1
  forward 2 / (110 / $i)
}
$i = 90
repeat 22 {
  turnleft 1
  forward 2 / (110 / $i)
  $i = $i - 1
}
go 239,262
direction 90
$i = 0
repeat 90 {
  $i = $i + 1
  turnleft 1
  forward .8 / (110 / $i)
}
$i = 90
repeat 90 {
  turnleft 1
  forward .8 / (110 / $i)
  $i = $i - 1
}
go 161,262
direction -90
$i = 0
repeat 90 {
  $i = $i + 1
  turnright 1
  forward .8 / (110 / $i)
}
$i = 90
repeat 90 {
  turnright 1
  forward .8 / (110 / $i)
  $i = $i - 1
}
go 200,130
direction 12
forward 40
direction 99
forward 40
direction 12
repeat 360 {
  forward 2 * pi * 10 / 360
  turnright 1
}
direction 37
go 265,152
repeat 183 {
  forward 2 * pi * 15 / 360
  turnleft 1
}
direction -37
go 135,152
repeat 183 {
  forward 2 * pi * 15 / 360
  turnright 1
}
go 173, 160
direction 0
penwidth 10
pencolor 255, 0, 0
repeat 36 {
  forward .5
  turnright 10
}
go 223, 160
direction 0
penwidth 10
pencolor 255, 0, 0
repeat 36 {
  forward .5
  turnright 10
}
go 0,0
direction 0