| Current Path : /var/www/web-klick.de/dsh/90_akt/jazzmesse/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/jazzmesse/jazzmesse-ti-credo003.abc |
%!! here is an experimental decoration extension !!
%!! syntax may change in next releases !!
%
% == postscript definitions - must be before any tune ==
%
% -- cresc / decresc / dimin
%%postscript /crdc { % usage: str x y crdc - cresc, decresc, ..
%%postscript /Times-Italic 15 selectfont
%%postscript M -6 4 rmoveto show
%%postscript } bdef
%
% -- alternate piano/forte indication between parenthesis
%%postscript /apf { % usage: str x y apf
%%postscript M -6 5 rmoveto
%%postscript /Times-Italic 16 selectfont (\() show
%%postscript /Times-BoldItalic 16 selectfont show
%%postscript /Times-Italic 16 selectfont (\)) show
%%postscript } bdef
%
% -- draw parenthesis around a note
%%postscript /opnot { % usage: x y opnot
%%postscript M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
%%postscript } bdef
%
% -- draw octava indication
%%postscript /octava { % usage: len x y octava
%%postscript exch -9 add exch 2 copy
%%postscript M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
%%postscript /Times-Roman 12 selectfont (va) show
%%postscript M 0 6 rlineto currentpoint stroke M
%%postscript [6] 0 setdash 30 add 0 rlineto currentpoint stroke M
%%postscript [] 0 setdash 0 -6 rlineto stroke
%%postscript } bdef
%%postscript /octavab { % usage: len x y octavab
%%postscript exch -10 add exch 2 copy
%%postscript M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
%%postscript /Times-Roman 12 selectfont (va basso) show
%%postscript 10 add M 0 -6 rlineto currentpoint stroke M
%%postscript [6] 0 setdash 30 add 0 rlineto stroke
%%postscript [] 0 setdash
%%postscript } bdef
%
% -- repeat sign in a stem
%%postscript /repst { % usage: x y repst
%%postscript M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
%%postscript } bdef
%
% -- write big letters (position marks) above the staff
% (from Guido Gonzato)
%%postscript /bigl { % usage: str x y bigl
%%postscript /Times-Bold 26 selectfont
%%postscript 4 add M cshow gsave
%%postscript 1 setlinewidth 1 -2 rmoveto
%%postscript 0 22 rlineto -22 0 rlineto
%%postscript 0 -22 rlineto 22 0 rlineto
%%postscript stroke grestore
%%postscript } bdef
% (from Jonas Petersson)
%%postscript /biglc { % usage: str x y biglc
%%postscript 2 copy 5 2 roll /Times-Bold 22 selectfont
%%postscript 6 add M cshow gsave
%%postscript 1 setlinewidth 13 add newpath
%%postscript 12 0 360 arc
%%postscript stroke grestore
%%postscript } bdef
%
% -- pedal glyph
% (from CMN http://ccrma-www.stanford.edu/software/cmn/cmn/cmn.html)
%%postscript /ped { % usage: str x y ped
%%postscript gsave 4 add exch -10 add exch T 26 dup scale
%%postscript 0.368 0.074 moveto
%%postscript 0.341 0.121 0.335 0.147 0.371 0.203 curveto
%%postscript 0.435 0.289 0.531 0.243 0.488 0.155 curveto
%%postscript 0.472 0.117 0.434 0.096 0.414 0.080 curveto
%%postscript 0.429 0.038 0.494 -0.006 0.541 0.075 curveto
%%postscript 0.559 0.123 0.558 0.224 0.663 0.252 curveto
%%postscript 0.603 0.354 0.449 0.393 0.461 0.405 curveto
%%postscript 0.902 0.262 0.705 -0.124 0.555 0.046 curveto
%%postscript 0.488 -0.032 0.417 0.021 0.389 0.055 curveto
%%postscript 0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
%%postscript 0.218 0.108 0.191 0.062 0.164 0.047 curveto
%%postscript 0.010 -0.056 0.032 0.019 0.124 0.062 curveto
%%postscript 0.229 0.117 0.200 0.091 0.228 0.195 curveto
%%postscript 0.240 0.241 0.149 0.250 0.166 0.311 curveto
%%postscript 0.207 0.493 lineto
%%postscript -0.041 0.441 0.049 0.261 0.126 0.387 curveto
%%postscript 0.138 0.381 lineto
%%postscript -0.020 0.119 -0.100 0.472 0.220 0.507 curveto
%%postscript 0.548 0.486 0.399 0.171 0.254 0.374 curveto
%%postscript 0.264 0.384 lineto
%%postscript 0.338 0.259 0.521 0.449 0.228 0.488 curveto
%%postscript 0.198 0.356 lineto
%%postscript 0.181 0.304 0.273 0.294 0.262 0.241 curveto
%%postscript 0.229 0.101 lineto
%%postscript 0.273 0.070 0.282 -0.038 0.368 0.074 curveto
%%postscript 0.391 0.094 moveto
%%postscript 0.456 0.130 0.476 0.171 0.468 0.213 curveto
%%postscript 0.452 0.276 0.333 0.171 0.391 0.094 curveto
%%postscript 0.627 0.019 moveto
%%postscript 0.533 0.041 0.586 0.228 0.678 0.229 curveto
%%postscript 0.729 0.170 0.712 0.025 0.627 0.019 curveto
%%postscript eofill
%%postscript 0.8 0.04 0.04 0 360 newpath arc fill
%%postscript pop grestore
%%postscript } bdef
%
% -- pedal off glyph
% (from CMN http://ccrma-www.stanford.edu/software/cmn/cmn/cmn.html)
%%postscript /pedoff { % usage: str x y ped
%%postscript gsave 4 add exch -5 add exch T 26 dup scale
%%postscript 0.219 0.198 moveto
%%postscript 0.231 0.172 0.195 0.138 0.162 0.173 curveto
%%postscript 0.149 0.219 0.206 0.231 0.219 0.198 curveto
%%postscript 0.144 0.242 moveto
%%postscript 0.166 0.223 0.193 0.230 0.181 0.267 curveto
%%postscript 0.178 0.306 0.144 0.302 0.151 0.335 curveto
%%postscript 0.160 0.381 0.225 0.377 0.224 0.330 curveto
%%postscript 0.228 0.302 0.198 0.306 0.197 0.267 curveto
%%postscript 0.194 0.237 0.213 0.222 0.237 0.247 curveto
%%postscript 0.263 0.276 0.234 0.297 0.268 0.322 curveto
%%postscript 0.314 0.347 0.354 0.297 0.316 0.259 curveto
%%postscript 0.296 0.237 0.273 0.266 0.246 0.237 curveto
%%postscript 0.223 0.217 0.232 0.194 0.266 0.197 curveto
%%postscript 0.303 0.202 0.302 0.232 0.332 0.228 curveto
%%postscript 0.381 0.232 0.388 0.156 0.332 0.152 curveto
%%postscript 0.302 0.148 0.302 0.185 0.266 0.183 curveto
%%postscript 0.231 0.186 0.228 0.169 0.245 0.143 curveto
%%postscript 0.273 0.116 0.297 0.141 0.316 0.117 curveto
%%postscript 0.350 0.075 0.303 0.029 0.258 0.062 curveto
%%postscript 0.237 0.082 0.261 0.102 0.233 0.133 curveto
%%postscript 0.212 0.151 0.194 0.147 0.197 0.113 curveto
%%postscript 0.203 0.075 0.232 0.075 0.230 0.043 curveto
%%postscript 0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
%%postscript 0.148 0.075 0.185 0.076 0.183 0.113 curveto
%%postscript 0.183 0.147 0.163 0.150 0.141 0.133 curveto
%%postscript 0.113 0.104 0.140 0.079 0.113 0.059 curveto
%%postscript 0.069 0.037 0.033 0.077 0.063 0.117 curveto
%%postscript 0.082 0.141 0.104 0.117 0.132 0.142 curveto
%%postscript 0.153 0.163 0.144 0.188 0.113 0.182 curveto
%%postscript 0.073 0.182 0.075 0.147 0.046 0.152 curveto
%%postscript -0.003 0.152 -0.003 0.227 0.048 0.227 curveto
%%postscript 0.075 0.231 0.075 0.198 0.113 0.196 curveto
%%postscript 0.141 0.197 0.147 0.207 0.133 0.237 curveto
%%postscript 0.102 0.264 0.082 0.237 0.062 0.261 curveto
%%postscript 0.028 0.302 0.077 0.347 0.118 0.318 curveto
%%postscript 0.138 0.297 0.116 0.275 0.144 0.242 curveto
%%postscript fill pop grestore
%%postscript } bdef
%
% -- glissendo start/stop
%%postscript /glistart { % usage: x y glistart
%%postscript /yg exch def 5 add /xg exch def
%%postscript } bdef
%%postscript /glistop { % usage: x y glistop
%%postscript gsave xg yg T
%%postscript yg sub exch 5 add xg sub exch % dx dy
%%postscript 2 copy exch atan dup rotate % dx dy alpha
%%postscript exch pop cos div % len
%%postscript 10 0 T 0 0 M
% %postscript 20 sub 0 rlineto % simple line
%%postscript 26 sub 0 8 3 -1 roll { % squiggly line
%%postscript 2 -1.15 2.30 150 30 arcn 4 0 T
%%postscript 2 1.15 2.30 -150 -30 arc 4 0 T pop
%%postscript } for
%%postscript stroke grestore
%%postscript } bdef
%
% -- upper glissendo
%%postscript /glissup { % usage: x y glissup
%%postscript gsave T 5 0 T
%%postscript 25 rotate 10 0 T 0 0 M
%%postscript 0 8 8 {
%%postscript 2 -1.15 2.30 150 30 arcn 4 0 T
%%postscript 2 1.15 2.30 -150 -30 arc 4 0 T pop
%%postscript } for
%%postscript stroke grestore
%%postscript } bdef
%
% -- note decorations
% (sorry for I don't know the name of these: there so many ones)
% The convention I use here is:
% - t2 or t3: mordent with 2 or 3 peeks
% - ta or tb: turn from above or from below
% - b, ub or db: middle, upper or lower bar
%%postscript /tr3 { % usage: x y tr3 - mordent with 3 peeks
%%postscript M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
%%postscript 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
%%postscript 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
%%postscript -2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
%%postscript -2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
%%postscript -2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
%%postscript } bdef
%%postscript /t2ub { % usage: x y t2ub - mordent ending with an upper bar
%%postscript 2 copy umrd 0.6 setlinewidth
%%postscript M 5 4 rmoveto 0 6 rlineto stroke
%%postscript } bdef
%%postscript /t3tab { % usage: x y t3tab - mordent + upper turn and bar
%%postscript 4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
%%postscript 2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
%%postscript M 8 1 rmoveto 0 6 rlineto stroke
%%postscript } bdef
%%postscript /ubt3ta { % usage: x y ubt3ta - up bar + mordent + upper turn
%%postscript 4 add 2 copy 0.6 setlinewidth
%%postscript M -7.5 0 rmoveto 0 6 rlineto stroke
%%postscript 2 copy exch 7.5 sub exch tr3
%%postscript M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
%%postscript } bdef
%%postscript /tbt3 { % usage: x y tbt3 - low turn + long mordent
%%postscript exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
%%postscript M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
%%postscript exch 8 add exch tr3
%%postscript } bdef
%%postscript /t2ta { % usage: x y t2ta - mordent + upper turn
%%postscript 2 copy umrd
%%postscript M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
%%postscript } bdef
%%postscript /t3b { % usage: x y t3b - upper + lower mordent
%%postscript 2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
%%postscript M 2.5 0 rmoveto 0 8 rlineto stroke
%%postscript } bdef
%%postscript /sharp { % usage: x y sharp - sharp above note
%%postscript 4 add gsave T 0.6 dup scale 0 0 sh0 grestore
%%postscript } bdef
%%postscript /flat { % usage: x y flat - flat above note
%%postscript 4 add gsave T 0.6 dup scale 0 0 ft0 grestore
%%postscript } bdef
%%postscript /natural { % usage: x y natural - natural sign above note
%%postscript 4 add gsave T 0.6 dup scale 0 0 nt0 grestore
%%postscript } bdef
%
% -- 'treble-8' customization
%%postscript /octl {
%%postscript /Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
%%postscript } bdef
%
% == decoration definitions ==
%
% actual syntax (see format.txt):
% %%deco <name> <c_func> <ps_func> <h> <wl> <wr> [<str>]
%
% -- dynamic indication below the staff
%%deco fp 6 pf 20 2 5 fp
%%deco mp 6 pf 20 2 5 mp
%%deco cresc 6 crdc 20 2 14 cresc.
%%deco decresc 6 crdc 20 2 20 decresc.
%%deco dimin 6 crdc 20 2 14 Dimin.
%%deco riten 6 crdc 20 2 24 Poco riten.
%%deco ritard 6 crdc 20 2 18 ritard.
%
% -- dynamic indication below the staff between parenthesis
%%deco (p) 6 apf 20 2 8 p
%%deco (pp) 6 apf 20 2 11 pp
%%deco (f) 6 apf 20 2 8 f
%%deco (ff) 6 apf 20 2 11 ff
%
% -- repeat indication above the staff
%%deco alcoda 3 dacs 20 0 0 al Coda
%
% -- who asked for a Pedal indication ?
%%deco ped 6 ped 20 0 0
%%deco ped-end 6 pedoff 20 0 0
%
% -- optional note
%%deco () 1 opnot 0 0 0
%
% -- start / stop of octava indication
%%deco 8( 5 - 24 0 0
%%deco 8) 5 octava 24 0 0
%%deco 8b( 7 - 24 0 0
%%deco 8b) 7 octavab 24 0 0
%
% -- repeat stem
%%deco / 1 repst 0 0 0
%
% -- big letters
% %deco biga 3 bigl 15 0 0 A
% %deco bigb 3 bigl 15 0 0 B
% %deco bigc 3 bigl 15 0 0 C
% %deco bigd 3 bigl 15 0 0 D
% %deco bige 3 bigl 15 0 0 E
% %deco bigf 3 bigl 15 0 0 F
% %deco bigg 3 bigl 15 0 0 G
% %deco bigh 3 bigl 15 0 0 H
% %deco bigi 3 bigl 15 0 0 I
% %deco bigj 3 bigl 15 0 0 J
% %deco bigk 3 bigl 15 0 0 K
% %deco bigl 3 bigl 15 0 0 L
% %deco bigm 3 bigl 15 0 0 M
% %deco bign 3 bigl 15 0 0 N
% %deco bigo 3 bigl 15 0 0 O
% %deco bigp 3 bigl 15 0 0 P
% %deco bigq 3 bigl 15 0 0 Q
% %deco bigr 3 bigl 15 0 0 R
% %deco bigs 3 bigl 15 0 0 S
% %deco bigt 3 bigl 15 0 0 T
% %deco bigu 3 bigl 15 0 0 U
%deco bigv 3 bigl 15 0 0 V
%deco bigw 3 bigl 15 0 0 W
%deco bigx 3 bigl 15 0 0 X
%deco bigy 3 bigl 15 0 0 Y
%deco bigz 3 bigl 15 0 0 Z
%deco bigcb 3 biglc 20 0 0 B
% ...
%
% -- glissendo
%%deco -( 1 glistart 0 0 0
%%deco -) 1 glistop 0 0 0
%%deco - 1 glissup 0 2 10
%
% -- note decorations
%%deco t2ub 3 t2ub 12 5 5
%%deco t3tab 3 t3tab 12 8 24
%%deco ubt3ta 3 ubt3ta 12 8 24
%%deco tbt3 3 tbt3 14 14 18
%%deco t2ta 3 t2ta 12 5 15
%%deco t3b 3 t3b 12 5 15
%%deco # 3 sharp 8 0 0
%%deco b 3 flat 8 0 0
%%deco = 3 natural 8 0 0
%
%%freegchord 1
X:3
%%pageheight 29.7cm
%%pagewidth 18.5cm
%%leftmargin 0cm
%%rightmargin 0.0cm
%%botmargin 0.0cm
%%topmargin 0.0cm
%%measurenb 5
%%measurebox 1
V:Ti__ti clef=bass name=""
%%measurefirst 101
%%staves Ti__ti
L:1/4
M:none
K:C
[V:Ti__ti] [K:Eb] Z9 | Z5 | z4 | C,/ z/ z z2 | z C,/ z/ z !trill(! y C, !trill)! y | C,/ z/ z z2 | z C,/ z/ z !trill(! y C, !trill)! y |
d: !p! | | | |