Allow shadow fidelity option, fix bug in rendering box shadows
This commit is contained in:
@@ -22,7 +22,7 @@ drawShell pj =
|
||||
$ rotateSH (argV $ _prjAcc pj) shellShape
|
||||
|
||||
shellShape :: Shape
|
||||
shellShape = colorSH black $ upperPrismPoly 4 $ map toV2 [(-6, 4), (-6, -4), (6, -4), (8, 0), (6, 4)]
|
||||
shellShape = colorSH black $ upperPrismPoly Small Typical 4 $ map toV2 [(-6, 4), (-6, -4), (6, -4), (8, 0), (6, 4)]
|
||||
|
||||
drawRemoteShell :: Proj -> SPic
|
||||
drawRemoteShell pj
|
||||
|
||||
Reference in New Issue
Block a user