Paste: The second output of my factor music system
Author: | _hrrld |
Mode: | factor |
Date: | Thu, 22 Oct 2009 02:46:45 |
Plain Text |
: music-test ( -- )
C 4 <pitch> 1 255 <note>
E 4 <pitch> 1 255 <note> line
G 3 <pitch> 1 255 <note> line
A 4 <pitch> 1 255 <note> line
C 3 <pitch> 1 255 <note>
C 5 <pitch> 1 255 <note> line
D 3 <pitch> 1 255 <note> line
G 4 <pitch> 1 255 <note> line
2/3 <tempo>
dup line chord
dup 1/2 <tempo>
dup line line
dup 7/4 <tempo>
line
dup 1/3 <tempo> 7 <transpose> dup dup line line chord
"_.mid" swap play-midi ;
New Annotation