Module CommunicationSource

Sourcetype drawing_event =
  1. | End of {
    1. state : string;
    }
  2. | Start of {
    1. id : string;
    2. state : string;
    3. coord : float * float;
    }
  3. | Continue of {
    1. state : string;
    2. coord : float * float;
    }
  4. | Clear
Sourcetype stroke = {
  1. id : string;
  2. state : string;
  3. path : (float * float) list;
}
Sourcetype payload =
  1. | State of int * [ `Fast | `Normal ]
  2. | Ready
  3. | Open_speaker_notes
  4. | Close_speaker_notes
  5. | Speaker_notes of string
  6. | Drawing of drawing_event
  7. | Send_all_drawing
  8. | Receive_all_drawing of stroke list
Sourcetype t = {
  1. payload : payload;
}
Sourceval of_string : string -> t option
Sourceval to_string : t -> string