open Graphics exception Replay of string type drawing = Commit | Set_color of int | Plot of int * int | Moveto of int * int | Lineto of int * int | Draw_arc of int * int * int * int * int * int | Draw_ellipse of int * int * int * int | Draw_circle of int * int * int | Set_line_width of int | Draw_char of char | Draw_string of string | Set_font of string | Set_text_size of int | Fill_rect of int * int * int * int | Fill_poly of (int * int) array | Fill_arc of int * int * int * int * int * int | Fill_ellipse of int * int * int * int | Fill_circle of int * int * int | Draw_image of image * int * int | Blit_image of image * int * int | Sound of int * int ;; val set_color : color -> unit val plot : int -> int -> unit val moveto : int -> int -> unit val lineto : int -> int -> unit val draw_arc : int -> int -> int -> int -> int -> int -> unit val draw_ellipse : int -> int -> int -> int -> unit val draw_circle : int -> int -> int -> unit val set_line_width : int -> unit (*** Text drawing *) val draw_char : char -> unit val draw_string : string -> unit val set_font : string -> unit val set_text_size : int -> unit (*** Filling *) val fill_rect : int -> int -> int -> int -> unit val fill_poly : (int * int) array -> unit val fill_arc : int -> int -> int -> int -> int -> int -> unit val fill_ellipse : int -> int -> int -> int -> unit val fill_circle : int -> int -> int -> unit (*** Images *) val draw_image : image -> int -> int -> unit val blit_image : image -> int -> int -> unit val sound : int -> int -> unit (*** Control *) val commit : unit -> unit val forward : int -> unit val backward : int -> unit val resume : unit -> unit val beginning : unit -> unit val clear_tape : unit -> unit val end_of_tape : unit -> bool val goto : int -> unit