10 instance Arbitrary Cube where
12 g' <- arbitrary :: Gen Grid
13 i' <- choose (coordmin, coordmax)
14 j' <- choose (coordmin, coordmax)
15 k' <- choose (coordmin, coordmax)
16 d' <- arbitrary :: Gen Double
17 return (Cube g' i' j' k' d')
19 coordmin = -268435456 -- -(2^29 / 2)
20 coordmax = 268435456 -- +(2^29 / 2)