pen yellow, 1
dot 5000 
rt 180
fd 100
rt 180
pen green, 3
speed 200
rt 360, 10
lt 45, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 90, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 45, 30
pen null 
fd 100 
pen brown, 3
speed 200
rt 360, 10
lt 45, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 90, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 45, 30
pen null 
fd 100
rt 180
rt 90
fd 50
rt 90
speed Infinity
tree = (size) ->
  if size < 5
    return
  fd size
  lt 30
  tree(size * 3/4)
  rt 60
  tree(size * 3/4)
  lt 30
  bk size

pen green
tree 50
pen null
rt 180
rt 90
fd 150
rt 90
rt 180
fd 100
rt 180
speed Infinity
tree = (size) ->
  if size < 5
    return
  fd size
  lt 30
  tree(size * 3/4)
  rt 60
  tree(size * 3/4)
  lt 30
  bk size

pen green
tree 50
pen null 
speed 5000
rt 90
fd 400
rt 90
rt 180
fd 250
rt 180
pen blue
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
pen null
rt 90
fd 250
rt 90
fd 300
rt 90 
fd 400
lt 90
fd 300
rt 180
pen blue
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
dot 250
fd 50
pen null
rt 90
fd 600
rt 90
fd 200
speed Infinity
tree = (size) ->
  if size < 5
    return
  fd size
  lt 30
  tree(size * 3/4)
  rt 60
  tree(size * 3/4)
  lt 30
  bk size

pen green
tree 50
pen null
rt 90
fd 250
rt 90
fd 100
speed 200
pen lime, 3
rt 180
speed 200
rt 360, 10
lt 45, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 90, 30
rt 360, 8
lt 90, 50
rt 360, 8
lt 45, 30

t = "[F'F,,A,C,_E,]/Z/"
t2 = "[F,,A,C,_E,]/Z/"
intro = t + t + t + t + t
q1 = "Z/C'/F'/F'/Z/F'C'/C'/C'/_E'/F'/F'"
q2 = "Z/A'/A'/_A'_A'_E'/_E'/_E'/E'/F'/F'"
q3 = "F'F'/Z/_E'/G'/Z/_E'/Z/_E'/E'/E'/F'"
q4 = "=D'/C'/Z/_B/Z/_BA_B/A/F"
a = """
  [F'_E,A,C,F,]_A,/Z/
  [_B,_BD,F,DF]_A,/
  [C,CE,G]_B,/Z/
  [_A,_BD,FA]_B,/_A,/
  """
a2 = """
  [F'_E,A,C,F,]_A,/Z/
  [_B,_BD,F,DF]_A,/
  [C,CE,G]_B,/Z/
  [_A,_BD,FA][E'_B,]/[E'_A,]/E'/
  """
b = """
  [_D_D,F_AC]F/_E/F3/Z/
  [C,C,_EG_BG]FFF/_E/
  [C,C,_EG_BF]FF_E/
  [F,F,C,A_E]ZC/C_E
  """
p = new Piano 0
p.play
  tempo: 140
  song: intro + q1 +
        a + t + q2 +
        a + t + q3 +
        a2 + t2 + q4 +
        a + b + b
pen no, 10
speed Infinity

button "Forward", ->
  fd 50

button "Right", ->
  rt 90
button 'Left', ->
  lt 90
button 'Backwards', ->
  bk 50
keydown 'w', ->
  fd 50
keydown 'd', ->
  rt 90
keydown 'a', ->
  lt 90
keydown 's', ->
  bk 50

t = "[F'F,,A,C,_E,]/Z/"
t2 = "[F,,A,C,_E,]/Z/"
intro = t + t + t + t + t
q1 = "Z/C'/F'/F'/Z/F'C'/C'/C'/_E'/F'/F'"
q2 = "Z/A'/A'/_A'_A'_E'/_E'/_E'/E'/F'/F'"
q3 = "F'F'/Z/_E'/G'/Z/_E'/Z/_E'/E'/E'/F'"
q4 = "=D'/C'/Z/_B/Z/_BA_B/A/F"
a = """
  [F'_E,A,C,F,]_A,/Z/
  [_B,_BD,F,DF]_A,/
  [C,CE,G]_B,/Z/
  [_A,_BD,FA]_B,/_A,/
  """
a2 = """
  [F'_E,A,C,F,]_A,/Z/
  [_B,_BD,F,DF]_A,/
  [C,CE,G]_B,/Z/
  [_A,_BD,FA][E'_B,]/[E'_A,]/E'/
  """
b = """
  [_D_D,F_AC]F/_E/F3/Z/
  [C,C,_EG_BG]FFF/_E/
  [C,C,_EG_BF]FF_E/
  [F,F,C,A_E]ZC/C_E
  """
p = new Piano 0
p.play
  tempo: 140
  song: intro + q1 +
        a + t + q2 +
        a + t + q3 +
        a2 + t2 + q4 +
        a + b + b
pen no, 10
speed Infinity