6 lines
158 B
Haskell
6 lines
158 B
Haskell
module Dodge.ShortShow where
|
|
import Geometry
|
|
|
|
shortPoint2 :: Point2 -> String
|
|
shortPoint2 (V2 x y) = "x" ++ show (round x::Int) ++ "y" ++ show (round y::Int)
|