+++ /dev/null
-#!@PERL@ -w
-
-# generate the standard header of a LilyPond source file.
-my $fn;
-
-sub
- do_init
-{
- $MAILADDRESS=$ENV{MAILADDRESS};
- @pw=(getpwuid($<));
- $username=$pw[6];
-
- die "arg needed\n" if (!($#ARGV+1));
- $fn = $ARGV[0];
-
- $hh_b = ($fn =~ /hh$/ );
- $inc_b= ($hh_b || $fn =~ /[ti]cc$/);
-}
-
-sub
- do_head
-{
-
- my $what="implement ";
- $what = "declare " if ($hh_b);
- my ($PROJECT, $cwd);
- $PROJECT = "the GNU LilyPond music typesetter";
- chop($cwd = `pwd`);
-
- $PROJECT= "the Flower Library" if ($cwd =~ /flower/);
-
- my $headstr ="/*
- $fn -- $what
-
- source file of $PROJECT
-
- (c) 1997 $username <$MAILADDRESS>
-*/\n";
- print $headstr;
-}
-sub do_inc
-{
- my $headstr="";
- my $startdef= $fn;
- $startdef =~ s/[\.-]/_/g;
- $startdef =~ tr/a-z/A-Z/;
- my $terminatestr="\n";
-
- if ($inc_b) {
- $headstr = "\n\n#ifndef $startdef\n#define $startdef\n";
- $terminatestr .= "#endif // $startdef\n"
- }
-
- print $headstr, $terminatestr;
-}
-do_init;
-do_head;
-do_inc;
-
-
+++ /dev/null
-% bolletjes.mf
-% part of LilyPond's pretty-but-neat music font
-
-% most beautiful noteheads are pronounced, not circular,
-% and not even symmetric.
-% These examples are inspired by [Wanske] [see literature list]
-
-%noteheight#:=interline#;
-
-% even more pronounced (almost overdone), just like the original
-noteheight#:=interline#+1.5stafflinethickness#;
-
-
-% setup user vars
-def setup_notehead_vars =
- save a_b,err_y_a,tilt,superness;
- save ai_a,ai_bi,err_y_ai,err_x_bi,inner_tilt,inner_superness;
- save b_h,a_w;
- enddef;
-
-% setup addititional vars and calc them
-def notehead_calc =
- save a,beta,ai,bi, ht, wd;
- ht# =noteheight#;
- 2beta#=ht#*b_h;
- a# = beta#*a_b;
- wd# = 2a# / a_w;
- ai# = a# * ai_a;
- bi# = ai#/ai_bi;
- define_pixels(a,beta);
- define_pixels(ai,bi);
- set_char_box(0, wd#, .5 ht#, .5 ht#);
- enddef;
-
-
-% draw the outer and inner ellipse.
-def notehead_draw =
- path black,white;
- black=distorted_ellipse(a,beta,a*err_y_a,0,superness);
- white=distorted_ellipse(ai,bi,ai*err_y_ai,bi*err_x_bi,inner_superness);
-if test>1: %fixme
- save x;
- x1=-x3=a; x2=x4=0; y1=y3=0; y2=-y4=b;
- penlabels(1,2,3,4);
- test_grid;
-else:
- black:=black rotated tilt;
- black:=black shifted (w/2,0);
- white:=white rotated inner_tilt;
- white:=white shifted (w/2,0);
-fi
- fill black;
- unfill white;
-
-
- enddef;
-
-
-fet_begingroup("balls");
-
-% whole note
-% Wanske, p.38
-fet_beginchar("Whole notehead", "0", "wholeball")
- setup_notehead_vars;
-
- a_b:=1.80;
- err_y_a:=0; % no slant
- tilt:=0;
- superness:=0.707;
- ai_a:=0.508;
- % ai_bi:=1.23;
- ai_bi:=1.30; % jcn
- % err_y_ai:=0.0938;
- % err_x_bi:=0;
- err_y_ai:=0;
- err_x_bi:=0.115;
- % inner_tilt:=135;
- inner_tilt:=125; % jcn
- % inner_superness:=0.69;
- inner_superness:=0.68; % jcn
- b_h:=1; %no rotate-> no height correction
- a_w:=1; % no rotate-> no width correction
-
- notehead_calc;
- notehead_draw;
-fet_endchar;
-
-
-% half note
-% Wanske, p.39
-fet_beginchar("Half notehead", "1",
- "halfball")
- setup_notehead_vars;
- % a_b:=1.49; % after text
- a_b:=1.50; % after drawing
- err_y_a:=0.157;
- tilt:=34;
- % superness:=0.66;
- superness:=0.67; % jcn
- % ai_a:=0.863;
- ai_a:=0.850; % jcn
- % ai_bi:=3.14;
- ai_bi:=3.30; % jcn
- err_y_ai:=0;
- err_x_bi:=-0.12;
- inner_tilt:=tilt;
- inner_superness:=0.80;
- b_h:=0.935;
- a_w:=1.12;
-
- notehead_calc;
- notehead_draw;
-fet_endchar;
-
-
-% quarter note
-% Wanske p.38
-fet_beginchar("Quart notehead", "2", "quartball")
- setup_notehead_vars;
- % a_b:=1.57; % after text
- a_b:=1.54; % after drawing
- err_y_a:=0.044;
- tilt:=32;
- superness:=0.707;
- ai_a:=0;
- ai_bi:=1;
- err_y_ai:=0;
- err_x_bi:=0;
- inner_tilt:=0;
- inner_superness:=0.707;
- b_h:=0.85;
- a_w:=1.09;
-
- notehead_calc;
- notehead_draw;
-fet_endchar;
-
-
-
-% from MO*gen.mf; (pass the barfbag?)
-def add_mirror (expr pone, ptwo) =
- addto currentpicture also currentpicture
- reflectedabout (round(pone), round(ptwo))
-enddef;
-
-def fill_square (expr xwidth, ywidth, zshift) =
- fill unitsquare xscaled xwidth yscaled ywidth shifted zshift
-enddef;
-
-% ugh
-nhh#:=interline#;
-nhw#:=6/5interline#;
-define_pixels(nhh,nhw);
-
-fet_beginchar("Brevis notehead","-1","breveball");
- set_char_box(0, 2interline#,.5 interline#, .5interline#);
- fill_square (5/4nhw, .25nhh, (0,.25nhh));
- add_mirror (origin, right);
- x1=x2=0; x3=x4=5/4nhw; y1=-y2=y3=-y4=.7nhh;
- pickup pencircle scaled stafflinethickness;
- draw z1--z2; draw z3--z4;
- push_picture(currentpicture);
-fet_endchar;
-
-fet_beginchar("Longa notehead","-2","longaball");
- set_char_box(0, 2 interline#,.5interline#, .5interline# );
- currentpicture := pop_picture;
- pickup pencircle scaled stafflinethickness;
- draw (5/4nhw,-.7nhh)--(5/4nhw,-1.7nhh);
-fet_endchar;
-
-% fet_endgroup("noteheads");
-fet_endgroup("balls");
-
+++ /dev/null
-% eindelijk.mf
-% LilyPond's own rest(s)
-
-% todo breve/longa rests
-
-
-fet_begingroup("rests");
-
-begingroup
-
-med#:=1/33designsize;
-thick#:=1/16designsize;
-define_blacker_pixels(med,thick);
-pen med_pen;
-med_pen:= pencircle scaled med;
-
-rthin:=1/8interline;
-% rthick:=2rthin;
-rthick:=2thick+rthin;
-
-def shift_pic (expr pone, ptwo) =
- currentpicture:=currentpicture shifted (round(pone),round(ptwo))
-enddef;
-
-% stuff for 8th,16th etc rests
-%
-save stem, ball_crook_stem, ball_crook_balldiam, flare;
-
-define_pixels(stem,flare);
-% stem#:=1/8interline#;
-stem# = 1/5interline#;
-ball_crook_stem = stem;
-ball_crook_balldiam =flare;
-flare# = 2/3interline#;
-
-save block_rest_y, block_rest_x;
-
-block_rest_y# = 1/2 interline#;
-block_rest_x# = 3 block_rest_y#;
-
-define_pixels(block_rest_y, block_rest_x);
-
-def block_rest=
- pickup pencircle scaled blot_diameter;
-
- bot y1 = 0;
- top y2 = block_rest_y;
- y3 = y2;
- y4 = y1;
-
- rt x1 = block_rest_x;
- x2 = x1;
- lft x3 = 0;
- x4 = x3;
- save p;
- path p;
- p:=z1 -- z2 -- z3 -- z4 -- cycle;
- draw_rounded_path(p, blot_diameter);
-enddef;
-
-fet_beginchar( "whole rest", "0", "wholerest");
-set_char_box(0, block_rest_x#, -block_rest_y#, 2 block_rest_y# );
- block_rest;
- currentpicture := currentpicture shifted (0,block_rest_y);
-fet_endchar;
-
-fet_beginchar("half rest", "1", "halfrest");
- set_char_box(0, block_rest_x#, 0, block_rest_y#);
- block_rest;
-fet_endchar;
-
-
-%
-% should use ledgerline thickness?
-%
-fet_beginchar( "whole rest (outside staff)", "0o", "outsidewholerest");
- set_char_box(block_rest_y#, block_rest_x# + block_rest_y#, -block_rest_y#, 2 block_rest_y# );
- block_rest;
- currentpicture := currentpicture shifted (0,block_rest_y);
- pickup pencircle scaled stafflinethickness;
- draw (-block_rest_y, interline) .. (block_rest_x + block_rest_y, interline);
-fet_endchar;
-
-fet_beginchar("half rest (outside staff)", "1o", "outsidehalfrest");
- set_char_box(block_rest_y#, block_rest_x#+ block_rest_y#, 0, block_rest_y#);
- block_rest;
- pickup pencircle scaled stafflinethickness;
- draw (-block_rest_y,0) .. (block_rest_x + block_rest_y,0);
-fet_endchar;
-
-def rest_crook(expr a, w) =
- balled_crook(a, w, ball_crook_balldiam, ball_crook_stem)
-enddef;
-
-fet_beginchar("Quarter rest","2","quartrest");
- alpha:=-50;
- penpos1(rthin,alpha+90);
- penpos2(5/4rthick,alpha);
- penpos4(5/4rthick,alpha);
- penpos3(3/4rthick,alpha);
- penpos6(rthin,alpha-20);
-% penpos6(rthick,alpha-20);
-% penpos7(4/3thick,alpha);
- penpos7(5/8rthick,alpha);
- penpos8(rthin,-10);
- y1l=7/2interline; x1l=1/3interline;
- z2r=z1+(interline*right) rotated alpha;
- z3=1/2[z2,z4];
- x4=3/8interline; y4=2interline;
- z6=z4l+(5/4interline*right) rotated alpha;
-% x7l=x4l; y7r=y6l;
- x7l=x4l; y7l=y4r;
- x8=2/5interline; y8= 3/4 interline;
- z5=z6r shifted (sqrt(2)*rthin/4,sqrt(2)*rthin/4);
-
- pickup penrazor scaled rthin rotated 45;
- draw z1--z2r;
- draw z4l--z5;
- penstroke z2e..z3e..z4e;
- penstroke z6e..tension1.4..z7e..tension1.4..z8e;
- penlabels(1,2,3,4,5,6,7,8);
- set_char_box(0, interline#, -3/4 interline#, 7/2 interline#);
- fet_endchar;
-
-fet_beginchar("8th rest","3","eighthrest");
- set_char_box(0, 4/3interline#,-interline#, 8/3interline#+2stafflinethickness#);
- save x,y, ht;
- ht = h + d;
- x1=w-stem/6; y1=ht-flare/4;
- rest_crook (z1,w-stem/6);
- z2-z1=whatever*dir70;
- y2=stem/2;
- brush (z1,stem/3,z2,stem);
- % ugh
- currentpicture:=currentpicture shifted (0,interline);
-% currentpicture:=currentpicture shifted (0,interline+2stafflinethickness);
- fet_endchar;
-
-fet_beginchar("16th rest","4","sixteenthrest");
- set_char_box(0,4/3interline#,0, 5/3interline#+interline#+2stafflinethickness#);
- save x,y;
- x1=w-stem/6; y1=h-flare/4;
- z2-z1=whatever*dir74;
- y2=stem/2;
- brush (z1,stem/2,z2,stem);
- rest_crook (z1,7/8w);
- z3-z1=whatever*dir74;
- y3=y1-interline;
- rest_crook (z3,7/8w);
-% currentpicture:=currentpicture shifted (0,2stafflinethickness);
- fet_endchar;
-
-fet_beginchar("32th rest","5","thirtysecondrest");
- set_char_box(0,4/3interline#,0, 5/3interline#+2interline#+2stafflinethickness#);
- save x,y;
- x1=w-stem/6; y1=h-flare/4;
- z2-z1=whatever*dir76;
- y2=stem/2;
- brush (z1,stem/2,z2,stem);
- rest_crook (z1,7/8w);
- z3-z1=whatever*dir76;
- y3=y1-interline;
- rest_crook (z3,7/8w);
- z4-z1=whatever*dir76;
- y4=y1-2interline;
- rest_crook (z4,7/8w);
-% currentpicture:=currentpicture shifted (0,2stafflinethickness);
- fet_endchar;
-
-fet_beginchar("64th rest","6","sixtyfourthrest");
- set_char_box(0,4/3interline#,0, 5/3interline#+3interline#+2stafflinethickness#);
- save x,y;
- x1=w-stem/6; y1=h-flare/4;
- z2-z1=whatever*dir78;
- y2=stem/2;
- brush (z1,stem/2,z2,stem);
- rest_crook (z1,7/8w);
- z3-z1=whatever*dir78;
- y3=y1-interline;
- rest_crook (z3,7/8w);
- z4-z1=whatever*dir78;
- y4=y1-2interline;
- rest_crook (z4,7/8w);
- z5-z1=whatever*dir78;
- y5=y1-3interline;
- rest_crook (z5,7/8w);
-% currentpicture:=currentpicture shifted (0,2stafflinethickness);
- fet_endchar;
-
-fet_beginchar("128th rest","7","hundredtwentyeighthrest");
- set_char_box(0, 4/3interline#, 0, 5/3interline#+4interline#+2stafflinethickness#);
- save x,y;
- x1=w-stem/6; y1=h-flare/4;
- z2-z1=whatever*dir80;
- y2=stem/2;
- brush (z1,stem/2,z2,stem);
- rest_crook (z1,7/8w);
- z3-z1=whatever*dir80;
- y3=y1-interline;
- rest_crook (z3,7/8w);
- z4-z1=whatever*dir80;
- y4=y1-2interline;
- rest_crook (z4,7/8w);
- z5-z1=whatever*dir80;
- y5=y1-3interline;
- rest_crook (z5,7/8w);
- z6-z1=whatever*dir80;
- y6=y1-4interline;
- rest_crook (z6,7/8w);
-% currentpicture:=currentpicture shifted (0,2stafflinethickness);
- fet_endchar;
-
-endgroup;
-fet_endgroup("rests");
-
+++ /dev/null
-
-%
-% debugging
-%
-def test_grid =
-if test>1:
- proofrulethickness 1pt#;
- makegrid(0pt,0pt for i:=-5pt step 1pt until 5pt: ,i endfor)
- (0pt,0pt for i:=-5pt step 1pt until 5pt: ,i endfor);
- proofrulethickness .1pt#;
- makegrid(0pt,0pt for i:=-4.8pt step .2pt until 4.8pt: ,i endfor)
- (0pt,0pt for i:=-4.8pt step .2pt until 4.8pt: ,i endfor);
-fi
- enddef;
-%
-% Transforms
-%
-
-def scaledabout(expr point, scale) =
- shifted -point scaled scale shifted point
-enddef;
-
-%
-% Urgh! Want to do parametric types
-%
-
-def del_picture_stack=
- save save_picture_stack, picture_stack_idx;
-enddef;
-
-% better versions of Taupin/Egler savepic cmds
-%
-%
-def make_picture_stack =
- % override previous stack.
- del_picture_stack;
- picture save_picture_stack[];
- numeric picture_stack_idx;
- picture_stack_idx := 0;
- def push_picture(expr p) =
- save_picture_stack[picture_stack_idx] := p ;
- picture_stack_idx := picture_stack_idx + 1;
- enddef;
- def pop_picture = save_picture_stack[decr picture_stack_idx] enddef;
- def top_picture = save_picture_stack[picture_stack_idx] enddef;
-enddef;
-
-
-% save/restore pens
-% why can't I delete individual pens?
-def make_pen_stack =
- del_pen_stack;
- pen save_pen_stack[];
- numeric pen_stack_idx;
- pen_stack_idx := 0;
- def push_pen(expr p) =
- save_pen_stack[pen_stack_idx] := p ;
- pen_stack_idx := pen_stack_idx +1;
- enddef;
- def pop_pen = save_pen_stack[decr pen_stack_idx] enddef;
- def top_pen = save_pen_stack[pen_stack_idx] enddef;
-enddef;
-def del_pen_stack=
- save save_pen_stack, pen_stack_idx;
-enddef;
-
-%
-% drawing
-%
-
-% a: x diameter
-% b: y diameter
-% err_x: drift of y axis at top
-% err_y: drift of x axis at right
-def distorted_ellipse(expr a,b,err_y,err_x,super) =
- superellipse((a,err_x),(-err_y,b),(-a,-err_x),(err_y,-b),super);
- enddef;
-
-def brush(expr a,w,b,v) =
- begingroup;
- save x,y;
- z1=a; z2=b;
- penpos3(w,angle(z2-z1)+90);
- penpos4(w,angle(z2-z1));
- penpos5(v,angle(z1-z2)+90);
- penpos6(v,angle(z1-z2));
- z3 = z4 = z1;
- z5 = z6 = z2;
-
- fill z3r{z3r-z5l}..z4l..{z5r-z3l}z3l..z5r{z5r-z3l}..z6l..{z3r-z5l}z5l..cycle;
- penlabels(3,4,5,6);
- endgroup;
-enddef;
-
-def draw_rounded_path(expr p, thick) =
- push_pen(currentpen);
- fill p;
- pickup pencircle scaled thick;
- draw p;
- currentpen := pop_pen;
-enddef;
-
-%
-%
-%
-def balled_crook(expr a, w, balldiam, stem) =
-begingroup;
- save x,y;
- penpos1(balldiam/2,-90);
- penpos2(balldiam/2,0);
- penpos3(balldiam/2,90);
- penpos4(balldiam/2,180);
- x4r=xpart a-w; y3r=ypart a+balldiam/4;
- x1l=x2l=x3l=x4l;
- y1l=y2l=y3l=y4l;
- penpos5(stem,250);
- x5=x4r+9/8balldiam; y5r=y1r;
- penpos6(stem,260);
- x6l=xpart a; y6l=ypart a;
- penstroke z1e..z2e..z3e..z4e..z1e..z5e{right}..z6e;
- penlabels(1,2,3,4,5,6);
-endgroup;
-enddef;
-
-def y_mirror_char =
- currentpicture := currentpicture yscaled -1;
- set_char_box(charbp, charwd, charht, chardp);
-enddef;
-
+++ /dev/null
-
-interline#:=staffsize#/(stafflines-1);
-
-%
-% [D.K.Roush & J.S.Gourlay] say this should be 0.072
-% We know better
-% generally, the "blackness" of most chars depends on this.
-%
-stafflinethickness#:=0.1 interline#;
-
-define_pixels(interline);
-define_pixels(stafflinethickness);
-
-%
-% Because of the engraving/stamping process, no traditional
-% characters have sharp edges and corners
-% The following variable controls the amount of "roundness"
-%
-numeric blot_diameter;
-
-%
-% this is not a meta variable: it is related to absolute sizes.
-%
-blot_diameter# = .4pt#;
-define_pixels(blot_diameter);
+++ /dev/null
-
-input generic-macros;
-
-make_pen_stack;
-make_picture_stack;
-input generic-params;
-
-
-test:=0;
-if test = 0:
- input eindelijk;
- input toevallig;
- input puntje;
- input bolletjes;
- input schrift;
-else:
-% input klef;
-fi
+++ /dev/null
-
-% implement clefs
-fet_begingroup("foobars")
-
-
-fet_beginchar(incr code, "F clef", "bassclef", "bassclef");
-
-fet_endchar;
-fet_beginchar(incr code, "G clef", "evolinclef", "evolinclef");
- save tilt;
- tilt = 15;
-
- inner_fatness = 5 stafflinethickness;
- upstroke_fatness = 7 stafflinethickness;
- top_curl_fatness = 4 stafflinethickness;
- inner_thinness = 2 stafflinethickness;
- downstroke_thinness = 1.5 stafflinethickness;
-
- z1 = 6/10 interline * dir(-135);
- z3 = (0, interline - inner_fatness/2);
- x5 = x1;
- y5 = -interline;
- z7 = (-1.25 interline, -.5 interline);
- z9 = whatever * dir (90 + tilt);
- y9 = 2.1 interline;
- y12 + top_curl_fatness = 4 interline;
- x12 = 0;
- z13 = z9;
- z15 = 1.5 interline * dir (tilt -90);
-
-
- penpos1(blot_diameter, 45);
- penpos3(inner_fatness, -90);
- penpos5(inner_thinness, 90);
- penpos7(inner_thinness, 45);
- penpos9(upstroke_fatness, tilt -90);
- penpos12(top_curl_fatness, 90);
- penpos13(downstroke_thinness, tilt-90);
- penpos15(downstroke_thinness, tilt-90);
- set_char_box(0,0,0,0);
-
-% penstroke z1e{dir 135} .. z3e .. {left}z5e .. z7e .. tension 1.2 .. z9e;% & z9e.. z12e .. z13e .. z15e;
-% penlabels(1,3,5,7, 9,12,13,15);
-fet_endchar;
-fet_endgroup("foobars");
+++ /dev/null
-fet_begingroup("dots");
-
-fet_beginchar("duration dot","dot", "dot")
- save dot_diam;
- 2 dot_diam# = interline# - stafflinethickness#;
- define_pixels(dot_diam)
- pickup pencircle scaled dot_diam;
- draw (dot_diam/2,0);
- set_char_box(0, dot_diam#, dot_diam#/2, dot_diam#/2);
-fet_endchar;
-
-
-fet_endgroup("dots");
+++ /dev/null
-fet_begingroup("foobars")
-
-
-def draw_fermata =
- save radius, crook_thinness, crook_fatness, dot_diam;
-
- radius# = 1.5 interline#;
- crook_thinness# = stafflinethickness#;
- crook_fatness# = 4 stafflinethickness#;
-
- radius# + crook_fatness#/2 = h#;
- radius# + crook_thinness#/2 = w#;
- set_char_box(w#, w#, 0, h#);
-
- define_pixels(radius, crook_thinness, crook_fatness);
- dot_diam = 4/3 crook_fatness;
-
-
- penpos1(crook_thinness, 0);
- penpos2(crook_fatness, -90);
- penpos3(crook_thinness, -180);
- z1 = (-radius,0);
- z2 = (0, radius);
- z3 = (radius,0);
-
- fill z1l{down} .. {up}z1r .. z2r .. z3r{down} .. {up}z3l
- .. z2l .. cycle;
-
- pickup pencircle scaled dot_diam;
- x4 =0;
- bot y4 = - crook_thinness/2;
- draw z4;
-enddef;
-
-fet_beginchar("fermata up", "ufermata", "ufermata")
- draw_fermata;
- penlabels(1,2,3);
- fet_endchar;
-
-fet_beginchar("fermata down", "dfermata", "dfermata")
- draw_fermata;
- currentpicture:=currentpicture yscaled -1 ;
- set_char_box(w#, w#, h#, 0);
-
- fet_endchar;
-
-
-% FIXME: rounded endings
-%
-fet_beginchar("> accent", "accent", "accent")
- set_char_box(.9 interline#, .9 interline#, .5 interline#, .5 interline#);
- save thickness, diminish;
-
- thickness = 2 stafflinethickness;
-
- % prevent blobs at crossing lines
- diminish = .75;
-
- y1 + thickness/2 = h;
- x1 = -b;
- x2 = w;
- y2 = .25 thickness* diminish;
-
- z4 = (w,0);
- x3 =0;
- z3 = whatever [z1, z4];
-
- penpos2(thickness*(2 - diminish)/2 , 90);
- penpos1(thickness, 90);
- penpos3(thickness, 90);
-
- penstroke z1e .. z3e .. z2e;
- penstroke (z1e .. z3e .. z2e) yscaled -1;
-
- penlabels(1,2,3);
- fet_endchar;
-
-fet_beginchar("staccato dot", "staccato", "staccato")
- save radius;
- radius# = 1.25 stafflinethickness#;
- define_pixels(radius);
- pickup pencircle scaled 2 radius;
- draw (0,0);
- set_char_box(radius#, radius#, radius#, radius#);
-fet_endchar;
-
-def draw_staccatissimo =
- save radius, height;
- height# = .8 interline#;
- radius# = 2 stafflinethickness#;
- define_pixels(radius, height);
-
- brush((0,0), blot_diameter, (0, height),2 radius);
- set_char_box(radius#,radius#, blot_diameter#/2, height# + radius#);
-enddef;
-
-fet_beginchar("staccatissimo/martellato up", "ustaccatissimo", "ustaccatissimo")
- draw_staccatissimo;
-fet_endchar;
-
-%
-% FIXEM: scale labels too.
-%
-fet_beginchar("staccatissimo/martellato down", "dstaccatissimo", "dstaccatissimo")
- draw_staccatissimo;
- y_mirror_char;
-fet_endchar;
-
-fet_beginchar("portato/single tenuto", "tenuto", "tenuto")
- save thick;
- thick# = 1.2 stafflinethickness#;
- define_pixels(thick);
-
- set_char_box(.9 interline#, .9 interline#, thick#/2,thick#/2);
- pickup pencircle scaled thick;
- lft x1 = -b;
- rt x2 = w;
- y1 = y2 = 0;
- draw z1 .. z2;
-fet_endchar;
-
-
-def draw_marcato =
- save fatness, thinness;
- set_char_box(interline#/2, interline#/2, 0, 1.1 interline#);
-
- fatness = 3 stafflinethickness;
- thinness = .8 stafflinethickness;
- x2 - x1 + blot_diameter = fatness;
- x2 + thinness/2 = w;
-
- y1 = y2;
- y1 = thinness/2;
- z2 - z3 = whatever * (charwd, -charht);
- z1 - z4 = whatever * (charwd, -charht);
- z3 - z4 = whatever * (charwd, charht);
- y3 + thinness/2 = h;
- draw_rounded_path(z1 -- z2 -- z3 -- z4 -- cycle, thinness);
-
- pickup pencircle scaled thinness;
- z3 - z5 = whatever* (z3 - z4);
- bot y5 = 0;
- draw z3 .. z5;
-
- labels(1,2,3,4,5);
-enddef;
-
-fet_beginchar("marcato up", "umarcato", "umarcato")
- draw_marcato;
-fet_endchar;
-fet_beginchar("marcato down", "dmarcato", "dmarcato")
- draw_marcato;
- y_mirror_char;
-fet_endchar;
-
-
-fet_endgroup("foobars");
+++ /dev/null
-%
-% Accidentals from various sources, notably
-%
-% Baerenreiter edition of Schuberts `Auf dem Strom' (sharp, natural, flat)
-% F Hofmeister edition of Muellers `Etueden fuer Horn' (double sharp)
-%
-
-
-%tracingall;
-%proofing := 2;
-%\tracingequations:= tracingonline := 1;
-
-fet_begingroup("accidentals");
-
-fet_beginchar("Sharp" , "1", "sharp");
- set_char_box(0, 1.1 interline#, 1.5 interline#,
- 1.5 interline#);
-
- save interbeam, interstem, beamheight, beamwidth,
- stemwidth;
-
- interbeam := 1.1 interline;
- interstem := 7/16 ;
- beamheight := 4 stafflinethickness;
- beamwidth := w;
- stemwidth := 1.3 stafflinethickness;
- roundness := blot_diameter;
- pair center;
- center := (.5 w, 0);
-
- roundness + 2 spanwidth = beamwidth;
- roundness + 2 spanheight = beamheight;
-
- 2 horizontal_protrusion + interstem * beamwidth + stemwidth
- = beamwidth;
-
- z2 - z1 = (beamwidth - roundness, beamheight/2);
- z1 + z2 = 2*center;
- beamslope = (y2-y1)/(x2-x1);
-
- pair hspan, vspan;
- hspan = (spanwidth, beamslope * spanwidth);
- vspan = (0, spanheight);
-
-
- path beam;
- beam := (hspan + vspan -- -hspan
- + vspan -- -hspan -vspan -- hspan - vspan -- cycle )
- shifted center;
-
- draw_rounded_path((beam shifted (0,-interbeam/2)), roundness);
- draw_rounded_path((beam shifted (0,interbeam/2)), roundness);
-
- pickup pencircle scaled stemwidth;
- x3 = x4 = xpart center;
- bot y3 = -1.5 interline + ypart center;
- top y4 = 1.5 interline + ypart center;
-
- path stem;
- stem := z3 .. z4;
- numeric xs;
- xs := interstem* beamwidth / 2;
- draw stem shifted (- xs, - xs* beamslope);
- draw stem shifted (xs , xs *beamslope);
- labels(1,2,3,4);
- fet_endchar;
-
-fet_beginchar( "Natural", "0", "natural")
- set_char_box(0, 8/12 interline#, 1.5 interline#, 1.5 interline#);
-
- save interbeam, interstem, beamheight, beamwidth,
- stemwidth;
-
- beamheight = 4.5 stafflinethickness;
- interstem + stemwidth = w;
- stemwidth = 1.3 stafflinethickness;
-
- z2 -z1 = (interstem, slope * interstem);
- xpart .5 [z2,z1] = xcenter ;
- xcenter = w/2;
-
-
- pickup penrazor scaled beamheight rotated 90;
- top y2 = interline - 3/2 stafflinethickness ;
- slope = stafflinethickness / interstem;
-
- draw z1 .. z2;
- draw (xpart z1, -y2) .. (xpart z2, -y1);
- beamtop = top y2;
-
- pickup pencircle scaled stemwidth;
- xpart z3 = xpart z1;
- xpart z4 = xpart z2;
- top y3 = 1.5 interline;
- top y4 = beamtop;
-
- draw (xpart z1, -y4) .. z3;
- draw (xpart z2, -y3) .. z4;
-
- labels(1,2,3,4);
- fet_endchar;
-
-%
-% Dedicated to my mom. (3/10/97)
-%
-% Mamma, ik hou van je; kom je alsjeblieft terug?
-% -- HW
-%
-
-%
-% FIXME more metaness
-% FIXME distribution of the crooks' thickness
-%
-% FIXME probably doesn't look quite right.
-
-def flat_meta_symbol(expr w, d, h,
- stemwidth, crook_fatness, crook_thinness,
- bottom_stem_thick, top_stem_thick)=
-
- z1 = (0, h);
- z2 = (0, -d);
- brush(z1, top_stem_thick , z2, bottom_stem_thick);
-
- z3 = (0, 7/16 interline);
- z4 = z3 + whatever * (dir 30);
- y4 = 1/2 interline ;
- y5 = 4/16 interline;
- x5 + crook_fatness/2 = w;
- z6 = z2 + (0,-1) * (bottom_stem_thick - crook_thinness);
-
- penpos3(crook_thinness, 90);
- penpos4(crook_thinness, 90);
- penpos5(crook_fatness, 0);
- penpos6(crook_thinness, -90);
- labels(1,2,3,4,5,6);
- penstroke z3e{dir 32} .. z4e{dir 30} .. z5e{down} .. {dir 220}z6e;
- enddef;
-
-def flat_symbol (expr w, d, h)=
- save stemwidth, bottom_stem_thick, top_stem_thick,
- crook_thinness, crook_fatness;
- stemwidth = stafflinethickness;
- crook_fatness = 1/4 interline;
- crook_thinness = stemwidth;
- bottom_stem_thick = 5/4 stemwidth;
- top_stem_thick = 2 stemwidth;
- flat_meta_symbol(w,d,h, stemwidth, crook_fatness, crook_thinness,
- bottom_stem_thick, top_stem_thick);
- enddef;
-
-%
-% unfortunately, 600dpi is not enough to show the brush of the stem.
-%
-fet_beginchar("Flat", "-1", "flat")
- set_char_box(0, 9/12 interline#, .5 interline#, 2 interline#);
- flat_symbol (w, d, h);
- fet_endchar;
-
-fet_beginchar("Double flat", "-2", "flatflat")
- set_char_box(0, 18/12 interline#, .5 interline#, 2 interline#);
- flat_symbol(w/2, d, h);
- addto currentpicture also currentpicture
- shifted (w/2 - stafflinethickness/2,0);
- fet_endchar;
-
-
-fet_beginchar("Double sharp", "2", "sharpsharp")
- set_char_box(0, interline#, .5 interline#, .5 interline#);
- save klaverblad, klaversteel;
-
- klaversteel = 1/12 interline;
- klaverblad = 1/3 interline;
-
- z1 = (klaversteel, 0);
- z2 = (w/2 - klaverblad / 10, h - klaverblad);
- z3 = (w/2, h);
- z4 = z2 reflectedabout((0,0), (1,1));
- z5 = z1 reflectedabout((0,0), (1,1));
-
- draw_rounded_path(
- z1{dir 45} .. {right}z2 -- z3 -- z4{down} .. {dir 225}z5 .. cycle,
- 1/20 interline);
-
-
- addto currentpicture also currentpicture rotated 90;
- addto currentpicture also currentpicture yscaled (-d/h);
-
- currentpicture := currentpicture shifted (w/2,0);
- fet_endchar;
-
-
-fet_endgroup("accidentals");
-
projects / lilypond.git / commitdiff