Work on textures and lighting

2023-03-23 21:17:24 +00:00
parent 1a2fc7c715
commit 1abfaa3cd0
25 changed files with 641 additions and 710 deletions
@@ -23,7 +23,7 @@ import qualified Quaternion as Q
 import ShapePicture

 basicCrPict :: Creature -> SPic
-basicCrPict cr = uncurryV translateSPf (_crPos cr) (rotateSP (_crDir cr) $ drawEquipment cr) 
+basicCrPict cr = uncurryV translateSPxy (_crPos cr) (rotateSP (_crDir cr) $ drawEquipment cr) 
    <> (basicCrShape cr, mempty)

 --testShape :: Shape