BoxyLady(0.2.4)

--messages(errors)

def(beep=(\default:beep))

def(
	NOP=(rem())
	breve=(D(2 1))
	breve.=(D(3 1))
	longa=(D(4 1))
	longa.=(D(6 1))
	maxima=(D(8 1))
	maxima.=(D(12 1))
	british(
		gamut(accidentals(b(-1) bb(-2) #(1) x(2)))
	)
)

access(NOP=system breve=system breve.=system longa=system longa.=system maxima=system maxima.=system beep=system british=system) 

def(stanne=(<
	rel(c''''') amp(f=0.4) tempo=150
	[stereo(1 0.5) 4 g' e a g c c b c g c g a fis 2. g 4 b c a d b c a b g a c d b 2. c]
	[stereo(0.83 0.67) 4 c c 8 c-* d-! 4 e e d d e e e e e d 2. d 4 d e c f d c a' gis g f e d d 2. e]
	[stereo(0.67 0.83) 4 e, g 8 a-* b-! 4 c c a g g c c b c a 2. b 4 g g a a b 4. e-* 8 d-! 4 b c f, g a g 2. g]
	[stereo(0.5 1) 4 c, c f e a f g c, c a e' c d 2. g, 4 g' c, f d g a f e e d c f g 2. c,]
>))

def(epiphany=(<
	rel(c''''') amp(f=0.4) tempo=120
	[stereo(1 0.5) 2 fis 4 e d 2 a' 4 b cis 2 d 4 cis b a-* g-! 2 fis e 4 d d 2 g 4 fis fis 2 b 4. g 8 fis 1 e
		2 a 4 d d cis-* a-! g g 2 fis 4 b b 2 a cis d 4 d d 2 d 4 cis b 2 a 4 e fis 1 d]
	[stereo(0.83 0.67) 2 d 4 d d 2 e 4 e e 2 d 4 d d 2 e d cis 4 d d 2 cis 4 d d 2 d 4. e 8 b 1 cis
		2 d 4 fis fis e-* cis-! e e 2 d 4 e e 2 e e d 4 d d 2 e 4 e e 2 fis 4 cis cis 1 d]
	[stereo(0.67 0.83) 2 a 4 g fis 2 a 4 a a 2 fis 4 fis fis 2 a a a 4 a a 2 a 4 a a 2 g 4 g g 1 a
		2 a 4 a a 2 e' 4 cis cis 2 d 4 d d 2 cis a 4 a-* fis-! g a 2 b 4 cis d 2 d 4 g, g 1 fis]
	[stereo(0.5 1) 2 d, 4 d d 2 cis 4 cis cis 2 b 4 b b 2 cis d g 4 fis fis 2 e 4 d d 2 g 4 e e 1 a,
		2 fis' 4 d d 2 a 4 a' a 2 b 4 gis gis 2 a, 4 a'-* g-! fis-* d-! e fis 2 g 4 g, g 2 a 4 a a 1 d]
>))

--messages(messages)