Work on orienting and drawing attachments

2024-09-30 23:02:22 +01:00
parent 48b8cfe7ef
commit 752b568a86
13 changed files with 340 additions and 229 deletions
@@ -1 +1,99 @@
-All good (607 modules, at 21:29:51)
+/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:11:1-39: warning: [-Wunused-imports]
+    The qualified import of ‘Linear.Quaternion’ is redundant
+   |
+11 | import qualified Linear.Quaternion as Q
+   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:12:1-20: warning: [-Wunused-imports]
+    The import of ‘Geometry.Data’ is redundant
+   |
+12 | import Geometry.Data
+   | ^^^^^^^^^^^^^^^^^^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:65:5: warning: [-Wunused-local-binds]
+    Defined but not used: ‘c’
+   |
+65 |     c x y _ _ _ = Just (x,y)
+   |     ^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:456:5-6: warning: [-Wunused-local-binds]
+    Defined but not used: ‘tx’
+    |
+456 |     tx = 4
+    |     ^^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:456:10: warning: [-Wtype-defaults]
+    • Defaulting the following constraint to type ‘Integer’
+        Num p0 arising from the literal ‘4’
+    • In the expression: 4
+      In an equation for ‘tx’: tx = 4
+      In an equation for ‘flamerPic’:
+          flamerPic _
+            = (colorSH yellow $ xCylinderST 5 18, mempty)
+            where
+                tx = 4
+                ty = - 6
+                tz = 3
+                r = 5
+    |
+456 |     tx = 4
+    |          ^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:457:5-6: warning: [-Wunused-local-binds]
+    Defined but not used: ‘ty’
+    |
+457 |     ty = - 6
+    |     ^^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:457:10-12: warning: [-Wtype-defaults]
+    • Defaulting the following constraint to type ‘Integer’
+        Num a0 arising from a use of syntactic negation
+    • In the expression: - 6
+      In an equation for ‘ty’: ty = - 6
+      In an equation for ‘flamerPic’:
+          flamerPic _
+            = (colorSH yellow $ xCylinderST 5 18, mempty)
+            where
+                tx = 4
+                ty = - 6
+                tz = 3
+                r = 5
+    |
+457 |     ty = - 6
+    |          ^^^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:458:5-6: warning: [-Wunused-local-binds]
+    Defined but not used: ‘tz’
+    |
+458 |     tz = 3
+    |     ^^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:458:10: warning: [-Wtype-defaults]
+    • Defaulting the following constraint to type ‘Integer’
+        Num p0 arising from the literal ‘3’
+    • In the expression: 3
+      In an equation for ‘tz’: tz = 3
+      In an equation for ‘flamerPic’:
+          flamerPic _
+            = (colorSH yellow $ xCylinderST 5 18, mempty)
+            where
+                tx = 4
+                ty = - 6
+                tz = 3
+                r = 5
+    |
+458 |     tz = 3
+    |          ^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:459:5: warning: [-Wunused-local-binds]
+    Defined but not used: ‘r’
+    |
+459 |     r = 5
+    |     ^
+/home/justin/Haskell/loop/src/Dodge/Item/Draw/SPic.hs:459:9: warning: [-Wtype-defaults]
+    • Defaulting the following constraint to type ‘Integer’
+        Num p0 arising from the literal ‘5’
+    • In the expression: 5
+      In an equation for ‘r’: r = 5
+      In an equation for ‘flamerPic’:
+          flamerPic _
+            = (colorSH yellow $ xCylinderST 5 18, mempty)
+            where
+                tx = 4
+                ty = - 6
+                tz = 3
+                r = 5
+    |
+459 |     r = 5
+    |         ^