swflib/swfBaseOut.mli

   1 type bit =
   2     SB of int * int
   3   | UB of int * int
   4   | FB of int * float
   5
   6 type matrix = {
   7   scale:     (float * float) option;
   8   rotate:    (float * float) option;
   9   translate: (int*int)
  10 }
  11
  12 type s = [
  13   `Si8     of int
  14 | `Si16    of int
  15 | `Si24    of int
  16 | `Si32    of int32
  17 | `Ui8     of int
  18 | `Ui16    of int
  19 | `Ui24    of int
  20 | `Ui32    of int32
  21 | `Ui64    of int64
  22 | `EUi32   of int32
  23 | `Bits    of bit list
  24 | `Fixed   of float
  25 | `Fixed8  of float
  26 | `Float32 of float
  27 | `Float64 of float
  28 | `Rect    of int*int*int*int
  29 | `RGB     of int * int * int
  30 | `RGBA    of int * int * int * int
  31 | `ARGB    of int * int * int * int
  32 | `Str     of string
  33 | `Lang    of int
  34 | `Matrix  of matrix
  35 ]
  36
  37 type backpatch = [
  38 | `Ui32Size
  39 | `Size    of (int -> s list) * s list
  40 ]
  41
  42 type t = [ s | backpatch ]
  43
  44 val to_list : t list -> int list