Add (ugly) support for fractional volumes

2022-04-05 09:26:57 +01:00
parent 31d5bcd0bb
commit bca1236a85
12 changed files with 228 additions and 38 deletions
@@ -33,6 +33,7 @@ data Sound = Sound
    , _soundAngDist     :: Maybe (Int16,Word8)  -- why do BOTH of
    , _soundPos         :: Point2               -- these exist?
    , _soundVolume      :: Float
+    , _soundVolumeFraction :: Float -- this needs cleaning up/combining
    , _soundChunkID     :: SoundID
    }
  deriving (Eq,Ord,Show)