diff --git a/dotscape b/dotscape index b876354..4cd8321 100755 Binary files a/dotscape and b/dotscape differ diff --git a/fcore/graph-lines.sml b/fcore/graph-lines.sml index e6e180e..366a3b7 100644 --- a/fcore/graph-lines.sml +++ b/fcore/graph-lines.sml @@ -18,9 +18,9 @@ struct val minusX = (curX - halfWidth - 1.0) / halfWidth val plusX = (curX - halfWidth + 1.0) / halfWidth - val minY = Vector.sub (xClickPoints, 0) + val minY = Vector.sub (yClickPoints, 0) val minY = (~(minY - halfHeight)) / halfHeight - val maxY = Vector.sub (xClickPoints, Vector.length xClickPoints - 1) + val maxY = Vector.sub (yClickPoints, Vector.length yClickPoints - 1) val maxY = (~(maxY - halfHeight)) / halfHeight val acc = Ndc.ltrbToVertex (minusX, maxY, plusX, minY) :: acc