justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Start adding DT versions of LDT functions

Browse Source
This commit is contained in:
justin
2025-07-10 21:36:52 +01:00
parent fd5f5105aa
commit 9543c2c789
4 changed files with 29 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Draw/SPic.hs
+5 -5
View File
@@ -21,14 +21,14 @@ import Picture
import Shape
import ShapePicture
itemTreeSPic :: LDTree ItemLink CItem -> SPic
itemTreeSPic (LDT (itm,_) l r) = itemSPic itm <> foldMap (itemRotTreeSPic itm) (l <> r)
itemTreeSPic :: DTree CItem -> SPic
itemTreeSPic (DT (itm,_) l r) = itemSPic itm <> foldMap (itemRotTreeSPic itm) (l <> r)
itemRotTreeSPic :: Item -> (ItemLink, LDTree ItemLink CItem) -> SPic
itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
itemRotTreeSPic :: Item -> (DTree CItem) -> SPic
itemRotTreeSPic par ( t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
where
(p, q) = orientAttachment par itm
itm = t ^. ldtValue
itm = t ^. dtValue
itemSPic :: Item -> SPic
itemSPic it = case it ^. itType of