Add 'dotscape/' from commit 'f306501a68a51b634e895c5fdac70788ae899d75'

git-subtree-dir: dotscape
git-subtree-mainline: 6b91d64fc3
git-subtree-split: f306501a68

dotscape/message-types/draw-msg.sml

@@ -0,0 +1,16 @@
+structure DrawMessage =
+struct
+  datatype t =
+    DRAW_DOT of Real32.real vector
+  | DRAW_SQUARES_AND_DOTS of
+      {squares: Real32.real vector, dots: Real32.real vector}
+  | DRAW_SQUARES_AND_RESET_DOTS of Real32.real vector
+  | DRAW_GRAPH of Real32.real vector
+  | RESIZE_SQUARES_DOTS_AND_GRAPH of
+      { squares: Real32.real vector
+      , graphLines: Real32.real vector
+      , dots: Real32.real vector
+      }
+  | CLEAR_DOTS
+  | DRAW_MODAL_TEXT of Real32.real vector
+end

dotscape/message-types/file-msg.sml

@@ -0,0 +1,8 @@
+structure FileMessage =
+struct
+  datatype t =
+    SAVE_SQUARES of {output: string, filepath: string}
+  | LOAD_SQUARES of {filepath: string}
+  | EXPORT_SQUARES of {output: string, filepath: string}
+  | EXPORT_COLLISIONS of {output: string, filepath: string}
+end

dotscape/message-types/input-msg.sml

@@ -0,0 +1,36 @@
+structure InputMessage =
+struct
+  datatype t =
+    MOUSE_MOVE of {x: Real32.real, y: Real32.real}
+  | MOUSE_LEFT_CLICK
+  | MOUSE_LEFT_RELEASE
+  | RESIZE_WINDOW of {width: int, height: int}
+  | UNDO_ACTION
+  | REDO_ACTION
+  | KEY_R
+  | KEY_G
+  | KEY_B
+  | KEY_T
+  | KEY_A
+  | KEY_W
+  | KEY_H
+  | KEY_M
+  | KEY_C
+  | KEY_L
+  | KEY_F
+  | KEY_BACKSPACE
+  | KEY_CTRL_S
+  | KEY_CTRL_L
+  | KEY_CTRL_E
+  | KEY_CTRL_C
+  | KEY_ESC
+  | NUM of int
+  | ARROW_UP
+  | ARROW_LEFT
+  | ARROW_RIGHT
+  | ARROW_DOWN
+  | KEY_ENTER
+  | KEY_SPACE
+  | USE_LAYERS of {tree: LayerTree.t, canvasWidth: int, canvasHeight: int}
+  | SQUARES_LOAD_ERROR
+end

dotscape/message-types/update-msg.sml

@@ -0,0 +1,2 @@
+structure UpdateMessage =
+struct datatype t = DRAW of DrawMessage.t | FILE of FileMessage.t end