Convert a pattern of booleans into a list of ones and zeroes

Questions and Answers
9

I got it to work. Thanks again @mvdirty and @yaxu!

I also used patternToList function from this thread: https://club.tidalcycles.org/t/pattern-to-list/2982

mvdirty's solution:

import Data.Bool  

import Data.List

do
  let 
      booleans = bool 0 1 <$> binaryN 6 "123"
      patternToList pat = map value $ sortOn whole $ queryArc pat (Arc 0 1)
      amps = patternToList booleans    
  d1 
    $ s "superfm"
    # amp1 (amps !! 0)
    # amp2 (amps !! 1)
    # amp3 (amps !! 2)
    # amp4 (amps !! 3)
    # amp5 (amps !! 4)
    # amp6 (amps !! 5)
    # ratio1 1
    # ratio2 0.99
    # ratio3 0.88
    # ratio4 0.77
    # ratio5 0.66
    # ratio6 0.55

Yaxu's solution:

import Data.List

do
  let onezero boolpat = stitch boolpat 1 0
      booleans = onezero $ binaryN 6 123
      patternToList pat = map value $ sortOn whole $ queryArc pat (Arc 0 1)
      amps = patternToList booleans    
  d1 
      $ s "superfm"
      # amp1 (amps !! 0)
      # amp2 (amps !! 1)
      # amp3 (amps !! 2)
      # amp4 (amps !! 3)
      # amp5 (amps !! 4)
      # amp6 (amps !! 5)
      # ratio1 1
      # ratio2 0.99
      # ratio3 0.88
      # ratio4 0.77
      # ratio5 0.66
      # ratio6 0.55

I'm planning to add more lists of 1s and 0s to create random noise using superfm

2 Likes