Add cylinder shapes

2023-03-16 21:05:09 +00:00
parent 46d6d91138
commit bbbddb844d
3 changed files with 54 additions and 16 deletions
@@ -27,14 +27,13 @@ basicCrPict cr = uncurryV translateSPf (_crPos cr) (rotateSP (_crDir cr) $ drawE
    <> (basicCrShape cr, mempty)

 --testShape :: Shape
--testShape = translateSHz 10 . rotateSHx 0 . upperCylinder 20 $ polyCirc 2 10
+--testShape = translateSHz 10 . rotateSHx 1 . upperCylinder 20 $ polyCirc 2 10

 basicCrShape ::
    Creature ->
    Shape
 basicCrShape cr
    | _crCamouflage cr == Invisible = mempty
--    | otherwise = colorSH white $ tr $ rotdir testShape
    | otherwise =
        tr . scaleSH (V3 crsize crsize crsize) $
            mconcat