;;; RIGODON
;;; -*- syntax: common-lisp; package: cmn; base: 10; mode: lisp -*-

(cmn staff treble (meter 2 4)
     (d5 h  (tremolo (tremolo-slashes 3)) (begin-crescendo (f p) f))
     (bar)
     (d5 h  (tremolo (tremolo-slashes 3)) (end-crescendo))
     (begin-repeat-bar)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))


     (bar)

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))


     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))


     (bar)

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))
     (end-repeat-bar)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     (begin-repeat-bar)
     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))

     (bar)

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))


     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))

     (bar)

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6)accent)
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) accent
	 (end-beam))

     (bar)

     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) accent)
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))


     (d5 (rq 1/6) accent
	 (begin-beam (explicit-beams (list (list 2 2 1 2 2 0) (list 0 0 0 0 0 0) (list 0 0 0 0 0 0)))))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1)))
     (d5 (rq 1/6) (tremolo (tremolo-slashes 1))
	 (end-beam))


     (end-repeat-bar))