Rename protypes/basic to default
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user