module Scene where

import Data.Vect.Float
import qualified Data.Vector as V

type Point = Vec2

data Scene
  = Scene
    { scenePoints :: V.Vector Point
    }

emptyScene
  = Scene
    { scenePoints = V.fromList
        [ Vec2 50 100
        , Vec2 200 300
        ]
    }
