diff options
author | Karl Berry <karl@freefriends.org> | 2011-11-05 23:40:54 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-11-05 23:40:54 +0000 |
commit | f9b4593f28389832c5573550b53b9e5569163cf8 (patch) | |
tree | 8486c13e5eeb51bccdd926bedd693096a9e0e17f /Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf | |
parent | 2632cfd91ace0a6428f33d057fb0c51e23fbab76 (diff) |
musixtex 10-26-2011 (27oct11)
git-svn-id: svn://tug.org/texlive/trunk@24518 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf | 314 |
1 files changed, 0 insertions, 314 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf b/Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf deleted file mode 100644 index 3f280106835..00000000000 --- a/Master/texmf-dist/fonts/source/public/musixtex/musixspx.mf +++ /dev/null @@ -1,314 +0,0 @@ -% -% This file is part of MusiXTeX -% -% MusiXTeX is free software; you can redistribute it and/or modify -% it under the terms of the GNU General Public License as published by -% the Free Software Foundation; either version 2, or (at your option) -% any later version. -% -% MusiXTeX is distributed in the hope that it will be useful, -% but WITHOUT ANY WARRANTY; without even the implied warranty of -% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -% GNU General Public License for more details. -% -% You should have received a copy of the GNU General Public License -% along with MusiXTeX; see the file COPYING. If not, write to -% the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -% Boston, MA 02111-1307, USA. -% - -font_identifier := "music_special_symbols"; - -% Here are two types of pianobrackets available, they are absolute compatible, -% so choose this one you prefer (search for '%!!!') - -% free pos: 196-255 - -mode_setup; - -font_size 20pt#; - -nhh#:=5pt#; -nhw#:=6pt#; - -qqs#=.4pt#; %width of lines -qqw#=10pt#; %length of horizontal stroke. - -med#:=1/33designsize; -thick#:=1/16designsize; - -thinwidth:=0.125pt; - -define_pixels(qqw,nhh,nhw); -define_blacker_pixels(med,thick); - -qqs:=ceiling(qqs#*hppp); % the way rule widths are calculated - -pair sw; -sw = down+left; - -path p; -picture save_pic; - -pen line_pen; -line_pen:= pencircle scaled qqs; - -%%%%%%% -message ("<glissandi-elements>"); -%%%%%%% - -def glissando (expr theta)= - x1=-1; y1=0; z2=z1+(.5nhw,0); z3=z1+(nhw+1,0); - p:= z1{1.25up+right}..{1.25down+right}z2{1.25down+right}..{1.25up+right}z3; - pickup penrazor scaled (.075nhw+thick) rotated (theta+65); - draw p rotated theta; - labels (1,2,3); -enddef; - -for slope=1 upto 8: - - beginchar(slope-1, (cosd(10slope))*nhw#,(sind(10slope))*nhw#, 0); - " glissando element slope "&decimal (10slope)&" degree"; - glissando (10slope); - save_pic:= currentpicture; - endchar; - - beginchar(8+slope-1, (cosd(10slope))*nhw#, (sind(10slope))*nhw#, 0); - " glissando element slope "&decimal (-10slope)&" degree"; - currentpicture:= save_pic reflectedabout (origin, right); - endchar; - -endfor; - -%%%%%%% -message ("<guitar chords>"); -%%%%%%% - -def tabulatur (expr nd)= - hwidth:=1/5w; - x1=x2=y2=y3=0; x3=w; y1=-nd; - fill unitsquare xscaled (w+2thinwidth) yscaled (med+.2pt) - shifted(-thinwidth,0); - pickup pencircle scaled max(1,.2pt+blacker); - for v=1 upto 5 : - draw (z2--z3) shifted (0,v*-hwidth); - endfor; - - for v=0 upto 5 : - draw (z1--z2) shifted (v*hwidth,0); - endfor; - labels (1,2,3); -enddef; - -shift:=.15nhh; -def Circle (expr nh)= - x1l=.1w; x2=x4=.5w; x3l=.9w; - y1=y3=.5nh+shift; y2=.1nh+shift; y4=.9nh+shift; - penpos1(med, 0); - penpos2(thinwidth,90); - penpos3(med,180); - penpos4(thinwidth, 270); - penstroke z1e..z2e..z3e..z4e..cycle; - pickup pencircle; draw z1..z2..z3..z4..cycle; -enddef; - -def Cross (expr nh)= - x1=x3=.2w; x2=x4=.8w; - y1=y4=.2nh+shift; y2=y3=nh-.2nh+shift; - pickup pencircle scaled med; - draw z1--z2; draw z3--z4; - labels (1,2,3,4); -enddef; - -beginchar(16, 3nhw#, 0, 0);" small grid"; - tabulatur (108/25nhh); -endchar; - -beginchar(17, 3/2nhw#, 0, 0); " small dot"; - fill fullcircle scaled .54nhh shifted (w,-.36nhh); -endchar; - -beginchar(18, 3nhw#, 0, 0); " small bar"; - fill unitsquare xscaled w yscaled .24nhh shifted (0,-.48nhh); -endchar; - -beginchar(19, 3/5nhw#, 0, 0); " small circle"; - Circle (.72nhh); -endchar; - -beginchar(20, 3/5nhw#, 0, 0); " small cross"; - Cross (.72nhh); -endchar; - -% the next seems to be senseless, but it isn't - -beginchar(28, 3/5nhw#, 0, 0); " small blank"; -endchar; - -%%%%%%% -message ("<several lines>"); -%%%%%%% - -hooklength:=4.5pt; - -beginchar(21, 0, 0, 0);" bracket hook up"; - pickup line_pen; - draw origin--(0, hooklength); -endchar; - -beginchar(22, 0, 0, 0);" bracket hook down"; - pickup line_pen; - draw origin--(0, -hooklength); -endchar; - -beginchar(23, nhw#, 0, 0);" upper octaveline"; - pickup line_pen; - draw (.33w, 1.1nhw)--(.66w, 1.1nhw); -endchar; - -beginchar(24, 0, 0, 0);" final hook for upper octaveline"; - pickup line_pen; - draw (1.1nhw,0)--(1.1nhw, 1.1nhw); - draw (.33nhw, 1.1nhw)--(1.1nhw, 1.1nhw); -endchar; - -beginchar(25, nhw#, 0, 0);" lower octaveline"; - pickup line_pen; - draw (.33w, 0)--(.66w, 0); -endchar; - -beginchar(26, 0, 0, 0);" final hook for lower octaveline"; - pickup line_pen; - draw (1.1nhw,0)--(1.1nhw, 1.1nhw); - draw (.33nhw,0)--(1.1nhw, 0); -endchar; - -beginchar(27, .75nhw#, 0, 0);" used for \bracket"; - pickup line_pen; - draw origin--(.5nhw, 0); -endchar; - -beginchar(29, qqw#, 0, 0);" line ydim 0pt"; - pickup line_pen; - draw origin--(w,0); -endchar; - -% lines length xdim 10pt, ydim (-).25 to (-)5pt - -for j=1 upto 20: - beginchar(29+j, qqw#, 0, 0); " line ydim "&decimal .25j&"pt"; - pickup line_pen; - draw origin--(w, .25pt*j); - save_pic:= currentpicture; - endchar; - - beginchar(49+j, qqw#, 0, 0); " line ydim -"&decimal .25j&"pt"; - currentpicture:= save_pic reflectedabout (origin, right); - endchar; -endfor; - -%%%%%%% -message ("<circles>"); -%%%%%%% - -for n:=1 upto 14: - beginchar(70+n-1, 0, 0, 0); - " fullcircle diameter "&decimal ((n+2)*2)&" pt"; - diameter:=(n+2)*2pt; - pickup line_pen; - draw fullcircle scaled diameter; - endchar; -endfor; - -%%%%%%% -message ("<(de-)crescendi>"); -%%%%%%% - -widthstep:=nhw; -crescendowidth:=.5nhh; % \Internote - -for n:=1 upto 32: - beginchar(84+n-1, 0, 3pt#, 3pt#); - " crescendo length "&decimal n&" noteheadwidths"; - pickup line_pen; - draw (n*widthstep, crescendowidth+.0075n*crescendowidth)--(0,0); - addto currentpicture also currentpicture reflectedabout (origin,right); - save_pic:= currentpicture; - endchar; - - beginchar(116+n-1, 0, 3pt#, 3pt#); - " decrescendo length "&decimal n&" noteheadwidths"; - currentpicture:= save_pic reflectedabout(origin, up) shifted (n*widthstep,0); - endchar; -endfor; - -%%%%%%% -message ("<piano brackets>"); -%%%%%%% - -% lastbrace is adjustable (originally 99) - -firstbrace:=20; % smallest brace is 2*20 pt (\simeq 14mm) -lastbrace:=67+48; % largest brace is 2*67 pt (\simeq 47mm) - -%%% from Stanislav Kneifl - -def drawpianobracket (expr height) = - u# := 1nhh#/5pt# * 1pt#; - v# := (height/40) * 1pt#; - define_pixels (u, v); -% beginchar (height-firstbrace, 1.25nhh#, 0, 0); - beginchar (height-firstbrace+148, 0, 0, 0); - z1 = origin; - z2 = (4.7u, 7v); - z3 = (3.6u, 16.5v); - z4 = (1.9u, 25v); - z5 = (2.28u, 32v); - z6 = (w, 40v); - penpos1 (max(1,0.1u), 125); - penpos2 (1.2u, 180); - penpos3 (3.2u, 195); - penpos4 (2.5u, 180); - penpos5 (1.14u, 180); - penpos6 (max(2,0.3u), 150); - penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e; - currenttransform := identity reflectedabout ((0,0),(1,0)); - penstroke z1e{dir 35}..z2e..z3e..z4e..z5e..{dir 60}z6e; - currenttransform := identity; -% inserted - currentpicture:=currentpicture shifted (round(-1.75nhh), 0); -% - endchar; -enddef; - -def bigbrace(expr v) = - beginchar (v-firstbrace+148, 0, 0, 0); - " brace vsize "&decimal round(2v*pt#)&"pt"; - vwidth:=v*pt; - hwidth:=max(.1vwidth,3.25pt); - hwidth:=min(hwidth,6.5pt); - actwidth:=.035vwidth; - x1=.25nhw; y1=vwidth; - x2l=-.8hwidth; y2=2/3vwidth; - x3r=.2hwidth; y3=1/3vwidth; - x4=-hwidth; y4=0; - penpos1(max(1,.25pt),-35); - penpos2(1.5med+actwidth,40); - penpos3(1.75med+actwidth,45); - penpos4(max(1,.2pt),-90); - penstroke z1e..z2e..z3e..{left+sw}z4e; - currentpen:= pencircle; draw z1..z2..z3..{left+sw}z4; - addto currentpicture also currentpicture reflectedabout (origin, right); - penlabels(1,2,3,4); - currentpicture:= currentpicture shifted (round(-.75nhh), 0); - endchar; -enddef; - -%!!! comment the line 'bigbrace' and uncomment the line 'drawpianobracket' - -for v=firstbrace upto lastbrace : - bigbrace (v); -% drawpianobracket (v); -endfor; - -end |