Cleanup

2021-11-23 22:33:23 +00:00
parent ddd120dee1
commit 5f6d81bd05
10 changed files with 65 additions and 53 deletions
@@ -6,7 +6,7 @@ the outgoing links.  -}
 module Dodge.Room.Link
    ( --shiftRoomToLink
    --, shiftRoomShiftToLink
-     shiftRoomShiftToLink'
+     shiftRoomShiftToLink
    , shiftRoomBy
    , shiftLinkBy
    , doRoomShift
@@ -129,8 +129,8 @@ shiftRoomBy shift r = r
 --  where 
 --    (p,a) = head $ _rmInLinks r

-shiftRoomShiftToLink' :: (Point2,Float) -> (Point2,Float) -> Room -> Room
-shiftRoomShiftToLink' l inlink r 
+shiftRoomShiftToLink :: (Point2,Float) -> (Point2,Float) -> Room -> Room
+shiftRoomShiftToLink l inlink r 
    = shiftRoomShiftBy l 
    . shiftRoomShiftBy (V2 0 0       , pi-a)  
    $ shiftRoomShiftBy (V2 0 0 -.- p , 0)