11 lines
251 B
Haskell
11 lines
251 B
Haskell
module Dodge.LevelGen.DoorPane (mkRectangle) where
|
|
|
|
import Geometry.Data
|
|
import Geometry.Vector
|
|
import Linear
|
|
|
|
mkRectangle :: Float -> Point2 -> [ Point2]
|
|
mkRectangle wdth b = [ n , - n , b - n , b + n ]
|
|
where
|
|
n = wdth *^ normalizeV (vNormal b)
|