justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2024-12-28 10:31:58 +00:00
parent 39a76f758a
commit e028c54948
10 changed files with 91 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Projectile/Draw.hs
+7 -7
View File
@@ -13,18 +13,18 @@ import ShapePicture
drawProjectile :: Projectile -> SPic
drawProjectile pj
| Just DestroyPU{} <- pj ^? prjUpdates . ix 0 = mempty
| Just NoHoming <- pj ^? prjType . rkHoming =
| Just DestroyPU{} <- pj ^? pjUpdates . ix 0 = mempty
| Just NoHoming <- pj ^? pjType . rkHoming =
drawShell Nothing pj
| Just _ <- pj ^? prjType . rkHoming =
| Just _ <- pj ^? pjType . rkHoming =
drawRemoteShell pj
| otherwise = drawShell Nothing pj
drawShell :: Maybe Color -> Projectile -> SPic
drawShell mcol pj =
translateSPz (_prjZ pj)
. uncurryV translateSPxy (_prjPos pj)
$ rotateSP (_prjDir pj) $
translateSPz (_pjZ pj)
. uncurryV translateSPxy (_pjPos pj)
$ rotateSP (_pjDir pj) $
shellShape :!: thelight
where
thelight =
@@ -43,4 +43,4 @@ drawRemoteShell pj
col
| t > (-99) = green
| otherwise = red
t = _prjTimer pj
t = _pjTimer pj