-- Test.cm

Imager
Run -a Mockingbird
Interp

&context _ Imager.Create[$LFDisplay]
&context.state.T _ Imager.Scale[1]
Imager.TranslateT[&context, 30, 720]
[] _ &score _ FilerImpl.FileIn["Mockingbird/Credo.music"]
&score.sheet.context _ &context
ScoreImplB.DrawInterval[&score, 0, 2000]