Cleanup
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user