Add 'cozette-sml/' from commit '5ee4d063750e4b57ef9abf2d8ca19a3811ad73a1'
git-subtree-dir: cozette-sml git-subtree-mainline:bbdbe022f3git-subtree-split:5ee4d06375
This commit is contained in:
162
cozette-sml/fonts-with-z-index/ascii-six.sml
Normal file
162
cozette-sml/fonts-with-z-index/ascii-six.sml
Normal file
@@ -0,0 +1,162 @@
|
||||
structure AsciiSix =
|
||||
struct
|
||||
fun xToNdc (xOffset, xpos, scale, halfWidth) =
|
||||
((xpos * scale + xOffset) - halfWidth) / halfWidth
|
||||
|
||||
fun yToNdc (yOffset, ypos, scale, halfHeight) =
|
||||
~(((ypos * scale + yOffset) - halfHeight) / halfHeight)
|
||||
|
||||
fun lerp (xOffset: Real32.real, yOffset, z, scale, windowWidth, windowHeight,
|
||||
r, g, b) =
|
||||
let
|
||||
val halfWidth = windowWidth / 2.0
|
||||
val halfHeight = windowHeight / 2.0
|
||||
in
|
||||
#[
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 4.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 10.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 10.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 1.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 10.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 2.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 2.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 2.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 3.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 2.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 4.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 9.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b,
|
||||
xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
|
||||
yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
|
||||
z,
|
||||
r, g, b
|
||||
]
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user