humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove dead code (an '(r, g, b)' tuple) and an outdated comment (about a compiler error) from player.sml

Browse Source
This commit is contained in:
Humza Shahid
2024-12-21 11:15:03 +00:00
parent c71dbb7fca
commit 05ec1880d2
1 changed files with 0 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
fcore/player.sml
View File

@@ -118,17 +118,6 @@ struct
(* default case: (* default case:
* player will land on platform and stay on the ground there. *) * player will land on platform and stay on the ground there. *)
(***
*** cause of compiler error is here
*** The specific error is an error with optimising record representations.
***
*** TO make the problem go away (at the cost of incorrectness),
*** one can:
*** 1. Delete the call to Vector.sub below
*** 2. Change the `platY` value below (in `platY - size`)
*** to any constant integer (like 300 or 555).
***)
val {platforms, ...} = game val {platforms, ...} = game
val {y = platY, ...} = Vector.sub (platforms, platID - 1) val {y = platY, ...} = Vector.sub (platforms, platID - 1)
@@ -509,14 +498,6 @@ struct
let let
val wratio = width / 1920.0 val wratio = width / 1920.0
val hratio = height / 1080.0 val hratio = height / 1080.0
val (r, g, b) =
case attacked of
NOT_ATTACKED => (0.5, 0.5, 0.5)
| ATTACKED amt =>
if amt mod 5 = 0 orelse amt mod 3 = 0 then
(0.9, 0.9, 0.9)
else
(0.5, 0.5, 0.5)
in in
if wratio < hratio then if wratio < hratio then
let let