Import upstream version 5.3.

[mup] / mup / docs / sample.mup

//**********************************************************************
// NOTE:
//
// This is a sample Mup input file. This file is intended to demonstrate
// lots of the features of Mup, including advanced features.
// In most cases, you'll probably only need to use a few basic features,
// so your input file will usually be a lot simpler.
//
//**********************************************************************


// header to go on first page
header
	title (18) "Sample Song to Show What Mup Can Do"
	title palatino ital (12) "This is a subtitle"
	title "Text: Ann Onymous"  "Tune: Arthur Unknown"
	title ""  "(1995)"

// header for subsequent pages
header2
	title "Sample Songs" "This is the title" "page \% of \#"

// footer for first page
footer
	// use a printing command other than "title" to show how others work
	center nl "This is a sample of a Mup footer"
	// leave a blank line
	title (12) " "

	title (11) "Published by Arkkra Enterprises" \
		"P. O. Box 315 Warrenville, IL 60555" \
		"http://www.arkkra.com"

// footer for subsequent pages
footer2
	print nl "This is a sample remark at the bottom of the page"

// top/top2/bottom/bottom2 are like header/header2/footer/footer2 except
// they can be changed later; for example, you could use header/header2 for
// the whole song, but have a new top/top2 for each section of the song.

// to be printed right below the header on this page (the first page)
top
	title (13) "First Movement"
// to be printed right below the header2 on later pages
top2
	title "First movement"

// set some score-wide parameters
score
	staffs = 9
	key = c minor
	time = 9/8

	// beam things a dotted quarter at a time, and beam across rests
	// have the main beams group together notes a dotted quarter at a
	// time, but have subgroupings an 8th note at a time; also, beam
	// across rests
	beamstyle = (8,8,8), (8,8,8), (8,8,8) r

	// put bracket to left of top 2 staffs, and bottom 2, with labels
	bracket = 1-2 ("Choir", "Ch"), 7-8 ("Guitar", "Gtr")

	// put brace on keyboard's staffs
	brace = 5-6 ("keyboard", "Kbd")

	// bar the staffs 5 and 6 together, and 7 and 8 together
	barstyle = 5-6, 7-8

	// put rehearsal marks in circles, instead of the default rectangles
	rehstyle = circled

	// make a little smaller than normal
	scale = 0.77

	// pack notes together
	packexp = 0.7
	packfact = 0.75

	// set the margins, allowing choice depending on whether -DBIGMARGINS
	// is used on the command line or not
	ifdef BIGMARGINS
		topmargin = 1.0
		bottommargin = 1.1
		leftmargin = 1
		rightmargin = 1
	else
		topmargin = 0.8
		bottommargin = 0.8
		leftmargin = 0.7
		rightmargin = 0.6
	endif

	// make sure chord marks are a ways away from staffs
	chorddist = 4

	// make sure other things are a ways away too
	dist = 3

	// spread scores and staffs apart more than normal
	scoresep = 14, 24
	scorepad = 5
	staffsep = 14
	staffpad = 2

	// label endings above staffs that are grouped by brace or bracket
	endingstyle = grouped

	// use palatino fonts by default, in 14 point
	fontfamily = palatino
	font = rom
	size = 14

	// put lyrics in helvetica italics, 11 point
	lyricsfontfamily = helvetica
	lyricsfont = ital
	lyricssize = 11

	// print measure numbers at the beginning of each score
	// in Helvetica italics
	measnumfontfamily = helvetica
	measnumfont = ital
	measnumsize = 9
	measnum = y

	// When there are chords, print guitar grids with them.  To put them
	// at the end of the song we would use gridsatend.  If we wanted
	// to make them bigger or smaller, we could set "gridscale".
	gridswhereused = y

	// If the lowest fret used is 3 or more, use "N fr" notation instead
	// of showing the whole guitar neck up to that point in the grid.
	// The default value of this is 4, and it can be turned off.
	gridfret = 3


//set some things for particular staffs
staff 2
	clef = bass

staff 3
	label = "foghorn\nin G\(smflat)"
	staffscale = 0.8	// make this staff a little smaller
	clef = baritone
	transpose = down dim 5
	// make staff 3 visible only when there is something on it
	visible = whereused

	// set different default octave
	defoct = 4

staff 4
	// make staff 4 a 1-line staff, with a "drum clef"
	stafflines = 1 drum

staff 5
	// Use three voices on staff 5.  Allow the stems of the top and bottom
	// voices (1 and 2) to float to whichever way is appropriate.  (We
	// could use 2o to force their stems to be in opposite directions.)
	// Voice 3 is an extra voice, typically in the middle, whose stems can
	// go either way.
	vscheme = 3f

staff 6
	clef = bass

	// use dotted quarter for default time unit instead of
	// the normal time signature denominator
	timeunit = 4.

staff 7
	vscheme = 2f

staff 8
	// Make staff 8 a tablature staff for standard guitar.  This
	// automatically makes the preceding staff (7) a "tabnote" staff,
	// meaning its notes will be derived from staff 8 automatically,
	// unless overriden.
	stafflines = tab

	// make fret numbers more readable by putting a white background there
	tabwhitebox = y

	vscheme = 2f	// allow two voices on this tab staff

staff 9
	// On staff 9, use "shaped notes".  Each scale degree uses a different
	// shape of note head.
	label = "Soprano"
	noteheads = "isostri semicirc diam righttri norm rect pie"

// define a macro to allow saying "DRUM" instead of "4:" for the 4th staff
define DRUM 4:  @

grids
	// define grids to be printed with guitar chords
	"Cm"	"- (3 5 5 4 3)"
	"G:9 7"	"3 x o o o 5"
	"Go7"	"o 1 2 o 2 o"
	"G"	"3 x o o o 3"

// now do musical data
music

// put a tempo mark above staffs 1 and 6, and set MIDI tempo to 92
// quarter notes per minute
	rom above 1,6 : 1 "Andante";
	midi all: 0 "tempo = 92";
// set the instruments to use for MIDI
	midi 1-2: 0 "channel=5"; 0 "program=52"; 0 "onvelocity=92";
	midi 3: 0 "channel=6"; 0 "program=109"; 0 "onvelocity=61";
	midi 4: 0 "channel=10";		// percussion channel
// set onvelocity to accent the top note
	midi 5-6: 0 "channel=11"; 0 "program=1"; 0 "onvelocity=104,88";
	midi 5 2: 0 "channel=11";
	midi 7: 0 "channel=14"; 0 "program=25"; 0 "onvelocity=83";

// Note that lines of input within a given measure can be entered in any order.
// It is usually a good idea to enter music data a staff at a time from top
// to bottom, just to make it easy to keep track of, although Mup makes no
// such requirement. You may choose to intersperse other things like lyrics
// and phrase marks, or do them all at once before or after the music data,
// or in whatever order you choose. 

// Also note that you can indent things any way you want in your Mup
// input file, and can put extra blank spaces almost anywhere
// except in the middle of a word.

// For MIDI purposes, the first two measures get played an extra time
// before the Coda, so put them inside a macro.
define FIRST2MEASURES

// staff 1, three dotted quarter notes, second chord same as the first
	1 1: 4.ceg;;dfb;

// staff 2, dotted quarter, two eighths with a rest between, dotted quarter
	2: 4.c;8c;r;e;4.f;

// phrase on staff 2 from beginning note to first count of next measure
	phrase 2: 1 til 1m+1;

// two verses of lyrics between top two staffs
// use "|" to align the first syllables 8 points left of the notes' centers
	lyrics between 1&2: 4.;;; "-8|These are the"; "-8|This is verse";

// a grace note and an accent on staff 3
	3: [grace; slash 1]c#; [with >] 2.f#;4.r;

// measure rest for staff 4
	DRUM mr;

// staff 5, voice 1, begins with duplet, also has a tied note
	5 1:  {4c+;g;}2,4.; 4.c+;4f+~;16;;

// second voice for staff 5
	5 2: 2.c;4.d;

// third voice for staff 5 starts with a "space", nothing printed; force
// horizontal offsets (ho) on two of the notes to fine tune their spacing
	5 3: 4.s; [ho 3.5]8e;f;g; [ho 3]an; 4;

// staff 6, some notes an octave or two away from the default octave
	6: 4.c-c--;;d-d--;

// put piano pedal mark at the bottom
	pedal below 6: 1;6;

// show the fret numbers on guitar strings on the tablature staff
	8: 4. a3d1g0; 8 a3; e'3; a3; 4. d0g2b3e1;

// Print music theory analysis symbols at counts 1 and 7.  The ":" makes the
// following space-separated items be stacked on top of each other.
	rom analysis above 5: 1 "i"; 7 "VII:6 #5";

// print figured bass numbers below count 7; the slash goes through the "5"
	rom figbass below 6: 7 "6 5/";

	9: 4.c+; 8e+; c+; e+; 4.f+;
	lyrics 9: 2.+4.; "ah_";

// ordinary bar line, with a reherasal letter
	bar reh let



// next measure
	1: 2.c+gc;4.r;
	2: 2.ce;4.r;

// lyrics with an underscore
	// This time, since the time values of the lyrics match those
	// of the music, we'll let Mup derive the time values,
	// rather than specifying them.  Notice that we are chanting multiple
	// syllables on the last word, so we show that they are to be treated
	// as one syllable by separating them by a special \(space) character
	// instead of simple space.
	lyrics between 1&2: [1] "words!_"; [2] "two\(space)oh\(space)yes.";

// include a note with a double flat
	3: 2.f&&;4.r;

// you can specify a pitch for a 1-line staff, even though all notes will be
// placed on the line. The pitch will be used for MIDI output, if you use
// the -m option to Mup to get a MIDI file instead of printed output.
	DRUM 4.f&;2.r;

// because of the beamstyle setting, the 16th notes here are joined in pairs
// by both beams, but only one beam joins all six
	5 1: 2.c++;4.r;
	5 2: 8e;g;e; 16g;e;g;e;g;e; 4.r;
	6: 2.c- alt 2;c;4.r;
	pedal below 6: 1;6*;

// print 3 tremelo slashes on this chord
	8: [slash 3] 2. d1g0b1e3; 4.r;

	9: 2.e+; 4.r;

// at count 9.9 (almost the dblbar), back up 19 stepsizes and print this coda
// indication, including the actual coda symbol; do this in italics of font
// size 13 (but turn off the italics for the symbol), and above all the staffs
	ital(13) all: 9.9[-19] "To coda \f(TR)\(coda)";

	// double bar
	dblbar
@	// end the macro definition of the first measures
// Now call the macro for the first measures
	FIRST2MEASURES



// start a new score. Normally, Mup will place things
// as best it can, but you can force things if you like.
newscore

// now more music data
music


	// set location tags on the two notes, then draw a wavy line between
	// them saying that it is a glissando
	1: 2.c =h; 4.g =k;
		wavy line (h.e+3, h.y) to (k.w-3, k.y) with ital (11) "gliss."
	2: 4.e; 8..; 32f;8g;4.c;

// a crescendo mark
	< below 2: 3 til 7.5;

// trill the foghorn from count 1 to 7; put a "turn" symbol above the note
// at count 8. For MIDI, specify exactly how to play it.
	ifndef MIDI
		3: 2..d&; 4d;
		mussym 3: 1 "tr" til 7; 8 "turn";
	else
		3: 16d&;e;d;e;d;e;d;e;d;e;d;e;d;e; {d;e;d;c;d;}5;
	endif

	4: [slash 2] 2.c; [with .]4.c-;
	5: 4.ceg;;;

// a dynamic mark
	times boldital between 5&6: 7 "ff";

// roll up on first chord, down on second, default (up) on third
	roll up   5: 1;
	roll down 5: 4;
	roll      5: 7;

// the <> indicates a slur
	6: 2.c e?;8e<>;4c;

// For the second note, "bend" the previous note up 1/2 step by stretching
// the E string.  Then bend to a full step, and release back to normal.
	8 1: 4.e5; e "1/2"; 8e "full"; 4e "";

// Put some notes in the second tab voice.  These will be translated to the
// the second voice of the tabnote staff above.
	8 2: 4.g0; 4; 8; 4.;

	9: 8c+; b; an; g; c; d; 4.e;

// chord symbols will be transposed if the music is transposed.
// In this particular example, transposition is not in effect
	bold chord above all: 1 "Cm";

	bar ending "1."



// two measures of rest
	multirest 2
	repeatend ending "2."


staff 4
// From now on, staff 4 (the one-line staff) will have two voices with stems
// that are always opposing.  Set it so that the notes will not be on the line
// but rather above and below it.
	vscheme = 2o
	ontheline = n
music
	midi 4 2: 0 "channel=10";

// Define a macro with parameters for printing a chord name at a given count.
// Note that the chord name is passed in and then the ` ` cause it to be
// put in quotes.
define K(COUNT, NAME) bold chord all: COUNT `NAME`; @

// Define a "map" for chord-at-a-time input.  (By "chord" here we mean a group
// of notes, not the symbolic chord name as above.)  Since all the voices in
// the choir have the same rhythm from now on, it's convenient to use this
// method of input instead of the usual voice-at-a-time method.  Set it up
// to enter bass and tenor on staff 2, then alto and soprano on staff 1.
define M [ 2; 2; 1; 1 ] @


	K(1,Cm)		// print a C minor chord at count 1

// assign all the notes for staffs 1 and 2, using the map.  Each goes to its
// proper octave according to defoct.
	M: 4.cgce; ceeg; cgce;

// Put phrase marks on each staff, from count 1 until count 7 of the next
// measure.  We didn't specify "above" or "below", so Mup chooses the side.
	phrase 1,2: 1 til 1m+7;

// Increase the size of the lyrics by 3 points.  This will carry forward to
// the end of the song unless changed again.  Also, use the non-ASCII
// character n-tilde, indicated by \(n~).  If you can type non-ASCII characters
// directly on your keyboard, you can do that instead of using this notation.
	lyrics between 1&2: "\s(+3)Ma-\(n~)a-na";

// put the last note's accidental in parentheses, since it is just a
// reminder to the player that this accidental is still in force
	3: 4.an; b; a(n);

// Use X-shaped notes on the top voice.  Use the "..." to show that this
// applies for the rest of this measure, not just the first chord.
	4 1: [xnote]... 4.; ; 8;;;
	4 2: 4.; ; ;

// Beam notes together across both staffs.  Set a location tag (=h) on the
// first note, for later use.
	5: 4.s bm with staff below; ; 8c; e; g ebm;
	6: 8c- =h bm with staff above; e-; g-; c; e; g; 4.s ebm;

	8: 2. a3 d5 g5 b4 e3; 4. tie;

	// For the last two notes, override the head shape to be a slash, to
	// indicate repeating the first part of the measure.
	9: 8g; e; ; [hs "slash"]... 4.b; ;
	bar endending



	ital all: 1 "\[A special note, on\ntwo lines, in a box.\]";
	1: 4.ce; eg; ;
	lyrics between 1&2: "am gr\(o:)\(ss)t-en,";	// non-ACSII chars
	2: 4.cg; ce; ;

// draw a measure repeat sign
	3: mrpt;

	// put a text string in an ellipse
	ital 4: 1 "\{mute\}";
	4 1: [xnote]... 4.; ; 8;;;
	4 2: 2.; 4.;

	6: 8 with e+c++ above; c+ with g+ above; g with e+ above; ec+; g; e; \
			4.c =k; // set loc tag "k"
	8: 4. a3 d5 g5 b4 e3; 2.;
	9: mrpt;
	bar

// Draw a curve, with endpoints based on the "=h" and "=k" location tags with
// vertical offsets of 11 and 8 stepsizes upwards.  The curve bulges upwards
// 20 and 23 stepsizes 1/3 and 2/3 of the way through it.
	medium curve (h.x, h.y + 11) to (k.x, k.y + 8) bulge 20, 23;


// print the chord G97, with the 9 above the 7
	K(1,G:9 7)

	ital(15) all: 9.9[-20] "D.C. al Coda";

// use a C double sharp (cx) and B natural
	1: 4.cxbn; 2.;
	lyrics between 1&2: "tr\(e`)s bien!";	// another non-ASCII character
	2: 4.g-f; 2.;
	4 1: 4.r; c; ;	// the pitch is arbitrary except for MIDI on one-line
	4 2: 4.; r; ;
	5: 4.dfgbn; ; dfan;

// force first note stem to point upwards, which would by default have
// pointed down; change clef in the middle of the measure
	6: [up] 4.d; c; <<staff clef = treble>> d+;

// The first note is a "prebend" (stretch the string before plucking).  On the
// last note, do a slide upwards after it that doesn't end at any specific note.
	8: 4. a10 "full" b8 "full"; 4. a10 "" b8 ""; [grace] 16 e0; 4.e1 <n/>;
	9: 2.+4.g;
	lyrics 9: "oo_";
	dblbar

// For MIDI, insert the D.C. al Coda fragment
	ifdef MIDI
		FIRST2MEASURES
	endif

// leave a gap and start all the staffs anew, showing clefs and key signatures
	restart

staff 6
	clef = bass	// change the clef back to bass

music
// override the "dist" parameter, and specify a minimum distance of 5 stepsizes
// from the staff for this coda sign
	mussym(13) all dist 5: 0.5 "coda";
	ital(15) all: 1 "Coda";

// at count 1 print G diminished 7 (the "o" is translated to a diminished
// symbol), and at count 7 print G
	K(1,Go7)
	K(7,G)

// Another duplet.  If we put "n" after the first number it would prevent the
// bracket from being printed.
	1: 2.d&g; { 4gbn; ; }2,4.;

// Draw parentheses around the one D natural.  Force this duplet's bracket to
// be below; this one would have defaulted to above.
	2: 2.b&f&; { 4d-n(dn)g; dbn; } below 2,4.;

// Print both keyboard hands on its top staff, using two voices.  Since the
// top notes are so high, set their stems to extend only 5 stepsizes instead
// of the usual 7 (octave).  Slur and tie the notes, using dashed or dotted
// rather than solid curves.
	5 1: [len 5]... 2.g++b++d&+++f&+++ dashed slur; 4.g++bn++d+++g+++;
	5 2: 2.gg+ dotted tie; 4.;

// leave staff 6 unspecified, so that it will default to a space

	8: [slash 1] 2. e'0 a1 d2 g0 b2 e0; 4. e'3 d0 g0 b0 e3;

	9: 2.g; 4.bn;
	lyrics 9: "At the";
	bar



score
// set a time signature that combines two simple time signatures
	time = 2/4 + 3/8

music
// use shorthand to enter the same data for two staffs at once
	1,2:  2egc+ tie; 4.;

	4 1,2: mr;	// measure rest on both voices of staff 4
	5-6: 2c tie; 4.;

// mark notes an octave lower than normal
	octave below 6: 1 "8va" til 7.5;

// put a fermata above staffs 1, 2, and 4 to 6
	mussym above 1,2,4-6: 5 "ferm";
// for MIDI, slow the tempo, to produce the fermata
	midi all: 3 "tempo=50";
	8: 2 e20~; 4.;
	9: 2+4.c+;
	lyrics 9: "end.";
	K(1,Cm)
	endbar