Add files

src/Dodge/Item/Draw/SPicTree.hs

@@ -0,0 +1,21 @@
+module Dodge.Item.Draw.SPicTree (itemTreeSPic) where
+
+import Dodge.Item.Draw.SPic
+import Dodge.Data.ComposedItem
+import Dodge.Data.DoubleTree
+import Dodge.Data.Item
+import Dodge.Item.Orientation
+import LensHelp
+import qualified Linear.Quaternion as Q
+--import qualified Linear.Quaternion as Q
+import ShapePicture
+
+itemTreeSPic :: DTree CItem -> SPic
+itemTreeSPic (DT (itm, _) l r) = itemSPic itm <> foldMap (itemRotTreeSPic itm) (l <> r)
+
+itemRotTreeSPic :: Item -> DTree CItem -> SPic
+itemRotTreeSPic par t = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
+  where
+    (p, q) = orientAttachment par itm
+    itm = t ^. dtValue
+