message "z"&str $ &"l = ("&decimal x.$.l&", "&decimal y.$.l&"); z"&str $ &"r = ("&decimal x.$.r&", "&decimal y.$.r&");";
enddef;
-%fet_beginchar("accTEST", "accTEST", "accTEST")
-% set_char_box(.4(4 staff_space#), .4(4 staff_space#), 0, 2.4staff_space#);
-% def_some_vars;
-% penlabels(10, 11, 12, 13, 14);
-% penstroke z10e--z11e{right}..z12e..z13e{left}--z14e;
-%fet_endchar;
-
-fet_beginchar("accSB", "accSB", "accSB")
- set_char_box(.4(4 staff_space#), .4(4 staff_space#), 0, 2.4staff_space#);
- def_some_vars;
- def_B(.35width, .7height);
-
- %print_penpos (10);
- %print_penpos (11);
- %print_penpos (12);
- %print_penpos (13);
- %print_penpos (14);
- penlabels(10, 11, 12, 13, 14);
- penstroke z10e--z11e{right}..z12e..z13e{left}--z14e;
-
- penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
- penstroke z18e--z19e;
- pickup pencircle scaled .5thick;
- drawdot (.37width, .10thick);
- currentpicture := currentpicture shifted(.40width, 0);
-
- def_S(.35width, .7height);
- penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
- filldraw z1r--z8r--z8l--subpath(t, 1) of bue--cycle;
- filldraw subpath(t, 1) of bueoverst--z7l--z9r--z9l--cycle;
- penstroke z1e{down}..z2e{right}..z3e
- ..z4e
- ..z5e..z6e{right}...z7e{down};
- pickup pencircle scaled .5thick;
- drawdot (.37width, .10thick);
- currentpicture := currentpicture shifted (-.40width, -.85height);
- draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
- --(-.5width, -height)--(-.5width, 0);
- currentpicture := currentpicture shifted (0, 2.4staff_space);
-fet_endchar;
-
-fet_beginchar("accBB", "accBB", "accBB")
- set_char_box(.4(4 staff_space#), .4(4 staff_space#), 0, 2.4staff_space#);
- def_some_vars;
- def_B(.35width, .7height);
-
- penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
-
- penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
- penstroke z18e--z19e;
- penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9);
- pickup pencircle scaled .5thick;
- drawdot(.37width, .10thick);
- currentpicture := currentpicture shifted (.40width, 0);
- penstroke z10e--z11e{right}..z12e{up}..z13e{left}--z14e;
- penstroke z13e{right}..z15e{up}..z16e{left}--z17e;
- penstroke z18e--z19e;
- drawdot(.37width, .10thick);
- currentpicture := currentpicture shifted(-.40width, -.85height);
- draw (-.5width, 0)--(.5width, 0)--(.5width, -height)
- --(-.5width, -height)--(-.5width, 0);
- penlabels(10, 11, 12, 13, 14, 15, 16, 17, 18, 19 );
- currentpicture := currentpicture shifted (0, 2.4staff_space);
-fet_endchar;
-
%%% strange turning path.
fet_beginchar("accOldEE", "accOldEE", "accOldEE")
show w;
show h;
r = staff_space;
- lr = .3staff_space;
- ir = .6staff_space;
- pickup accreg_pen;
- draw fullcircle scaled 2r;
- pickup penrazor;
- filldraw fullcircle scaled lr;
- z1 = (ir, 0);
- z2 = (0, 0) + ir*(dir 45);
- z3 = (0, ir);
+ lr = .4 staff_space - stafflinethickness;
+ ir = .6 staff_space;
+
+ z1 = (0,0);
+ z2 = (0, ir);
+ penpos1 (0,0);
+ penpos2 ( .05 staff_space + .5 stafflinethickness,0);
+
+ penlabels(1,2,3);
+
numeric pp;
+ pickup pencircle scaled blot_diameter;
for pp := 0 step 45 until 360:
filldraw fullcircle scaled lr shifted (ir*(dir pp));
- endfor;
- for pp := 0 step 45 until 360:
- filldraw ((0, 0)--(.2lr, ir)--(-.2lr, ir)--cycle) rotated pp;
+ filldraw (z1r--z1l--z2l--z2r--cycle) rotated pp;
endfor
- currentpicture := currentpicture shifted (0, r);
-fet_endchar;
-fet_beginchar("accOldEES", "accOldEES", "accOldEES")
- set_char_box(staff_space#, staff_space#, 0, 2staff_space#);
- save r, shy;
- r = staff_space;
- shy = .3;
pickup accreg_pen;
draw fullcircle scaled 2r;
- currentpicture := currentpicture shifted (w/2, shy*h);
- save thin, thick, sw, ch, cw, mb, mt;
- ch = .6h;
- cw = .8w;
- % URG. smaller sizes should be wider and fatter
- %thin = .05cw;
- %thick = .17w;
- save bx,hx; 4hx+bx=1.15; 10hx+bx=1;
- fatten:=designsize*hx+bx*1.2;
- thick:= .17w*fatten;
-
- % urg: mustn't ever go thinner than blot!
- %thin = 0.05staff_space;
- %blot#:=.4pt#;
- thin#:= blot_diameter#;
- define_pixels (thin);
+ pickup penrazor;
+ filldraw fullcircle scaled lr;
- hs = 0.4staff_space;
+ currentpicture := currentpicture shifted (0, r);
- mb = .53; mt = .47;
- sw = .8thick;
- z1 = (0, ch-.5thin); penpos1 (thin, -90);
- z2 = (.7cw, y1); penpos2 (thin, -90);
- z3 = (cw, (mb+.5mt)*ch); penpos3(thick, -180);
- z4 = (.65cw, mb*ch); penpos4(thin, 90);
- z5 = (sw+thick, mb*ch); penpos5(thin, 90);
- z6 = (.9cw, .5mb*ch); penpos6(thick, 0);
- z7 = (1.2cw, 0); penpos7(thin, 90);
- z8 = (1.3cw, .2mb*ch); penpos8(thin, 180);
- penlabels(1, 2, 3, 4, 5, 6, 7, 8);
- %%AAARG
- pickup pencircle scaled 0.001pt;
- filldraw (0, 0)--(0, thin)--(sw, thin)--(sw, ch-thin)
- --(sw+thick, ch-thin)--(sw+thick, thin)
- --(2sw+thick, thin)--(2sw+thick, 0)--cycle;
+fet_endchar;
- penstroke z1e--z2e{right}..z3e..z4e{left}--z5e;
- penstroke z4e{right}..z6e{down}..z7e{right}..z8e{up};
- currentpicture := currentpicture shifted (-w/2, -shy*h);
- currentpicture := currentpicture shifted (0, r);
-fet_endchar;
fet_endgroup("accordion")
projects / lilypond.git / blobdiff