Remove ItemLink from item orientation code

2025-07-10 21:17:01 +01:00
parent a9d730a5c1
commit fd5f5105aa
4 changed files with 49 additions and 51 deletions
@@ -27,8 +27,8 @@ itemTreeSPic (LDT (itm,_) l r) = itemSPic itm <> foldMap (itemRotTreeSPic itm) (
 itemRotTreeSPic :: Item -> (ItemLink, LDTree ItemLink CItem) -> SPic
 itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
  where
-    (p, q) = orientAttachment par il itm
-    itm = t ^. ldtValue . _1
+    (p, q) = orientAttachment par itm
+    itm = t ^. ldtValue

 itemSPic :: Item -> SPic
 itemSPic it = case it ^. itType of