Humza Shahid
da8790f0b6
git-subtree-dir: game-sml git-subtree-mainline:aa5357714dgit-subtree-split:113c3e67ab
32 lines
999 B
Standard ML
32 lines
999 B
Standard ML
structure TitleVec =
|
|
struct
|
|
open TitleType
|
|
|
|
fun getDrawVec (title: TitleType.title_type, width, height) =
|
|
case #focus title of
|
|
START_BUTTON =>
|
|
let
|
|
val playX = MakeTextVec.getTextCentreX "Play game"
|
|
val acc = MakeTextVec.make
|
|
(playX, 500, width, height, "Play game", 0.3, 0.3, 0.7, [])
|
|
|
|
val optionsX = MakeTextVec.getTextCentreX "Options"
|
|
val acc = MakeTextVec.make
|
|
(optionsX, 600, width, height, "Options", 0.0, 0.0, 0.0, acc)
|
|
in
|
|
Vector.concat acc
|
|
end
|
|
| OPTIONS_BUTTON =>
|
|
let
|
|
val playX = MakeTextVec.getTextCentreX "Play game"
|
|
val acc = MakeTextVec.make
|
|
(playX, 500, width, height, "Play game", 0.0, 0.0, 0.0, [])
|
|
|
|
val optionsX = MakeTextVec.getTextCentreX "Options"
|
|
val acc = MakeTextVec.make
|
|
(optionsX, 600, width, height, "Options", 0.3, 0.3, 0.7, acc)
|
|
in
|
|
Vector.concat acc
|
|
end
|
|
end
|