humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improvements to generated export string (matches more closely to expected result)

Browse Source
This commit is contained in:
Humza Shahid
2025-07-13 04:03:44 +01:00
parent 0e141174b2
commit a60d13c5ef
5 changed files with 53 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
green.sml
View File

@@ -15,59 +15,59 @@ struct
fun lerp (xOffset, yOffset, scale, windowWidth, windowHeight) =
let
val windowWidth = Real32.fromInt windowWidth
val windowHeight = Real32.fromInt windowHeight
val halfWidth = windowWidth / 2.0
val windowHeight = Real32.fromInt windowHeight
val halfHeight = windowHeight / 2.0
in
#[
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight),
xToNdc (xOffset, 0.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.0, scale, halfWidth), 4.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 4.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 0.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight),
xToNdc (xOffset, 45.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 50.0, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 45.0, scale, halfWidth), 49.0, scale, halfWidth),
yToNdc (yOffset, 45.0, scale, halfHeight)
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 29.000000000000000, scale, halfHeight),
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 29.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 29.000000000000000, scale, halfHeight),
xToNdc (xOffset, 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 29.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
xToNdc (xOffset, 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
xToNdc (xOffset, 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 29.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 30.000000000000000, scale, halfHeight),
endXToNdc (xOffset, xToNdc (xOffset, 29.000000000000000, scale, halfWidth), 29.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight)
]
end
end