/*
 *  This file is part of jcabc2ps,
 *  Copyright (C) 1996,1997,1998  Michael Methfessel
 *  See file jcabc2ps.c for details.
 */

#include "jcabc2ps.h"
#include "syms.h"

/*  subroutines to define postscript macros which draw symbols  */

/* ----- def_misc ------- */
void def_misc (fp)
	FILE *fp;
{
	fprintf(fp,"\n/accdraw 0 def\n");
	fprintf(fp,"\n");
	fprintf(fp,"/Accent {\n");
	fprintf(fp,"   accbasec glyphshow\n");
	fprintf(fp,"   gsave \n");
	fprintf(fp,"   accbasew dup neg 0 rmoveto\n");
	fprintf(fp,"   accwidth sub 2 div 2.7 currentfont /ScaleMatrix get 0 get mul 12 div rmoveto\n");
	fprintf(fp,"   accchar glyphshow\n");
	fprintf(fp,"   grestore\n");
	fprintf(fp,"} bind  def\n");
	fprintf(fp,"\n");
	fprintf(fp,"/accent {\n");
	fprintf(fp,"   accbasec glyphshow\n");
	fprintf(fp,"   gsave\n");
	fprintf(fp,"   accbasew dup neg 0 rmoveto\n");
	fprintf(fp,"   accwidth sub 2 div 0 rmoveto\n");
	fprintf(fp,"   accchar glyphshow\n");
	fprintf(fp,"   grestore\n");
	fprintf(fp,"} bind  def\n");
	fprintf(fp,"\n");
	fprintf(fp,"/laccent {\n");
	fprintf(fp,"   accbasec glyphshow\n");
	fprintf(fp,"   gsave \n");
	fprintf(fp,"   accbasew dup neg 0 rmoveto\n");
	fprintf(fp,"   accwidth sub 2 div -2.4 currentfont /ScaleMatrix get 0 get mul 12 div rmoveto\n");
	fprintf(fp,"   accchar glyphshow\n");
	fprintf(fp,"   grestore\n");
	fprintf(fp,"} bind  def\n");
	fprintf(fp,"\n");
	fprintf(fp,"/testacc {\n");
	fprintf(fp,"   pop 		%% drop height\n");
	fprintf(fp,"   1 index dup	%% get encoding integer\n");
	fprintf(fp,"   145 ge exch 159 le and {	%% it's an accent (145-159)\n");
	fprintf(fp,"     /accdraw 1 def\n");
	fprintf(fp,"     /accwidth exch def\n");
	fprintf(fp,"     ISOLatin1Encoding exch get /accchar exch def\n");
	fprintf(fp,"   } { 				%% or something else\n");
	fprintf(fp,"     accdraw 1 eq { 						%% we have to draw it with accent\n");
	fprintf(fp,"       /accbasew exch def					%% save  base char's width\n");
	fprintf(fp,"       dup ISOLatin1Encoding exch get /accbasec exch def	%% and the char\n");
	fprintf(fp,"       accchar dup /cedilla eq exch /ogonek eq or {  		%% the accent goes below the char (cedilla or ogonek)\n");
	fprintf(fp,"         accbasec /g eq		%% check for underlength: g\n");
	fprintf(fp,"	 accbasec /j eq or	%% j\n");
	fprintf(fp,"	 accbasec /p eq or	%% p\n");
	fprintf(fp,"	 accbasec /q eq or	%% q\n");
	fprintf(fp,"	 accbasec /y eq or	%% y\n");
	fprintf(fp,"	 { \n");
	fprintf(fp,"	   laccent				%% then place it somewhat lower\n");
	fprintf(fp,"	 } {\n");
	fprintf(fp,"	   accent\n");
	fprintf(fp,"	 } ifelse\n");
	fprintf(fp,"       } {					%% accent goes above\n");
	fprintf(fp,"         dup dup 65 ge exch 90 le and	 	%% a capital letter\n");
	fprintf(fp,"       	 exch dup 48 ge exch 57 le and or	%% or a number\n");
	fprintf(fp,"	 accbasec /b eq or			%% or a b\n");
	fprintf(fp,"	 accbasec /d eq or			%% d\n");
	fprintf(fp,"	 accbasec /f eq or			%% f\n");
	fprintf(fp,"	 accbasec /h eq or			%% h\n");
	fprintf(fp,"	 accbasec /k eq or			%% k\n");
	fprintf(fp,"	 accbasec /l eq or			%% l\n");
	fprintf(fp,"	 accbasec /t eq or			%% or t\n");
	fprintf(fp,"         {\n");
	fprintf(fp,"	   Accent				%% then place it somewhat higher\n");
	fprintf(fp,"         } {\n");
	fprintf(fp,"           accbasec /i eq			%% replace i by dotless i\n");
	fprintf(fp,"             { /accbasec /dotlessi def } if\n");
	fprintf(fp,"	   accent\n");
	fprintf(fp,"	 } ifelse\n");
	fprintf(fp,"       } ifelse\n");
	fprintf(fp,"     } {\n");
	fprintf(fp,"       pop dup 1 eq {\n");
	fprintf(fp,"         gsave /dcroat glyphshow grestore \n");
	fprintf(fp,"       } {\n");
	fprintf(fp,"       dup 2 eq\n");
	fprintf(fp,"       {\n");
	fprintf(fp,"         gsave /Dcroat glyphshow grestore \n");
	fprintf(fp,"       } {\n");
	fprintf(fp,"         ISOLatin1Encoding exch get glyphshow\n");
	fprintf(fp,"       } ifelse } ifelse\n");
	fprintf(fp,"     } ifelse\n");
	fprintf(fp,"     /accdraw 0 def\n");
	fprintf(fp,"   } ifelse\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/stringwidth { \n");
	fprintf(fp,"  0 exch 0 exch \n");
	fprintf(fp,"  { dup dup dup dup 145 ge exch 159 le and exch 1 eq or exch 2 eq or { \n");
	fprintf(fp,"    pop \n");
	fprintf(fp,"  }{\n");
	fprintf(fp,"    /st ( ) def st exch 0 exch put st stringwidth 3 -1 roll add 3 1 roll add exch\n");
	fprintf(fp,"  } ifelse\n");
	fprintf(fp,"  } forall } bind def\n");
	fprintf(fp,"\n/show { /testacc load cshow } bind def\n");
	fprintf(fp,"\n/cshow { %% usage: string cshow  - center at current pt\n");
	fprintf(fp,"   dup stringwidth pop 2 div neg 0 rmoveto\n");
	fprintf(fp,"   bx {box} if show\n");
	fprintf(fp,"} bind def\n");
	fprintf(fp,"\n/lshow { %% usage: string lshow - show left-aligned\n");
	fprintf(fp,"   dup stringwidth pop neg 0 rmoveto bx {box} if show\n");
	fprintf(fp,"} bind def\n");
	fprintf(fp,"\n/rshow { %% usage: string rshow - show right-aligned\n");
	fprintf(fp,"   bx {box} if show\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/box {  %% usage: str box  - draw box around string\n");
	fprintf(fp,"  gsave 1.5 setlinewidth dup stringwidth pop\n");
	fprintf(fp,"  -2 -2 rmoveto 4 add fh 4 add 2 copy\n");
	fprintf(fp,"  0 exch rlineto 0 rlineto neg 0 exch rlineto neg 0 rlineto\n");
	fprintf(fp,"  closepath stroke grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/wd { moveto bx {box} if show } bind def\n");
	fprintf(fp,"/wln {\n");
	fprintf(fp,"dup 3 1 roll moveto gsave 0.6 setlinewidth lineto stroke grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf (fp,"/whf {moveto gsave 0.5 1.2 scale (-) show grestore} bind def\n");
	fflush(fp);
}

/* ----- def_typset ------- */
void def_typeset(fp)
	FILE *fp;
{
	fflush(fp);
	fprintf(fp,"\n/WS {   %%usage:  w nspaces str WS\n");
	fprintf(fp,"   dup stringwidth pop 4 -1 roll\n");
	fprintf(fp,"   sub neg 3 -1 roll div 0 8#040 4 -1 roll\n");
	fprintf(fp,"   widthshow\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);


	fprintf(fp,"\n/W1 { show pop pop } bind def\n");


	fprintf(fp,"\n/str 50 string def\n");
	fprintf(fp,"/W0 {\n");
	fprintf(fp,"   dup stringwidth pop str cvs exch show (  ) show show pop pop\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/WC { counttomark 1 sub dup 0 eq { 0 }\n");
	fprintf(fp,"  {  ( ) stringwidth pop neg 0 3 -1 roll\n");
	fprintf(fp,"  {  dup 3 add index stringwidth pop ( ) stringwidth pop add\n");
	fprintf(fp,"  dup 3 index add 4 index lt 2 index 1 lt or\n");
	fprintf(fp,"  {3 -1 roll add exch 1 add} {pop exit} ifelse\n");
	fprintf(fp,"  } repeat } ifelse\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/P1 {\n");
	fprintf(fp,"  {  WC dup 0 le {exit} if\n");
	fprintf(fp,"      exch pop gsave { exch show ( ) show } repeat grestore LF\n");
	fprintf(fp,"   } loop pop pop pop pop\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/P2 {\n");
	fprintf(fp,"   {  WC dup 0 le {exit} if\n");
	fprintf(fp,"      dup 1 sub dup 0 eq\n");
	fprintf(fp,"      { pop exch pop 0.0 }\n");
	fprintf(fp,"      { 3 2 roll 3 index exch sub exch div } ifelse\n");
	fprintf(fp,"      counttomark 3 sub 2 index eq { pop 0 } if exch gsave\n");
	fprintf(fp,"      {  3 2 roll show ( ) show dup 0 rmoveto } repeat\n");
	fprintf(fp,"      grestore LF pop\n");
	fprintf(fp,"   } loop pop pop pop pop\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);
}

/* ----- define_font ------- */
void define_font (fp,name,num)
FILE *fp;
char name[];
int  num;
{

	if (!strcmp(name,"Symbol")) {
		fprintf(fp,"/F%d { 1 eq {/bx true def} { /bx false def} ifelse\n",num);
		fprintf(fp,"  dup 0.72 mul  /fh exch def\n");
		fprintf(fp,"  /%s exch selectfont } bind def\n",name);
		return;
	}

	fprintf(fp,"\n/%s findfont\n",name);
	fprintf(fp,"dup length dict begin\n");
	fprintf(fp,"   {1 index /FID ne {def} {pop pop} ifelse} forall\n");
	fprintf(fp,"   /Encoding ISOLatin1Encoding def\n");
	fprintf(fp,"   currentdict\n");
	fprintf(fp,"end\n");
	fprintf(fp,"/%s-ISO exch definefont pop\n",name);

	fprintf(fp,"/F%d { 1 eq {/bx true def} { /bx false def} ifelse\n",num);
	fprintf(fp,"  dup 0.72 mul  /fh exch def\n");
	fprintf(fp,"  /%s-ISO exch selectfont } bind def\n",name);
	fflush(fp);
}


/* ----- def_tsig ------- */
void def_tsig (fp)
FILE *fp;
{
	fprintf(fp,"\n/tsig { %% usage: x (top) (bot) tsig -- draw time signature\n");
	fprintf(fp,"   3 -1 roll 0 moveto /bx false def\n");
	fprintf(fp,"   gsave /Times-Courier 16 selectfont 1.2 1 scale\n");
	fprintf(fp,"   0 1.0 rmoveto currentpoint 3 -1 roll cshow\n");
	fprintf(fp,"   moveto 0 12 rmoveto cshow grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);
}

/* ----- add_cv ------- */
void add_cv (FILE *fp, float f1, float f2, float p[][2], int i0, int ncv)
{
	int i,i1,m;

	i1=i0;
	for (m=0; m<ncv; m++) {
		fprintf (fp, " ");
		for (i=0; i<3; i++)
			fprintf (fp, " %.2f %.2f",
			f1*(p[i1+i][0]-p[i1-1][0]),
			f2*(p[i1+i][1]-p[i1-1][1]));
		fprintf (fp, " rcurveto\n");
		i1=i1+3;
	}
	fflush(fp);
}

/* ----- add_sg ------- */
void add_sg (FILE *fp, float f1, float f2, float p[][2], int i0, int nseg)
{
	int i;
	for (i=0; i<nseg; i++)
		fprintf (fp, "  %.2f %.2f rlineto\n",
			f1*(p[i0+i][0]-p[i0+i-1][0]),
			f2*(p[i0+i][1]-p[i0+i-1][1]));
	fflush(fp);
}

/* ----- add_mv ------- */
void add_mv (FILE *fp, float f1, float f2, float p[][2], int i0)
{
	if (i0==0)
		fprintf (fp, "  %.2f %.2f rmoveto\n",
			f1*p[i0][0], f2*p[i0][1]);
	else
		fprintf (fp, "  %.2f %.2f rmoveto\n",
			f1*(p[i0][0]-p[i0-1][0]),
			f2*(p[i0][1]-p[i0-1][1]));
	fflush(fp);
}


/* ----- def_stems ------- */
void def_stems (fp)
FILE *fp;
{
	fprintf(fp,"\n/su {  %% usage: len su   - up stem\n");
	fprintf(fp,"  x y moveto %.1f %.1f rmoveto %.1f sub 0 exch rlineto stroke\n",
			STEM_XOFF, STEM_YOFF, STEM_YOFF );
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/sd {  %% usage: len td   - down stem\n");
	fprintf(fp,"  x y moveto %.1f %.1f rmoveto neg %.1f add 0 exch rlineto stroke\n",
			-STEM_XOFF, -STEM_YOFF, STEM_YOFF);
	fprintf(fp,"} bind def\n");
	fflush(fp);
}

/* ----- def_dot ------- */
void def_dot (fp)
FILE *fp;
{
	fprintf(fp,
			"\n/dt {  %% usage: dx dy dt  - dot shifted by dx,dy\n"
			"  y add exch x add exch 1.2 0 360 arc fill\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_deco ------- */
void def_deco (fp)
FILE *fp;
{

	float p[7][2] = {
		{-10,-2},{0,15},{1,-11},{10,2},{0,-15},{-1,11},{-10,-2} };

/*  float q[7][2] = {
		{-13,0},{-2,9},{2,9},{13,0},{3,5},{-3,5},{-13,-0} }; */

/*  float q[7][2] = {
		{-11,0},{-9,10},{9,10},{11,0},{5,7},{-5,7},{-11,-0} }; */

	/* Walsh suggestion, scale 1.8 in y */
	float q[7][2] = {
		{-13,0},{-12,9},{12,9},{13,0},{10,7.4},{-10,7.4},{-13,-0} };

	float s[7][2] = {
		{-8,-4.8},{-6,-5.5},{-3,-4.6},{0,0},{-2.3,-5},{-6,-6.8},{-8.5,-6} };

	float f1,f2;
	int i;

	f1=0.5;
	f2=0.5;

	fprintf (fp, "\n/grm {  %% usage:  y grm  - gracing mark\n"
			"  x exch moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "   fill\n} bind def\n");
	fprintf (fp, "\n/stc {  %% usage:  y stc  - staccato mark\n"
			"  x exch 1.2 0 360 arc fill } bind def\n");

	fprintf (fp, "\n/hat {  %% usage:  y hat\n"
			"  x exch moveto\n"
			"  -4 -2 rmoveto 4 6 rlineto currentpoint stroke moveto\n"
			"  4 -6 rlineto -2 0 rlineto -3 4.5 rlineto fill\n"
			" } bind def\n");

	fprintf (fp, "\n/att {  %% usage:  y att\n"
			"  x exch moveto\n"
			"  -4 -3 rmoveto 8 3 rlineto -8 3 rlineto stroke\n"
			" } bind def\n");

	f2=f2*1.8;

	if (temp_switch==3) { f1=0.8*f1; f2=0.8*f2; }
	else                { f1=0.9*f1; f2=0.9*f2; }

	fprintf (fp, "\n/cpu {  %% usage:  y cpu  - roll sign above head\n"
			"  x exch moveto\n");
	add_mv (fp,f1,f2,q,0);
	add_cv (fp,f1,f2,q,1,2);
	fprintf (fp, "   fill\n} bind def\n");

	for (i=0;i<7;i++) q[i][1]=-q[i][1];

	fprintf (fp, "\n/cpd {  %% usage:  y cpd  - roll sign below head\n"
			"  x exch moveto\n");
	add_mv (fp,f1,f2,q,0);
	add_cv (fp,f1,f2,q,1,2);
	fprintf (fp, "   fill\n} bind def\n");

	f1=0.9;
	f2=1.0;
	fprintf(fp,"\n/sld {  %% usage:  y dx sld  - slide\n");
	fprintf(fp,"  x exch sub exch moveto\n");
	add_mv (fp,f1,f2,s,0);
	add_cv (fp,f1,f2,s,1,2);
	fprintf(fp, "   fill\n} bind def\n");

	fprintf(fp,"\n/emb {  %% usage:  y emb  - empahsis bar\n");
	fprintf(fp,"  gsave 1.4 setlinewidth 1 setlinecap x exch moveto \n");
	fprintf(fp," -3.5 0 rmoveto 7 0 rlineto stroke grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp,"\n/trl {  %% usage:  y trl  - trill sign\n");
	fprintf(fp,"  gsave /Times-Roman-Bold-Italic 14 selectfont\n");
	fprintf(fp,"  x 4 sub exch moveto (tr) show grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);
}



/* ----- def_deco1 ------- */
void def_deco1(fp)
	FILE *fp;
{	float p[8][2] = {     /* for hold sign */
		{-15,0},{-15,23},{15,23},{15,0},
		{14.5,0},{12,18},{-12,18},{-14.5,0} };

	float q[8][2] = {    /* for down bow sign */
		{-4,0},{-4,9},{4,9},{4,0},
		{-4,6},{-4,9},{4,9},{4,6} };

	float r[3][2] = {    /* for up bow sign */
		{-3.2,11},{0,0},{3.2,11} };

	float f1,f2;

	f1=f2=0.5;
	fprintf (fp, "\n/hld {  %% usage:  y hld  - hold sign\n"
			"  x exch 2 copy 1.5 add 1.3 0 360 arc moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,1);
	add_sg (fp,f1,f2,p,4,1);
	add_cv (fp,f1,f2,p,5,1);
	fprintf (fp, "   fill\n} bind def\n");

    // Code borrowed from yaps,
    // copyright Michael Methfessel and James Allwright
    fprintf(fp, "\n");
    fprintf(fp, "/segno { %% segno symbol usage: y segno\n");
    fprintf(fp, "  x 3.75 sub exch\n"); // make it x y like the original
    fprintf(fp, "  gsave translate\n");
    fprintf(fp, "  5.82  0.84 moveto\n");
    fprintf(fp, "  4.62  1.15 5.04  3.20 4.6   3.64 curveto\n");
    fprintf(fp, "  4.17  4.08 3.19  2.75 3.9   1.51 curveto\n");
    fprintf(fp, "  4.62  0.27 7.45  0.0  8.03  1.82 curveto\n");
    fprintf(fp, "  8.61  3.64 5.06  7.81 3.38  9.67 curveto\n");
    fprintf(fp, "  1.69 11.53 1.59 14.46 2.79 14.16 curveto\n");
    fprintf(fp, "  3.99 13.85 3.55 11.80 4.00 11.36 curveto\n");
    fprintf(fp, "  4.44 10.92 5.33 12.25 4.66 13.49 curveto\n");
    fprintf(fp, "  3.99 14.73 1.15 15.0  0.57 13.18 curveto\n");
    fprintf(fp, "  0.0  11.36 3.50  7.19 5.21  5.32 curveto\n");
    fprintf(fp, "  6.92  3.46 7.01  0.53 5.82  0.84 curveto\n");
    fprintf(fp, "  closepath fill\n");
    fprintf(fp, "  -0.43 2.93 moveto\n");
    fprintf(fp, "  8.79 12.25 lineto 9.32 11.72 lineto -0.09 2.40 lineto\n");
    fprintf(fp, "  closepath fill\n");
    fprintf(fp, "  0.71 7.50 1.0 0 360 arc\n");
    fprintf(fp, "  closepath fill\n");
    fprintf(fp, "  7.85 7.50 1.0 0 360 arc\n");
    fprintf(fp, "  closepath fill\n");
    fprintf(fp, "  grestore\n");
    fprintf(fp, "} bind def\n");
    fprintf(fp, "\n");
    fprintf(fp, "/coda { %% coda : usage y coda\n");
    fprintf(fp, "  x 7.5 sub exch\n"); // make it x y like the original?
    fprintf(fp, "  gsave\n");
    fprintf(fp, "  translate\n");
    fprintf(fp, "  1.0 setlinewidth\n");
    fprintf(fp, "  0.0 7.5 moveto 15.0 7.5 lineto stroke\n");
    fprintf(fp, "  7.5 0.0 moveto 7.5 15.0 lineto stroke\n");
    fprintf(fp, "  7.5 7.5 5.0 0 360 arc stroke\n");
    fprintf(fp, "  grestore\n");
    fprintf(fp, "} bind def\n");
    fprintf(fp, "\n");
	fflush(fp);

	f1=f2=0.8;
	fprintf (fp, "\n/dnb {  %% usage:  y dnb  - down bow\n"
			"  x exch moveto\n");
	add_mv (fp,f1,f2,q,0);
	add_sg (fp,f1,f2,q,1,3);
	fprintf (fp, "   currentpoint stroke moveto\n");
	add_mv (fp,f1,f2,q,4);
	add_sg (fp,f1,f2,q,5,3);
	fprintf (fp, "   fill\n} bind def\n");

	fprintf (fp, "\n/upb {  %% usage:  y upb  - up bow\n"
			"  x exch moveto\n");
	add_mv (fp,f1,f2,r,0);
	add_sg (fp,f1,f2,r,1,2);
	fprintf (fp, "   stroke\n} bind def\n");

	fflush(fp);
}

/* ----- def_hl ------- */
void def_hl (fp)
FILE *fp;
{
	fprintf(fp,
			"\n/hl {  %% usage: y hl  - helper line at height y\n"
			"   gsave 1 setlinewidth x exch moveto \n"
			"   -5.0 0 rmoveto 10 0 rlineto stroke grestore\n"
			"} bind def\n");

	fprintf(fp,
			"\n/hl1 {  %% usage: y hl1  - longer helper line\n"
			"   gsave 1 setlinewidth x exch moveto \n"
			"   -6 0 rmoveto 12 0 rlineto stroke grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_beam ------- */
void def_beam (fp)
FILE *fp;
{
	fprintf(fp,
			"\n/bm {  %% usage: x1 y1 x2 y2 t bm  - beam, depth t\n"
			"  3 1 roll moveto dup 0 exch neg rlineto\n"
			"  dup 4 1 roll sub lineto 0 exch rlineto fill\n"
			"} bind def\n");

	fprintf(fp,
			"\n/bnum {  %% usage: x y (str) bnum  - number on beam\n"
			"  3 1 roll moveto gsave /Times-Italic 12 selectfont\n"
			"  /bx false def cshow grestore\n"
			"} bind def\n");


	fprintf(fp,
			"\n/hbr {  %% usage: x1 y1 x2 y2 hbr  - half bracket\n"
			"  moveto lineto 0 -3 rlineto stroke\n"
			"} bind def\n");
	fflush(fp);
}


/* ----- def_flags1 ------- */
void def_flags1 (fp)
FILE *fp;
{
	float p[13][2] = {
		{0.0, 0.0},  {1.5, -3.0},  {1.0, -2.5},  {4.0, -6.0},  {9.0, -10.0},
		{9.0, -16.0},  {8.0, -20.0},  {7.0, -24.0},  {4.0, -26.0},
		{6.5, -21.5},  {9.0, -15.0},  {4.0, -9.0},  {0.0, -8.0} } ;

	float f1,f2;
	int i;

	f1=f2=6.0/9.0;
	fprintf (fp, "\n/f1u {  %% usage:  len f1u  - single flag up\n"
			"  y add x %.1f add exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	fprintf (fp, "   fill\n} bind def\n");

	f1=1.2*f1;
	for (i=0;i<13;i++) p[i][1]=-p[i][1];
	fprintf (fp, "\n/f1d {  %% usage:  len f1d  - single flag down\n"
			"  neg y add x %.1f sub exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	fprintf (fp, "   fill\n} bind def\n");

	fflush(fp);
}

/* ----- def_flags2 ------- */
void def_flags2 (fp)
FILE *fp;
{

	float p[13][2] = {
		{0.0, 0.0},
		{2.0, -5.0},  {9.0, -6.0},  {7.5, -18.0},
		{7.5, -9.0},  {1.5, -6.5},  {0.0, -6.5},
		{2.0, -14.0},  {9.0, -14.0}, {7.5, -26.0},
		{7.5, -17.0},  {1.5, -14.5},  {0.0, -14.0},
	};

	float f1,f2;
	int i;

	f1=f2=6.0/9.0;                       /* up flags */
	fprintf (fp, "\n/f2u {  %% usage:  len f2u  - double flag up\n"
			"  y add x %.1f add exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	fprintf (fp, "   fill\n} bind def\n");

	f1=1.2*f1;                           /* down flags */
	for (i=0;i<13;i++) p[i][1]=-p[i][1];
	fprintf (fp, "\n/f2d {  %% usage:  len f2d  - double flag down\n"
			"  neg y add x %.1f sub exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	fprintf (fp, "   fill\n} bind def\n");

	fflush(fp);
}



/* ----- def_xflags ------- */
void def_xflags (fp)
FILE *fp;
{

	float p[7][2] = {
		{0.0, 0.0},
		{2.0, -7.5},  {9.0, -7.5}, {7.5, -19.5},
		{7.5, -10.5},  {1.5, -8.0},  {0.0, -7.5}
	};

	float f1,f2;
	int i;

	f1=f2=6.0/9.0;                       /* extra up flag */
	fprintf (fp, "\n/xfu {  %% usage:  len xfu  - extra flag up\n"
			"  y add x %.1f add exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "   fill\n} bind def\n");

	f1=1.2*f1;                           /* extra down flag */
	for (i=0;i<7;i++) p[i][1]=-p[i][1];
	fprintf (fp, "\n/xfd {  %% usage:  len xfd  - extra flag down\n"
			"  neg y add x %.1f sub exch moveto\n", STEM_XOFF);
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "   fill\n} bind def\n");

	fprintf (fp,
			"\n/f3d {dup f2d 9.5 sub xfd} bind def\n");

	fprintf (fp,
			"\n/f4d {dup dup f2d 9.5 sub xfd 14.7 sub xfd} bind def\n");

	fprintf (fp,
			"\n/f3u {dup f2u 9.5 sub xfu} bind def\n");

	fprintf (fp,
			"\n/f4u {dup dup f2u 9.5 sub xfu 14.7 sub xfu} bind def\n");

	fflush(fp);
}

/* ----- def_acc ------- */
void def_acc (fp)
FILE *fp;
{
	float p[12][2]={
		{-2,3},{6,6.5},{6,-1},{-2,-4.5},{4,0},{4,4},{-2,2},{-2,10},{-2,-4}};
	float q[14][2]={
		{4,4},{4,7},{-4,5},{-4,2},{4,4},{4,-5},{4,-2},{-4,-4},{-4,-7},{4,-5},
		{2,-10},{2,11.5},{-2,-11.5},{-2,10} };
	float r[14][2]={
		{-2.5,-6}, {2.5,-5}, {2.5,-2}, {-2.5,-3}, {-2.5,6},
		{-2.5,2}, {2.5,3}, {2.5,6}, {-2.5,5}, {-2.5,2},
		{-2.5,11}, {-2.5,-5.5},
		{2.5,5.5}, {2.5,-11} };
	float s[25][2]={
		{0.7,0},{3.9,3},{6,3},{6.2,6.2},{3,6},{3,3.9},
		{0,0.7},{-3,3.9},{-3,6},{-6.2,6.2},{-6,3},{-3.9,3},
		{-0.7,0},{-3.9,-3},{-6,-3},{-6.2,-6.2},{-3,-6},{-3,-3.9},
		{0,-0.7},{3,-3.9},{3,-6},{6.2,-6.2},{6,-3},{3.9,-3},
		{0.7,0} };


	float f1,f2;

	f2=8.0/9.0;
	f1=f2*0.9;
	fprintf (fp, "\n/ft0 { %% usage:  x y ft0  - flat sign\n"
			"  moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "  currentpoint fill moveto\n");
	add_mv (fp,f1,f2,p,7);
	add_sg (fp,f1,f2,p,8,1);
	fprintf (fp, "  stroke\n } bind def\n");
	fprintf (fp, "\n/hft0 { %% usage:  x y hft0  - half flat sign\n"
			" 2 copy ft0 moveto\n");
	fprintf (fp, "    -4.0 2.5 rmoveto\n8.00 6.00 rlineto\n");
	fprintf (fp, "  stroke\n } bind def\n");


	fprintf (fp, "/ft { %% usage: dx ft  - flat relative to head\n"
			" neg x add y ft0 } bind def\n");
	fprintf (fp, "/hft { %% usage: dx ft  - half flat relative to head\n"
			" neg x add y hft0 } bind def\n");

	f2=8.0/9.0;    /* more narrow flat sign for double flat */
	f1=f2*0.8;
	fprintf (fp, "\n/ftx { %% usage:  x y ftx  - narrow flat sign\n"
			"  moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "  currentpoint fill moveto\n");
	add_mv (fp,f1,f2,p,7);
	add_sg (fp,f1,f2,p,8,1);
	fprintf (fp, "  stroke\n } bind def\n");

	fprintf (fp, "/dft0 { %% usage: x y dft0 ft  - double flat sign\n"
			"  2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bind def\n"
			"/dft { %% usage: dx dft  - double flat relative to head\n"
			"  neg x add y dft0 } bind def\n");


	f2=6.5/9.0;
	f1=f2*0.9;
	fprintf (fp, "\n/hsh0 {  %% usage:  x y hsh0  - half sharp sign\n"
			"  moveto\n");
	add_mv (fp,f1,f2,q,0);
	add_sg (fp,f1,f2,q,1,4);
	add_mv (fp,f1,f2,q,5);
	add_sg (fp,f1,f2,q,6,4);
	fprintf (fp, "  currentpoint fill moveto\n");
	add_mv (fp,f1,f2,q,10);
	add_sg (fp,f1,f2,q,11,1);
	fprintf (fp, "  stroke\n } bind def\n");

	fprintf (fp, "\n/sh0 {  %% usage:  x y sh0  - sharp sign\n"
			" 2 copy hsh0 moveto\n");
	add_mv (fp,f1,f2,&q[12],0);
	add_sg (fp,f1,f2,&q[12],1,1);
	fprintf (fp, "  stroke\n } bind def\n");

	fprintf (fp, "/sh { %% usage: dx sh  - sharp relative to head\n"
			" neg x add y sh0 } bind def\n");

	fprintf (fp, "/hsh { %% usage: dx sh  - half sharp relative to head\n"
			" neg x add y hsh0 } bind def\n");

	f2=6.5/9.0;
	f1=f2*0.9;
	fprintf (fp, "\n/nt0 {  %% usage:  x y nt0  - neutral sign\n"
			"  moveto\n");
	add_mv (fp,f1,f2,r,0);
	add_sg (fp,f1,f2,r,1,4);
	add_mv (fp,f1,f2,r,5);
	add_sg (fp,f1,f2,r,6,4);
	fprintf (fp, "  currentpoint fill moveto\n");
	add_mv (fp,f1,f2,r,10);
	add_sg (fp,f1,f2,r,11,1);
	fprintf (fp, "  currentpoint stroke moveto\n");
	add_mv (fp,f1,f2,r,12);
	add_sg (fp,f1,f2,r,13,1);
	fprintf (fp, "  stroke\n } bind def\n");
	fprintf (fp, "/nt { %% usage: dx nt  - neutral relative to head\n"
			" neg x add y nt0 } bind def\n");

	f1=5.0/9.0;
	f2=f1;
	fprintf (fp, "\n/dsh0 {  %% usage:  x y dsh0  - double sharp \n"
			"  moveto\n");
	add_mv (fp,f1,f2,s,0);
	add_sg (fp,f1,f2,s,1,24);
	fprintf (fp, "  fill\n } bind def\n");
	fprintf (fp, "/dsh { %% usage: dx dsh  - double sharp relative to head\n"
			" neg x add y dsh0 } bind def\n");
	fflush(fp);
}

/* ----- def_rests ------- */
void def_rests (fp)
FILE *fp;
{
	float p[14][2]={
		{-1,17}, {15,4}, {-6,8}, {6.5,-5}, {-2,-2}, {-5,-11}, {1,-15},
		{-9,-11}, {-6,0}, {1,-1},   {-9,7}, {7,5}, {-1,17} };
	float q[16][2]={
		{8,14}, {5,9}, {3,5}, {-1.5,4},
		{4,11}, {-9,14}, {-9,7},
		{-9,4}, {-6,2}, {-3,2},
		{4,2}, {5,7}, {7,11},
		{-1.8,-20},  {-0.5,-20}, {8.5,14}};
	float r[29][2]={
		{8,14}, {5,9}, {3,5}, {-1.5,4},
		{4,11}, {-9,14}, {-9,7},
		{-9,4}, {-6,2}, {-3,2},
		{4,2}, {5,7}, {7,11},
		{8,14}, {5,9}, {3,5}, {-1.5,4},
		{4,11}, {-9,14}, {-9,7},
		{-9,4}, {-6,2}, {-3,2},
		{4,2}, {5,7}, {7.3,11},
		{-1.8,-21},  {-0.5,-21}, {8.5,14} };
	float f1,f2;
	int i;

	fprintf (fp, "\n/r4 {  %% usage:  x y r4  -  quarter rest\n"
			"   dup /y exch def exch dup /x exch def exch moveto\n");
	f1=f2=6.0/11.5;
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	fprintf (fp, "  fill\n } bind def\n");

	fprintf (fp, "\n/r8 {  %% usage:  x y r8  -  eighth rest\n"
			"   dup /y exch def exch dup /x exch def exch moveto\n");
	f1=f2=7/18.0;
	add_mv (fp,f1,f2,q,0);
	add_cv (fp,f1,f2,q,1,4);
	add_sg (fp,f1,f2,q,13,3);
	fprintf (fp, "  fill\n } bind def\n");

	for (i=13;i<26;i++) { r[i][0]-=4.2; r[i][1]-=14; }
	fprintf (fp, "\n/r16 {  %% usage:  x y r16  -  16th rest\n"
			"   dup /y exch def exch dup /x exch def exch moveto\n");
	f1=f2=7/18.0;
	add_mv (fp,f1,f2,r,0);
	add_cv (fp,f1,f2,r,1,4);
	add_sg (fp,f1,f2,r,13,1);
	add_cv (fp,f1,f2,r,14,4);
	add_sg (fp,f1,f2,r,26,3);
	fprintf (fp, "  fill\n } bind def\n");


	fprintf (fp,
			"\n/r1 {  %% usage:  x y r1  -  whole rest\n"
			"  dup /y exch def exch dup /x exch def exch moveto\n"
			"  -3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill\n"
			"} bind def\n");

	fprintf (fp,
			"\n/r2 {  %% usage:  x y r2  -  half rest\n"
			"  dup /y exch def exch dup /x exch def exch moveto\n"
			"  -3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill\n"
			"} bind def\n"
			);

	/* get 32nd, 64th rest by overwriting 8th and 16th rests */
	fprintf (fp,
			"\n/r32 {\n"
			"2 copy r16 5.5 add exch 1.6 add exch r8\n"
			"} bind def\n");
	fprintf (fp,
			"\n/r64 {\n"
			"2 copy 5.5 add exch 1.6 add exch r16\n"
			"5.5 sub exch 1.5 sub exch r16\n"
			"} bind def\n");

	fflush(fp);
}


/* ----- def_bars ------ */
void def_bars (fp)
FILE *fp;
{

	fprintf(fp, "\n/bar {  %% usage: x bar  - single bar\n"
			"  0 moveto  0 24 rlineto stroke\n"
			"} bind def\n"

			"\n/dbar {  %% usage: x dbar  - thin double bar\n"
			"   0 moveto 0 24 rlineto -3 -24 rmoveto\n"
			"   0 24 rlineto stroke\n"
			"} bind def\n"

			"\n/fbar1 {  %% usage: x fbar1  - thick+thin double bar at start\n"
			"  0 moveto  0 24 rlineto 3 0 rlineto 0 -24 rlineto \n"
			"  currentpoint fill moveto\n"
			"  3 0 rmoveto 0 24 rlineto stroke\n"
			"} bind def\n"

			"\n/fbar2 {  %% usage: x fbar2  - thin+thick double bar at end\n"
			"  0 moveto  0 24 rlineto -3 0 rlineto 0 -24 rlineto \n"
			"  currentpoint fill moveto\n"
			"  -3 0 rmoveto 0 24 rlineto stroke\n"
			"} bind def\n"

			"\n/fbar3 {  %% usage: x fbar3  - thin+thick+thin bar in middle\n"
			"  0 moveto 0 24 rlineto -3 0 rlineto 0 -24 rlineto \n"
			"  currentpoint fill moveto\n"
			" -3 0 rmoveto 0  24 rlineto currentpoint moveto\n"
			"  9 0 rmoveto 0 -24 rlineto currentpoint moveto stroke\n"
			"} bind def\n"

			"\n/rdots {  %% usage: x rdots  - repeat dots \n"
			"  0 moveto 0 9 rmoveto currentpoint 2 copy 1.2 0 360 arc \n"
			"  moveto 0 6 rmoveto  currentpoint 1.2 0 360 arc fill\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_ends ------ */
void def_ends (fp)
FILE *fp;
{
	/* use dy=20 for tall boxes */
	int y=50,dy=12;

	fprintf(fp, "\n/end1 {  %% usage: x1 x2 (str) end1  - mark first ending\n"
			"  3 1 roll %d moveto 0 %d rlineto dup %d lineto 0 %d rlineto stroke\n"
			"  1 add %d moveto gsave /Times-Roman 10 selectfont 1.2 0.95 scale\n"
			"  show grestore\n"
			"} bind def\n",
			y-dy,  dy, y, -dy,  y-8);

	fprintf(fp, "\n/end2 {  %% usage: x1 x2 (str) end2  - mark second ending\n"
			"  3 1 roll %d moveto dup %d lineto 0 %d rlineto stroke\n"
			"  1 add %d moveto gsave /Times-Roman 10 selectfont 1.2 0.95 scale\n"
			"  show grestore\n"
			"} bind def\n",
			y, y, -dy,  y-8);

/*
	fprintf(fp, "\n/endx {  %% usage: x1 x2 (str) endx  - mark random ending\n"
			"  3 1 roll %d moveto dup %d lineto 0 %d rlineto stroke\n"
			"  4 add %d moveto gsave /Times-Roman 13 selectfont 1.2 0.95 scale\n"
			"  show grestore\n"
			"} bind def\n",
			y, y, -dy,  y-10);
*/

	fflush(fp);
}

/* ----- def_achord ------ */
void def_achord (fp)
FILE *fp;
{
	fprintf(fp,"\n/ach { %% usage: x y (str) ach  -- draw accomp chord string\n"
			"  3 1 roll moveto rshow\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_annot ------ */
void def_annot (fp)
FILE *fp;
{
	fprintf(fp,"\n/ann { %% usage: x y (str) ach  -- draw annotation text string\n"
			"  3 1 roll moveto rshow\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_sl ------ */
void def_sl (fp)
FILE *fp;
{
/*  fprintf(fp, "\n/sl {  %% usage: x1 y2 x2 y2 x3 y3 x0 y0 sl\n"
			"  gsave %.1f setlinewidth moveto curveto stroke grestore\n"
			"} bind def\n", SLURWIDTH); */

	fprintf(fp, "\n/SL {  %% usage: pp2x pp1x p1 pp1 pp2 p2 p1 sl\n"
			"  moveto curveto rlineto curveto fill\n"
			"} bind def\n");

	fflush(fp);
}

/* ----- def_hd1 ------- */
void def_hd1 (fp)
FILE *fp;
{
	float p[7][2] = {
		{8.0, 0.0},  {8.0, 8.0},  {-8.0, 8.0},  {-8.0, 0.0},  {-8.0, -8.0},
		{8.0, -8.0},  {8.0, 0.0} };

	float c,s,xx,yy,f1,f2;
	int i;
/*float phi; */

/*phi=0.6;
	c=cos(phi);
	s=sin(phi); */

	c=0.825; s=0.565;

	for (i=0;i<7;i++) {
		xx = c*p[i][0] - s*p[i][1];
		yy = s*p[i][0] + c*p[i][1];
		p[i][0]=xx;
		p[i][1]=yy;
	}

	f1=f2=6.0/12.0;
	fprintf (fp, "\n/hd {  %% usage: x y hd  - full head\n"
			"  dup /y exch def exch dup /x exch def exch moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "   fill\n} bind def\n");
	fflush(fp);
}

/* ----- def_hd2 ------- */
void def_hd2 (fp)
FILE *fp;
{

	float p[14][2] = {
		{8.0, 0.0},  {8.0, 8.5},  {-8.0, 8.5},  {-8.0, 0.0},  {-8.0, -8.5},
		{8.0, -8.5},  {8.0, 0.0},  {7.0, 0.0},  {7.0, -4.0},  {-7.0, -4.0},
		{-7.0, 0.0},  {-7.0, 4.0},  {7.0, 4.0},  {7.0, 0.0} };

/*  float phi; */
	float c,s,xx,yy,f1,f2;
	int i;

/*phi=0.5;
	c=cos(phi);
	s=sin(phi); */

	c=0.878; s=0.479;

	for (i=0;i<14;i++) {
		xx = c*p[i][0] - s*p[i][1];
		yy = s*p[i][0] + c*p[i][1];
		p[i][0]=xx;
		p[i][1]=yy;
	}

	f1=f2=6.0/12.0;
	fprintf (fp, "\n/Hd {  %% usage: x y Hd  - open head for half\n"
			"  dup /y exch def exch dup /x exch def exch moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	add_mv (fp,f1,f2,p,7);
	add_cv (fp,f1,f2,p,8,2);
	fprintf (fp, "   fill\n} bind def\n");
	fflush(fp);
}

/* ----- def_hd3 ------- */
void def_hd3 (fp)
FILE *fp;
{

	float p[13][2] = {
		{11.0, 0.0}, {11.0, 2.0},  {6.0, 6.5},  {0.0, 6.5},  {-6.0, 6.5},
		{-11.0, 2.0},  {-11.0, 0.0},  {-11.0, -2.0},  {-6.0, -6.5},
		{0.0, -6.5},  {6.0, -6.5},  {11.0, -2.0},  {11.0, 0.0}  };

	float q[8][2] = {
		{11.0, 0.0},  {5.0, 0.0},  {5.0, -5.0},  {-5.0, -5.0},  {-5.0, 0.0},
		{-5.0, 5.0},  {5.0, 5.0},  {5.0, 0.0}};

/*  float phi; */
	float c,s,xx,yy,f1,f2;
	int i;

/*phi=2.5;
	c=cos(phi);
	s=sin(phi); */

	c=-0.801; s=0.598;

	for (i=1;i<8;i++) {
		xx = c*q[i][0] - s*q[i][1];
		yy = s*q[i][0] + c*q[i][1];
		q[i][0]=xx;
		q[i][1]=yy;
	}

	f1=f2=6.5/12.0;
	fprintf (fp, "\n/HD { %% usage: x y HD  - open head for whole\n"
			"  dup /y exch def exch dup /x exch def exch moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,4);
	add_mv (fp,f1,f2,q,1);
	add_cv (fp,f1,f2,q,2,2);
	fprintf (fp, "   fill\n} bind def\n");

	fflush(fp);
}

/* ----- def_gnote ------- */
void def_gnote (fp)
FILE *fp;
{
	float p[7][2] = {
		{0,10}, {16,10}, {16,-10}, {0,-10}, {-16,-10}, {-16,10}, {0,10} };

/*  float phi; */
	float c,s,xx,yy,f1,f2;
	int i;

/*phi=0.7;
	c=cos(phi);
	s=sin(phi); */

	c=0.765; s=0.644;

	for (i=0;i<7;i++) {
		xx = c*p[i][0] - s*p[i][1];
		yy = s*p[i][0] + c*p[i][1];
		p[i][0]=xx;
		p[i][1]=yy;
	}

	f1=f2=2./10.0;

	fprintf (fp, "\n/gn1 {  %% usage: x y l gnt  - grace note w. tail\n"
			"  3 1 roll 2 copy moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf (fp, "  fill moveto %.2f 0 rmoveto 0 exch rlineto\n"
			"3 -4 4 -5 2 -8 rcurveto -5 2 rmoveto 7 4 rlineto   \n"
			"stroke\n",
			GSTEM_XOFF);
	fprintf (fp, "} bind def\n");

	fprintf (fp, "\n/gnt {  %% usage: x y l gnt  - grace note\n"
			"  3 1 roll 2 copy moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,2);
	fprintf(fp,"  fill moveto %.2f 0 rmoveto 0 exch rlineto stroke\n",GSTEM_XOFF);
	fprintf(fp,"} bind def\n");
	fflush(fp);

	fprintf(fp, "\n/gbm2 {  %% usage: x1 y1 x2 y2 gbm2  - double note beam\n"
			"  gsave 1.4 setlinewidth\n"
			"  4 copy 0.5 sub moveto 0.5 sub lineto stroke\n"
			"  3.4 sub moveto 3.4 sub lineto stroke grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gbm3 {  %% usage: x1 y1 x2 y2 gbm3  - triple gnote beam\n"
			"  gsave 1.2 setlinewidth\n"
			"  4 copy 0.3 sub moveto 0.3 sub lineto stroke\n"
			"  4 copy 2.5 sub moveto 2.5 sub lineto stroke\n"
			"  4.7 sub moveto 4.7 sub lineto stroke grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/ghl {  %% usage: x y ghl  - grace note helper line\n"
			"   gsave 0.7 setlinewidth moveto \n"
			"   -3 0 rmoveto 6 0 rlineto stroke grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gsl {  %% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl\n"
			"  moveto curveto stroke\n"
			"} bind def\n");

	fprintf(fp, "\n/gsh0 {  %% usage: x y gsh0\n"
			"gsave translate 0.7 0.7 scale 0 0 sh0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/ghsh0 {  %% usage: x y gsh0\n"
			"gsave translate 0.7 0.7 scale 0 0 hsh0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gft0 {  %% usage: x y gft0\n"
			"gsave translate 0.7 0.7 scale 0 0 ft0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/ghft0 {  %% usage: x y ghft0\n"
			"gsave translate 0.7 0.7 scale 0 0 hft0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gnt0 {  %% usage: x y gnt0\n"
			"gsave translate 0.7 0.7 scale 0 0 nt0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gdf0 {  %% usage: x y gdf0\n"
			"gsave translate 0.7 0.6 scale 0 0 dft0 grestore\n"
			"} bind def\n");

	fprintf(fp, "\n/gds0 {  %% usage: x y gds0\n"
			"gsave translate 0.7 0.7 scale 0 0 dsh0 grestore\n"
			"} bind def\n");
	fflush(fp);
}


/* ----- def_csig ------- */
void def_csg (fp)
FILE *fp;
{
	float p[25][2]={
	{0,26},
	{4,26}, {11,23},  {11,14},
	{11,20},  {5,19}, {5,14},
	{5,9}, {12,9}, {12,15},
	{12,25}, {6,28},  {0,28},
	{-15,28}, {-25,17}, {-25,2},
	{-25,-10}, {-10,-28}, {11,-8},
	{-6,-20}, {-18,-11}, {-18,2},
	{-18,14}, {-14,26}, {0,26} };

	float f1,f2;
	int i;

	for (i=0;i<25;i++) {
		p[i][0]=p[i][0]+4;
		p[i][1]=p[i][1]+43;
	}
	f1 = f2 = 0.25;
	fprintf (fp, "\n/csig {  %% usage:  x csig  - C timesig \n"
			"  0 moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,8);
	fprintf (fp, "   fill\n} bind def\n");

	fprintf (fp, "\n/ctsig {  %% usage:  x ctsig  - C| timesig \n"
			"  dup csig 4 moveto 0 16 rlineto stroke\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_nsig ------- */
// This is a dummy time signature for free meter.
// It could be replaced by an actual symbol.
void def_nsg (fp)
FILE *fp;
{	int i;
	fprintf (fp, "\n/nsig {  %% usage:  x nsig  - no timesig \n"
			"  0 moveto\n"
	        "   \n} bind def\n");
	fflush(fp);
}


/* ----- def_tclef ------- */
void def_tclef (fp)
FILE *fp;
{
	float p[71][2]={
		{-6, 16},  {-8, 13},  {-14, 19},  {-10, 35},  {2, 35},  {8, 37},
		{21, 30},  {21, 17},  {21, 5},  {10, -1},  {0, -1},  {-12, -1},
		{-23, 5},  {-23, 22},  {-23, 29},  {-22, 37},  {-7, 49},  {10, 61},
		{10, 68},  {10, 73},  {10, 78},  {9, 82},  {7, 82},  {2, 78},
		{-2, 68},  {-2, 62},  {-2, 25},  {10, 18},  {11, -8},  {11, -18},
		{5, -23},  {-4, -23},  {-10, -23},  {-15, -18},  {-15, -13},
		{-15, -8},  {-12, -4},  {-7, -4},  {3, -4},  {3, -20},  {-6, -17},
		{-5, -23},  {9, -20},  {9, -9},  {7, 24},  {-5, 30},  {-5, 67},
		{-5, 78},  {-2, 87},  {7, 91},  {13, 87},  {18, 80},  {17, 73},
		{17, 62},  {10, 54},  {1, 45},  {-5, 38},  {-15, 33},  {-15, 19},
		{-15, 7},  {-8, 1},  {0, 1},  {8, 1},  {15, 6},  {15, 14},  {15, 23},
		{7, 26},  {2, 26},  {-5, 26},  {-9, 21},  {-6, 16} };

	float f1,f2;

	f1 = f2 = 24.0/65.0;
	fprintf (fp, "\n/tclef {  %% usage:  x tclef  - treble clef \n"
			"  0 moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_sg (fp,f1,f2,p,1,1);
	add_cv (fp,f1,f2,p,2,23);
	fprintf (fp, "   fill\n} bind def\n");
	fprintf (fp, "\n/stclef {\n"
			"  0.85 div gsave 0.85 0.85 scale tclef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_nclef ------- */
// This is a dummy "none" clef.
// It could be replaced by an actual symbol.
void def_nclef (fp)
FILE *fp;
{	int i;
	fprintf (fp, "\n/nclef {  %% usage:  x nclef  - no clef \n"
			"  0 moveto\n"
	        "   \n} bind def\n");
	fflush(fp);
}

/* ----- def_td8clef ------- */
void def_td8clef (fp)
FILE *fp;
{
	fprintf (fp, "\n/td8clef {  %% usage:  x td8clef  - treble-8va clef\n"
			"  dup tclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  -20 moveto (8) cshow\n"
			"} bind def\n"
			"\n/std8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale td8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_tu8clef ------- */
void def_tu8clef (fp)
FILE *fp;
{
	fprintf (fp, "\n/tu8clef {  %% usage:  x tu8clef  - treble+8va clef\n"
			"  dup tclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  +35 moveto ( 8) cshow\n"
			"} bind def\n"
			"\n/stu8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale tu8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_bclef ------- */
void def_bclef (fp)
FILE *fp;
{
	float p[42][2]={
		{-2.3,3}, {6,7}, {10.5,12}, {10.5,16},
		{10.5,20.5}, {8.5,23.5}, {6.2,23.3},
		{5.2,23.5}, {2,23.5}, {0.5,19.5},
		{2,20}, {4,19.5}, {4,18},
		{4,17}, {3.5,16}, {2,16},
		{1,16}, {0,16.9}, {0,18.5},
		{0,21}, {2.1,24}, {6,24},
		{10,24}, {13.5,21.5}, {13.5,16.5},
		{13.5,11}, {7,5.5}, {-2.0,2.8},
		{14.9,21},
		{14.9,22.5}, {16.9,22.5}, {16.9,21},
		{16.9,19.5}, {14.9,19.5}, {14.9,21},
		{14.9,15},
		{14.9,16.5}, {16.9,16.5}, {16.9,15},
		{16.9,13.5}, {14.9,13.5}, {14.9,15} };
	int i;
	float f1,f2;
	for (i=0;i<42;i++) {p[i][0]-=7.5; p[i][1]-=0.5; }
	f1 = f2 = 1.0;
	fprintf (fp, "\n/bclef {  %% usage:  x bclef  - bass clef \n"
			"  0 moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,9);
	add_cv (fp,f1,f2,p,1,9);
	add_mv (fp,f1,f2,p,28);
	add_cv (fp,f1,f2,p,29,2);
	add_mv (fp,f1,f2,p,25);
	add_cv (fp,f1,f2,p,36,2);
	fprintf (fp, "fill\n} bind def\n");
	fprintf (fp, "\n/sbclef {\n"
			"  0.85 div gsave 0.85 0.85 scale 0 4 translate bclef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_bd8clef ------- */
void def_bd8clef (fp)
	FILE *fp;
{
	fprintf (fp, "\n/bd8clef {  %% usage:  x bd8clef  - bass-8va clef\n"
			"  dup bclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  -10 moveto (8) cshow\n"
			"} bind def\n"
			"\n/sbd8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale bd8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_bu8clef ------- */
void def_bu8clef (fp)
	FILE *fp;
{
	fprintf (fp, "\n/bu8clef {  %% usage:  x bu8clef  - bass+8va clef\n"
			"  dup bclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  +25 moveto (8) cshow\n"
			"} bind def\n"
			"\n/sbu8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale bu8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_cclef ------- */
void def_cclef (fp)
FILE *fp;
{
	float p[30][2]={
		{0,0}, {2,5.5},
		{9,4.5}, {12,10}, {12,15.5},
		{12,19.5}, {11,23.3}, {6.5,23.5},
		{5.2,23.5}, {2,23.5}, {0.5,19.5},
		{2,20}, {4,19.5}, {4,18},
		{4,17}, {3.5,16}, {2,16},
		{1,16}, {0,16.9}, {0,18.5},
		{0,21}, {2.1,24}, {6,24},
		{12,24}, {15,21.5}, {15,16.5},
		{15,10}, {10,4.5}, {4,5},
		{3,0} };
	int i;
	float f1,f2;

	for (i=0;i<30;i++) p[i][1]+=24;

	f1 = 0.6;
	f2 = 0.5;
	fprintf (fp, "\n/cchalf {\n"
			"  0 moveto\n");
	add_mv (fp,f1,f2,p,0);
	add_sg (fp,f1,f2,p,1,1);
	add_cv (fp,f1,f2,p,2,9);
	add_sg (fp,f1,f2,p,29,1);
	fprintf (fp, "fill\n} bind def\n");

	fprintf (fp,
			"\n/cclef {   %% usage: x cclef\n"
			"   dup dup dup\n"
			"   cchalf gsave 0 24 translate 1 -1 scale cchalf\n"
			"   6.5 sub 0 moveto 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill\n"
			"   1.8 sub 0 moveto 0 24 rlineto 0.8 setlinewidth stroke grestore \n"
			"} bind def\n");

	fprintf (fp, "\n/scclef { cclef } bind def\n");
	fflush(fp);
}

/* ----- def_cd8clef ------- */
void def_cd8clef (fp)
	FILE *fp;
{
	fprintf (fp, "\n/cd8clef {  %% usage:  x cd8clef  - alto-8va clef\n"
			"  dup cclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  -10 moveto (8) cshow\n"
			"} bind def\n"
			"\n/scd8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale cd8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_cu8clef ------- */
void def_cu8clef (fp)
	FILE *fp;
{
	fprintf (fp, "\n/cu8clef {  %% usage:  x cu8clef  - alto+8va clef\n"
			"  dup cclef\n"
			"  /Times-Roman findfont 12 scalefont setfont\n"
			"  +25 moveto (8) cshow\n"
			"} bind def\n"
			"\n/scu8clef {\n"
			"  0.85 div gsave 0.85 0.85 scale cu8clef grestore\n"
			"} bind def\n");
	fflush(fp);
}

/* ----- def_brace ------- */
void def_brace (fp)
FILE *fp;
{
	float p[8][2]={
		{7.2,60}, {-7,39}, {17,17}, {-1,0},
		{-1.4,0}, {13,13}, {-11,39}, {7,60} };

	float q[8][2]={
		{-3,0}, {2,0}, {4,1}, {5.5,5},
		{5.9,4.7}, {4.7,1.2}, {3.2,-.4}, {-1,-1.2} };

	float f1,f2;

	f1 = 0.9;
	f2 = 1.0;
	fprintf (fp, "\n/bracehalf {\n");
	add_mv (fp,f1,f2,p,0);
	add_cv (fp,f1,f2,p,1,1);
	add_sg (fp,f1,f2,p,4,1);
	add_cv (fp,f1,f2,p,5,1);
	fprintf (fp, "  fill\n} bind def\n");

	fprintf(fp,"\n/brace {   %% usage: scale x0 y0 brace\n");
	fprintf(fp,"   3 copy moveto gsave 1 exch scale bracehalf grestore\n");
	fprintf(fp,"   moveto gsave neg 1 exch scale bracehalf grestore\n");
	fprintf(fp,"} bind def\n");

	f1 = 1.0;
	f2 = 1.0;
	fprintf (fp, "\n/brackhead {\n");
	add_mv (fp,f1,f2,q,0);
	add_cv (fp,f1,f2,q,1,1);
	add_sg (fp,f1,f2,q,4,1);
	add_cv (fp,f1,f2,q,5,1);
	fprintf (fp, "  fill\n} bind def\n");

	fprintf(fp,"\n/bracket {   %% usage: h x0 y0 bracket\n");
	fprintf(fp,"   3 copy moveto 0 exch rmoveto brackhead\n");
	fprintf(fp,"   3 copy moveto pop gsave 1 -1 scale brackhead grestore \n");
	fprintf(fp,"   moveto -3 0 rlineto 0 exch rlineto 3 0 rlineto fill\n");
	fprintf(fp,"} bind def \n");
	fflush(fp);
}


/* ----- def_staff ------- */
void def_staff (fp)
FILE *fp;
{
	fprintf(fp,"\n/staff {  %% usage: l staff  - draw staff\n");
	fprintf(fp,"  gsave 0.6 setlinewidth 0 0 moveto\n");
	fprintf(fp,"  dup 0 rlineto dup neg 6 rmoveto\n");
	fprintf(fp,"  dup 0 rlineto dup neg 6 rmoveto\n");
	fprintf(fp,"  dup 0 rlineto dup neg 6 rmoveto\n");
	fprintf(fp,"  dup 0 rlineto dup neg 6 rmoveto\n");
	fprintf(fp,"  dup 0 rlineto dup neg 6 rmoveto\n");
	fprintf(fp,"  pop stroke grestore\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);
}

/* ----- def_sep ------- */
void def_sep (fp)
FILE *fp;
{
	fprintf(fp,"\n/sep0 { %% usage: x1 x2 sep0  - hline separator \n");
	fprintf(fp,"   0 moveto 0 lineto stroke\n");
	fprintf(fp,"} bind def\n");
	fflush(fp);
}

/* ----- define_symbols: write postscript macros to file ------ */
void define_symbols (fp)
	FILE *fp;
{ 
	def_misc (fp);
	def_nclef (fp);
	def_tclef (fp);
	def_td8clef (fp);
	def_tu8clef (fp);
	def_bclef (fp);
	def_bd8clef (fp);
	def_bu8clef (fp);
	def_cclef (fp);
	def_cd8clef (fp);
	def_cu8clef (fp);
	def_hd1 (fp);
	def_hd2 (fp);
	def_hd3 (fp);
	def_stems (fp);
	def_beam (fp);
	def_sl (fp);
	def_dot (fp);
	def_deco (fp);
	def_deco1 (fp);
	def_hl (fp);
	def_flags1 (fp);
	def_flags2 (fp);
	def_xflags (fp);
	def_acc (fp);
	def_achord (fp);
	def_annot (fp);
	def_rests (fp);
	def_bars (fp);
	def_ends (fp);
	def_gnote (fp);
	def_csg (fp);
	def_nsg (fp);
	def_sep (fp);
	def_tsig (fp);
	def_staff (fp);
	def_brace (fp);
	def_typeset(fp);
	fflush(fp);
}