structure Whip =
struct
  type box = {x: int, y: int}
  val size = 16
  val sizeReal: Real32.real = 16.0

  (* right frames *)
  val rf1 =
   #[     ]

  val rf2 =
   #[     ]

  val rf3 =
   #[     ]

  val rf4 =
   #[     ]

  val rf5 =
   #[ 
    ]

  val rf6 =
   #[     ]

  val rf7 =
   #[     ]

  val rf8 =
   #[     ]

  val rf9 =
   #[     ]

  val rf10 =
   #[     ]

  val rf11 =
   #[     ]

  val rf12 =
   #[ 
    ]

  val rf13 =
   #[
    ]

  val rf14 =
   #[
    ]

  val rf15 =
   #[
    ]

  val rf16 =
   #[
    ]

  val rf17 =
   #[
    ]

  val rf18 =
   #[
    ]

  val rf19 =
   #[
    ]

  val rf20 =
   #[
    ]

  val rf21 =
   #[ 
    ]

  val rf22 =
   #[ 
    ]

  val rf23 =
   #[
    ]

  val rf24 =
   #[]

  val rightFrames = #[ 
      rf1, rf2, rf3, rf4, rf5, rf6, rf7, rf8, rf9, rf10, rf11, rf12, rf13, rf14,
      rf15, rf16, rf17, rf18, rf19, rf20, rf21, rf22, rf23, rf24
    ]

  (* left frames *)
  val lf1 =
   #[     ]

  val lf2 =
   #[ 
    ]

  val lf3 =
   #[
    ]

  val lf4 =
   #[
    ]

  val lf5 =
   #[
    ]

  val lf6 =
   #[
    ]

  val lf7 =
   #[
    ]

  val lf8 =
   #[
    ]

  val lf9 =
   #[
    ]

  val lf10 =
   #[
    ]

  val lf11 =
   #[
    ]

  val lf12 =
   #[
    ]

  val lf13 =
   #[
    ]

  val lf14 =
   #[
    ]

  val lf15 =
   #[
    ]

  val lf16 =
   #[
    ]

  val lf17 =
   #[
    ]

  val lf18 =
   #[
    ]

  val lf19 =
   #[
    ]

  val lf20 =
   #[
    ]

  val lf21 =
   #[
    ]

  val lf22 =
   #[
    ]

  val lf23 =
   #[
    ]

  val lf24 =
   #[]

  val leftFrames = #[ 
      lf1, lf2, lf3, lf4, lf5, lf6, lf7, lf8, lf9, lf10, lf11, lf12, lf13, lf14,
      lf15, lf16, lf17, lf18, lf19, lf20, lf21, lf22, lf23, lf24
    ]
end