diff --git a/dotscape b/dotscape index 4a21257..d8bc98b 100755 Binary files a/dotscape and b/dotscape differ diff --git a/functional-core/app-update.sml b/functional-core/app-update.sml index 7fc7ac4..fdac184 100644 --- a/functional-core/app-update.sml +++ b/functional-core/app-update.sml @@ -151,8 +151,9 @@ struct AppWith.undo (model, triangleStage, trianglesTl, (x3, y3)) val newTriangleVec = Triangles.toVector model + val emptyVec : Real32.real vector = Vector.fromList [] val drawVec = TriangleStage.secondToVector - (x1, y1, x2, y2, newTriangleVec, model) + (x1, y1, x2, y2, emptyVec, model) val drawMsg = DRAW_TRIANGLES_AND_BUTTONS {triangles = newTriangleVec, buttons = drawVec}