nocheck
justify top left right
magnification 1.2
barnumbers 1


[stave 1 omitempty treble 1]
g |?  
[skip 2] |?
g | || g | |1 g | |2 g | |3 g | |4 g | |5 g | |0 g |
[endstave]

[newmovement]

[stave 1 omitempty treble 1]
g |?  
[skip 2] |?
g | || g | |1 g | |2 g | |3 g | |4 g | |5 g | |0 g |
[endstave]

[stave 2 bass 0]
[5] S! | S! || [2] S!
[endstave]

[newmovement]
breakbarlines 1

[stave 1 omitempty treble 1]
g |?  
[skip 2] |?
g | || g | |1 g | |2 g | |3 g | |4 g | |5 g | |0 g |
[endstave]

[stave 2 bass 0]
[5] S! | S! || [2] S!
[endstave]



[newmovement]
nocheck
justify top left
barnumbers 1
bracestyle 1

*define  jj brace 1-2

&jj

[stave 1/6 treble 1]
gg [breakbarline] | g'a'b'c''d'' |
[endstave]

[stave 2 bass 0]
gg |
[endstave]


[newmovement]
&jj
[stave 1/0 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]

[newmovement]
&jj
[stave 1/1 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]

[newmovement]
&jj
[stave 1/2 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]

[newmovement]
&jj
[stave 1/3 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]

[newmovement]
&jj
[stave 1/4 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]

[newmovement]
&jj
[stave 1/5 treble 1]
gg [breakbarline] | gg |
[endstave]

[stave 2 bass 0]
gg |
[endstave]


[newmovement]
nocheck
justify top left


[stave 1 treble 1]
(d-\/\f-)(d-\//\f-) (d-\///\f-); q
(d\/\f) (d\//\f) (d\///\f) q |

[beammove 8]
(d-\/\f-)(d-\//\f-) (d-\///\f-); q
(d\/\f) (d\//\f) (d\///\f) q |

(g'-\/\e'-)(g'-\//\e'-)(g'-\///\e'-); q
(g'\/\e') (g'\//\e') (g'\///\e') q |

[beammove -8]
(g'-\/\e'-)(g'-\//\e'-)(g'-\///\e'-); q
(g'\/\e') (g'\//\e') (g'\///\e') q
[endstave]

[newmovement]

Bracket
Brace 1-2
Bracestyle 1
Heading "" 10
Heading 12 "||Scheidt" 30
Justify top left right
Notespacing *1.3
Notime
Startlinespacing 2 2 2
Stavespacing 60
Systemgap 70


[stave 1 treble 1 stems up]
r [line/h/a] c'ba | bgab | C'r [el line/h/a] c' | c'gge | gfE [el] |
[line/a/h] 
reaa | gbc'a | Gr [el] [line/h/a] c' | bag.e- |
[newline ns *1.5]
f-e-dC [el] ||
[endstave]

[stave 2 bass 0]
r e'\su\ [reset] rc'\sd\ qq | [8] Q! | Q! ||
[endstave]

[newmovement]

nocheck

[stave 1 treble 1 hairpins below]
[cue beamslope 0] 
#a==b==a==  c'=-b=-a=-%a=-g=- b=g=f= |
[beamslope 0]
#a==b==a==  c'=-b=-a=-%a=-g=- b=g=f= |
"\*#\" a "a#\*#\#b"/ul b
"a\fi#b\it\#c\**#\d"/ul g
[endstave]

[newmovement]
nocheck
justify top left

@ Drawing procedure for bracketing a note or a chord.
@ The brackets increase their curvature and thickness in the middle
@ in proportion to the note they surround.
@ Contributed by Richard Hallas, January 1993.
@ Square brackets and RH and LH brackets contributed by Richard
@ Hallas, October 1994.
@ Minor correction from Richard Hallas incorporated March 1995

Draw Bracket
  @ Square left-bracket enclosing note or chord
  @
  -1 headleft sub accleft sub headbottom linebottom add moveto
  -2 0 rlineto
  -3 headleft sub accleft sub headtop linetop sub lineto
  2 0 rlineto
  0.5 setlinewidth stroke
Enddraw

Draw Rightbracket
  @ Square right-bracket enclosing note or chord
  @
  1 headright add headbottom linebottom add moveto
  2 0 rlineto
  3 headright add headtop linetop sub lineto
  -2 0 rlineto
  0.5 setlinewidth stroke
Enddraw

Draw Notebracket
  @ Pair of round parentheses enclosing note or chord
  @ Width in the centre auto-adjusts according to size of bracket
  @
  @ Left bracket (inside):
  -1 headleft sub accleft sub  stembottom 1 sub moveto @ Bottom
  -1 headleft sub accleft sub stemtop stembottom sub 8 div 1 add sub  stembottom stemtop stembottom sub 4 div add @ bezier point 1 (lower)
  -1 headleft sub accleft sub stemtop stembottom sub 8 div 1 add sub  stemtop stemtop stembottom sub 4 div sub @ bezier point 2 (upper)
  -1 headleft sub accleft sub  stemtop 1 add curveto @ Top
  @ Left bracket (outside):
  -1 headleft sub accleft sub stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add sub  stemtop stemtop stembottom sub 4 div sub @ bezier point 1 (upper)
  -1 headleft sub accleft sub stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add sub  stembottom stemtop stembottom sub 4 div add @ bezier point 2 (lower)
  -1 headleft sub accleft sub  stembottom 1 sub curveto @ Bottom
  0.5 setlinewidth fill @ Left bracket complete
  @
  @ Right bracket (inside):
  1 headright add  stembottom 1 sub moveto @ Bottom
  1 headright add stemtop stembottom sub 8 div 1 add add  stembottom stemtop stembottom sub 4 div add @ bezier point 1 (lower)
  1 headright add stemtop stembottom sub 8 div 1 add add  stemtop stemtop stembottom sub 4 div sub @ bezier point 2 (upper)
  1 headright add  stemtop 1 add curveto @ Top
  @ Right bracket (outside):
  1 headright add stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add add  stemtop stemtop stembottom sub 4 div sub @ bezier point 1 (upper)
  1 headright add stemtop stembottom sub 8 div dup 2 1 roll 0.25 mul 1.5 add add add  stembottom stemtop stembottom sub 4 div add @ bezier point 2 (lower)
  1 headright add  stembottom 1 sub curveto @ Bottom
  0.5 setlinewidth fill @ Right bracket complete
Enddraw

Draw RHbracket
  @ Square left-bracket with jog at bottom only, for piano RH on lower stave
  @ Requires one argument to specify length of main part of bracket
  @
  -1 headleft sub accleft sub headbottom linebottom add moveto
  -2 0 rlineto
  0 exch rlineto
  0.5 setlinewidth stroke
Enddraw

Draw LHbracket
  @ Square left-bracket with jog at top only, for piano LH on upper stave
  @ Requires one argument to specify length of main part of bracket
  @
  -1 headleft sub accleft sub headtop linetop sub moveto
  -2 0 rlineto
  0 exch sub 0 exch rlineto
  0.5 setlinewidth stroke
Enddraw

[stave 1 treble 1]
[draw notebracket] a-\g\ G
[draw notebracket] G [draw notebracket] [cue] G
[draw notebracket] a-\g\ G
[endstave]

[newmovement]
nocheck

[stave 1 treble 1]
"the quick="/ul a b c d |
[newline]
 a b  r  d |
[newline]
abcd 


