Changeset 1980

Timestamp:

09/16/09 10:06:22 (4 months ago)

Author:

t-anders

Message:

41 ET notation tests

Files:

• trunk/strasheela/contributions/anders/ET41/testing/Output-test.oz (modified) (1 diff)

trunk/strasheela/contributions/anders/ET41/testing/Output-test.oz

@@ -11 +11 @@
 /*
 
+%% all 41 ET notes
 declare
 MyScore = {Score.makeScore
-           seq(items:{Map {List.number 0 40 1}
-                      fun {$ PC}
-                         note(duration:1
-                              amplitude:64
-                              pitchClass:PC
-                              octave:4)
-                      end}
+           seq({Map {List.number 0 40 1}
+                fun {$ PC}
+                   note(duration:1
+                        pitchClass:PC
+                        octave:4)
+                end}
                startTime:0
                timeUnit:beats)
            unit(seq:Score.sequential
                 note:HS.score.note)}
+{MyScore wait}
 %% 
 {ET41.out.renderAndShowLilypond MyScore
  unit(file:"41ET-test")}
 
+
+%% chord notation test
+declare
+fun {MakeChord PCs}
+   sim({Map PCs
+        fun {$ PC}
+           note(duration:1
+                pitchClass:PC
+                octave:4)
+        end})
+end
+MyScore = {Score.make
+           seq([{MakeChord [0 15 30]}
+                {MakeChord [1 16 31]}
+                {MakeChord [2 17 32]}]
+               startTime:0
+               timeUnit:beats)
+           add(note:HS.score.note)}
+{MyScore wait}
+%% 
+{ET41.out.renderAndShowLilypond MyScore
+ unit(file:"41ET-test2")}
+
+
 */