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

amend clickPoints when windowHeight > windowWidth

Browse Source
This commit is contained in:
Humza Shahid
2024-08-03 06:42:46 +01:00
parent 0d1ea9444b
commit 82db7521b4
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

6
functional-core/app-type.sml
View File

@@ -264,7 +264,7 @@ struct
val lines = helpGenGraphLinesVertical val lines = helpGenGraphLinesVertical
(0, yClickPoints, lines, halfHeight, start, finish) (0, yClickPoints, lines, halfHeight, start, finish)
in in
Vector.fromList [] Vector.concat lines
end end
end end
@@ -299,7 +299,7 @@ struct
let let
val difference = windowHeight - windowWidth val difference = windowHeight - windowWidth
val hStart = difference div 2 val hStart = difference div 2
val hFinish = hStart + windowHeight val hFinish = hStart + windowWidth
in in
make (windowWidth, windowHeight, 0, windowWidth, hStart, hFinish) make (windowWidth, windowHeight, 0, windowWidth, hStart, hFinish)
end end
@@ -403,7 +403,7 @@ struct
let let
val difference = windowHeight - windowWidth val difference = windowHeight - windowWidth
val hStart = difference div 2 val hStart = difference div 2
val hFinish = hStart + windowHeight val hFinish = hStart + windowWidth
in in
make (app, windowWidth, windowHeight, 0, windowWidth, hStart, hFinish) make (app, windowWidth, windowHeight, 0, windowWidth, hStart, hFinish)
end end