diff --git a/dotscape b/dotscape index 2ccf35d..ead2714 100755 Binary files a/dotscape and b/dotscape differ diff --git a/functional-core/app-type.sml b/functional-core/app-type.sml index f526520..49a4117 100644 --- a/functional-core/app-type.sml +++ b/functional-core/app-type.sml @@ -260,9 +260,9 @@ struct val finish = Real32.fromInt finish / halfHeight val lines = helpGenGraphLinesHorizontal - (0, xClickPoints, [], halfWidth, ~1.0, 1.0) + (0, xClickPoints, [], halfWidth, start, finish) val lines = helpGenGraphLinesVertical - (0, yClickPoints, lines, halfHeight, start, finish) + (0, yClickPoints, lines, halfHeight, ~1.0, 1.0) in Vector.concat lines end diff --git a/functional-core/app-update.sml b/functional-core/app-update.sml index 97dce83..57701cf 100644 --- a/functional-core/app-update.sml +++ b/functional-core/app-update.sml @@ -374,21 +374,14 @@ struct fun resizeWindow (model, mouseX, mouseY, width, height) = let - val msg = String.concat - [ "resized window. " - , "width = " - , Int.toString width - , " height = " - , Int.toString height - , "\n" - ] - val _ = print msg val model = AppType.withWindowResize (model, width, height) val triangles = getTrianglesVector model val graphLines = #graphLines model - val drawMsg = RESIZE_TRIANGLES_BUTTONS_AND_GRAPH {triangles = triangles, - graphLines = graphLines} + val drawMsg = + RESIZE_TRIANGLES_BUTTONS_AND_GRAPH + {triangles = triangles, + graphLines = graphLines} in (model, drawMsg, mouseX, mouseY) end