diff --git a/dfs.tidal b/dfs.tidal index 09fb9b1..b373a2e 100644 --- a/dfs.tidal +++ b/dfs.tidal @@ -68,10 +68,7 @@ g1 = buildG (0,6) [(1,5),(1,2),(1,3),(2,4),(3,5),(4,2),(4,3),(5,1),(5,2),(5,6),( g2 = buildG (0,6) $ id <$> [(0,1),(1,2),(2,3),(3,4),(4,5),(5,6),(2,1)] -preorderF $ dff g2 - --- numbers ist nur für debug -let edgePattern g e = (scale "major" $ pure $ snd e) # (s $ pure $ instrument g e) +let edgePattern g e = (scale "ritusen" $ pure $ snd e) # (s $ pure $ instrument g e) # gain 1 vertexPattern g v = (n $ pure $ toEnum v) # s "numbers" # end 0.4