Cleanup, prepare ground to allow for drawing attached items

2024-09-30 15:09:21 +01:00
parent 18219d0bff
commit fd8adcea92
11 changed files with 245 additions and 273 deletions
@@ -63,7 +63,7 @@ drawTurret :: Turret -> Machine -> SPic
 drawTurret tu mc = overPosSP (turretItemOffset itm tu mc) (itemSPic ittree)
  where
    itm = _tuWeapon tu
-    ittree = singleLDT (itm,UncomposableIsolateSF,LinkTest (const Nothing) (const Nothing))
+    ittree = singleLDT (itm,UncomposableIsolateSF,LTest (const Nothing) (const Nothing))

 sensorSPic :: (PaletteColor, DecorationShape) -> Machine -> SPic
 sensorSPic (pc, ds) mc =