coordinates :: Vector (Float, Float)
  coordinates = fromList [ (0,0), (1,0), (0,2), (1,1), (4,6), (2,3), (2,4) ]
coordinates :: Vector (Float, Float)
coordinates = fromList [ (0,0), (1,0), (0,2), (1,1), (4,6), (2,3), (2,4) ]
coordinates = fromList [ (0,0), (1,0), (0,2), (1,1), (4,6), (2,3), (2,4) ]