Reenable mid layer rendering, may remove bottom layer rendering

2024-09-30 23:32:01 +01:00
parent 752b568a86
commit c2214dae60
6 changed files with 64 additions and 149 deletions
@@ -20,7 +20,6 @@ orientByLink itm lt = case (_itType itm,lt) of

 orientAttachment :: Item -> ComposeLinkType -> Item -> Maybe (Point3, Q.Quaternion Float)
 orientAttachment par lnk ch = Just (t1 + (Q.rotate q1 t2), q1 * q2)
--orientAttachment par lnk ch = Just (t1 , q1 )
  where
    (t1,q1) = orientByLink par lnk
    (t2,q2) = orientChild ch