+1.3.101.jcn2
+============
+
+* Fixed bracket, and made some other PostScript code fixes.
+
1.3.101.jcn1
============
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=101
-MY_PATCH_LEVEL=jcn1
+MY_PATCH_LEVEL=jcn2
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
-% feta-din16.mf
-% part of LilyPond's pretty-but-neat music font
-
-design_size:=16;
-
-input feta-din;
-
-end.
-
% feta-din4.mf
% part of LilyPond's pretty-but-neat music font
-design_size:=3.82; % 6.5/1.2/1.2 din5 = 6.5/1.2 : din7 = 6.5pt
+design_size:=3.82; % 5.5/1.2/1.2 din6 = 5.5pt
input feta-din.mf;
% feta-din5.mf
% part of LilyPond's pretty-but-neat music font
-design_size:=4.58; % 6.5/1.2 : din7 = 6.5pt
+design_size:=4.58; % 5.5/1.2 : din6 = 5.5pt
input feta-din.mf;
--- /dev/null
+% feta-din6.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=5.5; % feta11 = 11pt
+
+input feta-din.mf;
+
+end.
+
% feta-nummer4.mf
% part of LilyPond's pretty-but-neat music font
-design_size:=3.82; % 6.5/1.2/1.2 nummer5 = 6.5/1.2 : nummer7 = 6.5pt
+design_size:=3.82; % 5.5/1.2/1.2 nummer6 = 5.5pt
input feta-nummer.mf;
% feta-nummer5.mf
% part of LilyPond's pretty-but-neat music font
-design_size:=4.58; % 6.5/1.2 : nummer7 = 6.5pt
+design_size:=4.58; % 5.5/1.2 : nummer6 = 5.5pt
input feta-nummer.mf;
--- /dev/null
+% feta-nummer6.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=5.5; % feta11 = 11pt
+
+input feta-nummer.mf;
+
+end.
+
%!PS-Adobe-1.0: lily.ps
-%
-% 2 setlanguagelevel % hmm. auto_resize_dicts doesn't help either.
-% round cappings
-1 setlinecap
-%
-% scm/lily.scm should allow blank lines, now
%
+%
+
+% round cappings
+1 setlinecap
+
/draw_beam % width slope thick
{
2 div /beam_thick exch def
0 beam_thick lineto
closepath fill
} bind def
-%
+
/draw_decrescendo % width height cons thick
{
setlinewidth
/cresc_cont exch def
/cresc_ht exch def
/cresc_wd exch def
-%
+
cresc_wd cresc_cont moveto
0 cresc_ht lineto
stroke
0 cresc_ht neg lineto
stroke
} bind def
-%
+
/draw_crescendo % width height cons thick
{
setlinewidth
/cresc_cont exch def
/cresc_ht exch def
/cresc_wd exch def
-%
+
0 cresc_cont moveto
cresc_wd cresc_ht lineto
stroke
cresc_wd cresc_ht neg lineto
stroke
} bind def
-%
+
/lily_distance
{
1 copy mul exch 1 copy mul add sqrt
} bind def
-%
+
/draw_tuplet % height gap dx dy thick dir
{
-% urg: the only Level-2 PS, check effect in print
-% true setstrokeadjust
/dir exch def
setlinewidth
1 setlinecap
/tuplet_gapx exch def
/tuplet_h exch def
tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def
-%
-%
+
+
0 0 moveto
0 tuplet_h dir mul lineto
tuplet_dx tuplet_gapx sub 2 div
tuplet_dx tuplet_dy lineto
stroke
} bind def
-%
+
/draw_volta % h w thick vert_start vert_end
{
/vert_end exch def
setlinewidth
/volta_w exch def
/volta_h exch def
-% urg: the only Level-2 PS, check effect in print
-% true setstrokeadjust
1 setlinecap
1 setlinejoin
vert_start 0 eq {
} if
stroke
} bind def
-%
+
% this is for drawing slurs.
/draw_bezier_sandwich % thickness controls
{
grestore
stroke
} bind def
-%
+
/draw_dashed_line % dash thickness dx dy
{
1 setlinecap
lineto
stroke
} bind def
-%
-/xdraw_dashed_line % dash thickness dx dy
-{
- 1 setlinecap
- 1 setlinejoin
- setdash
- dup
- setlinewidth
- 2 div
- dup
- 0 moveto
- neg add
- lineto
- stroke
-} bind def
-%
+
/draw_dashed_slur % dash thickness controls
{
1 setlinecap
curveto
stroke
} bind def
-%
-%
-%
+
+
+
/bracket_traject
{
- /traject_ds exch def
- /traject_alpha exch def
- traject_ds traject_alpha sin mul add
- exch
- traject_ds traject_alpha cos mul add
- exch
+ /traject_ds exch def
+ /traject_alpha exch def
+ traject_ds traject_alpha sin mul add
+ exch
+ traject_ds traject_alpha cos mul add
+ exch
} bind def
-%
-%
-%
+
+
+
/half_bracket
{
%6
bracket_thick arch_height add half_height arch_thick sub arch_width add
arch_angle arch_height -0.15 mul bracket_traject
%5b
- 1 half_height
+ bracket_thick 0.5 mul half_height
0 arch_height 0.5 mul bracket_traject
%5c
0 half_height
%1
0 0
} bind def
-%
+
/draw_half_bracket {
moveto
lineto
fill
grestore
} bind def
-%
+
/draw_bracket % arch_angle arch_width arch_height bracket_width bracket_height arch_thick bracket_thick
{
% urg
/arch_height exch def
/arch_width exch def
/arch_angle exch def
-%
+
bracket_height 2 div bracket_thick add /half_height exch def
-% urg: the only Level-2 PS, check effect in print
-% true setstrokeadjust
+ bracket_thick 0.5 mul setlinewidth
1 setlinecap
1 setlinejoin
half_bracket
draw_half_bracket
stroke
1 -1 scale
-% ugh, ugh:
- 0.05 0 translate
draw_half_bracket
stroke
} bind def
-%
+
(thick . 1.0)
(after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
(molecule-callback . ,Tuplet_spanner::brew_molecule)
+ (font-family . roman)
(font-shape . italic)
(font-relative-size . -1)
(meta . ,(element-description "TupletBracket" text-interface
((0 medium upright braces feta-braces 20) . "feta-braces20")
((2 medium upright braces feta-braces 26) . "feta-braces26")
((1 medium upright braces feta-braces 23) . "feta-braces23")
- ((3 bold italic dynamic feta 16) . "feta-din16")
- ((2 bold italic dynamic feta 16) . "feta-din16")
- ((3 bold italic dynamic feta 10) . "feta-din13")
- ((2 bold italic dynamic feta 10) . "feta-din13")
- ((1 bold italic dynamic feta 10) . "feta-din12")
+ ((3 bold italic dynamic feta 13) . "feta-din13")
+ ((2 bold italic dynamic feta 13) . "feta-din13")
+ ((1 bold italic dynamic feta 11) . "feta-din11")
((0 bold italic dynamic feta 10) . "feta-din10")
((-1 bold italic dynamic feta 8) . "feta-din8")
((-2 bold italic dynamic feta 7) . "feta-din7")
% by executing a 0 0 moveto
\def\embeddedps##1{%
\special{ps: @beginspecial @setspecial
- \mudelapaperoutputscale\lilySpace\mudelapaperoutputscale\lilySpace scale ##1 @endspecial}%
+ \mudelapaperoutputscale\lilySpace
+ \mudelapaperoutputscale\lilySpace scale
+ ##1 @endspecial}%
}
}