Add 'game-sml/' from commit '113c3e67abe635f714f972a1e2ab0e4b24ff10f4'
git-subtree-dir: game-sml git-subtree-mainline:aa5357714dgit-subtree-split:113c3e67ab
This commit is contained in:
290
game-sml/fcore/options/options-vec.sml
Normal file
290
game-sml/fcore/options/options-vec.sml
Normal file
@@ -0,0 +1,290 @@
|
||||
structure OptionsVec =
|
||||
struct
|
||||
open OptionsType
|
||||
|
||||
(* There's code duplication here because we want to avoid
|
||||
* branhing if/case expressions per draw-call because of
|
||||
* the branch prediction cost *)
|
||||
fun drawLeftKey (options, width, height) =
|
||||
let
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.7, 0.7, 0.3, [])
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.3, 0.3, 0.7, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawRightKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawUpKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawDownKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawJumpKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawAttackKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawSaveKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.3, 0.3, 0.7, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun drawCancelKey (options, width, height) =
|
||||
let
|
||||
val acc = MakeTextVec.make
|
||||
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc = MakeTextVec.make
|
||||
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
|
||||
|
||||
val acc =
|
||||
if #isSelected options then
|
||||
MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.7, 0.7, 0.3, acc)
|
||||
else
|
||||
MakeTextVec.make
|
||||
(155, 455, width, height, "Cancel changes", 0.3, 0.3, 0.7, acc)
|
||||
in
|
||||
Vector.concat acc
|
||||
end
|
||||
|
||||
fun getDrawVec (options: OptionsType.options_type, width, height) =
|
||||
case #focus options of
|
||||
LEFT_KEY => drawLeftKey (options, width, height)
|
||||
| RIGHT_KEY => drawRightKey (options, width, height)
|
||||
| UP_KEY => drawUpKey (options, width, height)
|
||||
| DOWN_KEY => drawDownKey (options, width, height)
|
||||
| JUMP_KEY => drawJumpKey (options, width, height)
|
||||
| ATTACK_KEY => drawAttackKey (options, width, height)
|
||||
| SAVE_BUTTON => drawSaveKey (options, width, height)
|
||||
| CANCEL_BUTTON => drawCancelKey (options, width, height)
|
||||
end
|
||||
Reference in New Issue
Block a user