Add visuals for wrist equipment

2022-05-22 23:23:29 +01:00
parent b83392d441
commit 1c038b79be
8 changed files with 108 additions and 22 deletions
@@ -39,6 +39,8 @@ module Picture
    , setDepth
    , addDepth
    , setLayer
+    , mirroryz
+    , mirrorxz
    )
  where
 import Geometry
@@ -358,3 +360,13 @@ charToTuple x c =
    ]
  where 
    offset = fromIntegral (fromEnum c) - 32
+
+mirrorxz :: Picture -> Picture
+mirrorxz = map (overPos flipy)
+  where
+    flipy (V3 x y z) = V3 x (negate y) z
+
+mirroryz :: Picture -> Picture
+mirroryz = map (overPos flipx)
+  where
+    flipx (V3 x y z) = V3 (negate x) y z