# From: # www.contextfreeart.org/gallery2/#design/3905 # f1 random music # rests and notes for whole half and quaters.
startshape SHEET
shape SHEET rule {
SHEETLINE [ ] SHEETLINE [ y -30] SHEETLINE [ y -60] SHEETLINE [ y -90] SHEETLINE [ y -120] SHEETLINE [ y -150]
}
shape SHEETLINE {
BAR [] BAR[x +20] BAR[x +40] BAR[x +60] BAR[x +80] BAR[x +100] BAR[x +120]
}
shape BAR {
LINE [x +0] LINE [x +4] LINE [x +8] LINE [x +12] LINE [x +16] SQUARE [x -2 s .1 16] MAKENOTES [ ] }
shape MAKENOTES rule { WHOLENOTESR [ ]} rule {
HALFNOTESR [ ] HALFNOTESR [ x+8]
} rule {
HALFNOTESR [ ] QUARTNOTESR [ x+8] QUARTNOTESR [ x+12]
} rule {
QUARTNOTESR [ ] HALFNOTESR [ x+4] QUARTNOTESR [ x+12]
} rule {QUARTNOTESR [ ]
QUARTNOTESR [x+4] QUARTNOTESR [x+8] QUARTNOTESR [x+12] }
shape QUARTREST rule {
TRIANGLE [ y 1.5 s .5 3 sat 1 b 0 r 45 ] SQUARE [ y .4 s 2 1 b 0 sat 1 r 45 ] TRIANGLE [ y -.7 s .5 3 sat 1 b 0 r -135 ] CIRCLE [ y -2 s 2 b 0 sat 1] CIRCLE [ y -2.2 x .31 s 1.5 b 1 sat 0]
}
shape LINE rule {
SQUARE [y +4 s 4 .3] SQUARE [y +2 s 4 .3] SQUARE [y +0 s 4 .3] SQUARE [y -2s 4 .3] SQUARE [y -4 s 4 .3]
}
shape WHOLENOTE rule {
CIRCLE [ s 3 b 0 sat 1] CIRCLE [ s 2 b 1 sat 0] }
rule .05 {SQUARE [ y .5 s 4 .1]
SQUARE [ y -.1 s 2 1 b 0 sat 1]}
shape WHOLENOTESR rule { WHOLENOTE [x+8 y+4 ] } rule { WHOLENOTE [x +8 y+3] }
rule { WHOLENOTE [x +8 y+2] }
rule { WHOLENOTE [x +8 y+1] }
rule { WHOLENOTE [x +8 y+0] }
rule { WHOLENOTE [x+8 y-4 ] } rule { WHOLENOTE [x +8 y-3] }
rule { WHOLENOTE [x +8 y-2] }
rule { WHOLENOTE [x +8 y-1] }
rule { WHOLENOTE [x +8 y-0] }
rule { WHOLENOTE [x +8 y+5] }
rule { WHOLENOTE [x +8 y-5] }
rule { WHOLENOTE [x +8 y+6] }
rule { WHOLENOTE [x +8 y-6] }
rule { WHOLENOTE [x +8 y+7] SQUARE [x + 8 y 7 s 4 .3 b 0 sat 1]}
rule { WHOLENOTE [x +8 y-7] SQUARE [x +8 y -7s 4 .3 b 0 sat 1]}
shape HALFNOTES rule {
CIRCLE [s 3 b 0 sat 1] CIRCLE [ s 2 b 1 sat 0 ] SQUARE [ y +3.5 x+1.5 s .1 8]
} rule .05 {
SQUARE [ y .5 s 4 .1] SQUARE [ y 1 s 2 1 b 0 sat 1]
}
shape HALFNOTESR rule {HALFNOTES [x+4 y+4] } rule {HALFNOTES [x+4 y-4] } rule {HALFNOTES [x+4 y+3] } rule {HALFNOTES [x+4 y-3] } rule {HALFNOTES [x+4 y+2] } rule {HALFNOTES [x+4 y-2] } rule {HALFNOTES [x+4 y+1] } rule {HALFNOTES [x+4 y-1] } rule {HALFNOTES [x+4 y+0] } rule {HALFNOTES [x+4 y+5] } rule {HALFNOTES [x+4 y-5] } rule {HALFNOTES [x+4 y+6] } rule {HALFNOTES [x+4 y-6] } rule {HALFNOTES [x+4 y+7] SQUARE [x + 4 y 7 s 4 .3 b 0 sat 1] } rule {HALFNOTES [x+4 y-7] SQUARE [x + 4 y -7 s 4 .3 b 0 sat 1]}
shape QUARTNOTES rule {
CIRCLE [s 3 b 0 sat 1] SQUARE [ y +3.5 x+1.5 s .1 8]
} rule .05 { QUARTREST [ ] }
shape QUARTNOTESR rule { QUARTNOTES [x+2 y+4] } rule { QUARTNOTES [x+2 y-4] } rule { QUARTNOTES [x+2 y+3] } rule { QUARTNOTES [x+2 y-3 ]} rule { QUARTNOTES [x+2 y+2] } rule { QUARTNOTES [x+2 y-2 ]} rule { QUARTNOTES [x+2 y+1] } rule { QUARTNOTES [x+2 y-1] } rule { QUARTNOTES [x+2 y+0] } rule { QUARTNOTES [x+2 y+5] } rule { QUARTNOTES [x+2 y-5] } rule { QUARTNOTES [x+2 y+6] } rule { QUARTNOTES [x+2 y-6] } rule { QUARTNOTES [x+2 y+7] SQUARE [x + 2 y 7 s 4 .3 b 0 sat 1] } rule { QUARTNOTES [x+2 y-7] SQUARE [x + 2 y -7 s 4 .3 b 0 sat 1]}