{-# LANGUAGE LambdaCase #-}
module Dodge.WorldPos where

import Dodge.Base.You
import Dodge.Data.World
import Geometry
import Control.Lens
import Linear

doWorldPos :: WdP2 -> World -> Point2
doWorldPos = \case
    WdP2Const p -> const p
    WdYouPos -> (^. crPos . _xy) . you