work in progress on aout

src/Action.purs

@@ -13,7 +13,7 @@ import Signal (Signal,signalInfo)
 import DefTime (DefTime(..), calculateT1)
 import Transition (Transition(..), transitionToXfade)
 import Duration (Duration(..))
-import Output (Output(..))
+import Output (Output(..),isVisualOutput,isAudioOutput)
 
 type Action = {
   signal :: Signal,
@@ -56,10 +56,10 @@ actionTimesAsAudioTime tempo eTime clockDiff x = Tuple t1Audio t2Audio
     t2Audio = t2Posix - clockDiff
 
 actionHasVisualOutput :: Action -> Boolean
-actionHasVisualOutput a = a.output == Blend || a.output == RGBA || a.output == Add || a.output == Mul || a.output == RGB
+actionHasVisualOutput a = isVisualOutput a.output
 
 actionHasAudioOutput :: Action -> Boolean
-actionHasAudioOutput a = a.output == Audio
+actionHasAudioOutput a = isAudioOutput a.output
 
 actionHasAudioInput :: Action -> Boolean
 actionHasAudioInput a = unwrap (signalInfo a.signal).ain

src/Output.purs

@@ -1,6 +1,6 @@
 module Output where
 
-import Prelude (class Eq,class Show)
+import Prelude (class Eq,class Show,not,(<<<),max)
 import Data.Generic.Rep (class Generic)
 import Data.Show.Generic (genericShow)
 
@@ -18,16 +18,19 @@ derive instance Generic Output _
 instance Show Output where
   show = genericShow
 
+isVisualOutput :: Output -> Boolean
+isVisualOutput = not <<< isAudioOutput
+
 isAudioOutput :: Output -> Boolean
 isAudioOutput Audio = true
 isAudioOutput (AOut _ _) = true
 isAudioOutput _ = false
 
 audioOutputChannels :: Int -> Output -> Int
-audioOutputChannels maxChnls Audio = maxChnls
-audioOutputChannels _ (AOut _ n) = n
-audioOutputChannels _ _ = 0
+audioOutputChannels maxChnls Audio = max maxChnls 1
+audioOutputChannels _ (AOut _ n) = max n 1
+audioOutputChannels _ _ = 1
 
 audioOutputOffset :: Output -> Int
-audioOutputOffset (AOut o _) = o
+audioOutputOffset (AOut o _) = max o 0
 audioOutputOffset _ = 0