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)