Add 'cozette-sml/' from commit '5ee4d063750e4b57ef9abf2d8ca19a3811ad73a1'
git-subtree-dir: cozette-sml git-subtree-mainline:bbdbe022f3git-subtree-split:5ee4d06375
This commit is contained in:
260
cozette-sml/fonts-with-z-index/cozette-ascii.sml
Normal file
260
cozette-sml/fonts-with-z-index/cozette-ascii.sml
Normal file
@@ -0,0 +1,260 @@
|
||||
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
|
||||
Reference in New Issue
Block a user