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

add functionality to move between start button/options button

Browse Source
This commit is contained in:
Humza Shahid
2025-02-20 06:00:49 +00:00
parent 6d39c17a11
commit 027c8be541
3 changed files with 56 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
fcore/title/title-vec.sml
View File

@@ -17,7 +17,7 @@ struct
, b
) =
if pos = String.size str then
Vector.concat acc
acc
else
let
val chr = String.sub (str, pos)
@@ -51,7 +51,7 @@ struct
in (Constants.worldWidth - textWidth) div 2
end
fun getTextVec (x, y, width, height, str, r, g, b) =
fun getTextVec (x, y, width, height, str, r, g, b, acc) =
let
val wratio = width / Constants.worldWidthReal
val hratio = height / Constants.worldHeightReal
@@ -76,7 +76,7 @@ struct
val fontSpace = Real32.toInt IEEEReal.TO_NEAREST fontSpace
in
helpGetTextVec
(x, y, fontSize, fontSpace, width, height, 0, str, [], r, g, b)
(x, y, fontSize, fontSpace, width, height, 0, str, acc, r, g, b)
end
else
let
@@ -98,14 +98,34 @@ struct
val fontSpace = Real32.toInt IEEEReal.TO_NEAREST fontSpace
in
helpGetTextVec
(x, y, fontSize, fontSpace, width, height, 0, str, [], r, g, b)
(x, y, fontSize, fontSpace, width, height, 0, str, acc, r, g, b)
end
end
fun getDrawVec (title: TitleType.title_type, width, height) =
case #focus title of
START_BUTTON =>
let val playX = getTextCentreX "Play game"
in getTextVec (playX, 500, width, height, "Play game", 0.0, 0.0, 0.0)
let
val playX = getTextCentreX "Play game"
val acc =
getTextVec (playX, 500, width, height, "Play game", 0.3, 0.3, 0.7, [])
val optionsX = getTextCentreX "Options"
val acc =
getTextVec (optionsX, 600, width, height, "Options", 0.0, 0.0, 0.0, acc)
in
Vector.concat acc
end
| OPTIONS_BUTTON =>
let
val playX = getTextCentreX "Play game"
val acc =
getTextVec (playX, 500, width, height, "Play game", 0.0, 0.0, 0.0, [])
val optionsX = getTextCentreX "Options"
val acc =
getTextVec (optionsX, 600, width, height, "Options", 0.3, 0.3, 0.7, acc)
in
Vector.concat acc
end
end