module Dodge.WorldPos where

import Dodge.Base.You
import Dodge.Data.World
import Geometry

doWorldPos :: WdP2 -> World -> Point2
doWorldPos wp2 = case wp2 of
    WdP2Const p -> const p
    WdYouPos -> _crPos . you