Module Scratch_run

type value =
  1. | Num of float
  2. | Str of string
  3. | Bool of bool
  4. | List of int
  5. | Ring of ring
and ring
val number : value -> float
val text : value -> string
type rotation =
  1. | All_around
  2. | Left_right
  3. | Dont_rotate
type sprite = {
  1. name : string;
  2. x : float;
  3. y : float;
  4. direction : float;
  5. size : float;
  6. visible : bool;
  7. costume : int;
  8. costumes : int;
  9. rotation : rotation;
  10. radius : float;
  11. pen : bool;
  12. pen_hue : float;
  13. pen_size : float;
  14. bubble : value option;
  15. scripts : Scratch_blocks.script list;
}
type ink =
  1. | Line of float * float * float * float * float * float
  2. | Stamp of sprite
type frame
type thread = {
  1. sprite : string;
  2. script : int;
  3. frames : frame list;
  4. result : value option;
}
type t = {
  1. sprites : sprite list;
  2. vars : (string * value) list;
  3. cells : (int * value) list;
  4. lists : (int * value list) list;
  5. next_id : int;
  6. ink : ink list;
  7. threads : thread list;
  8. now : float;
  9. timer_start : float;
  10. seed : int;
  11. broadcasts : string list;
  12. halt : bool;
}
type input = {
  1. mouse_x : float;
  2. mouse_y : float;
  3. mouse_down : bool;
  4. keys : string list;
  5. time : float;
}
val sprite : name:string -> costumes:int -> radius:float -> Scratch_blocks.script list -> sprite
val stage : sprite list -> t
val green_flag : t -> t
val stop : t -> t
val key : string -> t -> t
val click : string -> t -> t
val run_script : string -> int -> t -> t
val step : input -> t -> t
val report : input -> t -> string -> Scratch_blocks.block -> value * t
val find : t -> string -> sprite
val update : t -> sprite -> t
val variable : t -> string -> value
val items : t -> int -> value list
val show : t -> value -> string