Rename protypes/basic to default

This commit is contained in:
jgk
2021-03-26 13:33:55 +01:00
parent c4ce354382
commit 420cf7fc4b
11 changed files with 125 additions and 122 deletions
+2 -2
View File
@@ -2,7 +2,7 @@ module Dodge.LevelGen.StaticWalls
where
import Dodge.Data
import Dodge.Base
import Dodge.Prototypes
import Dodge.Default
import Geometry
@@ -49,7 +49,7 @@ createPolyWall (p1,p2) walls =
p4 = p3 +.+ 10000 *.* vNormal (p2 -.- p1)
maybeW = wallOnLine p3 p4 walls
k = newKey walls
newWall = basicWall {_wlLine = [p1,p2], _wlID = k}
newWall = defaultWall {_wlLine = [p1,p2], _wlID = k}
-- given a segment and a wall, adds a cut point to the wall if it intersects the
-- segment