Add check to cylinder segment collision, break rocket projectiles

src/ShortShow.hs

@@ -9,6 +9,10 @@ class ShortShow a where
 instance ShortShow a => ShortShow (V2 a) where
     shortShow (V2 x y) = shortShow x ++ "#" ++ shortShow y
 
+instance ShortShow a => ShortShow (V3 a) where
+    shortShow (V3 x y z) = shortShow x ++ "#" ++ shortShow y
+        ++ "#" ++ shortShow z
+
 newtype ShortString = SString String
 
 instance ShortShow ShortString where