16 lines
333 B
Standard ML
16 lines
333 B
Standard ML
signature DRAW_MESSAGE =
|
|
sig
|
|
datatype t =
|
|
DRAW_BUTTON of Real32.real vector
|
|
| DRAW_TRIANGLES_AND_RESET_BUTTONS of Real32.real vector
|
|
| NO_DRAW
|
|
end
|
|
|
|
structure DrawMessage :> DRAW_MESSAGE =
|
|
struct
|
|
datatype t =
|
|
DRAW_BUTTON of Real32.real vector
|
|
| DRAW_TRIANGLES_AND_RESET_BUTTONS of Real32.real vector
|
|
| NO_DRAW
|
|
end
|