# 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]}