tidal-vis 0.1.8 → 0.9.2
raw patch · 2 files changed
+8/−8 lines, 2 filesdep ~tidal
Dependency ranges changed: tidal
Files
- Sound/Tidal/Vis.hs +5/−5
- tidal-vis.cabal +3/−3
Sound/Tidal/Vis.hs view
@@ -5,9 +5,10 @@ import Data.Colour.Names import Data.Colour.SRGB import Control.Applicative-import Sound.Tidal.Context-import Data.Ratio+import Sound.Tidal.Parse+import Sound.Tidal.Pattern import Sound.Tidal.Utils+import Data.Ratio vPDF = v C.withPDFSurface vSVG = v C.withSVGSurface@@ -18,7 +19,6 @@ C.save C.scale x y C.setOperator C.OperatorOver- C.setAntialias C.AntialiasNone C.setSourceRGB 0 0 0 C.rectangle 0 0 1 1 C.fill@@ -37,11 +37,11 @@ C.fill mapM_ (\x -> do C.save C.translate 0 (fromIntegral x)- drawLine ((cyclesPerLine * (fromIntegral x)) ~> pat)+ drawLine ((cyclesPerLine * (fromIntegral x)) `rotR` pat) C.restore ) [0 .. (nLines - 1)] C.restore - where drawLine p = mapM_ renderEvent (events (density cyclesPerLine p))+ where drawLine p = mapM_ renderEvent (events (_density cyclesPerLine p)) renderEvent (_, (s,e), (cs)) = do C.save
tidal-vis.cabal view
@@ -1,5 +1,5 @@ name: tidal-vis-version: 0.1.8+version: 0.9.2 synopsis: Visual rendering for Tidal patterns -- description: homepage: http://yaxu.org/tidal/@@ -8,7 +8,7 @@ author: Alex McLean maintainer: alex@slab.org Stability: Experimental-Copyright: (c) Alex McLean and others, 2014+Copyright: (c) Alex McLean and others, 2017 category: Sound build-type: Simple cabal-version: >=1.4@@ -20,4 +20,4 @@ library Exposed-modules: Sound.Tidal.Vis - Build-depends: base < 5, tidal, colour, cairo+ Build-depends: base < 5, tidal==0.9.2, colour, cairo