Permalink
Browse files

Added some tests to parallelMus

  • Loading branch information...
pdcawley committed Apr 17, 2012
1 parent ec63856 commit c866b770a58b77a526e4d9842e2696f4d20ad3e8
Showing with 19 additions and 0 deletions.
  1. +19 −0 lesson2/parallelMus.coffee
View
@@ -33,3 +33,22 @@ compile = (musexpr) ->
comp expr.right, endTime(time, expr.left)
comp musexpr, 0
return notes
+
+note = (p, d) ->
+ tag: 'note',
+ pitch: p
+ dur: d
+
+melody_mus =
+ tag: 'seq'
+ left:
+ tag: 'seq'
+ left: note 'a4', 250
+ right: note 'b4', 250
+ right:
+ tag: 'seq'
+ left: note 'c4', 250
+ right: note 'd4', 250
+
+console.log melody_mus
+console.log compile melody_mus

0 comments on commit c866b77

Please sign in to comment.