From 5dfd415d3bfe48841a7d2dd72cf1de37e2b35ac1 Mon Sep 17 00:00:00 2001
From: yaw-man <ywmn@protonmail.com>
Date: Fri, 27 Jan 2023 23:17:46 -0400
Subject: [PATCH] Final commit before post-jam release, "1.0.0"? New features
 since last release:   - Display score breakdown, high score, and letter
 grades.   - Options menu with volume control, keybindings, and true
 fullscreen.   - Demos menu. View saved games!   - Mouse controls, sorta.
 Mouse controlled menus!   - High contrast mode.   - Instructions displayed on
 startup.   - Default demo ships with game.   - Render sitelen pona quote
 symbols to and te   - Beat combo indicator.

Outstanding defects:
  - Options menu not persistent.
  - Mouse controls feel like complete dogshit.
---
 conf.lua           |   1 -
 demos/yam.yod      | Bin 0 -> 135552 bytes
 loadgame.lua       |  31 +++++++++++----
 main.lua           |  25 +++++++++----
 marble.lua         |   3 ++
 mousecontrols.lua  |  36 ++++++++++++------
 options.lua        |  73 ++++++++++++++++++++++++++++++------
 recorder.lua       |   8 ++--
 scores.lua         |  91 +++++++++++++++++++++++++++++++++++++--------
 sitelenpona.lua    |   4 +-
 sitelenpona/te.png | Bin 0 -> 1083 bytes
 sitelenpona/to.png | Bin 0 -> 1066 bytes
 text.lua           |  48 +++++++++++++++++++-----
 wave.lua           |  20 ++++++----
 14 files changed, 261 insertions(+), 79 deletions(-)
 create mode 100644 demos/yam.yod
 create mode 100644 sitelenpona/te.png
 create mode 100644 sitelenpona/to.png

diff --git a/conf.lua b/conf.lua
index a262028..a2718b9 100644
--- a/conf.lua
+++ b/conf.lua
@@ -1,7 +1,6 @@
 function love.conf( t )
   t.version = "11.4"
   t.identity = "Your Own Drum"
-  t.console = true
   
   t.modules.joystick = false
   t.modules.physics = false
diff --git a/demos/yam.yod b/demos/yam.yod
new file mode 100644
index 0000000000000000000000000000000000000000..e48429b225fbe7e1df87113160c768b45ce6b4dd
GIT binary patch
literal 135552
zcmeI5!L{Wy42Gu**3`g~1yn-~?C5|J=DY&vfd-}w4(lm_6C}Nnl$XhkV>@>8Y2zbu
zlQ^G#$#U*}!`q*~fBx&ApML$}$4?X3*I(i!kNaPK{^PgLZ~y+SBR)LP1Nm^9dazd?
zQ{AiX%l(hn<-K`x+#7s7jZg4^M=*E<9PoIVM_M1N_XQ~~_`%>2aKPhnJkov~Kfa%6
z&O`F=dAg(Scq9Iv2I~-dKo8!=)k9h@?fssuoA|MxfCoH=`u@jPnUeQ58c#;iH5}lu
z<aak6NdCV5zLC!_1}_zY8a#}I*f=~=J*BUX>kB;K;n!RAko1u1+RE3@GYU62z`^g&
zo9jXQja6Rm<t@j(!Ozp+`;+_VA=P7huV8fvKdx8sfQMhdAFqeBF06dj3!~%>91e02
zeXVu1r#p^&gP*6t`+4+$9=w(7A=PvC4RL)No`+Wf`}+Ir>&1FM&zAL`2ltDSfCoIh
zp$AWcbq_tvst4^ihwn2-?Tb^~yZea?e%wF7V{jglKmGIO>b&Lt-mZ&(%8y~!8J#Ed
zi}eg1@HqART3>}`+{dN5(A^h)?Ehxh5%c$ko{dJTFZ3a@-ddf72R!&a-^Bl3veh}U
z`ukALk737F&)u3U*Y{RmxBlw<-VMH2=^@om`Yzu0oO<8Wn_tQs{9yY$G+vBxp9PPH
z@Q`%b&y$c=eEww~Nk_I%v;4x3c?J)7@V?8v?@D#|u&;Vzl)Qoi9Q^)nR}b1B9nQP6
zdHa;}lOE}dVt&E{9=={3)<dcz_`%>2a7@TU>qGG<&yNmf*8%hQhMql*8S5JJ_x4TC
zsovZE&FVkC^vm$L$-cp7!7IO$NzaWRbpVfxd5E5QpLR5_`Mfvu<7vFIF5KnwseaMt
z#Ci^o&OB0Hb@%moA3F;F{@kyQJNNfS{5=icccF(-^^n#p+mGA&g)jZfv^<jT@Pol4
z;P`+?>feX+W&Xr*FOD4dhF(04kMf@5-kz(MRR5>#gSPrOALSPNv~*wm*iXabVjiM@
z_UBu5AjN01j_Bt&9`y_lc<}dw?(YZDL)1g6ySMYxy3pO%_5F5S@2(r3&l~#nG<aXr
zPY<bn)91_jZR^<Wd8E7>&QJX$e(W!&=OOwVPj{o|MXmWIJw2xGJ+033yyyO11NhC!
zFV#u>U|+4?UpC5gh)W2I<3Zh-v+iizST~5@see!DYJRCM;RhR^N2)`^`GRwNjv?&K
z7aqaj5pclcHayb$al5`Y>9)F``ZxTzA85`);#)tit#!loy=})Y>B;(A(-nTqH+UT6
zAu8O~AIBHl=5v&H@6T%h)sFXVI$uV~tLhviFvsI!5#{{F%K4?ZvaUv*!vh}t{YS&U
z|Ih-iw(c`jf5oF*czs>FBgYqmj|xEz9!5e89`NvXA3db?#r8M0-kkP5wKILXSb3k{
z>ipCn;>Ug&9y>f*=~4x+HeTM?%o3k!bw{tu^`idZ0T1@`4fpf2>C5V{*zvwL)!Ezm
zrCiQ(t#y8i59^}Tf72;E;4$^@*IUOg)gk;~<MU8`G#drS_#8smm@hnn!6V>+2Rwpp
z^GNH<bbWPrO!mJPzn4ehcl^D<S?-+gZCw7X_a|JR{p;tq_j-jM2GfJDQYC$5>Mw@#
z<@vVzBaSZy9~FXHJsv4PtZ%bC!IydnkHOZ3ht0?G@boAJWZZtA`7K6#R0wMDFcM<*
zcs#6*-frDUx){z+{Zn&a^J6#;qsNK)d3%n2Qhr*0X?cpz{_oMh_w`lbb*tB(iE+Ki
z9v<-U_PQR}@9=%!%-{EU)%W;bB=tYdeR;m;^xr)1V#Hg8pjOT!<tzI)_HSMHZ>C_e
zbzheHFZ|e#HRrJvm%X@g+}m2${%FhZ?~-1uA2Z$H$9#gvU_4Tu;0N31q48`s%5?VU
z5vI-O;SsDIkEDOrJ@z+U_cw#^ws{OU>iW^GALf3GJ%_jEpXuKEAbi$=C$0n2>0b-B
z+PY6nIv&oKiLd8vPsH)X;G;rNgNKn2E9a5w1M5EPe%EzB>3HR9JQ(A9=a+eCeOPhb
z<IZt!+x${otiQ7O;78rU10KuzGE9E>EWe`9Rz2Ky6u#yCDd#WtTz)A(hN&CW@v-W7
zX*{&RsIB|FbY1)y_gx+WcFom@b9}M;@=1Cr&QrY(=g0hm$KX7)z^RSb$ECc&7d^eq
zK>|BoTupJzZ?W?DBt5VW#r%NBNgkS@YU@5wuYcJn6I;*AX3X)$#^sarW9ypf34ieZ
zk@>ZK&!h!Rt-MbVJAS^#ciOS^xfPh&ac*{|80XK*Bk7-Y>1032`E`H4l=5ojEAQKm
zT3=Vsy~l;)-mc@9^l5#D=@q|mf64XF_3u85&b-GHtKTPTe1{!dJ@@EwVSe7~>)v1e
zdwH4igLS8Jf6Ddh_WK(=?Z0;)CC{$wAG!Zx*YQ_9n(nO6!0(gy@IKkUw?1DBl-lt=
zC+TQ7UmooEa~ToNUkrXK1T}aV39;5ZTHAH~iSpxpZ!mZS92fFv-G6ZXbMJTIcP+n^
zr`7$d`)hf=`p?yx8`t+n{5%czGw8wekm~EK?*(n%(~S}b`hC-5ZyxlI*Y=O_zc>Gs
z*VFlFeeCXQJ)Dl)>~VkU{FC0TpEBL!OTC82P1dcl`g+vp?<2A2@VHB!Q1|}t)2aJ6
zsrx&6wm3H*%hn(E18F_M4+f8b10L0Q?9|P@x_bI}itEZx>(g+)%zr)az31Y%x9j*N
zeOZ5CI>UcPe|Xz?`z)Jb-AwDz@V@Y^w;pr7#o(zzP%Gz=^69p9j&<tZ-#ZiEYvOAa
z==)aQzZ2JM;>x-($NT@7cjbM6*zxm|PP+T0^S+uJ_xE;OcXoEtA9ZVzx~21ce7sD@
zV(UIBaXRd8U3c%k9QU@4i$8ki?^RQL$qV}3q5glTPmf2+^TWRKV~l-CHy&r>clP|&
z&n@%Y)@8cC^$#{L{HRNKz++i|-}58oe|KNw(QMTEQT$wKe(&7wqN5al{9y11I6mN!
z@}Rpf^CM1sapJf)^x|oJl-C^hR<4&+9}o8peikL~;Zpxn-Iw{5_g9?1SUY|x{<c1w
z4)A#&%lp{3cKM(MPOW?$5vzZGTA!x#TX9j~YW2C>mBqL|JiMU?Ph;l&Nvf}p>$_4M
zSAOchy8AM}^}P1x&2ewr{8D_azpyytv;VmD{=;X<i0fEdpN8{=AN|niI%+k)q)*lj
ze!mcYztEaT()EVF_211nZY0F|@lbs<*GX#~mR`R%Z|=8PZGE>k`m0D79`NusyB_we
zcD>?ykvKfy;q99qQh#cF9%Fnj3J-Yr_r&jdkgWQaPh<LfHhX`;{9}aS@f04V?`2Xw
z$B*k9JmBHi`(iyv9onnMdp3H1Q9eI(R!3*bu~?^^-}igHTD)WB*sC)fhnKgnRxgT2
zx!QeoRVz>RI@R)?>#=UO{JWu9^yRDBN8fv==UDk#zjm*)cc0SZX@1ji*LgGFi|bI*
z9eyx)1RM=`q&iUDm-){d$Ha%aIq5$8>N;O~|CIkH{Vh9t-SYEGxuC;2-*?Rx@BaWo
CilKf0

literal 0
HcmV?d00001

diff --git a/loadgame.lua b/loadgame.lua
index ee93227..2981d15 100644
--- a/loadgame.lua
+++ b/loadgame.lua
@@ -1,17 +1,18 @@
 --UI for selecting a saved game.
 local love = love
 local loadGame = {}
-local _Update = love.update
-local _Draw = love.draw
-local _MousePressed = love.mousepressed
-local _Resize = love.resize
-local _KeyPressed = love.keypressed
-love.mouse.setRelativeMode( false )
+local _Update
+local _Draw
+local _MousePressed
+local _MouseMoved
+local _Resize
+local _KeyPressed
 
 local function RestoreMainState()
   love.update = _Update
   love.draw = _Draw
   love.mousepressed = _MousePressed
+  love.mousemoved = _MouseMoved
   love.keypressed = _KeyPressed
   love.resize = _Resize
   love.mousemoved = nil
@@ -32,7 +33,7 @@ local OnClick
 
 
 local function DeleteLeft()
-  return w * 0.75 + 15 + 6
+  return love.graphics.getWidth() * 0.75 + 15 + 6
 end
 
 local function DeleteRight()
@@ -46,6 +47,8 @@ end
 local function PopulateGameList()
   scrollOffset = 0
   gameList = assert( love.filesystem.getDirectoryItems( "demos" ) )
+  
+  local w, h = love.graphics.getDimensions()
 
   canvas = love.graphics.newCanvas( w, h * (1 + #gameList) / 10.0 )
   love.graphics.setCanvas( canvas )
@@ -74,7 +77,11 @@ end
 local updateLoadMenu = function() end
 
 local drawLoadGameMenu = function() 
+  local w, h = love.graphics.getDimensions()
   love.graphics.setColor( 1, 1, 1, 1 )
+  if options["high contrast"].value then
+  love.graphics.setColor( 0,0,0, 1 )
+  end
   love.graphics.draw( canvas, 0, 15 - scrollOffset * h / 10 )
   
   
@@ -156,10 +163,18 @@ end
 
 
 local wheelMoved = function(x, y)
-  scrollOffset = math.max( 0, math.min( #gameList, scrollOffset - y * 0.1 ) )
+  --scrollOffset = math.max( 0, math.min( #gameList, scrollOffset - y * 0.1 ) )
 end
 
 local function LoadGameMenu()
+  _Update = love.update
+  _Draw = love.draw
+  _MousePressed = love.mousepressed
+  _MouseMoved = love.mousemoved
+  _Resize = love.resize
+  _KeyPressed = love.keypressed
+  love.mouse.setRelativeMode( false )
+  
   love.wheelmoved = wheelMoved
   love.mousemoved = mouseMoved
   love.draw = drawLoadGameMenu
diff --git a/main.lua b/main.lua
index 5ff4a22..9f5971a 100644
--- a/main.lua
+++ b/main.lua
@@ -160,6 +160,7 @@ function love.load()
     
   end
 
+  loadGame = assert( require "loadgame" )
   options = assert( require( "options" ) )
   mouseControl = assert( require "mousecontrols" )
   sitelenpona = assert( require "sitelenpona" )
@@ -231,7 +232,7 @@ OnVictory = function()
     state.isDemo = false
   else
     scores.Save()
-    recorder.Save()
+    recorder.Save( scores.Get(), state.tick)
   end
 
   particles:setParticleLifetime( 0, 30 )
@@ -262,6 +263,7 @@ OnVictory = function()
       marble.Update()
       wave.Update()
 
+
       dt = dt - step
     end
 
@@ -331,6 +333,11 @@ Update = function( dt )
   while dt > step do
     
     state.tick = state.tick + 1
+    
+    if mouseControl.isActive then
+      mouseControl.update()
+      marble.SetAcceleration( mouseControl.getAcceleration() )
+    end
 
     if state.isDemo then
       local ddx, ddy = recorder.NextTick()
@@ -363,8 +370,10 @@ local function OptionsMenu()
 end
 
 local function LoadGame() -- Load game screen.
-  if not loadGame then loadGame = assert( require "loadgame" ) end
+  
   local Click, Press = assert(loadGame.OnClick), assert(loadGame.KeyPress)
+  loadGame.LoadGameMenu()
+  
   love.mousepressed = function( x, y, button, istouch, presses)
     local demoName = Click( x, y, button, istouch, presses )
     if demoName then return NewGame( demoName ) end
@@ -375,7 +384,7 @@ local function LoadGame() -- Load game screen.
     if demoName then return NewGame( demoName ) end
   end
   
-  loadGame.LoadGameMenu()
+
 end
 
 function love.keypressed( key, code, isRepeat )
@@ -385,6 +394,7 @@ function love.keypressed( key, code, isRepeat )
   if code == "o" then return OptionsMenu() end
   if state.isDemo then return end
   
+  mouseControl.isActive = false
   return marble.OnKey( 
     love.keyboard.isScancodeDown( options.up.value ),
     love.keyboard.isScancodeDown( options.left.value ),
@@ -395,10 +405,10 @@ end
 
 function love.keyreleased( key, code )
   return marble.OnKey( 
-    love.keyboard.isScancodeDown( options.up.value ),
-    love.keyboard.isScancodeDown( options.left.value ),
-    love.keyboard.isScancodeDown( options.down.value ),
-    love.keyboard.isScancodeDown( options.right.value ) )
+    love.keyboard.isScancodeDown( options.up.value),
+    love.keyboard.isScancodeDown( options.left.value),
+    love.keyboard.isScancodeDown( options.down.value),
+    love.keyboard.isScancodeDown( options.right.value) )
 end
 
 function love.resize( w, h )
@@ -408,6 +418,7 @@ end
 
 --TODO: make this feel better.
 function love.mousemoved( x, y, dx, dy, number, istouch )
+  mouseControl.isActive = true
   dx, dy = mouseControl.mousemoved( dx, dy )
   if dx then return marble.SetAcceleration( dx, dy ) end
 end
diff --git a/marble.lua b/marble.lua
index 468f36b..9a35c02 100644
--- a/marble.lua
+++ b/marble.lua
@@ -84,6 +84,9 @@ function marble.Update()
     oldState[k] = curState[k]
     curState[k] = newState[k]
   end
+  
+  --Inertia.
+  --ddx, ddy = ddx * 0.95, ddy * 0.95
 end
 
 
diff --git a/mousecontrols.lua b/mousecontrols.lua
index e57e7c0..130f2e3 100644
--- a/mousecontrols.lua
+++ b/mousecontrols.lua
@@ -1,25 +1,37 @@
-local mouseControl = {}
+local mouseControl = { isActive = false }
 local love = love
 
-local t = love.timer.getTime()
+local x, y = 0, 0
+
+local DECAY = 0.8
+local SENSITIVITY = 0.8
 
 function mouseControl.Reset()
-  t = love.timer.getTime()
+  x, y = 0, 0
 end
 
 function mouseControl.mousemoved( dx, dy )
-  local dt = love.timer.getTime()
-  if dt - t < 1 / 1000.0 then return end
-  dt, t = dt - t, dt
+
+  dx, dy = SENSITIVITY * dx, SENSITIVITY * dy
+  dx, dy = dx * dx * dx , dy * dy * dy 
+  x, y = dx + x, y - dy 
   
-  dx, dy = dx * dt, -dy * dt
   
-  local norm = math.sqrt( dx * dx + dy * dy )
-  if norm > 1 then dx, dy = dx / norm, dy / norm end
-  
-  if norm < 0.01 then return 0, 0 end
-  return dx, dy
+  return mouseControl.getAcceleration() 
+
 end
 
+function mouseControl.update()
+  local norm = math.sqrt( x * x + y * y )
+  local decay = DECAY * norm / ( norm + 1 )
+  x, y = decay * x, decay * y
+end
+
+function mouseControl.getAcceleration()
+  local norm = math.sqrt( x * x + y * y )
+  if norm > 1 then return x / norm, y / norm end
+  if norm < 0.001 then return 0, 0 end
+  return x, y
+end
 
 return mouseControl
\ No newline at end of file
diff --git a/options.lua b/options.lua
index 7fea86b..c00768f 100644
--- a/options.lua
+++ b/options.lua
@@ -16,22 +16,31 @@ if not options.initialized then
   options.initialized = true
 
   local keyBindCallback = function(self, code)
-    self.value = code
+    self.value = code or self.value
   end
 
   options.optionValues = {
     { name = "options",
-      value = "back",
+      value = "",
       callback = function(self)
-        return ExitMenu()
+      end
+    },
+    
+    { name = "fullscreen",
+      value = false,
+      callback = function(self)
+        self.value = not(self.value)
+        love.window.setFullscreen( self.value )
+        love.event.push( "resize", love.graphics.getWidth(), love.graphics.getHeight() )
       end
     },
 
     { name = "high contrast",  
       value = false,
       callback = function(self, code)
-        if code == "return" or code == "backspace" then return end
+        if code == "backspace" then return end
         self.value = not( self.value )
+        return false
       end
     },
 
@@ -43,8 +52,9 @@ if not options.initialized then
         if (code == "left" or code == "a") then isIncreasing = -1
         elseif (code == "right" or code == "d") then isIncreasing = 1
         else return false end
-        self.value = math.max( 0, math.min( 1,
+        self.value = math.max( 0, math.min( 2,
             self.value + (isIncreasing * 0.05 )))
+        love.audio.setVolume( self.value )
         return true
       end
 
@@ -85,6 +95,9 @@ local isAwaitingKey = false
 local font = love.graphics.newFont( 32 )
 local function Draw()
   love.graphics.setColor( 1,1,1,1 )
+  if options["high contrast"].value then
+    love.graphics.setColor( 0, 0, 0, 1 )  
+  end
   for i, option in ipairs( options.optionValues ) do
     love.graphics.printf( option.name, font, 100, i * 50, 1000, "left")
     love.graphics.printf( tostring( option.value ), font, -100, i * 50, love.graphics.getWidth(), "right")
@@ -94,7 +107,7 @@ local function Draw()
 
   local w = love.graphics.getWidth()
 
-  love.graphics.setColor( 1,1,1,0.5 ) 
+  love.graphics.setColor( 1,1,1,0.5 )
   if isAwaitingKey then
     love.graphics.rectangle( "fill", w - 200, optionIdx * 50, 100, 48, 10, 10 )
   else
@@ -113,21 +126,53 @@ local function SelectPreviousOption()
   option = options.optionValues[ optionIdx]
 end
 
+local function MouseMoved( x, y )
+  optionIdx =
+    math.min( #options.optionValues, 
+      math.max( 1,
+        math.floor( y / 50 )
+      ))
+  option = options.optionValues[ optionIdx]
+  
+  if ( x > love.graphics.getWidth() - 200 ) then
+    isAwaitingKey = true
+  else
+    isAwaitingKey = false
+  end
+end
+
+
 
 local function KeyPress(key, code, isRepeat)
 
-  if code == "backspace" then return ExitMenu() end
-  if isAwaitingKey then
-
+  if not( isAwaitingKey ) then
+    
+    if code == "backspace" then 
+      return ExitMenu() end
+    if optionIdx and 
+      code == "return" or
+      code == "right" then 
+      isAwaitingKey = true
+      return 
+    end
+    
+    if code == "down" then return SelectNextOption() end
+    if code == "up" then return SelectPreviousOption() end
+    
+  else
 
+    if code == "backspace" then isAwaitingKey = false end
     if code == "escape" then return end
     isAwaitingKey = (options.optionValues[optionIdx]):callback( code )
 
   end
 
-  if code == "return" and optionIdx then isAwaitingKey = true; return end
-  if code == "down" then return SelectNextOption() end
-  if code == "up" then return SelectPreviousOption() end
+
+end
+
+
+local function MousePressed( )
+  return KeyPress( )
 end
 
 local function EnterMenu()
@@ -136,13 +181,17 @@ local function EnterMenu()
   mousepressed = love.mousepressed
   keypressed = love.keypressed
   mousemoved = love.mousemoved
+  love.mouse.setRelativeMode( false )
   
   love.draw = Draw
   love.keypressed = KeyPress
   love.update = function() end
+  love.mousemoved = MouseMoved
+  love.mousepressed = MousePressed
 end
 
 function ExitMenu()
+  love.mouse.setRelativeMode( true )
   love.mousemoved = mousemoved
   love.keypressed = keypressed
   love.mousepressed = mousepressed
diff --git a/recorder.lua b/recorder.lua
index 6c5dcde..3483ec5 100644
--- a/recorder.lua
+++ b/recorder.lua
@@ -6,7 +6,7 @@ local ddxs, ddys
 local i = 0
 
 function recorder.Reset()
-  i = 0
+  i = 1
   for k, _ in ipairs( recorder ) do recorder[k] = nil end
 end
 
@@ -30,7 +30,8 @@ function recorder.Load( filename )
   ddxs, ddys = {}, {}
   local s = love.filesystem.read( filename )
   if not s then return end
-  local k, j = 1, 1
+  local j = 1
+  local score, ticks, k = love.data.unpack( "!16<dJ", s, 1)
   local n = s:len()
   while k < n do
     ddxs[j], ddys[j], k = love.data.unpack( "!16<dd", s, k)
@@ -47,7 +48,8 @@ function recorder.NextTick( )
   return ddxs[i], ddys[i]
 end
 
-function recorder.Save( )
+function recorder.Save( score, ticks )
+  recorder[1] = love.data.pack( "string", "!16<dJ", score, ticks )
   if not love.filesystem.getInfo( "demos" ) then love.filesystem.createDirectory( "demos" ) end
   return assert( love.filesystem.write( "demos/"..os.time()..".yod" , table.concat( recorder ) ) )
 end
diff --git a/scores.lua b/scores.lua
index beb5ca1..d4a9ac0 100644
--- a/scores.lua
+++ b/scores.lua
@@ -2,31 +2,61 @@ local love = love
 local scores = {}
 local highScores = {}
 
+local letters = { 
+  letters = { "D",   "C",   "B",   "A",   "S",  "SS", "SSS" },
+  ticks =   { 50000, 14400, 12000, 10000, 8000, 6000, 5000  },
+  streaks = { 1,     20,    40,    60,    80,   100,  120   },
+  score =   { 0,     5,     10,    22,    56,   150,  300   },
+}
+
+letters.letters[0] = "!"
+
+local function ScoreToLetter( ticks, streak, score )
+  local streakTier, ticksTier, scoreTier = 0, 0, 0
+  
+  for i, threshold in ipairs( letters.ticks ) do
+    if ticks < threshold then ticksTier = i end
+  end
+  
+  for i, threshold in ipairs( letters.streaks ) do
+    if streak > threshold then streakTier = i end
+  end
+  
+  for i, threshold in ipairs( letters.score ) do
+    if score > threshold then scoreTier = i end
+  end
+  
+  return letters.letters[ticksTier], letters.letters[streakTier], letters.letters[scoreTier] 
+end
+
 function scores.OnImpact( tick, isHitSuccessful )
   local score = 0
   if isHitSuccessful then
     scores.streak = scores.streak + 1
+    scores.longestStreak = math.max( scores.streak, scores.longestStreak )
   else
     table.insert( scores.streaks, scores.streak)
     scores.streak = 0
   end
-  
+
   for i, streak in ipairs( scores.streaks ) do
-    score = score + streak * streak
+    score = score + math.pow( streak, 1.7 )
   end
-  
-  scores.score = score / math.pow( tick / 120.0, 1.5 )
+
+  scores.score = score / ( ( tick / 120.0 ) - 36.0 )
   scores.t = tick
 end
 
 function scores.Reset()
   scores.score = 0
   scores.streak = 0
+  scores.longestStreak = 0
+  scores.highScore = scores.LoadHighScores()
   scores.streaks = {}
 end
 
 function scores.Get()
-  
+  return scores.score
 end
 
 function scores.Save()
@@ -36,24 +66,53 @@ function scores.Save()
     if highScores[j] < scores.score then break end
   end
   table.insert( highScores, i )
+  scores.highScore = math.max( scores.score, scores.highScore )
 end
 
 function scores.LoadHighScores()
-  
+  local gameList = assert( love.filesystem.getDirectoryItems( "demos" ) )
+  local highScore = 0
+  for i, name in ipairs( gameList ) do
+    local s = love.filesystem.read( "demos/"..name, 64 )
+    if ( s:len() > 32 ) then
+      local gamescore, gameticks = love.data.unpack( "!16<dJ", s, 1)
+      highScore = math.max( gamescore, highScore )
+    end
+  end
+  return highScore
 end
 
 function scores.RenderHighScores()
-  love.graphics.setColor( 1, 1, 1, 1 )
-  love.graphics.printf( "Streak:."..scores.score, 0, 0, -1, "center" )
-  love.graphics.printf( "Score:."..scores.score, 0, 0, -1, "center" )
+  local wb = options["high contrast"].value and 0 or 1
+  love.graphics.setColor( wb, wb, wb, 1 )
+  local h = 1.0 * love.graphics.getFont():getHeight()
+  local y = 0.5 * love.graphics.getHeight()
   
-
-  love.graphics.printf( 
-    string.format( "time:\t%.2f\nstreak:\t%d\nscore:%.2f", scores.t / 120.0, scores.streak, scores.score):gsub( "%.", "," ),
-    0, 0.5 * love.graphics.getHeight() - 2.0* love.graphics.getFont():getHeight(),
-    love.graphics.getWidth(),
-    "center"
-  )
+  local lTick, lStreak, lScore = ScoreToLetter( scores.t, scores.longestStreak, scores.score )
+  love.graphics.printf(
+    table.concat{
+      "time: ",
+      string.format("%.1f", scores.t / 120.0):gsub("%.", ","),
+      ".",
+      lTick,
+      "\n",
+      "streak: ",
+      scores.longestStreak,
+      ".",
+      lStreak,
+      "\n",
+      "score: ",
+      string.format("%.1f", scores.score ):gsub("%.", ","),
+      ".",
+      lScore,
+      "\n",
+      "record: ",
+      string.format("%.1f", math.max( scores.highScore, scores.score )):gsub("%.", ","),
+      ".!\n"
+    },
+    love.graphics.getWidth() * 0.5 - 250, y - 2 * h, 500, "justify" )
 end
 
+scores.highScore = scores.LoadHighScores()
+
 return scores
\ No newline at end of file
diff --git a/sitelenpona.lua b/sitelenpona.lua
index 7d57130..9ff8d6c 100644
--- a/sitelenpona.lua
+++ b/sitelenpona.lua
@@ -10,12 +10,12 @@ end
 sp.Draw = function( t )
   local cx, cy = love.graphics.getDimensions()
   cx, cy = 0.5 * cx, 0.5 * cy
-  love.graphics.setColor( 1.0, 1.0, 1.0, 0.5 )
+  love.graphics.setColor( 1.0, 1.0, 1.0, options["high contrast"].value and 0.2 or 0.5)
   
   if #t == 1 then
     love.graphics.draw( sp[t[1]] or sp.pilin, cx - 128, cy - 128 )
   elseif #t == 2 then
-    love.graphics.draw( sp[t[1]] or sp.pilin, cx - 144, cy - 96, 0, 0.75, 0.75 )
+    love.graphics.draw( sp[t[1]] or sp.pilin, cx - 160, cy - 96, 0, 0.75, 0.75 )
     love.graphics.draw( sp[t[2]] or sp.pilin, cx - 16, cy - 96, 0, 0.75, 0.75 )
   elseif #t == 3 then
     love.graphics.draw( sp[t[1]] or sp.pilin, cx - 128, cy - 64, 0, 0.5, 0.5 )
diff --git a/sitelenpona/te.png b/sitelenpona/te.png
new file mode 100644
index 0000000000000000000000000000000000000000..24e83c460c6a8167778abee41e6453d1711bcc35
GIT binary patch
literal 1083
zcmeAS@N?(olHy`uVBq!ia0y~yU}OMc4mJh`hM1xiX$%aE`I*kn0h!6k3=A3*ODFF2
zJ{%x&)IWOZqNz<~0xu^l>~iLIb(C4!6uZhf`rs<>PqVf-O=_DiqPecA+xehl$;a#u
z_7_46LIqe{1qzG5XHOJ*pUtIv>0Uu`{hadiPoJ`VNH0mdQR{iYKz5$*@+DUf%@V0;
z=MOx^;g*sX?Y;A;P1UjU%B4XzDo57btBp-wvEmlb2VQ~mM%~s&J|CH>dt7LbyG&y0
zPLCQVndc>rkD?c9%kAgXtNf!n<N0RphWIm6ykysu7-$zaS9DpVy$HRwtN+KO30do&
ztmq4NOH}SQ37W8AL6`4~f(Z+<E}h%;dy?;cBdsTiU$zA>tGjciemds4_EN~yRc^by
z`uk?x`2D~3)~z#J%x$MI{fdwMUd+Vtj=6W&>woih<vr%%*u!u=?RNY^+q1Qk<MOjN
zCM)b=j=8tR^eMxRTdc?C>CQautLgCay2*pbOcHtwi@zUuuxtD3YnJEcH~caCyU6;%
z2aXv_{(U$mzpp?2&5M>P!3+!xoCO|{#S9GGLLkg|>2BR01_q`gPZ!6Kid%25ALMOT
zU~mXDc=woN?#W&&F6A4%G7F^xJgSW3EJQkAR&yFwUFdk|?!<r_)G5S$oG_<YtNr-*
zFQLb7UvZwCE^GKLa@FSs@u-^MjA>Q(YK-=O*zfj-aZPH@GPzlAw(~jM{4cM6_2~Sn
zx0wvl3=W{w!onZ`VIVQ#Vw5l(7<?Ex7!(*97#NrssKub3NpKepFC)=F!8_*V9|eLg
S@A`KYB;)Do=d#Wzp$PyVxg?GN

literal 0
HcmV?d00001

diff --git a/sitelenpona/to.png b/sitelenpona/to.png
new file mode 100644
index 0000000000000000000000000000000000000000..850ef73c7264ca7fc69c4f5aa96c387145861bb8
GIT binary patch
literal 1066
zcmeAS@N?(olHy`uVBq!ia0y~yU}OMc4mJh`hM1xiX$%aE`I*kn0h!6k3=A3*ODFF2
zJ{%x&)IWOZqNz<~0xu^l>~iLIb(C4!6uZhf`rs<>PqVf-O=_DiqPecA+xehl$;a#u
z_7_46LIqe{1qzG5XHOJ*pUtIv>0Uu`{hadiPoJ`VNH0mdQR{iYKz5$*@+DUf%@V0;
z=MOx^;g*sX?Y;A;P1UjU%B4XzDo57btBp-wvEmlb2VQ~mM%~s&J|CH>dt7LbyG&y0
zPLCQVndc>rkD?c9%kAgXtNf!n<N0RphWIm6ykysu7-$zaS9DpVy$HRwtN+KO30do&
ztmq4NOH}SQ37W8AL6`4~f(Z+<E}h%;dy?;cBdsTiU$zA>tGjciemds4_EN~yRc^by
z`uk?x`2D~3)~z#J%x$MI{fdwMUd+Vtj=6W&>woih<vr%%*u!u=?RNY^+q1Qk<MOjN
zCM)b=j=8tR^eMxRTdc?C>CQautLgCay2*pbOcHtwi@zUuuxtD3YnJEcH~caCyU6;%
z2aXv_{(U$mzpp?2&5M>P!3+!xoCO|{#S9GGLLkg|>2BR01_q`?PZ!6Kid%25U*vQM
z5NSv}$>6quQCZ@sT3E91Y?<)8pH$*BYU1a<lP=BsTiVUUfC?;x1aE)YID6iY{LHT(
z;+Ytj7&sUd7#bL;#b{uNV5F{z4Aghza5nP5+*P~nWCU+te8PCHbUvqp*%HaS+7(O;
t^_5I1-m`AbdN|3-H=7qVQ6Pg4R@xG8CC_l>S=|K*d%F6$taD0e0suo&9Etz{

literal 0
HcmV?d00001

diff --git a/text.lua b/text.lua
index 722ddb6..85310ee 100644
--- a/text.lua
+++ b/text.lua
@@ -10,7 +10,7 @@ local poemLines = {[0] = 0}
 local mt = { __index = function() return "linja" end }
 
 local s = love.filesystem.read( "text/tok.txt" )
-local instrFont = love.graphics.newFont( 18 )
+local instrFont = love.graphics.newFont( 24 )
 local enFont = love.graphics.setNewFont( "text/yod-linja-sike.ttf", 18 )
 local smallFont = love.graphics.setNewFont( "text/yod-linja-sike.ttf", 24 )
 local largeFont = love.graphics.setNewFont( "text/yod-linja-sike.ttf", 64 )
@@ -60,30 +60,52 @@ local function Draw( beat )
   local foot = feet[ beat ]
 
   if beat == 1 then
-    love.graphics.setColor(1.0, 1.0, 1.0, 1.0)
+    
+        love.graphics.setColor(0, 0, 0, 0.5)
+    if options["high contrast"].value then
+      love.graphics.setColor( 1, 1, 1, 1 )
+    end
+    
+    love.graphics.rectangle( "fill",
+      0.5 * love.graphics.getWidth() - 250, 10,
+      500, 1.1 * largeFont:getHeight(), 10, 10 )
+        
+    love.graphics.rectangle( "fill",
+      0.5 * love.graphics.getWidth() - 200, love.graphics.getHeight() - 5.25 * instrFont:getHeight(),
+      400, 4.5 * instrFont:getHeight(), 50, 50 )
+    
+    love.graphics.setColor(1.0, 1.0, 1.0, 1.0 )
+    if options["high contrast"].value then
+      love.graphics.setColor( 0, 0, 0, 1 )
+    end
     love.graphics.printf( "your.own.drum",
       largeFont,
       0, 0,
       love.graphics.getWidth(),
       "center"
     )
+ 
 
     love.graphics.printf( 
       [[
-wasd move
-space restart
-return recall
-o options]],
+WASD MOVE
+SPACE RESTART
+RETURN DEMOS
+O OPTIONS]],
       instrFont,
-      0, love.graphics.getHeight() - 4 * instrFont:getHeight(),
-      love.graphics.getWidth(),
-      "left"
+      0.5 * love.graphics.getWidth() - 150, love.graphics.getHeight() - 5 * instrFont:getHeight(),
+      300,
+      "justify"
     )
+
     return
   end
 
 
   love.graphics.setColor(1.0, 1.0, 1.0, 0.5)
+  if options["high contrast"].value then
+      love.graphics.setColor( 0, 0, 0, 1 )
+  end
   local lineNumber
   if poemLines[beat] < 2 then lineNumber = 0
   else  lineNumber = 2 - poemLines[beat]
@@ -96,6 +118,9 @@ o options]],
   )
 
   love.graphics.setColor(1.0, 1.0, 1.0, 1.0)
+  if options["high contrast"].value then
+      love.graphics.setColor( 0, 0, 0, 1 )
+  end
   love.graphics.printf( foot,
     largeFont,
     0, 0.87 * love.graphics.getHeight(),
@@ -104,6 +129,9 @@ o options]],
   )
 
   love.graphics.setColor(1.0, 1.0, 1.0, 0.5)
+  if options["high contrast"].value then
+      love.graphics.setColor( 0, 0, 0, 1 )
+  end
   love.graphics.printf( poemLang[beat],
     enFont, 
     -8, 0,--(2 - poemLines[beat]) * smallFont:getHeight(),
@@ -115,7 +143,7 @@ o options]],
 end
 
 s = love.filesystem.read( "text/en.txt" )
-i = 1
+i = 0
 --Split string into lines.
 for line in s:gmatch( ".-\n") do
 
diff --git a/wave.lua b/wave.lua
index 7638254..c7040e5 100644
--- a/wave.lua
+++ b/wave.lua
@@ -149,7 +149,7 @@ end
 
 --Apply bandlimited impulse to wave, adjust free parameters according to game state.
 local function OnImpact( impact, level )
-  
+
   IMPULSESIZE = 10.0 * ( level - 2.0) / 120.0
   SOUNDSPEED = 25 - 10 *  level / 120 
   DAMPING = 0.01 * ( 1.0 - 0.4 * level / 120 )
@@ -201,7 +201,11 @@ local function Draw( score )
 
   -- Blue circle.
   love.graphics.setColor(  91 / 255, 206 / 255, 250 / 255 )
-  
+  --Black circle.
+  if options["high contrast"].value then
+    love.graphics.setColor( 0, 0, 0 )
+  end
+
   shader:send( "re", unpack( cur.dftre ) )
   shader:send( "im", unpack( cur.dftim ) )
   shader:send( "score", score )
@@ -255,7 +259,7 @@ local function Draw( score )
   local r = cur:Interpolate( t )
   local x, y = r * math.cos( t ), r * math.sin( t )
   love.graphics.circle( "fill", x, y, 0.02 )]]
-  
+
 end
 
 
@@ -279,12 +283,12 @@ end
 Integrate = function( step )
 
   for i = 1, N do
-    
+
     local rxx = cur:SecondDerivative( math.pi * 2.0 * ( i - 1 ) / N )
-    
+
     local r = ( 1.0 - DAMPING ) * ( 2.0 * cur.radii[i] - old.radii[i] + step * step * SOUNDSPEED * rxx ) --Verlet
     + DAMPING --Damping: oscillate toward 1.
-    
+
     --Avoid explosions.
     r = math.max( 0.5, math.min( r, 4.0 ) )
     new.radii[i] = r
@@ -299,11 +303,11 @@ local function DetectCollision( px, py, vpx, vpy )
 end
 
 local function Reset()
-  
+
   IMPULSESIZE = 1 / 10.0
   SOUNDSPEED = 5.0
   DAMPING = 0.1 / 1
-  
+
   old = Wave()
   cur = Wave()
   new = Wave()