Humza Shahid
f3a4e15ed5
git-subtree-dir: dotscape git-subtree-mainline:6b91d64fc3git-subtree-split:f306501a68
17 lines
477 B
Standard ML
17 lines
477 B
Standard ML
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
|