Humza Shahid
aa5357714d
git-subtree-dir: cozette-sml git-subtree-mainline:bbdbe022f3git-subtree-split:5ee4d06375
261 lines
4.9 KiB
Standard ML
261 lines
4.9 KiB
Standard ML
structure CozetteAscii =
|
|
struct
|
|
val asciiTable = #[
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
AsciiSpace.lerp,
|
|
ExclamationMark.lerp,
|
|
QuotesDouble.lerp,
|
|
AsciiHash.lerp,
|
|
Dollar.lerp,
|
|
AsciiPercent.lerp,
|
|
Ampersand.lerp,
|
|
QuotesSingle.lerp,
|
|
LeftParen.lerp,
|
|
RightParen.lerp,
|
|
Asterisk.lerp,
|
|
AsciiPlus.lerp,
|
|
Comma.lerp,
|
|
AsciiMinus.lerp,
|
|
AsciiDot.lerp,
|
|
ForwardSlash.lerp,
|
|
AsciiZero.lerp,
|
|
AsciiOne.lerp,
|
|
AsciiTwo.lerp,
|
|
AsciiThree.lerp,
|
|
AsciiFour.lerp,
|
|
AsciiFive.lerp,
|
|
AsciiSix.lerp,
|
|
AsciiSeven.lerp,
|
|
AsciiEight.lerp,
|
|
AsciiNine.lerp,
|
|
Colon.lerp,
|
|
Semicolon.lerp,
|
|
LeftAngledBracket.lerp,
|
|
AsciiEquals.lerp,
|
|
RightAngledBracket.lerp,
|
|
QuestionMark.lerp,
|
|
AsciiAt.lerp,
|
|
UpperCaseA.lerp,
|
|
UpperCaseB.lerp,
|
|
UpperCaseC.lerp,
|
|
UpperCaseD.lerp,
|
|
UpperCaseE.lerp,
|
|
UpperCaseF.lerp,
|
|
UpperCaseG.lerp,
|
|
UpperCaseH.lerp,
|
|
UpperCaseI.lerp,
|
|
UpperCaseJ.lerp,
|
|
UpperCaseK.lerp,
|
|
UpperCaseL.lerp,
|
|
UpperCaseM.lerp,
|
|
UpperCaseN.lerp,
|
|
UpperCaseO.lerp,
|
|
UpperCaseP.lerp,
|
|
UpperCaseQ.lerp,
|
|
UpperCaseR.lerp,
|
|
UpperCaseS.lerp,
|
|
UpperCaseT.lerp,
|
|
UpperCaseU.lerp,
|
|
UpperCaseV.lerp,
|
|
UpperCaseW.lerp,
|
|
UpperCaseX.lerp,
|
|
UpperCaseY.lerp,
|
|
UpperCaseZ.lerp,
|
|
LeftBracket.lerp,
|
|
BackwardSlash.lerp,
|
|
RightBracket.lerp,
|
|
Caret.lerp,
|
|
Underscore.lerp,
|
|
Backtick.lerp,
|
|
LowerCaseA.lerp,
|
|
LowerCaseB.lerp,
|
|
LowerCaseC.lerp,
|
|
LowerCaseD.lerp,
|
|
LowerCaseE.lerp,
|
|
LowerCaseF.lerp,
|
|
LowerCaseG.lerp,
|
|
LowerCaseH.lerp,
|
|
LowerCaseI.lerp,
|
|
LowerCaseJ.lerp,
|
|
LowerCaseK.lerp,
|
|
LowerCaseL.lerp,
|
|
LowerCaseM.lerp,
|
|
LowerCaseN.lerp,
|
|
LowerCaseO.lerp,
|
|
LowerCaseP.lerp,
|
|
LowerCaseQ.lerp,
|
|
LowerCaseR.lerp,
|
|
LowerCaseS.lerp,
|
|
LowerCaseT.lerp,
|
|
LowerCaseU.lerp,
|
|
LowerCaseV.lerp,
|
|
LowerCaseW.lerp,
|
|
LowerCaseX.lerp,
|
|
LowerCaseY.lerp,
|
|
LowerCaseZ.lerp,
|
|
LeftBrace.lerp,
|
|
AsciiPipe.lerp,
|
|
RightBrace.lerp,
|
|
AsciiTilde.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp,
|
|
Unknown.lerp
|
|
]
|
|
|
|
fun make (chr, posX, posY, zIndex, scale, windowWidth, windowHeight, r, g, b) =
|
|
let
|
|
val chrFun = Vector.sub (asciiTable, Char.ord chr)
|
|
in
|
|
chrFun (posX, posY, zIndex, scale, windowWidth, windowHeight, r, g, b)
|
|
end
|
|
end
|