11 lines
215 B
Haskell
11 lines
215 B
Haskell
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
|