This commit is contained in:
2023-03-16 21:56:34 +00:00
parent bbbddb844d
commit 9e89dcebe7
7 changed files with 351 additions and 300 deletions
+1 -1
View File
@@ -18,7 +18,7 @@ drawShell :: Proj -> SPic
drawShell pj =
noPic
. translateSHz 18
. uncurryV translateSHf (_prjPos pj)
. uncurryV translateSHxy (_prjPos pj)
$ rotateSH (argV $ _prjAcc pj) shellShape
shellShape :: Shape