draw options screen when that is selected
This commit is contained in:
250
fcore/options/options-vec.sml
Normal file
250
fcore/options/options-vec.sml
Normal file
@@ -0,0 +1,250 @@
|
||||
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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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