14 lines
277 B
Haskell
14 lines
277 B
Haskell
{-# 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
|