SHARE
TWEET

Untitled

a guest Sep 9th, 2017 164 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # KTurtle Script for /r/Programming
  2.  
  3. reset
  4. go 140,300
  5. turnright 90
  6. penwidth 5
  7. forward 120
  8. turnleft 85
  9. repeat 45 {
  10.   forward 1
  11.   turnleft 3
  12. }
  13. go 140,300
  14. direction -5
  15. repeat 45 {
  16.   forward 1
  17.   turnright 3
  18. }
  19. direction 0
  20. go 130,170
  21. repeat 2 {
  22.   $i = 0
  23.   repeat 90 {
  24.     $i = $i + 1
  25.     turnright 1
  26.     forward 1.9 / (90 / $i)
  27.   }
  28.   $i = 90
  29.   repeat 90 {
  30.     turnright 1
  31.     forward 1.9 / (90 / $i)
  32.     $i = $i - 1
  33.   }
  34. }
  35. go 177,180
  36. direction 180
  37. $i = 0
  38. penup
  39. repeat 90 {
  40.   $i = $i + 1
  41.     if $i == 35 {
  42.         pendown
  43.     }
  44.   turnleft 1
  45.   forward .8 / (110 / $i)
  46. }
  47. $i = 90
  48. repeat 55 {
  49.   turnleft 1
  50.   forward .8 / (110 / $i)
  51.   $i = $i - 1
  52. }
  53. go 195,300
  54. direction -90
  55. $i = 0
  56. repeat 90 {
  57.   $i = $i + 1
  58.   turnright 1
  59.   forward 2 / (110 / $i)
  60. }
  61. $i = 90
  62. repeat 22 {
  63.   turnright 1
  64.   forward 2 / (110 / $i)
  65.   $i = $i - 1
  66. }
  67. go 205,300
  68. direction 90
  69. $i = 0
  70. repeat 90 {
  71.   $i = $i + 1
  72.   turnleft 1
  73.   forward 2 / (110 / $i)
  74. }
  75. $i = 90
  76. repeat 22 {
  77.   turnleft 1
  78.   forward 2 / (110 / $i)
  79.   $i = $i - 1
  80. }
  81. go 239,262
  82. direction 90
  83. $i = 0
  84. repeat 90 {
  85.   $i = $i + 1
  86.   turnleft 1
  87.   forward .8 / (110 / $i)
  88. }
  89. $i = 90
  90. repeat 90 {
  91.   turnleft 1
  92.   forward .8 / (110 / $i)
  93.   $i = $i - 1
  94. }
  95. go 161,262
  96. direction -90
  97. $i = 0
  98. repeat 90 {
  99.   $i = $i + 1
  100.   turnright 1
  101.   forward .8 / (110 / $i)
  102. }
  103. $i = 90
  104. repeat 90 {
  105.   turnright 1
  106.   forward .8 / (110 / $i)
  107.   $i = $i - 1
  108. }
  109. go 200,130
  110. direction 12
  111. forward 40
  112. direction 99
  113. forward 40
  114. direction 12
  115. repeat 360 {
  116.   forward 2 * pi * 10 / 360
  117.   turnright 1
  118. }
  119. direction 37
  120. go 265,152
  121. repeat 183 {
  122.   forward 2 * pi * 15 / 360
  123.   turnleft 1
  124. }
  125. direction -37
  126. go 135,152
  127. repeat 183 {
  128.   forward 2 * pi * 15 / 360
  129.   turnright 1
  130. }
  131. go 173, 160
  132. direction 0
  133. penwidth 10
  134. pencolor 255, 0, 0
  135. repeat 36 {
  136.   forward .5
  137.   turnright 10
  138. }
  139. go 223, 160
  140. direction 0
  141. penwidth 10
  142. pencolor 255, 0, 0
  143. repeat 36 {
  144.   forward .5
  145.   turnright 10
  146. }
  147. go 0,0
  148. direction 0
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top