.fam H
.pl 12i
.cs HR 40
.ps 32
\S'-16'
.PS 6.5
linethick = 0.5

define staves {
	linespacing = 0.5
	for y = $1 to $1+(linespacing*5) by linespacing do {
		line from (0, y) to (50, y+(50*0.28));
	}
	line from (0, $1) to (0, $1+(linespacing*5))
	line from (50, $1+(50*0.28)) to (50, $1+(50*0.28)+(linespacing*5))
}
for i = 0 to 70 by 10 do {
	staves(i)
}

define diagtext {
	line from (0, $1 + fontoffset) to ($2, $1-($2*0.28) + fontoffset) $3 aligned color "red" invis $4
}
fontoffset = 0.8
diagtext(80, 20,   "BORING")
diagtext(70, 27,   "FORMLESS")
diagtext(60, 27.5, "NONSENSE")

fontoffset = 1
command ".ps 16"

diagtext(45, 32, "EXPERIMENTAL MUSIC")
diagtext(35, 32, "AND THE AESTHETICS")
diagtext(25, 17, "OF FAILURE")

fontoffset = 0.5
command ".cs HR 18"
diagtext(5,  12, "eldritch Priest", color "grey15")

copy thru { circle at ($1, $2) filled 0.66 rad 0.35 thick 0 } until "END"
50 0
49 0
48 0
49.5 1
48.5 1
49 2
END
line from (50, 0) to (49, 2)   thick 4 color "dimgrey"
line from (49, 0) to (48.5, 1) thick 4 color "dimgrey"

.PE