diff --git a/dotscape b/dotscape index 6f58cd0..9e5f2fa 100755 Binary files a/dotscape and b/dotscape differ diff --git a/functional-core/app-update.sml b/functional-core/app-update.sml index 0877e53..7fc7ac4 100644 --- a/functional-core/app-update.sml +++ b/functional-core/app-update.sml @@ -178,7 +178,7 @@ struct val emptyVec: Real32.real vector = Vector.fromList [] val drawVec = - TriangleStage.firstToVector (x1, y1, emptyVec, model) + TriangleStage.firstToVector (x, y, emptyVec, model) val drawMsg = DRAW_BUTTON drawVec in (model, drawMsg) @@ -204,7 +204,7 @@ struct val newTriangleStage = NO_TRIANGLE val newTriangle = {x1 = x1, y1 = y1, x2 = x2, y2 = y2, x3 = x, y3 = y} - val newTriangles = newUndoTuple :: (#triangles model) + val newTriangles = newTriangle :: (#triangles model) val model = AppWith.redo (model, newTriangleStage, newTriangles, redoHd)