Reenable mid layer rendering, may remove bottom layer rendering

src/Dodge/Item/Grammar.hs

@@ -8,7 +8,7 @@ module Dodge.Item.Grammar (
 ) where
 
 import Dodge.Item.Orientation
-import qualified Linear.Quaternion as Q
+--import qualified Linear.Quaternion as Q
 import Geometry.Data
 import Control.Applicative
 import Data.Bifunctor
@@ -39,16 +39,14 @@ useBreakListsLinkTest llist rlist = LTest ltest rtest
 basePartiallyComposedItem' :: Item -> PartiallyComposedItem ItemLink
 basePartiallyComposedItem' itm = case itm ^. itType of
     HELD _ -> (itm, WeaponPlatformSF, useBreakListsLinkTest 
-        --(map (\(i,a) -> (AmmoMagSF a, ILink (AmmoInLink i a) (c (V3 7 (-2) 0) rhs
-        (map (\(i,a) -> (AmmoMagSF a, ILink (AmmoInLink i a) orientAttachment
-            ))
+        (map (\(i,a) -> noa (AmmoMagSF a) (AmmoInLink i a))
             (IM.toList $ itm ^. itUse . heldAmmoTypes))
         [noa WeaponTargetingSF WeaponTargetingLink, noa WeaponScopeSF WeaponScopeLink]
         )
     AMMOMAG _ -> ammoComposedItem' itm
     TARGETING {} -> (itm,WeaponTargetingSF, useBreakListsLinkTest [noa AugmentedHUDSF AugmentedHUDLink] [])
-    ATTACH ZOOMSCOPE -> (itm,WeaponScopeSF, LTest (const Nothing) (const Nothing))
-    ATTACH HOMINGMODULE -> (itm,AmmoTargetingSF ProjectileAmmo, LTest (const Nothing) (const Nothing))
+    ATTACH ZOOMSCOPE -> nolinks WeaponScopeSF
+    ATTACH HOMINGMODULE -> nolinks $ AmmoTargetingSF ProjectileAmmo
     ATTACH AUGMENTEDHUD -> nolinks AugmentedHUDSF
     BULLETMOD BulletModTrajectory {} -> nolinks $ AmmoTargetingSF BulletAmmo
     BULLETMOD BulletModPayload {} -> nolinks $ AmmoPayloadSF BulletAmmo