24 lines
735 B
Standard ML
24 lines
735 B
Standard ML
structure TitleVec =
|
|
struct
|
|
val fontSpace = Constants.fontSpace
|
|
val fontSize = Constants.fontSize
|
|
|
|
fun getTextVec (x, y, windowWidth, windowHeight, pos, str, acc) =
|
|
if pos = String.size str then
|
|
Vector.concat acc
|
|
else
|
|
let
|
|
val chr = String.sub (str, pos)
|
|
val chrFun = Vector.sub (CozetteAscii.asciiTable, Char.ord chr)
|
|
val hd = chrFun
|
|
(x, y, fontSize, fontSize, windowWidth, windowHeight, 0.0, 0.0, 0.0)
|
|
val acc = hd :: acc
|
|
in
|
|
getTextVec
|
|
(x + fontSpace, y, windowWidth, windowHeight, pos + 1, str, acc)
|
|
end
|
|
|
|
fun getDrawVec (title: TitleType.title_type, width, height) =
|
|
getTextVec (555, 55, width, height, 0, "hello world", [])
|
|
end
|