module Dodge.ShortShow where
import Geometry

shortPoint2 :: Point2 -> String
shortPoint2 (V2 x y) = "x" ++ show (round x::Int) ++ "y" ++ show (round y::Int)