dead_mans_slope.p8

pico-8 cartridge // http://www.pico-8.com
version 14
__lua__
-- dead mans slope
-- @stephan_gfx / @stevelavieties
-- 
-- v0.6
-- skiiiii

-- cool flavor:
-- draw the hat when you crash
-- skis skitter down the mountain
-- birds that fly away when you go by
-- little bit of always falling snow
-- wind?

-- done:
-- don't spawn trees near the player [x]
-- make trees spawn to the left and right as well as up and down [x]
-- add a point counter for back country mode [x]
-- token pass [x]
-- add music [x]
-- rock spawn location [x]
-- make the camera focus on the finish line when you cross it instead of the player in slalom mode [x]
-- fix the player standing back up after crashing [x]
-- bend course to show better which way the player should go [x]
-- use curved lines instead of straight lines [x]
-- penalty for missing gates [x]
-- animation that "pays out" the missed gates penalty on your final time [x]
 -- jump that you can control the height of (like mario) [x]
 -- make skis spread out while jumping [x]
-- kill downarrow hunker down mode [x]
-- a jump system [x]
-- split the spray up into two objects, one underneath the player, one on top
-- can't do ^ because rght now there is one and only one particle bank
-- "z-sorted" tree drawing system [x]
-- tune the brake spray to be lighter [x]
-- pointing down should still give you a bit more gravity than pointing across the mountain [x]
-- when flat, the tuck button should give you a push (rather than the arrows) [x]
-- maybe the up button brakes?  increases the drag on both dimensions? [x]
-- fix interaction of tuck and wedge [x]
-- trail doesn't line up with mogulneer/skis right [x]
-- start facing downwards [x]
-- don't let the player move until they hit a key [x]
-- add starting hut with gate bar that flies up when you hit a button [x]
-- diagonal presses should still point you diagonally [x]
-- where did the music go on the start screen? [x]
-- don't like the way the trail collapses when you're going diagonal down left [x]
-- X under a missed flag instead of an O [x]
-- refactor gate constructor/gate data to need less placeholder [x]
-- moguls, push your skiier up as you go over them. [x]
-- put track names into menu [x]
-- better backcountry score display
-- increase the top speed as the level goes on (backcountry mode)
-- ice that makes you slide [x]
-- holes spawn you below them after a time penalty (+ speed penalty) [x]
-- add pits [x]
-- add ice [x]
-- strip out backcountry mode [x]
-- make trees things that collide with you [x]
-- fix menus after completing a level to go to the next one, replay the current, or go to the main menu [x]
-- menu snow doesn't sit on the text box fully [x]
-- title text above starting gate [x]
-- no shake on crash for some reason [x]
-- some trees aren't spawning outside of the track [x]
-- message on 0 misses "NICE" [x]
-- misses: count up to total instead of down [x]
-- "TRACK SELECT" header on text box [x]
-- DEAD MAN'S SLOPE? [x]
-- token pass [x]

-- today:
-- third level moving holes to that
-- move up menu box (and entire screen, really)
-- adjust size of menubox collider

-- probably not:
-- rotation momentum on jump landing
-- use moguls to impact jump height
-- make missing the end gates also a penalty
-- retune penalties with current speed
-- add crashing to slalom
-- after jumping give a boost to drag against and reduction to drag along to get a bit of a zigzag going
-- a little pop of confetti when you clear a gate would be cool
-- add a "GO!" sprite at the beginning of slalom mode
-- find some way to add a little bit of animation to the trees maybe?  Really static right now
-- add a button prompt with the "dash" button
-- maybe cheering crowds in slalom mode?  something else to help cue you for your progress in the level!
-- retune camera filter (add some x to it too?)
-- maybe move jump to up instead of brake?
-- add sfx
 -- turn 
 -- gate hit
 -- gate miss
 -- end of the slalom
 -- menu select


-- mute_debug = true

-- @{ one euro filter impl, see: http://cristal.univ-lille.fr/~casiez/1euro/
-- 1 euro filter parameters, tuned to make the effect visible
beta = 0.0001
mincutoff = 0.0001
-- mincutoff = 0.0003

function make_one_euro_filt(beta, mincutoff)
 return {
  first_time = true,
  dx = 0,
  rate = 0.0333, --1/30
  mincutoff = mincutoff, -- hz
  beta = beta, -- cutoff slope
  d_cutoff = 0, -- derivative cutoff
  xfilt = make_low_pass_filter(),
  dxfilt = make_low_pass_filter(),
  filter=function(t, x)
   t.dx = t.first_time and 0 or (x - t.xfilt.hatxprev) * t.rate

   local edx = t.dxfilt:filter(t.dx, t:alpha(t.rate, t.d_cutoff))
   local cutoff = mincutoff + beta * abs(edx)

   return t.xfilt:filter(x, t:alpha(t.rate, cutoff))
  end,
  alpha = function(t, rate, cutoff)
   local tau = 1.0 / (2 * 3.14159 * cutoff)
   local te = 1.0 / rate
   return (1.0 / (1.0 + tau/te))
  end
 }
end

function make_low_pass_filter()
 return {
  first_time = true,
  hat_x_prev = nil,
  hat_x = nil,
  filter = function(t, x, alpha)
   if t.first_time then
    t.first_time = false
    t.hat_x_prev = x
   end
   t.hat_x = alpha * x + (1 - alpha) * t.hat_x_prev
   t.hat_x_prev = t.hat_x
   return t.hat_x
  end
 }
end
-- @}

-- { particle stuff
function add_particle(x, y, dx, dy, life, color, ddy, pass)
 particle_array_length += 1

 -- grow if needed
 if (#particle_array < particle_array_length) add(particle_array, 0)
 
 -- insert into the next available spot
 particle_array[particle_array_length] = {x = x, y = y, dx = dx, dy = dy, life = life or 8, color = color or 6, ddy = ddy or 0.0625, pass = pass or 0}
end


function process_particles(at_scope, pass)
 -- @casualeffects particle system
 -- http://casual-effects.com

 -- simulate particles during rendering for efficiency
 local p = 1
 local off = {0,0}
 if at_scope == sp_world and g_cam != nil then
  off = {-g_cam.x + 64, -g_cam.y + 64}
  -- off = {g_cam.x + 64, -g_cam.y + 64}
 end
 pass = pass or 0
 while p <= particle_array_length do
  local particle = particle_array[p]
  if particle.pass == pass then
   
   -- the bitwise expression will have the high (negative) bit set
   -- if either coordinate is negative or greater than 127, or life < 0
   if bor(band(0x8000, particle.life), band(bor(off[1]+particle.x, off[2]+particle.y), 0xff80)) != 0 then

    -- delete dead particles efficiently. pico8 doesn't support
    -- table.setn, so we have to maintain an explicit length variable
    particle_array[p], particle_array[particle_array_length] = particle_array[particle_array_length], nil
    particle_array_length -= 1

   else

    -- draw the particle by directly manipulating the
    -- correct nibble on the screen
    local addr = bor(0x6000, bor(shr(off[1]+particle.x, 1), shl(band(off[2]+particle.y, 0xffff), 6)))
    local pixel_pair = peek(addr)
    if band(off[1]+particle.x, 1) == 1 then
     -- even x; we're writing to the high bits
     pixel_pair = bor(band(pixel_pair, 0x0f), shl(particle.color, 4))
    else
     -- odd x; we're writing to the low bits
     pixel_pair = bor(band(pixel_pair, 0xf0), particle.color)
    end
    poke(addr, pixel_pair)
    
    -- acceleration
    particle.dy += particle.ddy
   
    -- advance state
    particle.x += particle.dx
    particle.y += particle.dy
    particle.life -= 1

    if g_state == ge_state_menu then
     for _, c in pairs(collision_objects) do
      local collision_result = c:collides(particle)
      if collision_result != nil then
       particle.x += collision_result[1]
       particle.y += collision_result[2]
       particle.dy = 0
       particle.dx = 0
      end
     end
    end

    p += 1
   end -- if alive
  else
   p +=1 
  end -- if pass
 end -- while
end

collision_objects = {}
-- }

g_mogulneer_accel = 0.45


-- { debug stuff can be deleted
-- function make_debugmsg()
--  local maxmem=stat(2)
--  local minmem=stat(2)
--  return {
--   space=sp_screen_native,
--   draw=function(t)
--    if mute_debug == true then
--     return
--    end
--    maxmem = max(maxmem, stat(0)/1024)
--    -- minmem = min(minmem, stat(2))
--    color(14)
--    cursor(1,1)
--    print("cpu: ".. stat(1))
--    print("mem: ".. stat(0)/1024)
--    print(" max:" ..maxmem)
--    print("gst: "..state_map[g_state])
--    print("sld: "..repr(g_p1.sliding))
--    -- print("smg: "..repr(g_shake_mag))
--    -- print("shf: "..repr(g_shake_frequency))
--    -- print("lst: "..repr(last_shake))
--    if g_p1 then
--     print("vel: ".. vecmag(g_p1.vel))
--     print("ang: ".. g_p1.angle)
--     -- print("g:  ".. repr(g_p1.perp_dot))
--     print("d_al:  ".. vecmag(g_p1.drag_along))
--     print("d_ag:  ".. vecmag(g_p1.drag_against))
--     print("t_a:  ".. vecmag(g_p1.total_accel))
--     print("g:  ".. vecmag(g_p1.g))
--     if g_p1.amount then
--      print("amt:  ".. g_p1.amount)
--     end
--     print("ice: "..repr(g_p1.is_on_ice == g_tick))
--     -- if not g_p1.svp then
--     --  g_p1.svp = null_v
--     -- end
--     -- print("v_d:  ".. repr(vecdot(g_p1.svp, g_p1.vel)))
--     -- print("d_o: ".. g_cam.delta_offset)
--    end
--   end
--  }
-- end

-- dead code
-- function repr(arg)
--  -- turn any thing into a string (table, boolean, whatever)
--  if type(arg) == "table" then 
--   local retval = " table{ "
--   for k, v in pairs(arg) do
--    retval = retval .. k .. ": ".. repr(v).. ","
--   end
--   retval = retval .. "} "
--   return retval
--  end
--  return tostr(arg)
-- end
-- -- }
--
function make_snow_particles()
 return {
  update=function()
   if g_state == ge_state_menu then
    -- make snow
    add_particle(rnd(128), 0, rnd_centered(0.5), 0.5+rnd(0.3), 270, 7, 0)
   end
  end,
  draw=function()
   process_particles()
  end
 }
end

function spray_particles()
 return {
  start_spray=0,
  add_trail_spray=function()
   local velmag = vecmag(g_p1.vel)

   if velmag < 2 then
    return
   end

   local amount = clamp(remap(velmag, 3, 5, 0, 1))
   local n_trail_pts = #g_p1.trail_points

   for i=0,25 do
    if rnd() < amount or amount > 0.95 then
     local ind = ceil(rnd(min(6, n_trail_pts)))
     local pt = g_p1.trail_points[n_trail_pts - ind] or g_p1

     pos = vecadd(
      vecadd(vecscale(g_p1.ski_vec, rnd_centered(6)), pt),
      vecfromangle(pt.perpendicular, rnd_centered(5))
     )

     add_particle(
      -- pos
      pos.x, pos.y,
      -- vel
      rnd_centered(0.5), 0.5+rnd(0.3),
      270,
      12, -- col
      0 -- pass
     )
    end
   end
  end,
  add_brake_spray=function()
   if not g_p1.sliding then
    return
   end

   -- compute the spray angle
   -- along the perpendicular

   local mag = -min(abs(g_p1.vel_against/1.5), 1)

   for i=0,25 do
    local ski_vec = vecfromangle(g_p1.perpendicular+rnd_centered(0.2),mag)

    local off=vecadd(
     vecscale(g_p1.ski_vec_perp, -3),
     vecscale(g_p1.ski_vec, rnd_centered(6))
    )
    off = vecadd(off, vecrand(4, true))

    local life = 30+rnd(5)

    -- makes bigger chunks some % of the time
    local num_parts = rnd() < 0.25 and 1 or 0

    for i_x=0,num_parts do
     for i_y=0,num_parts do
      add_particle(
        g_p1.x+off.x+i_x,
        g_p1.y+off.y+i_y,
        ski_vec.x,--+rnd(1),
        max(ski_vec.y, -0.5),--+rnd(1),
        life, -- life
        6, -- col
        -0.01, --ddy
        1
       )
     end
    end
   end
  end,
  update=function(t)
   if not g_p1.jumping then
    t:add_trail_spray()
    t:add_brake_spray()
   end
  end,
  draw=function()
   process_particles(sp_world)
  end
 }
end

function make_title()
 return {
  y=-64,
  duration=40,
  start_frame=g_tick-15,
  start=vecmake(-264, -264),
  target=vecmake(8, 20),
  update=function(t)
   local frame = elapsed(t.start_frame)
   if frame < t.duration then
    vecset(t, veclerp(t.start, t.target, smootherstep(frame/t.duration)))

    for j=4,16*8,8 do
     for i=0,15,2 do
      local off=vecadd(t, vecrand(12, true))
      add_particle(
       j+off.x,
       off.y,
       rnd_centered(6),
       1,
       -- 3+rnd(1),
       30+rnd(100),
       7,
       0.5 
      )
     end
    end
   end
  end,
  draw=function(t)
   -- spr(128, 0, 0, 16,4)
   -- pushc(-64, -64)
   -- g_cursor_y = -37
   -- g_cursor_y = -47
   -- print_cent("dead", 12)
   -- print_cent("man's", 12)
   -- print_cent("slope", 12)
   spr(216, 44, 0, 3, 1)
   spr(232, 42, 10, 4, 1)
   spr(248, 42, 20, 4, 1)
   palt(3, true)
   palt(0, false)
   spr(230, 48, 30, 2, 2)

   if elapsed(t.start_frame) > t.duration then
    print("by: @stephan_gfx   ", 19, 46, 12)
    print("    @stevelavieties", 19, 54, 12)
    local ic_s = "controls are " .. (ge_inverted_controls and "inverted" or "not inverted")
    print(ic_s, 8, 100, 7)
   end
   palt()
  end,
 }
end

function _init()
 music(-1)
 reset_shake()
 g_flash_end = nil
 g_flash_color =nil 
 particle_array, particle_array_length = {}, 0

 stdinit()
 add_gobjs(make_snow_trans(_title_stuff, 6))
end

function _title_stuff()
 music(-1)
 music(0)

 g_state = ge_state_menu
 stdinit()
 add_gobjs(make_bg(6))
 add_gobjs(make_title())
--  add_gobjs(make_debugmsg())
 add_gobjs(make_snow_particles())
 add_gobjs(
  make_timer(
   10,
   function()
    add(
     collision_objects, 
     {
      x=30,
      y=80,
      width=67,
      height=24,
      collides=function(t, part)
       if (
        part.x > t.x 
        and part.x - t.x < t.width 
        and part.y > t.y and
        part.y - t.y < t.height
        ) then
        return {0, -1}
       end
      end
     }
    )
    add_gobjs(
     make_menu(
      track_names,
      function (t, i, s)
       if i < #tracks then
       function done_func()
        slalom_start(i+1)
       end
       add_gobjs(make_snow_trans(done_func, 7))
       -- add_gobjs(make_debugmsg())
      else
       ge_inverted_controls = not ge_inverted_controls
      end
      end
      )
     )
    end
    )
 )
end

function make_timer(time_to_wait, callback)
 return {
  start=g_tick,
  time_to_wait=time_to_wait,
  callback=callback,
  update=function(t)
   if elapsed(t.start) > t.time_to_wait then
    del(t, g_objs)
    t.callback()
    -- @TODO: why is this not deleting itself?
    t.update = nil
   end
  end
 }
end

function _update()
 stdupdate()
end

function _draw()
 stddraw()
end

-- coordinate systems
sp_world = 0
sp_local = 1
sp_screen_native = 2
sp_screen_center = 3

-- @{ useful utility function for getting started
function add_gobjs(thing)
 return add(g_objs, thing)
end

function ef_out_quart(amount)
 local t = clamp(amount) - 1
 return -1 * (t*t*t*t- 1)
end

function smootherstep(x)
 -- assumes x in [0, 1]
 return x*x*x*(x*(x*6 - 15) + 10);
end

function lerp(input, min_out, max_out)
 return input * (max_out - min_out) + min_out
end

-- assumes coord [0, 1]
-- function bilinear_interp(coord, f00, f01, f10, f11)
--  return (
--   f00 * (1 - coord.x) * (1 - coord.y)
--   + f10 * coord.x * (1 - coord.y)
--   + f01 * (1 - coord.x) * coord.y
--   + f11 * coord.x * coord.y
--  )
-- end

function remap(
 val,
 i_min, 
 i_max,
 o_min,
 o_max
)
 return lerp((val-i_min)/(i_max-i_min), o_min, o_max)
end
-- @}

-- @{ vector library
function vecdraw(v, c, scale, o)
 o = o or null_v

 local end_point = vecadd(o, vecscale(v, scale or 30))
 line(o.x, o.y, end_point.x, end_point.y, c)
 return
end

function rnd_centered(max_val)
 return rnd(max_val)-(max_val/2)
end

function vecrand(scale, center, yscale)
 local result = vecmake(rnd(scale), rnd(yscale or scale))
 if center then
  result = vecsub(result, vecmake(scale/2, (yscale or scale)/2))
 end
 return result
end

function vecmake(xf, yf)
 xf = xf or 0

 return {x=xf, y=(yf or xf)}
end

function veccopy(tgt)
 return vecmake(tgt.x, tgt.y)
end

-- global null vector
null_v = vecmake()

function vecscale(v, m)
 return {x=v.x*m, y=v.y*m}
end

function vecmagsq(v)
 return v.x*v.x+v.y*v.y
end

function vecmag(v, sf)
 if sf then
  v = vecscale(v, sf)
 end
 local result=sqrt(vecmagsq(v))
 if sf then
  result=result/sf
 end
 return result
end

-- function vecnormalized(v)
--  return vecscale(v, 1/vecmag(v))
-- end

function vecdot(a, b)
 return (a.x*b.x+a.y*b.y)
end

function vecadd(a, b)
 return {x=a.x+b.x, y=a.y+b.y}
end

function vecsub(a, b)
 return {x=a.x-b.x, y=a.y-b.y}
end

function vecflr(a)
 return vecmake(flr(a.x), flr(a.y))
end

function vecset(target, source)
 target.x = source.x
 target.y = source.y
end

-- function vecminvec(target, minvec)
--  target.x = min(target.x, minvec.x)
--  target.y = min(target.y, minvec.y)
--  return target
-- end

-- function vecmaxvec(target, maxvec)
--  target.x = max(target.x, maxvec.x)
--  target.y = max(target.y, maxvec.y)
--  return target
-- end

function vecfromangle(angle, mag)
 mag = mag or 1.0
 return vecmake(mag*cos(angle), mag*sin(angle))
end

function veclerp(v1, v2, amount, clamp)
 -- tokens: can compress this with ternary
 local result = vecadd(vecscale(vecsub(v2,v1),amount),v1)
 if clamp and vecmag((vecsub(result,v2))) < clamp then
  result = v2
 end
 return result
end

function clamp(v, min_v, max_v)
 return min(max(v, min_v or 0), max_v or 1)
end

function vecclamp(v, min_v, max_v)
 return vecmake(
  clamp(v.x, min_v.x, max_v.x),
  clamp(v.y, min_v.y, max_v.y)
 )
end
-- @}

-- @{ built in diagnostic stuff
function make_player(p)
 return {
  x=0.1, -- not 0 - that messes the flr up in add_new_trail_point
  y=-3,
  p=p,
  space=sp_world,
  vel=null_v,
  vel_along=0,
  vel_against=0,
  bound_min=vecmake(-3, -4),
  bound_max=vecmake(2,0),
  angle=-0.25, -- ski angle
  perpendicular=0.5,
  turn_start = nil,
  drag_scale = 1,
  ski_vec=null_v,
  ski_vec_perp=null_v,

  skier_state=ge_skier_start,

  trail_points={},
  crashed=false,
  made_timer = false,
  last_push=g_tick,
  c_drag_along=0.02,
  -- c_drag_against=0.1,
  c_drag_against=0.05,
  sliding=false,
  is_on_ice=nil,

  drag_along_multiplier=5,
  drag_against_multiplier=5,

  -- jump
  jumping = nil,
  jump_velocity = 0,
  jump_height= 0,

  -- mogul
  mogul_off = 0,

  -- debug variables
  g=null_v,
  total_accel=null_v,
  drag_along=null_v,
  drag_against=null_v,

  update=function(t)
   -- crash case
   if t.crashed then
    t.vel = vecscale(t.vel, 0.9)
    vecset(t, vecadd(t, t.vel))
    g_cam.drift = true
    g_cam.last_target_point = veccopy(t)
    t.sliding = true
    if not t.made_timer and vecmagsq(t.vel) < 0.1 then
     t.made_timer = true
     add_gobjs(
      make_timer(
       30,
       function()
        t.made_timer = false
        t.vel = null_v
        vecset(t, t.respawn_location)
        t.crashed = false
        t.sliding = false
        t.skier_state = ge_skier_start
        t.angle = -0.25
        g_cam.drift = false
        flash_screen(4, 8)
       end
      )
     )
     -- function done_func()
     --  make_score_screen(g_bc_score, true)
     -- end
     -- add_gobjs(make_snow_trans(done_func, 7, 45))
    end
    return
   end

   if t.skier_state != ge_skier_start then
    t.skier_state = ge_skier_normal
   end

   local tgt_dir = nil
   if btn(0, t.p) then
    -- left
    tgt_dir = ge_inverted_controls and 0 or -0.5
   end 
   if btn(1, t.p) then
    -- right

    if tgt_dir != nil then
     t.skier_state = ge_skier_wedge
    else
     tgt_dir = ge_inverted_controls and -0.5 or 0
    end
   end
   if btn(3, t.p) then
    -- down
    if not tgt_dir then
     tgt_dir = -0.25
    else
     tgt_dir = (tgt_dir -0.25)/2
    end
   end

   if btn(2, t.p) then
    -- up
    -- t.angle = abs(t.angle) < 0.25 and 0 or -0.5
    t.skier_state = ge_skier_wedge
   end

   -- tuck
   if btn(5, t.p) and t.skier_state != ge_skier_wedge then
     t.skier_state = ge_skier_tuck

    if (
     (t.angle <= -0.45 or t.angle >= -0.05)
     and elapsed(t.last_push) > 25 
     and vecmag(t.vel) < 1
    )
    then
     -- push right
     t.vel = vecadd(t.vel, vecfromangle(t.angle, 2.5))
     t.last_push = g_tick
    end
   end

   if t.skier_state == ge_skier_start and not tgt_dir and not jmp then
    return
   elseif t.skier_state == ge_skier_start then
     t.skier_state = ge_skier_normal
   end

   local jmp = btn(4, t.p)
   -- jump button states
   if jmp then
    t.jumping = t.jumping or g_tick
   elseif t.jumping then
    if t.jump_velocity < 0 then
     t.jump_velocity = 0
    elseif t.jump_height == 0 then
     t.jumping = nil
    end
   end

   if t.jumping == g_tick then
    t.jump_velocity = -3.375
    t.jump_height = 0
    -- jump acceleration == mogulneer acceleration for now
   end

   if t.jumping and t.jump_height <= 0 then
    -- apply euler integration to the jump
    t.jump_velocity += g_mogulneer_accel
    t.jump_height += t.jump_velocity

    -- @todo: this jumping model assumes a flat plane.
    -- should compute the slope of the slope and then figure out when
    -- the player crosses the plane of the snow again.  but this might
    -- just work well enough even though it isn't correct.
    -- could just accumulate the y component of the velocity and then
    -- multiply that by the slope of the slope each tick to move the target
    -- height down each tick  as long as the player falls faster than they move down the slope, they'll hit the ground
    if t.jump_height > 0 then
     -- reset the jump
     t.turn_start = g_tick - 20
     t.jump_height = 0
     t.jump_velocity = 0
    end
   end

   -- tuck based turnability scaling
   local turn_amount = (
    (t.jumping and 0.021) 
    or ((t.skier_state == ge_skier_tuck) and 0.011) 
    -- wedge or normal
    or 0.015
   )

   -- sets up the current direction of the skis, "brakes"
   if tgt_dir then
    if t.turn_start == nil then
     t.turn_start = g_tick
    end

    if tgt_dir > t.angle then
     t.angle = min(t.angle + turn_amount, 0)
    elseif tgt_dir < t.angle then
     t.angle = max(t.angle - turn_amount, -0.5)
    end

    t.angle = clamp_to(t.angle, tgt_dir)
   else
    t.turn_start = nil
   end

   -- compute the acceleration
   t.total_accel = t.jumping and null_v or t:acceleration()

   -- euler integration for now
   t.vel = vecadd(t.vel, t.total_accel)
   vecset(t, vecadd(t, t.vel))

   for i=#t.trail_points,1,-1 do
    if (t.y - t.trail_points[i].y > 100) then
     del(t.trail_points, t.trail_points[i])
    end
   end

   t.mogul_off = 0
   for i=1,#g_mountain.p_objs do
    local o = g_mountain.p_objs[i]
    if overlaps_bounds(o, t) and o.overlaps then
     o:overlaps(t)
    end
   end

   t:add_new_trail_point(t)
  end,
  acceleration=function(t)
   -- ski direction unit vector
   local ski_vec = vecfromangle(t.angle)
   t.ski_vec = ski_vec
   local perpendicular = t.angle - 0.25
   if t.angle > -0.25 then
    perpendicular = t.angle + 0.25
   end
   local ski_vec_perp = vecfromangle(perpendicular)
   t.ski_vec_perp = ski_vec_perp
   t.perpendicular = perpendicular

   local drag_along_multiplier = 1
   local drag_against_multiplier = 5

   if t.skier_state == ge_skier_normal then
    drag_along_multiplier = 5
   elseif t.skier_state == ge_skier_wedge then
    drag_along_multiplier = 25
    drag_against_multiplier = 15
   end

   if t.is_on_ice and t.is_on_ice + 1 == g_tick then
    drag_along_multiplier *= 0.5
    drag_against_multiplier *= 0.4
   end

   if t.mogul_off > 0 then
    drag_along_multiplier *= 5
    drag_against_multiplier /= 3
   end

   -- helps with stablility
   t.drag_along_multiplier = lerp(0.3, t.drag_along_multiplier, drag_along_multiplier)
   t.drag_against_multiplier = lerp(0.3, t.drag_against_multiplier, drag_against_multiplier)

   -- component of gravity along the skis (acceleration)

   -- remap angle [0,-0.25], [-0.25, -0.5] to [0, 1]
   local mod_ang = (0.25 - abs(0.25 + t.angle))*4
   -- apply easing 
   local ang_fact = ef_out_quart(mod_ang) 
   -- scale
   local g_accel = ang_fact * g_mogulneer_accel
   -- turn into a vector
   local g = vecscale(ski_vec, g_accel)

   t.ang_fact = ang_fact
   t.g = g

   local vel_along  = vecdot(ski_vec, t.vel)
   t.vel_along = vel_along
   local vel_against = vecdot(ski_vec_perp, t.vel)
   t.vel_against = vel_against

   -- drag along the ski is against the component of velocity along the ski
   t.drag_along = vecscale(
    ski_vec,
    -1 * t.c_drag_along * t.drag_along_multiplier * vel_along*abs(vel_along)
   )

   local drag_scale = 1
   if t.turn_start and elapsed(t.turn_start) < 30 then
    drag_scale = cos(elapsed(t.turn_start)/(2*30))
    drag_scale *= drag_scale
   end
   t.drag_scale = drag_scale

   t.drag_against = vecscale(
    ski_vec_perp,
    -drag_scale * t.c_drag_against * t.drag_against_multiplier * vel_against
   )

   t.sliding = abs(vel_against) > abs(vel_along)

   return vecadd(g, vecadd(t.drag_along, t.drag_against))
  end,
  draw=function(t, _, layername)
   local pose = flr((t.angle + 0.25)*16)

   -- trail renderer
   if layername == "backmost" then
    for i=2,#t.trail_points do
     local real_p1 = t.trail_points[i-1]
     local real_p2 = t.trail_points[i]
     if not real_p1.gap and not real_p2.gap then
      local p1 = vecflr(vecsub(real_p1, t)) -- need to flr to stabilize trail
      local p2 = vecflr(vecsub(real_p2, t))
      for off_mult=-1,1,2 do
       local off_perp = vecfromangle(real_p2.perpendicular, off_mult)
       local p1_off = vecadd(p1, off_perp)
       local p2_off = vecadd(p2, off_perp)
       line(
        -- p1 + offset 
        p1_off.x, p1_off.y,
        -- p2 + offset
        p2_off.x, p2_off.y,
        -- color
        6
       )
      end
     end
    end
    return
   end

   -- skis are in the sprite for the crash case
   if not t.crashed then
    for x_off=-1,1,2 do
     local ang = t.angle
     local offset = 1
     if t.jumping or t.skier_state == ge_skier_wedge then
      ang = t.angle-0.06*x_off
      if t.jumping then
       ang += 0.08*x_off
      end
      offset = 2
     end

     local jump_off = vecmake(0, t.jump_height)
     local turn_off = vecscale(vecmake(cos(ang+0.25*x_off), sin(ang+0.25*x_off)), offset)
     turn_off = vecadd(turn_off, jump_off)

     local first_p = vecscale(vecmake(cos(ang), sin(ang)),4)
     local last_p  = vecscale(first_p, -1)

     first_p = vecadd(first_p, turn_off)
     last_p = vecadd(last_p, turn_off)

     -- mogul offset 
     pushc(0, t.mogul_off)
     line(first_p.x, first_p.y, last_p.x, last_p.y, 4)
     circfill(first_p.x, first_p.y, 1, 8)
     popc()
    end
   end

   -- @TODO: compute the maximum height. should be a quadratic equation.
   if t.jumping then
    local shadow_size = lerp(smootherstep(-t.jump_height/18), 3, 1)
    circfill(0, 0, shadow_size, 5)
   end

   -- if false then
   local offset = 0

   palt(0, false)
   palt(3, true)
   if t.skier_state == ge_skier_tuck then
    palt(14, true)
    palt(13, true)
    offset = 2
   else
    palt(14, false)
    pal(14, 11)
    pal(13, 11)
   end
   local sprn = 17+abs(pose)*2
   if t.crashed then
    sprn = 29
   elseif sprn == 25 and elapsed(t.last_push) < 5 or vecmag(t.vel) < 0.1 then
    -- @todo: do something with the hood when you're not moving... celeste?
    if t.skier_state != ge_skier_start then
     sprn = 27
    else
     sprn = 100
     local frame = flr(g_tick / 41) % 2
     local y_offst = frame == 0 and 0 or 1

     if not t.blink or t.blink == g_tick then
      pal(7, 0)
      t.blink = g_tick + 45+ flr(rnd(120))
     end
     for x_off=-3,3,6 do
      line(x_off, -4+y_offst, x_off, 1+y_offst, 1)
      line(x_off, -3+y_offst, x_off, -3+y_offst, 11)
     end
    end
   end

   -- draw the skier sprite
   pushc(0, t.mogul_off)
   spr(sprn, -8, -11 + offset + t.jump_height, 2, 2, pose < 0)
   popc()
   palt()
   pal()

   g_cursor_y=12
   jump_height_max = max(abs(t.jump_height), jump_height_max)
   -- if not mute_debug then
   -- print_cent("jump_height: " .. t.jump_height, 8)
  -- end
  end,
  add_new_trail_point=function(t, p)
   p = vecadd(vecflr(p), vecmake(1))
   p.gap = t.jumping or t.crashed
   p.perpendicular = t.perpendicular
   local last_point = t.trail_points[#t.trail_points]
   if (
     last_point == nil 
     or last_point.x != p.x 
     or last_point.y != p.y
   ) then
    add(t.trail_points, p)
   end
  end
 }
end

function clamp_to(val_to_clamp, val_to_clamp_to)
 return abs(val_to_clamp - val_to_clamp_to) < 0.015 and val_to_clamp_to or val_to_clamp
end

function make_camera(x,y)
 return {
  x=x or 30,
  y=y or 60,
  low_pass=make_one_euro_filt(beta, mincutoff),
  delta_offset = 0,
  drift = false,
  last_target_point = nil,
  drift_start = nil,
  update=function(t)
   if g_state == ge_state_menu_trans then
    return
   end

   local target_point = null_v

   if g_p1 then
    local offset = 20
    if g_p1.vel then
     offset += g_p1.vel.y*10
    end

    local new_offset = t.low_pass:filter(offset)
    t.delta_offset = new_offset - offset
    target_point = vecadd(g_p1, vecmake(0, new_offset))

    if not t.drift then
     t.last_target_point = target_point
     t.last_vel = g_p1.vel
    else
     t.drift_start = t.drift_start or g_tick

     target_point = t.last_target_point
     if elapsed(t.drift_start) < 20 then
      vecset(
       t.last_target_point,
       vecadd(
        t.last_target_point,
        veclerp(t.last_vel, null_v, elapsed(t.drift_start)/10)
       )
      )
     end
    end
   end

   vecset(t,veclerp(t,target_point,0.2,0.7))

   if g_shake_end and g_tick < g_shake_end then
    if (
     not g_shake_frequency
     or ((g_shake_end - g_tick) % g_shake_frequency) == 0
    ) then
     vecset(t, vecadd(t, vecrand(g_shake_mag, true)))
    end
   end

   -- fix floating point math on the camera  -> integer position
   -- removes "sizzles" in the position of all the objects esp. after
   -- filtering the position of the camera.
   vecset(t, vecflr(t))
  end,
  -- is_visible=function(t, o)
  --  -- uses a circle based visibility check
  --  if not o.vis_r or 
  --   (
  --    (
  --     t.x - 64 - o.vis_r < o.x 
  --     and t.x + 64 + o.vis_r > o.x
  --    ) 
  --    and 
  --    (
  --     t.y - 64 - o.vis_r < o.y 
  --     and t.y + 64 + o.vis_r > o.y
  --    )
  --   ) 
  --  then
  --   return true
  --  end
  --
  --  return false
  -- end,
 }
end
-- @}

ge_inverted_controls = false

-- gate enums
ge_trackitem_start = 0
ge_trackitem_end = 1
ge_trackitem_left = 2
ge_trackitem_right = 3
-- hazards?
ge_trackitem_mogul = 10
-- other stuff
ge_trackitem_text = 20
ge_trackitem_hole = 21
ge_trackitem_ice = 22

ge_state_menu = 0
ge_state_menu_trans = 1
ge_state_playing = 2

ge_skier_normal = 0
ge_skier_tuck = 1
ge_skier_wedge = 2
ge_skier_start = 3
-- skier_state_map = {}
-- skier_state_map[0] = "normal"
-- skier_state_map[1] = "tuck"
-- skier_state_map[2] = "wedge"
-- skier_state_map[3] = "start"

-- -- debug only
-- state_map = {}
-- state_map[0] = "menu"
-- state_map[1] = "menu_trans"
-- state_map[2] = "playing"

-- gate_str_map = {
--  "start",
--  "end",
--  "left",
--  "right",
--  "next",
-- }

-- gate settings
gate_height = 10 
gate_stem_color = 5
gate_flag_height = 4
gate_flag_width = 4
gate_flag_height_offset = 6

-- track data
tracks = {
 { 
  -- big open tutorial level
  name = "first tracks",
  course = {
   -- x offset is from the centerline (x=0), not previous gate
   -- x offset, y distance to last object, gate enum, optional data radius
   {vecmake(), ge_trackitem_start, 32},
   -- {vecmake(-20, 10), ge_trackitem_hole, 8,18},
   {vecmake(-48, 8), ge_trackitem_text, "   press any key\nto start"},
   {vecmake(-16, 64), ge_trackitem_text, "  hold ” \nfor brakes"},
   {vecmake(-48, 70), ge_trackitem_right},
   {vecmake(32, 100)},
   {vecmake(-48, 32), ge_trackitem_text, "  hold — \n to dash "},
   {vecmake(-96, 140)},
   {vecmake(0, 80)},
   {vecmake(-20, 90)},
   -- {vecmake(0, 10), ge_trackitem_ice, 3,3 },
   {vecmake(-45, 60), ge_trackitem_text, "     press Ž \nto jump over the hole!"},
   {vecmake(-45, 80), ge_trackitem_hole, 12, 1},
   {vecmake(-20, 200), ge_trackitem_text, "finish line!"},
   {vecmake(0,   220), ge_trackitem_end, 16},
  }
 },
 { 
  name = "powder days",
  course = {
   -- start
   {vecmake(), ge_trackitem_start, 32},
   {vecmake(-50, 90), ge_trackitem_right},
   {vecmake(50, 90)}, --l 
   {vecmake(200, 80)},
   {vecmake(90, 90)}, --l
   {vecmake(-60, 90)}, 
   {vecmake(-0, 90)}, --l

   {vecmake(0, 90), ge_trackitem_right},
   -- sharp little chicane
   {vecmake(0, 60)},
   {vecmake(0, 60)},
   
   -- long straightaway with holes across
   {vecmake(-30, 40), ge_trackitem_hole, 12, 1},
   {vecmake(-60, 120), ge_trackitem_hole, 12, 4},

   {vecmake(0, 180)},

   -- slalom-y holes you can jump if you're good
   {vecmake(-30, 40), ge_trackitem_hole, 12, 1},
   {vecmake(-60, 120), ge_trackitem_hole, 12, 4},

   -- end
   {vecmake(0,   220), ge_trackitem_end, 16},
  }
 },
 { 
  name = "sunnyside",
  course = {
   -- start
   {vecmake(), ge_trackitem_start, 32},

   -- opening straightaway with ice
   {vecmake(-50, 90), ge_trackitem_right},
   {vecmake(50, 90)}, --l 
   {vecmake(-10, 40), ge_trackitem_ice, 12, 1},

   {vecmake(-50, 90)}, --l 

   -- big turn
   {vecmake(200, 80)},
   {vecmake(90, 90)}, --l
   {vecmake(-60, 90)}, 
   {vecmake(-0, 90)}, --l

   {vecmake(0, 90), ge_trackitem_right},

   -- sharp little chicane
   {vecmake(0, 60)},
   {vecmake(0, 60)},

   -- long straightaway with holes across
   {vecmake(-30, 40), ge_trackitem_hole, 12, 1},
   {vecmake(-60, 120), ge_trackitem_hole, 12, 4},

   {vecmake(0, 180)},

   -- slalom-y holes you can jump if you're good
   {vecmake(-30, 40), ge_trackitem_hole, 12, 1},
   {vecmake(-60, 120), ge_trackitem_hole, 12, 4},

   -- end
   {vecmake(0,   220), ge_trackitem_end, 16},
  }
 }
}
track_names = {}
foreach(tracks, function(t) add(track_names, t.name) end)
add(track_names, "invert controls")

ge_timerstate_stopped = 0
ge_timerstate_running = 1

-- from picotris attack
function make_clock()
 return {
  x=64,
  y=2,
  c=0,
  m=0,
  s=0,
  misses=0,
  state=ge_timerstate_stopped,
  start=function(t)
   t.state = ge_timerstate_running
  end,
  stop=function(t)
   t.state = ge_timerstate_stopped
  end,
  draw=function(t)
   rectfill(-16,-1,16,5,6)
   local mp,sp,cp = '','',''
   if t.m<10 then
    mp=0
   end
   if t.s<10 then
    sp=0
   end
   if t.c < 10 then
    cp=0
   end
   print(mp..t.m..':'..sp..t.s.."."..cp..t.c, -15,0,0)

   local ndigits=6
   if t.misses > 9 then
    ndigits +=1
   end
   if t.misses > 99 then
    ndigits += 1
   end

   local half_len = ndigits/2

   rectfill(-half_len*4, 7, half_len*4, 13, 6)
   print("miss:"..t.misses, -half_len*4+1, 8, 0)
  end,
  increment=function(t, amount)
   for i=1,amount do
    t.c+=1
    --fixed-point math not
    --accurate enough for
    --division of seconds.
    --do addition instead
    if t.c>=30 then
     t.c=0
     t.s+=1
     if t.s>=60 then
      t.s=0
      t.m+=1
     end
    end
   end
  end,
  update=function(t)
   if t.state == ge_timerstate_stopped then
    return
   end
   t:increment(1)
  end,
  inc_missed_gate = function(t)
   t.misses += 1
   shake_screen(min(15*(vecmag(g_p1.vel)/4), 5), 15, 3)
   flash_screen(4, 8)
  end
 }
end

-- final score display
function make_score_display(base_timer, score_mode, track_ind)
 local total_misses = base_timer.misses

 return {
  y=-192,
  start=vecmake(0, -192),
  target=vecmake(0, -4),
  frame=15,
  made=g_tick,
  duration=25,
  space=sp_world,
  update=function(t)
   if t.frame < t.duration then
    vecset(t, veclerp(t.start, t.target, smootherstep(t.frame/t.duration)))
   end

   t.frame += 1
   if t.frame < t.duration then
    for j=-32,32,8 do
     for i=0,30 do
      local off=vecrand(6, true)
      add_particle(
       j+t.x + off.x+rnd_centered(6),
       t.y + off.y+rnd_centered(6),
       0 + rnd_centered(6),
       3+rnd(1),
       8,
       6,
       0.5 
      )
     end
    end
   elseif (
    base_timer.misses 
    and base_timer.misses > 0 
    and t.made and (elapsed(t.made) % 15) == 0
   ) then
    base_timer.misses -= 1
    g_timer:increment(50)
    shake_screen(8, 5)
    flash_screen(4, 8)
    -- stop()
   end

   if (
    t.made 
    and elapsed(t.made) > 45 
    and (score_mode or base_timer.misses == 0)
   ) then
    t.made = nil
    local menu_items = {'try track again'}
    local n_tracks = #tracks
    if track_ind != n_tracks then
     add(menu_items, 'next track')
    end
    add(menu_items, 'main menu')
    add_gobjs(
     make_menu(
      menu_items,
      function (t, i, s)
       local function done_func()
        if i==0 then
         slalom_start(track_ind)
        elseif i==2 or track_ind == n_tracks then
         _title_stuff()
        else
         slalom_start(track_ind+1)
        end
       end
       add_gobjs(make_snow_trans(done_func, 7))
       -- add_gobjs(make_debugmsg())
      end
     )
    )
   end
  end,
  timer_score=function()
   local m_t = 0
   if base_timer.m > 10 then
    m_t = min(9, flr(base_timer.m/10))
   end
   local m_o = base_timer.m - 10*flr(base_timer.m/10)
   -- seconds
   local s_t = 0
   if base_timer.s > 10 then
    s_t = min(9, flr(base_timer.s/10))
   end
   local s_o = base_timer.s - 10*flr(base_timer.s/10)
   -- centoseconds
   local c_t = 0
   if base_timer.c > 10 then
    c_t = min(9, flr(base_timer.c/10))
   end
   local c_o = base_timer.c - 10*flr(base_timer.c/10)
   return {m_t, m_o, 10, s_t, s_o, 10, c_t, c_o}
  end,
  draw=function(t)
   -- minutes
   local gratz_str = "congratulations!"
   local msg_str = score_mode and "your final score was:" or "your final time was:"

   g_cursor_y = -12 
   if score_mode or base_timer.misses == 0 then
    print_cent(gratz_str, 14)
    print_cent(msg_str, 14)
   end
   g_cursor_y = 9
   if not score_mode then
    print_cent("misses: "..(total_misses - base_timer.misses), 14)
   end

   local char_array = {}
   char_array = t:timer_score()

   local x_off = -#char_array*4
   palt(3, true)
   palt(0, false)
   pal(7, 2)
   pal(6, 14)
   for i in all(char_array) do
    spr(196+i, x_off, 0, 1, 1, false, false)
    x_off += 8
   end
   pal()
   palt()
   -- print("p: "..t.x.." "..t.y, -12, 12, 11)
   process_particles(sp_world)
   if total_misses == 0 and t.frame >= t.duration+30 then
    spr(228, 20, 7+3*sin(g_tick/30), 2, 1)
   end
  end
 }
end

function make_score_screen(timer, backcountry_mode, track_ind)
 g_objs = {
  make_bg(7),
  make_score_display(timer, backcountry_mode, track_ind),
  -- make_debugmsg(),
 }
 g_p1 = nil
 g_cam = add_gobjs(make_camera(0,0))
 g_state = ge_state_menu
end

function make_gate(gate_data, accum_y, starter_objects, track_ind)
--  local index = #starter_objects + 1
 local gate_kind = gate_data[2]
 if gate_kind == nil then
  gate_kind = (
   ge_trackitem_right 
   - starter_objects[#starter_objects].gate_kind 
   + ge_trackitem_left
  )
 end
 local gate_border_offset = 0
 if gate_kind == ge_trackitem_right then
  gate_border_offset = 30
 elseif gate_kind == ge_trackitem_left then
  gate_border_offset = -30
 end
 return {
  x=gate_data[1].x,
  y=accum_y,
  gate_border_offset = gate_data[1].x + gate_border_offset,
  radius=gate_data[3],
  gate_kind=gate_kind,
  space=sp_world,
  overlaps = false,
  missed=nil,
  passed=nil,
  spr_ind=68,
  celebrate = false,
  update=function(t)
   -- already passed the gate
   if t.passed or t.missed then
    return
   end

   local flash = false

   if abs(g_p1.y - t.y) < 0.5 then
    t.overlaps = true
   elseif t.overlaps or (g_p1.y < t.y and g_p1.y + g_p1.vel.y > t.y) then
    if t.gate_kind == ge_trackitem_start then
     g_timer:start()
    elseif t.gate_kind == ge_trackitem_end then
     g_timer:stop()
     g_cam.drift = true
     g_cam.last_target_point = veccopy(t)
     function done_func()
      make_score_screen(g_timer, false, track_ind)
     end
     add_gobjs(make_snow_trans(done_func, 7, 45))
     t.celebrate = g_tick
    elseif t.gate_kind == ge_trackitem_left then
     if g_p1.x > t.x  then
      flash = true
     elseif t.passed == nil then
      t.passed = g_tick
     end
     -- stop()
    elseif t.gate_kind == ge_trackitem_right then
     if g_p1.x < t.x then
      flash = true
     elseif t.passed == nil then
      t.passed = g_tick
     end
    end
    t.overlaps = false
   end

   if flash and not t.missed then
    g_timer:inc_missed_gate()
    t.missed = g_tick
   end
  end,
  draw=function(t)
   if abs(t.y - g_cam.y) > 70 then
    return
   end
   if t.gate_kind == ge_trackitem_start or t.gate_kind == ge_trackitem_end then
    -- flag
    for xdir=-1,1,2 do
     -- stem
     line(xdir * t.radius, 0, xdir*t.radius, -gate_height, gate_stem_color)
     for i=1,gate_flag_height do
      -- confetti
      for j=1,2 do
       if t.celebrate then
        add_particle(
         t.x + xdir * t.radius,
         t.y,
         rnd_centered(4),
         -rnd(3)-1,
         10,
         rnd(14)+2,
         0.5
        )
       end
      -- 
      line(
       xdir*t.radius, -gate_flag_height_offset - i,
       xdir*t.radius + xdir*gate_flag_width, -gate_flag_height_offset - i,
       8
      )
      end
     end
    end

    if t.gate_kind == ge_trackitem_start then
     -- label
    g_cursor_y = -27 
    print_cent(""..track_ind..": "..tracks[track_ind].name, 15)
    g_cursor_y = -28 
    print_cent(""..track_ind..": "..tracks[track_ind].name, 14)
   end
   else
    local offset=0
    local flip = false
    if t.gate_kind == ge_trackitem_left then
     flip = true

     -- because the sprite is on the left pixel of a 16 wide sprite
     offset = -15  
     pal(12, 8)
     pal(1, 2)
    end

    if t.missed then
     spr(225, -6, -8, 2, 2)

     if elapsed(t.missed) <= 30 then
      local radius = lerp(elapsed(t.missed)/5, 2, 10)
      circ(0,0,radius, 8)
      circ(0,0,radius+0.5, 8)
     end
    end
    if t.passed != nil and not t.missed then
     if elapsed(t.passed) % 2 == 1 then
      t.spr_ind += 2
     end
     if t.spr_ind == 76 then
      t.passed = nil
     end
    end
    spr(t.spr_ind, offset, -16, 2, 2, flip)
    if flip then
     pal()
    end
   end
  end
 }
end

function make_starting_gate()
 return {
  start_frame=nil,
  space=sp_world,
  update=function(t)
   if not t.start_frame and g_p1.skier_state != ge_skier_start then
    t.start_frame = g_tick
   end
  end,
  draw=function(t)
    -- banner
    line(-11, -18, -11, 0, 1)
    line(11, -18, 11, 0, 1)
    rectfill(-11, -18, 11, -10, 12) 
    rectfill(-10, -17, 10, -11, 1) 
    print("start", -9, -16, 12)

    -- gate
    line(-5, -4, -5, 0, 1)
    line(5, -4, 5, 0, 1)

    -- bar
    local angle = 0.5
    if t.start_frame then
     angle = lerp(ef_out_quart(elapsed(t.start_frame)/20), 0.5, 0.25)
    end

    local start = vecmake(-5, -4)
    local endp = vecadd(start, vecfromangle(angle, -10))
    line(start.x, start.y, endp.x, endp.y, 12)
  end,
 }
end

-- constructor for slalom mode
function slalom_start(track_ind)
 g_state = ge_state_playing
 g_objs = {
  make_bg(7),
  -- make_debugmsg(),
 }

 g_mountain = add_gobjs(make_mountain("slalom", track_ind))
 g_partm    = add_gobjs(spray_particles())
 g_cam      = add_gobjs(make_camera())
 g_p1       = add_gobjs(make_player(0))
 add_gobjs(make_starting_gate())
 g_timer    = add_gobjs(make_clock())
 in_front_of_player       = add_gobjs(
  {
   draw=function()
    process_particles(sp_world, 1)
    g_mountain:draw_in_front_of_player()
   end
  }
 )

 -- start the music
 music(10)
end

ramp = {1, 13, 12, 6, 3, 11, 10}

function make_bg(col)
 col = col or 7

 return {
  draw=function()
   stdclscol(col)
  end
 }
end

-- slalom track borders
function make_line(before, g1, g2, after)
 -- hermitian curves
 local m0 = vecmake(0, 1)
 local m1 = vecmake(0, -1)
 if before then
  m0 = vecsub(g1, before)
 end
 if after then
  m1 = vecsub(after, g2)
 end

 local p0 = vecmake(g1.gate_border_offset, g1.y)
 local p1 = vecmake(g2.gate_border_offset, g2.y)

 local pts = {p0}

 --        p0_t                 m0_t                  p1_t              m1_t
 -- p(t) = (2t^3 - 3t^2 +1)p0 + (t^3 - 2t^2 + t)*m0 + (-2t^3+3t^2)*p1 + (t^3-t^2)*m1

 local curve_points = 10
 local last_point = p0
 for z_prime=1,curve_points,1 do
  local z = z_prime/curve_points
  local p0_t = vecscale(p0, (2*z*z*z - 3*z*z + 1))
  local m0_t = vecscale(m0, (z*z*z - 2*z*z + z))
  local p1_t = vecscale(p1, (-2*z*z*z + 3*z*z))
  local m1_t = vecscale(m1, (z*z*z - z*z))
  last_point = add(pts, vecadd(vecadd(p0_t, m0_t), vecadd(p1_t, m1_t)))
 end

 return {
  space=sp_world,
  g1=g1,
  g2=g2,
  x_coordinte=function(t, y_coordinate)
   local tgt_ind = #pts
   for i=2,#pts do
    if pts[i].y > y_coordinate then
     tgt_ind = i
     break
    end
   end
   local pt1 = pts[tgt_ind-1]
   local pt2 = pts[tgt_ind]
   return (y_coordinate - pt1.y) * (pt2.x - pt1.x) / (pt2.y - pt1.y) + pt1.x
  end,
  draw=function(t)
   if abs(t.g2.y - g_cam.y) > 130 and abs(t.g1.y - g_cam.y) > 130 then
    return
   end

   local last_point = p0
   local colors = {10,9,4,9,10}
   local npts = #pts
   for p_ind = 2,npts,1 do
    local last_point = pts[p_ind-1]
    local p_t = pts[p_ind]

    for offset=-1,1,2 do
     for l_ind=1,5 do
      local i=49+l_ind
      local c = colors[l_ind]
      line(last_point.x+offset*i, last_point.y, p_t.x+offset*i, p_t.y, c)
     end
    end
    last_point = p_t
   end
  end
 }
end

function trackitem_factory(gate_data, accum_x, accum_y)
 local fn = trackitem_map[gate_data[2]]
 if fn then
  return fn(gate_data, accum_x, accum_y)
 end
end

function make_ice_trackitem(gate_data, accum_x, accum_y)
 local size = { gate_data[3],gate_data[4] }
 return {
  x=accum_x+gate_data[1].x,
  y=accum_y+gate_data[1].y,
  space=sp_world,
  size = size,
  bound_min = vecmake(),
  bound_max = vecmake(size[1]*8-1, size[2]*8-1),
  overlaps=function(t, o)
   o.is_on_ice = g_tick
  end,
  draw=function(t)
   palt(0, false)
   -- spr(12, 0, 0)
   rectfill(0,0,t.bound_max.x, t.bound_max.y, 12)

   -- for i=1,t.size[1] do
   --  for j=1,t.size[2] do
   --   -- first draw straight lines
   --   if i == 1 then
   --    spr(55, 0, 0)
   --   elseif i == t.size[1] then
   --    spr(56, 0, 0)
   --   end
   --  end
   -- end

   palt()
   -- bounds rect
   -- rect(
   --  t.bound_min.x, 
   --  t.bound_min.y, 
   --  t.bound_max.x, 
   --  t.bound_max.y, 
   --  11
   -- )
  end,
 }
end

function make_hole_trackitem(gate_data, accum_x, accum_y)
 local size = { gate_data[3],gate_data[4] }
 -- pick random sprites for the sides and corners
 local sprites = {}
 for j=1,size[2] do
  local row = add(sprites, {})
  for i=1,size[1] do
   local sprnum = -1
   if i==1 or i==size[1] or j==1 or j==size[2] then
    sprnum = flr(rnd(4))
   end
   add(row, sprnum)
  end
 end

 return {
  x=accum_x+gate_data[1].x,
  y=accum_y+gate_data[1].y,
  space=sp_world,
  size = size,
  bound_min = vecmake(),
  bound_max = vecmake(size[1]*8-1, size[2]*8-1),
  overlaps=function(t)
   if not g_p1.jumping and not g_p1.crashed then
    g_p1.sliding = false
    g_p1.crashed = true
    shake_screen(min(15*(vecmag(g_p1.vel)/4), 5), 15, 3)
    flash_screen(10, 8)
    g_p1.respawn_location = vecmake(g_p1.x,  t.y + (t.size[2]+1)*8 + 4)
   end
  end,
  draw=function(t)
   palt(0, false)
   pal(3, 0)
   -- spr(12, 0, 0)
   rectfill(0,0,t.bound_max.x, t.bound_max.y, 0)
   palt(0, true)

   for j=1,size[2] do
    local y_off = 8*(j-1)
    for i=1,size[1] do
     local x_off = 8*(i-1)
     local sprnum = sprites[j][i]

     if sprnum >= 0 then
      local sprites_to_draw = {}

      if i==1 then
       add(sprites_to_draw, {52, false, false})
      end

      if i==size[1] then
       add(sprites_to_draw, {52, true, false})
      end

      if j==1 then
       add(sprites_to_draw, {48, false, false})
      end

      if j==size[2] then
       add(sprites_to_draw, {48, false, true})
      end

      if #sprites_to_draw > 1 then
       for c_spec_x in all({1, size[1]}) do
        for c_spec_y in all({1, size[2]}) do
         if i == c_spec_x and j == c_spec_y then
          add(sprites_to_draw, {56, i!=1, j!=1})
         end
        end
       end
      end

      for spr_str in all(sprites_to_draw) do
       local base_spr = spr_str[1]
       local flip_x = spr_str[2]
       local flip_y = spr_str[3]

       if flip_y then
        pal(6, 0)
        pal(5, 0)
       end
       spr(base_spr + sprnum, x_off, y_off, 1, 1, flip_x, flip_y)
       if flip_x or flip_y then
        pal(6, 6)
        pal(5, 5)
       end
      end
     end
    end
   end

   palt()
   pal()
   -- bounds rect
   -- rect(
   --  t.bound_min.x, 
   --  t.bound_min.y, 
   --  t.bound_max.x, 
   --  t.bound_max.y, 
   --  11
   -- )
  end,
 }
end

function make_trackitem_text(gate_data, accum_x, accum_y)
 return {
  x=accum_x+gate_data[1].x,
  y=accum_y+gate_data[1].y,
  space=sp_world,
  text=gate_data[3],
  draw=function(t)
   print(t.text, 0, 1, 15)
   print(t.text, 0, 0, 8)
  end
 }
end

-- function make_trackitem_mogul(gate_data, accum_x, accum_y)
--  return {
--   x=accum_x,
--   y=accum_y,
--   space=sp_world,
--   bound_min = vecmake(-8, -4),
--   bound_max = vecmake(8, 12),
--   overlaps  = function(t, other)
--    -- transform into local space
--    local o = vecsub(vecadd(t, t.bound_min), other)
--
--    local heightmap_coord = vecsub(vecmake(112, 32), o)
--    heightmap_coord = vecclamp(
--     heightmap_coord,
--     vecmake(112, 32),
--     vecmake(127, 47)
--    )
--
--
--    local flr_heightmap_coord = vecflr(heightmap_coord)
--    local height = sget(flr_heightmap_coord.x, flr_heightmap_coord.y) - 1
--    other.mogul_off = height
--   end,
--   draw=function(t)
--    palt(3, true)
--    spr(106, -8, -1, 2, 2)
--    palt()
--   end,
--  }
-- end

-- ? looks like directly putting these in the constructor didn't work
trackitem_map = {}
trackitem_map[ge_trackitem_mogul] = make_trackitem_mogul
trackitem_map[ge_trackitem_text] = make_trackitem_text
trackitem_map[ge_trackitem_hole] = make_hole_trackitem
trackitem_map[ge_trackitem_ice] = make_ice_trackitem

function is_gate(gate_data)
 return not gate_data[2] or gate_data[2] < 10
end

function make_mountain(kind, track_ind)
 local trees = {}
 local starter_objects = {}
 local lines = {}

 if kind == "slalom" then
  local gates = {}
  starter_objects = {}

  -- @todo: add flags and route here
  local accum_y = 0
  for gate in all(tracks[track_ind]["course"]) do
   if is_gate(gate) then
    accum_y += gate[1].y
    add(gates, make_gate(gate, accum_y, gates, track_ind))
   else
    if gate[2] == ge_trackitem_mogul then
     local n_x = gate[3] or 1
     local n_y = gate[4] or 1
     for i=1,n_x do
      for j=1,n_y do
       local accum_x = gate[1].x + 16*(i-1)
       add(trees, trackitem_factory(gate, accum_x, accum_y + 16*(j-1)))
      end
     end
    else
     add(trees, trackitem_factory(gate, 0, accum_y))
    end
   end
  end
  for i=2,#gates do
   add(lines, make_line(gates[i-2], gates[i-1], gates[i], gates[i+1]))
  end
  for l_obj in all(lines) do
   add(starter_objects, l_obj)
  end
  for g_obj in all(gates) do
   add(starter_objects, g_obj)
  end

  local current_line = 1
  -- i want to place trees 80 units back and 80 units forward
  for i=0,16 do
   local y_c = i*10-80
   local l = lines[current_line]
   if y_c > l.g2.y then
    current_line += 1
    l = lines[current_line]
   end
   -- get the boundaries for the height
   for off=-1,1,2 do
    for j=1,4 do
     local off_x = off*90
     local rndloc = vecmake(
      rnd_centered(40) + off_x + l:x_coordinte(y_c),
      rnd_centered(12) + y_c
     )
     add(trees, make_tree(rndloc))
    end
   end
  end
 end
 return {
  sp=sp_world,
  c_objs=starter_objects,
  p_objs=trees,
  lines=lines,
  line_for_height=function(t, y)
   for i=1,#lines do
    if t.lines[i].g2.y > y then
     return t.lines[i] 
    end
   end
   return t.lines[#lines]
  end,
  update=function(t)
   updateobjs(t.p_objs)
   updateobjs(t.c_objs)
  end,
  draw=function(t)
   drawobjs({g_p1}, "backmost")
   drawobjs(t.p_objs, "behind_player")
   drawobjs(t.c_objs)
  end,
  draw_in_front_of_player=function(t)
   drawobjs(t.p_objs, "in_front_player")
  end
 }
end

function flash_screen(duration, c)
 g_flash_end = g_tick + duration + 1
 g_flash_color = c
end

function shake_screen(duration, magnitude, frequency)
 g_shake_end = g_tick + duration + 1
 g_shake_mag = magnitude
 g_shake_frequency = frequency
end

function reset_shake()
 g_shake_end = nil
 g_shake_mag = nil
 g_shake_frequency = nil
end

function respawn_object(t, anywhere)
 if g_cam.y - t.y > 80 then
  t.y += 160
  local flip = rnd(1) > 0.5 and 1 or -1
  local rnd_off = 110 + rnd_centered(60)
  t.x = flip*rnd_off 
  t.x += g_mountain:line_for_height(t.y):x_coordinte(t.y)
  -- end
  -- cycle objects to end of the list, effectively z-sorting the tree list
  del(g_mountain.p_objs, t)
  add(g_mountain.p_objs, t)
 end
end

function make_tree(loc, anywhere)
 return {
  x=loc.x,
  y=loc.y,
  space=sp_world,
  bound_min=vecmake(-2,9),
  bound_max=vecmake(1,12),
  flip=rnd(1) > 0.5,
  height=flr(rnd(24)),
  overlaps=function(t, o)
   if not g_p1.jumping and not g_p1.crashed then
    g_p1.sliding = false
    g_p1.crashed = true
    shake_screen(9, 20, 3)
    -- flash_screen(10, 8)
    g_p1.respawn_location = vecmake(
     g_mountain:line_for_height(t.y):x_coordinte(t.y),
     t.y
    )
   end
  end,
  update=function(t)
   respawn_object(t, anywhere)
  end,
  draw=function(t)
   sspr(
    0, 32, 8, 16, 
    -4 - t.height/8, -4 - t.height,
    8+t.height/4, 16 + t.height,
    t.flip
   )
   -- rect(
   --  t.bound_min.x, 
   --  t.bound_min.y, 
   --  t.bound_max.x, 
   --  t.bound_max.y, 
   --  11
   -- )
  end
 }
end

-- function make_rock(loc)
--  return {
--   x=loc.x,
--   y=loc.y,
--   space=sp_world,
--   radius=3,
--   index=flr(rnd(4)),
--   bound_cent=vecmake(0, 9),
--   update=function(t)
--    respawn_object(t, true)
--   end,
--   draw=function(t)
--    spr(96+t.index, -4, -4, 1, 2)
--   end
--  }
-- end

function overlaps_bounds(fst, snd)
--  if fst == snd or not fst or not snd then
--   return false
--  end
 if not fst.bound_min or not snd.bound_min or 
   not fst.bound_max or not snd.bound_max then
  return false
 end
 -- hb: x0, y0, x1, y1
 
--  local fst_pos = {fst.x, fst.y}
--  local snd_pos = {snd.x, snd.y}
--  local fst_bmin = {fst.bound_min.x, fst.bound_min.y}
--  local fst_bmax = {fst.bound_max.x, fst.bound_max.y}
--  local snd_bmin = {snd.bound_min.x, snd.bound_min.y}
--  local snd_bmax = {snd.bound_max.x, snd.bound_max.y}
 for dim in all({'x','y'}) do
  fst_dim = {
   fst.bound_min[dim] + fst[dim],
   fst.bound_max[dim] + fst[dim]
  }
  snd_dim = {
   snd.bound_min[dim] + snd[dim],
   snd.bound_max[dim] + snd[dim]
  }
  if (
   (fst_dim[2] < snd_dim[1])
   or
   (fst_dim[1] > snd_dim[2])
  ) then
   return false
  end 
 end
 
 return true
end

function print_cent(str, col)
 str = tostr(str)
 print(str, -(#str)*2, g_cursor_y, col or 8)
 g_cursor_y += 6
end
------------------------------

function stdinit()
 g_tick=0    --time
 g_ct=0      --controllers
 g_ctl=0     --last controllers
 g_cs = {}   --camera stack 
 g_objs = {} --objects
end

function stdupdate()
 g_tick = max(0,g_tick+1)
 -- current/last controller
 g_ctl = g_ct
 g_ct = btn()
 updateobjs(g_objs)
end

function updateobjs(objs)
 foreach(objs, function(t)
  if t.update then
   t:update(objs)
  end
 end)
end

-- use whatever the current optimal method is for drawing this stuff
-- function stdcls()
--  rectfill(127,127,0,0,0)
-- end

function stdclscol(col)
 rectfill(127,127,0,0,col)
end

function stddraw()
 drawobjs(g_objs)

 if g_flash_end and g_tick < g_flash_end then
  for i=1,128 do
   for j=1,128 do
    if pget(i, j) != 7 then
     pset(i, j, g_flash_color)
    end
   end
  end
 else
  g_flash_end = nil
 end
end

function drawobjs(objs, mode)
 foreach(
 objs,
 function(t)
  if 
   (mode == "behind_player" and t.y > g_p1.y - 2)
   or (mode == "in_front_player" and t.y < g_p1.y - 2) 
   
  then
   return
  end
  if t.draw then
   local cam_stack = 0
   local t_t = vecflr(t)

   -- i think the idea here is that if you're only drawing local,
   -- then you only need to push -t.x, -t.y
   -- if you're drawing camera space, then the camera will manage the screen
   -- center offset
   -- if you're drawing screen center 
   if t.space == sp_screen_center then
    pushc(-64, -64)
    cam_stack += 1
   elseif t.space == sp_world and g_cam  then
    pushc(flr(g_cam.x) - 64, flr(g_cam.y) - 64)
    pushc(-t_t.x, -t_t.y)
    cam_stack += 2
   elseif not t.space or t.space == sp_local then
    pushc(-t_t.x, -t_t.y)
    cam_stack += 1
    -- elseif t.space == sp_screen_native then
   end

   t:draw(objs, mode)

   for i=1,cam_stack do
    popc()
   end
  end
 end
 )
end

--returns state,changed
function btns(i,p)
 i=shl(1,i)
 if p==1 then
  i=shl(i,8)
 end
 local c,cng =
   band(i,g_ct),
   band(i,g_ctl)
 return c>0,c~=cng
end

--returns new press only
function btnn(i,p)
 if p==-1 then --either
  return btnn(i,0) or btnn(i,1)
 end
 local pr,chg=btns(i,p)
 return pr and chg
end

function pushc(x, y)
 local l=g_cs[#g_cs] or {0,0}
 local n={l[1]+x,l[2]+y}
 add(g_cs, n)
 camera(n[1], n[2])
end

function popc()
 local len = #g_cs
 g_cs[len] = nil
 len -= 1
 if len > 0 then
  local xy=g_cs[len]
  camera(xy[1],xy[2])
 else
  camera()
 end
end

function make_menu(
 lbs, --menu lables
 fnc, --chosen callback
 x,y, --pos
 omb, --omit backdrop
 p,   --player
 cfnc --cancel callback
)
 local m={
  --lbs=lbs,
  --f=fnc,
  --fc=cfnc,
  i=0, --item
  s=g_tick,
  e=5,
  x=x or 64,
  y=y or 80,
  h=10*#lbs+4,
  --omb=omb,
  tw=0,--text width
  p=p or -1,
  draw=function(t)
   local e=elapsed(t.s)
   local w=t.tw*4+10
   local x=min(1,e/t.e)*(w+9)/2
   if not omb then
    rectfill(-x,0,x,t.h,0)
    rect(-x,0,x,t.h,1)
   end
   if e<t.e then
    return
   end
   x=w/2+1
   for i,l in pairs(lbs) do
    if not t.off or i==t.i+1 then
     local y=4+(i-1)*10
     print(l,-x+9,y+1,0)
     print(l,-x+9,y,7)
    end
   end
   spr(0,-x,2+10*t.i)
  end,
  update=function(t,s)
   if t.off then
    return
   end

   if elapsed(t.s)<t.e*2 then
    return
   end

   if btnn(5,t.p) then
    if fnc then
     fnc(t,t.i,s)
     --sfx(2)
    end
   end

   --cancel
   if btnn(4,t.p) then
    if cfnc then
     cfnc(t,s)
     --sfx(2)
    end
   end

   if btnn(2,t.p) and
     t.i>0 then
    t.i-=1
    -- sfx(1)
   end
   if btnn(3,t.p) and
     t.i<(#lbs-1) then
    t.i+=1
    -- sfx(1)
   end
  end
 }
 for l in all(lbs) do
  m.tw=max(m.tw,#l)
 end
 return m
end

function elapsed(t)
 if g_tick>=t then
  return g_tick - t
 end
 return 32767-t+g_tick
end

-- @todo: switch to a table approach instead of object based 
function make_snow_chunk(src, tgt, col, size, nframes, delay)
 local start = g_tick+delay
 return {
  x=src.x,
  y=src.y,
  update=function(t)
   vecset(t, veclerp(t, tgt, elapsed(start)/nframes))
  end,
  draw=function()
   circfill(0, 0, size, col)
  end
 }
end

function make_snow_trans(done_func, final_color, delay)
 -- if there is already a transition, don't create a new one.
 if g_trans then
  return
 end
 delay = delay or 0
 reset_shake()

 local snow = {}
 local topsize =  17
 for i=1,128,topsize do
  for j=1,128,topsize do
   local tgt = vecmake(i,j)
   local src = vecsub(
    tgt,
    vecsub(vecmake(256), vecflr(vecscale(vecrand(16), 8)))
   )
   local size = topsize+rnd(topsize/4)
   local col = flr(rnd(2))+6
   add(snow, make_snow_chunk(src, tgt, col, size, 30 + rnd(15), delay))
   if col != final_color then
    add(
     snow,
     make_snow_chunk(
      vecsub(src, vecmake(128)),
      tgt,
      final_color,
      size,
      60 + rnd(15),
      delay
     )
    )
   end
  end
 end

 local start=g_tick
 g_trans = {
  space=sp_screen_native,
  update=function(t)
   if elapsed(start) > delay then
    g_state = ge_state_menu_trans
    if elapsed(start) - delay > 28 then
     del(g_objs, t)
     g_trans = nil
     done_func()
    end
    updateobjs(snow)
   end
  end,
  draw=function()
   if elapsed(start) > delay then
    drawobjs(snow)
   end
  end
 }
 return g_trans
end

__gfx__
0060000010122101000000003300033000666000000600000000000098899000998899000bb0000011357bdf0c00000c76666777766667770000000000000000
0066000000088000000c0000300000300633360000636000000000009988990059988990088b0000fffeeddc0000c0c076556667765566670000000000006000
0066600010033001000c00000000000063333360063336000000000049988990599889900888b000cbbaa998c0c00c0076555566765555560000000000066000
00666600283083820cc8cc0000030000336663300066600000666000549988905599889908000000877665540c0000c066500556765000560000000000033000
0066650028380382000c00000000000006333600063336000055560055499899559988990800000043322111000c000066550567765000560000000000033000
0066500010033001000c00003000003000333000633433600055550055588888559988992820000011111111c0c000c076650567765000560000000000633600
00650000000880000000000033000330000400000004000000000000000000005588888828200000111111110c00c00077650567765000560000000000363300
005000001012210100000000000000000004000000040000000000000000000000000000222000001111111100c00c0c77777667765000560000000000333300
33888883333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333306333360
0387978333333333a33333333333333a33333333333333a333333333333333333333333333333333333333333333333333333333333333333333333303336330
30899980333333338333333333333338333333333333333833333333333a33333333333333333333333333333333333333333333333333333333333303333330
3b88888b333333338333333333333338833333333333333883333333333388333333333333333333333333333333333333333333333333333344333363333336
30222220333330388830333333303338880333333333333888333333333388883333333333333333333333333333333333333333333343333443333333363333
43b23b233333308888803333333303888883333333033388888333333333388888833333333388888883333333338888888333333333433344a3333300333300
44bb4bb3333330879780333333330387978033333330338879733333330333887973333333a888888973333333a888888973333333334034b383333300044000
3444344333333089998033333333308999803333333303889980333333300388998b0333333333888993333333333388899333333333490b3883333300044000
0000000033333b88888b333333333b88888b333333333b88888b333333330b088883333333333000b08333333333338888833333333349908883333300000000
000000003333302222203333333330222220333333333302222303333333332222233333333333222223333333333322b223333333334d22b888333300000000
0000000033333322322333333333332232233333333333223223333333333322322333333333333222233333333333320223333333334d228088333300000000
00000000333333dd3dd33333333333dd3dd33333333333dd3dd33333333333dd3dd333333333333dd33333333333333d03333333333393228998333300000000
00000000333333ee3ee33333333333ee3ee33333333333ee3ee33333333333ee3ee333333333333ee33333333333333e03333333333399228978333300000000
00000000333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333300000000
00000000333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333300000000
00000000333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333300000000
77766777767777776666777776566677765000007650000076500000765000007650000077700000776000007660000000000000000000000000000000000000
66655666657777766555566665055566765000007765000076500000765000006500000077600000765000006550000000000000000000000000000000000000
55500555505666655550005550000055765333337765333376033333650333335003333376533333650333335003333300000000000000000000000000000000
00300300003055500030030000300300650000007765000075000000650000000030000000300000003000000030000000000000000000000000000000000000
00300300003003000030030000300300650000007760000065000000650000000030000000300000003000000030000000000000000000000000000000000000
00300300003003000030030000300300765333337753333365533333500333330030000000300000003000000030000000000000000000000000000000000000
00300300003003000030030000300300765000006500000065500000650000000030000000300000003000000030000000000000000000000000000000000000
00300300003003000030030000300300765000007650000066500000765000000030000000300000003000000030000000000000000000000000000000000000
000000000000000000000000000000005c0000000000000000000005c00000000000000000000000000000000000000000000000000000000000000000000000
000060000000000000000000000060005cc000000000000000000055c00000000000000000000000000000000000000000000000000000000000000000000000
0006600000006600000000600006600051cc00000000000000000051cc0000000000000000000000000000000000000000000000000000000000000000000000
00033000000336000000066000033000511cc00000000000000005511c0000000000000000000000000000000000000000000000000000000001111111111000
000330000003300000063300000330005c11cc0000000000000005cc1c0000000000000000050000000000000000000000000000000000000011111111111100
00633600006330000003630000633600511cc00000000000000055111cc000000000000000550000000000000000000000000000000000000112222222222110
0036330000363600000333000036330051cc0000000000000000511cccc0000000000000055c0000000000000000000000000000000000001122334444332211
003333000033330000333600003333005cc000000000000000055ccc0000000000000000551c0000000000000000000000000000000000001223445665443221
063333600633330000336300063333605c000000000000000005cc0000000000000000055c1c0000000000000000000000000000000000001122344554432211
033363300333636006333300033363305000000000000000000500000000000000000055111c0000000000000000000000000000000000000112344554432111
03333330633333303333336003333330500000000000000000550000000000000000055ccccc0000000000000000000000000000000000000112344554432110
63333336333333300336333063333336500000000000000000500000000000000000550000000000000000000000000000000000000000000012334444332100
33363333033633360333303033363333500000000000000005500000000000000005500000000000000005555555555500000000000000000002223333222000
003333000033330300333006003333005000000000000000050000000000000000550000000000000005550cc11c11cc00000000000000000000011111110000
0004400000044000000440000004400050000000000000005500000000000000055000000000000005550000cc111cc000000555555555550000000000000000
00044000000440000004400000044000500000000000000050000000000000005500000000000000550000000cc1cc005555550cc11c11cc0000000000000000
0000000000000000000000000000000033333333333333333333333333333333333333333333333333333333333333333333333333333333cccccccccccccccc
00000000000000000000000000000000333333333333333333333333333333333333333333333333333333333333333333333333333333331111111111111111
0000000000000000000000000000000033333333333333333333332333233333333333333323333333333333333333333333333333333333ccccccccc1cc1ccc
0006600006666000006660000066600033333333333333333333332333233333333333333223333333366666666663333336666666666333c111c1c1c1c1c1c1
666556600555566006555600005556663333333888333333333333223223333333333333222333333366777ffffaf6333366777fffff6633ccc1c1ccc1cc11c1
55556556655655500566556006555555333333888883333333333311111333333333333311133333366777777777af6336677777777ff66311c1c1c1c1c1c1c1
66555555555665566555555665556655333333879783333333333317d7133333333333311d7333336677777777777af666777777777aff66ccc1c1c1c1c1c1c1
5555555555555555555555555555555633333389998333333333d31ddd13d333333333111dd3333367777777777777af65d677777777aff61111111111111111
00000000000000000000000000000000333333888883333333333d17071d33333333331d117333336d7777777777777f65d6677777777affcccccccccccccccc
000000000000000000000000000000003333332222233333333333272723333333333322d2733333357777777777777f35dd67777777777f0000000000000000
0000000000000000000000000000000033333322322333333333332737233333333333322273333335577777777777f3355d6677777777730000000000000000
00000000000000000000000000000000333333dd3dd33333333333dd3dd333333333333dd3333333335d777777777f333355d667777777330000000000000000
00000000000000000000000000000000333333ee3ee33333333333ee3ee333333333333ee333333333355d677777733333355ddd777773330000000000000000
000000000000000000000000000000003333333333333333333333333333333333333333333333333333555d6777333333333555577733330000000000000000
00000000000000000000000000000000333333333333333333333333333333333333333333333333333333333333333333333333333333330000000000000000
00000000000000000000000000000000333333333333333333333333333333333333333333333333333333333333333333333333333333330000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000070000000000000000000000000000000000000000000
00000000000000070000000007000000000000000000000000000000070000700000000000000000000777000000000000000000000000000000000000000000
07777000000000777007000077700700000077770000000000000000770007770070000007777000000777700000000000000000000000000777700000000000
77777770000007777077700777707770000777777700000000000007770077770777000077777000000777770000000000000000000000777777777000000000
17711170000011111177100111111111100177111700000111110111110011111111110017711170000111111111110000000000000000111771117000000000
1c7cc11000001cccccc71011ccccc7cc1101c7cc11000001ccc111ccc1011ccccc7cc1101c7cc1170001ccc11cccc10000000000000000c11c7cc11000000000
1ccccc1100001ccccccc101cccccccccc101ccccc1100001cccc1cccc101cccccccccc101ccccc110001ccc11cccc10000000000000000cc1ccccc1100000000
1cccccc110001ccccccc101cccccccccc101cccccc110001ccccccccc101cccccccccc101cccccc10001ccc1111cc10000000000000000cc1cccccc110000000
1ccccccc11001ccc1111101ccc1111ccc101ccccccc11001ccccccccc101ccc1111ccc101ccc1cc10001ccc1011cc11111111100000000cc1ccccccc11000000
1ccc1cccc1101ccc1000001ccc1000ccc101ccc1cccc1101ccccccccc101ccc1000ccc101ccc1cc17001ccc1011111ccccccc100000000cc1ccc1cccc1100000
1ccc11cccc101ccc1777001ccc1777ccc101ccc11cccc101ccc1c1ccc101ccc1777ccc101ccc1cc11701ccc101ccccccccccc100000000cc1ccc11cccc100000
1ccc101ccc101ccc1111101ccc1111ccc101ccc101ccc101ccc111ccc101ccc1111ccc101ccc1ccc1101ccc101ccccccccccc100000000cc1ccc101ccc100000
1ccc1001cc101ccccccc101cccccccccc101ccc1001cc101ccc101ccc101cccccccccc101ccc11ccc101ccc101ccc111111111000000000c1ccc1001cc100000
1ccc1001cc101ccccccc101cccccccccc101ccc1001cc101ccc101ccc101cccccccccc101ccc101cc101ccc101ccc100000000000000000c1ccc1001cc100000
1ccc1001cc101ccccccc101cccccccccc101ccc1001cc101ccc101ccc101cccccccccc101ccc101cc101ccc101ccc111111111000000000c1ccc1001cc100000
1ccc1001cc101ccc1111101ccc1111ccc101ccc1001cc101ccc101ccc101ccc1111ccc101ccc101cc171ccc101ccccccccccc1000000000c1ccc1001cc100000
1ccc1001cc101ccc1000001ccc1001ccc101ccc1001cc101ccc101ccc101ccc1001ccc101ccc101cc111ccc101ccccccccccc1000000000c1ccc1001cc100000
1ccc101ccc101ccc1000001ccc1001ccc101ccc101ccc101ccc101ccc101ccc1001ccc101ccc1011cc11ccc101ccccccccccc1000000000c1ccc101ccc100000
1ccc11cccc101ccc1707001ccc1001ccc101ccc11cccc101ccc101ccc101ccc1001ccc101ccc10011cc1ccc10111111111ccc1000000000c1ccc11cccc100000
1ccc1cccc1101ccc1777001ccc1001ccc101ccc1cccc1101ccc101ccc101ccc1001ccc101ccc10001cc1ccc10000000001ccc1000000001c1ccc1cccc1100000
1ccccccc11001ccc1111101ccc1001ccc101ccccccc11001ccc101ccc101ccc1001ccc101ccc10001cc1ccc10111111111ccc1000000001c1ccccccc11000000
1cccccc110001ccccccc101ccc1001ccc101cccccc110001ccc101ccc101ccc1001ccc101ccc10001cccccc701ccccccccccc1000000001c1cccccc110000000
1ccc7c1100071ccccccc101ccc1001ccc101ccc7c1100071ccc101ccc101ccc1001ccc101ccc700011cccc7701ccccccccccc1000000007c1ccc7c1100070000
1cc7771000777ccccccc107ccc1001ccc101cc7771000771ccc101ccc107ccc1001ccc101cc77700011cc77701ccccccccccc100000007771cc7771000770000
11777770177771111117707111111711110117777701777111110711110711111171111000000077711111177111111111111100000077771177777017770000
77777777777777777777707777777770000777777777777000000777770777777777000000000077777777777000000000000000007777777777777777770000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000377777733377773337777773377777733777777337777773377777733777777337777773377777733333333300000000
00000000022222222000000000000000376666733376673337666673376666733767767337666673376666733766667337666673376666733337773300000000
07000000028822882000000000000000376776733377673337777673377776733767767337677773376777733777767337677673376776733337673300000000
07700000028882882000000000000000376776733307673337666673307666733766667337666673376666733000767337666673376666733337773300000000
77771000022888882000000000000000376776733337673337677773377776733777767337777673376776733333767337677673377776733337673300000000
177c1000002288882000000000000000376666733337673337666673376666733000767337666673376666733333767337666673300076733337773300000000
1c7c1000000228882200000000000000377777733337773337777773377777733333777337777773377777733333777337777773333377733330003300000000
1ccc1000000022888220000000000000300000033330003330000003300000033333000330000003300000033333000330000003333300033333333300000000
1ccc1000000002888822000000000000377777733777777300000000000000001111001111011111011110000000000000000000000000000000000000000000
1ccc1000000002888882200000000000376666733766667300000000000000001cc1101cc101ccc101cc11000000000000000000000000000000000000000000
1ccc1000000002882888220000000000376776733767767300000000000000001c1c101c1101c1c101c1c1000000000000000000000000000000000000000000
1ccc1000000002882288822000000000376666733766667300000000000000001c1c101cc101ccc101c1c1000000000000000000000000000000000000000000
1ccc1000000002882228882200000000376776733777767300000000000000001c1c101c1101c1c101c1c1000000000000000000000000000000000000000000
1ccc1000000002882022888200000000376666733000767300000000000000001c1c101c1101c1c101c1c1000000000000000000000000000000000000000000
1ccc1000000002882002288200000000377777733333777300000000000000001ccc101cc101c1c101ccc1000000000000000000000000000000000000000000
1ccc1000000002222000222200000000300000033333000300000000000000001111101111011111011111000000000000000000000000000000000000000000
1ccc1000000000000000000000000000111111111111111133330000003333331111101111101111001110111100000000000000000000000000000000000000
1ccc10000222222220000000000000001c11c1c1cc1cc1c133300555500333331ccc101ccc101cc1111c111cc100000000000000000000000000000000000000
111110000288228820000000000000001cc1c1c1c11c11c133005777750033331ccc101c1c101c1c11c111c11100000000000000000000000000000000000000
000700000288828820000000000000001c1cc1c1c11cc1c130057777775003331c1c101ccc101c1c111101ccc100000000000000000000000000000000000000
077770000228888820000000000000001c11c1c1c11c111100577777777500331c1c101c1c101c1c10000111c100000000000000000000000000000000000000
711170000022888820000000000000001c11c1c1cc1cc1c105775577557750331c1c101c1c101c1c10000111c100000000000000000000000000000000000000
1ccc1000000228882200000000000000111111111111111105770577057750331c1c101c1c101c1c100001cc1100000000000000000000000000000000000000
1c7c1000000022888220000000000000555555555555555505770577057750331111101111101111100001111000000000000000000000000000000000000000
17771000000002888822000000000000000000000000000000577755777500330111101110001110011110011110000000000000000000000000000000000000
777777000000028888822000000000000000000000000000300577057750033311cc101c10011c1101cc1101cc10000000000000000000000000000000000000
00000000000002882888220000000000000000000000000033005777750033331c11101c1001c1c101c1c101c110000000000000000000000000000000000000
00000000000002882288822000000000000000000000000033305767650333331ccc101c1001c1c101ccc101cc10000000000000000000000000000000000000
0000000000000288222888220000000000000000000000003330576765033333111c101c1001c1c101c11101c110000000000000000000000000000000000000
0000000000000288202288820000000000000000000000003330055550033333111c101c1101c1c101c10001c110000000000000000000000000000000000000
00000000000002882002288200000000000000000000000033330000003333331cc1101cc1011c1101c10001cc10000000000000000000000000000000000000
00000000000002222000222200000000000000000000000033333333333333331111001111001110011100011110000000000000000000000000000000000000

__gff__
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__map__
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__sfx__
001000000356000000035500000003540000000356003540035400000003540000000354000000035400000007550075400000000000075400754000000000000756007550075400754000000000000000000000
011000000356000000035600000003540000000356003540035400000003540000000354000000035400000007540075400000000000075400754000000000000555005550055500555000000000000000000000
001000000356500000035650000003565035650350003565035000356503565035000b5600b5600b5600b5500b5300b5100b50500000075000750000000000000550005500055000550000000000000000000000
0010000000045000452b6250000000045000002b6250000000045000002b6250000000045000002b6250000000045000452b6250000000045000002b6250000000045000002b6250000000045000002b6252b625
0010000000045000452b6250000000045000002b6250000000045000002b6250000000045000002b625000002b625000052b6252b625000052b6552b625000002b625000052b6252b655000052b6252b6452b655
001000001455214552145521455213552135521355213552135521355213552135521355213532135321151200000000000000000000000000000000000000000000000000000000000000000000000000000000
001000001455214552145521455213550135521355213552125501255212552125521355213552135521355213552135521355213542135421354213532135120000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010c00000955500000095500000009555000000955000000055550000005555000000555500000055550000004555000000455500000045550000004555000000455500000045500000004555000000455000000
000c000000045000002b715000002b625000002a71500000000450000028715000002b62500000287150000000045000002b715000002b625000002b7150000000045000002a715000002b625000002b62500000
010c00001c1221b1221c1221b1221c1221b1221c1221b1221c1221c1221c1221c122000000000000000000001a122181221a122181221a122181221a122181221a1221a1221a1221a12200000000000000000000
010c000017122171221712217122171221712217122171221c1211c1221c1221c1221c1221c1221c1221c1221b1211b1221b1221b1221b1221b1221b1221b1220000000000000000000000000000000000000000
010c00001c1221b1221c1221b1221c1221b1221c1221b1221c1221c1221c1221c1220000000000000001c122101210000010122000001012210122000001a1221012100000101220000010122101221c1211c122
010c00001712200000000000000000000000000000000000101220000000000000000000000000000000000017122000000000000000000000000000000000001312213122000000000010102100001010210122
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__music__
01 00034544
00 01034344
00 00030544
00 01030644
00 00034544
02 02040544
00 41424344
00 41424344
00 41424344
00 41424344
01 10111544
00 10111244
00 10111344
00 10111444
02 10111444
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344