Tweak twisting when aiming
This commit is contained in:
@@ -9,6 +9,7 @@ import Dodge.WorldEvent.Explosion
|
||||
import Dodge.Item.Weapon.BatteryGuns
|
||||
import Dodge.SoundLogic.LoadSound
|
||||
import Dodge.SoundLogic
|
||||
import Dodge.Item.Draw
|
||||
import Geometry
|
||||
import ShapePicture
|
||||
import Shape
|
||||
@@ -85,7 +86,7 @@ drawTurret :: Machine -> SPic
|
||||
drawTurret mc = (rotateSH (-_mcDir mc) . colorSH blue $ upperPrismPoly 20 (square wdth)
|
||||
, mempty -- setLayer 5 $ scale 0.5 0.5 $ text $ show $ _mcDir mc )
|
||||
)
|
||||
<> translateSPz 20 (_itFloorPict it it)
|
||||
<> translateSPz 20 (itSPic it)
|
||||
where
|
||||
it = _tuWeapon $ _mcType mc
|
||||
|
||||
|
||||
Reference in New Issue
Block a user