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