Work on weapon positioning, analyser terminal positioning

2026-03-31 13:16:24 +01:00
parent ab04516279
commit 6bcf03b30d
18 changed files with 252 additions and 178 deletions
@@ -17,6 +17,7 @@ module Dodge.Room.LasTurret (
    storeRoomID,
 ) where

+import Dodge.Room.Warning
 import Dodge.Room.Modify
 import Color
 import Control.Monad
@@ -112,13 +113,15 @@ analyserByNthLink :: Int -> ProximityRequirement -> Int -> Placement
 analyserByNthLink n proxreq i =
    analyser
        (SensorWithRequirement proxreq)
+--        (byNthLink n)
        ( atNthLnkOutShiftBy
            n
            ( \(p, a) ->
                ((p +.+ rotateV a (V2 18.5 (-2.5)), a), S.singleton UsedPosLow)
            )
        )
-        (atNthLnkOutShiftBy n sensorshift)
+        (byNthLink n)
+--        (atNthLnkOutShiftBy n sensorshift)
        & plExternalID
        ?~ i
  where