another jam

This commit is contained in:
Steve Krulewitz 2022-03-24 21:42:17 -07:00
parent 5dc874ad96
commit 3a324d627e
11 changed files with 500 additions and 12 deletions

View File

@ -48,4 +48,4 @@ function make_packet {
setup_pdflatex
#make_pdf "$1"
make_packet "packets/aircoustic202203.tex"
make_packet "packets/pha202203.tex"

11
packets/pha202203.tex Normal file
View File

@ -0,0 +1,11 @@
\documentclass{article}
\usepackage{grffile}
\usepackage{pdfpages}
\begin{document}
\includepdf[pages=-]{build/pdf/Grateful Dead/Deal.pdf}
\includepdf[pages=-]{build/pdf/The Beatles/Besame Mucho.pdf}
\includepdf[pages=-]{build/pdf/The Beatles/Besame Mucho Capo III.pdf}
\includepdf[pages=-]{build/pdf/Ramones/Blitzkrieg Bop.pdf}
\includepdf[pages=-]{build/pdf/The Dubliners/The Wild Rover.pdf}
\includepdf[pages=-]{build/pdf/Blondie/Heart Of Glass.pdf}
\end{document}

View File

@ -0,0 +1,84 @@
\documentclass{skrul-leadsheet}
\begin{document}
\begin{song}[transpose-capo=true,transpose=0]{title={Heart Of Glass}, band={Blondie}, year={1978}, key={A}}
\begin{intro}
\begin{tabular}[t]{@{}lllll}
|_{E} & |_{E} & |_{E} & |_{E} & | \\
\end{tabular}
\end{intro}
\begin{verse}
^{E}Once I had a love and it was a ^{C#}gas, \space\space\space
^{C#m}soon turned out, had a heart of ^{E}glass \\
^{E}Seemed like the real thing only to ^{C#}find, \space\space\space
^{C#m}mucho mistrust, love's gone be^{(E)}hind
\end{verse}
\begin{interlude}
\begin{tabular}[t]{@{}lllll}
|_{E} & |_{E} & |_{E} & |_{E} & | \\
\end{tabular}
\end{interlude}
\begin{verse}
^{E}Once I had a love and it was di^{C#}vine, \space\space\space
^{C#m}soon found out I was losing my ^{E}mind \\
It ^{E}seemed like the real thing but I was so ^{C#}blind, \space\space\space
^{C#m}mucho mistrust, love's gone be^{E}hind ^{E}
\end{verse}
\begin{chorus}
^{A}In between, ^{A}what I find is pleasing and I'm ^{E}feeling fine, ^{E}love is so confusing \\
There's no ^{A} peace of mind, ^{A}if I fear I'm losing you \\
It's ^{F#}just no good, you ^{B}teasing like you do-hoo
\end{chorus}
\begin{interlude}
\begin{tabular}[t]{@{}lllll}
|_{E} & |_{E} & |_{E} & |_{E} & | \\
\end{tabular}
\end{interlude}
\begin{verse}
^{E}Once I had a love and it was a ^{C#}gas, \space\space\space
^{C#m}soon turned out, had a heart of ^{E}glass \\
^{E}Seemed like the real thing only to ^{C#}find, \space\space\space
^{C#m}Mucho mistrust, love's gone be^{E}hind ^{E}
\end{verse}
\begin{chorus}
^{A}Lost inside, a^{A}dorable illusion and I ^{E}cannot hide, ^{E}I'm the one you're using \\
Please don't ^{A} push me aside, ^{A}we could've made it cruising, yea-^{E}ah ^{E}
\end{chorus}
\begin{bridge}
\begin{tabular}[t]{@{}lllll}
|_{A} & |_{A} \instruction{3 beats!} & |_{E} & |_{E} \instruction{3 beats!} & | \\
|_{A} & |_{A} \instruction{3 beats!} & |_{E} & |_{E} & | \\
\end{tabular}
^{A}Da-da-da, da ^{A}da-da da-da da-daaa-da da \\
^{E}Da-da-da, da ^{E}da-da da-da da-daaa-da da \\
^{A}Da-da-da, da ^{A}da-da da-da da-daaa-da da \\
Yeah, ^{F#}riding high on^{B} love's true bluish light
\end{bridge}
\begin{interlude}
^{E} Ooo-ooo woah-^{E}oh \instruction{Repeat 4x}
\end{interlude}
\begin{verse}
^{E}Once I had a love and it was a ^{C#}gas \space\space\space
^{C#m}soon turned out to be a pain in the ^{E}ass \\
^{E}Seemed like the real thing only to ^{C#}find \space\space\space
^{C#m}mucho mistrust, love's gone be^{E}hind
\end{verse}
\begin{outro}
^{E} Ooo-ooo woah-^{E}oh \instruction{Repeat 4x}
\end{outro}
\end{song}
\end{document}

View File

@ -0,0 +1,76 @@
\documentclass{skrul-leadsheet}
\usepackage{eso-pic}
\begin{document}
\begin{song}[transpose-capo=true]{title={Deal}, band={Grateful Dead}, year={1972}, key={A}}
\AddToShipoutPictureFG{
\AtPageUpperLeft{%
\raisebox{-10em}{%
\hspace{45em}
\origchord{t}{x,x,p1,p2,p1,p2}{_{D#dim7}}%
}%
}%
}
\begin{intro}
\begin{tabular}[t]{@{}lllll}
|_{A} & |_{A} & |_{A} & |_{A} & | \instruction{Repeat 2x over riff} \\
\end{tabular}
\end{intro}
\begin{verse}
^{A} Since it costs a ^{C#7}lot to win, ^{F#m} and e^{-}ven ^{E}more to ^{D7}lose ^{-} \space\space ^{D#dim7} \\
^{A} You and me better ^*{A7*}spen ^{G#7*}d mo^{G7*}re ^{F#7*}time ^{B7}wonderin' what to ^{D}choose \\
^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow
\end{verse}
\begin{chorus}
^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space
^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A}
\end{chorus}
\begin{verse}
^{A} I been gamblin' ^{C#7}hereabouts ^{F#m} for te^{-}n good ^{E}solid y^{D7}ears ^{-} \space\space ^{D#dim7} \\
^{A} If I told you ^{A7*}all ^{G#7*}that ^{G7*}went ^{F#7*}down it would ^{B7}burn off both of your ^{D}ears \\
^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow
\end{verse}
\begin{chorus}
^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space
^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A}
\end{chorus}
\begin{solo}
\begin{tabular}[t]{@{}lllll}
|_{A} & |_{C#7} & |_{F#m} - _{E} & |_{D7} - _{D#dim7} & | \\
|_{A} & |_{A7*}_{G#7*}_{G7*}_{F#7*} & |_{B7} & |_{D} & | \\
|_{A} & |_{C#7} & |_{F#m} - _{E} & |_{D7} - _{D#dim7} & | \\
|_{A} & |_{G} - _{D} & |_{A} & |_{G} - _{D} & | \\
|_{A} & |_{A} & | \\
\end{tabular}
\end{solo}
\begin{verse}
^{A} Since you poured ^{C#7}the wine for me ^{F#m} and tigh^{-}tened ^{E}up my ^{D7}shoes ^{-} \space\space ^{D#dim7} \\
^{A} I hate to leave you ^{A7*} ^*{G#7*}sitt- ^{G7*}in' t^{F#7*}here com^{B7}posing lonesome ^{D}blues \\
^{A} Goes to show, you ^{C#7}don't ever know, ^{F#m}watch ea^{-}ch ca^{E}rd you play and ^{D7}play ^{-} it ^{D#dim7}slow
\end{verse}
\begin{chorus}
^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \space\space\space\space\space\space
^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no ^{A}
\end{chorus}
\begin{verse}
\instruction{Repeat Verse 1}
\end{verse}
\begin{outro}
^{A} Wait until that ^{G}deal c^{-}ome '^{D}round \\
^{A} Don't you let that ^{G}deal ^{-}go ^{D}down \instruction{Repeat last two lines 4x} \\
^{A} Dont you let that ^{G}deal ^{-}go ^{D}down \\
^{A} Don't you let that ^{G}deal ^{-}go ^{D}down, ^{A}no no
\end{outro}
\end{song}
\end{document}

View File

@ -1,13 +1,86 @@
\documentclass{skrul-leadsheet-chords}[20pt]
\usepackage{tabularx}
\usepackage{xparse}
\usepackage{adjustbox}
\makeatletter
\newcommand\cellwidth{\TX@col@width}
\makeatother
\NewDocumentCommand \xb { m o }{{
\begin{tabular}{@{}l}
\IfNoValueTF{#2}{}{#2} \\[-1ex]
\writechord{#1}
\end{tabular}}
}
\NewDocumentCommand \xbb { m o m o }{{
\begin{tabular}{@{}ll@{}}
\IfNoValueTF{#2}{}{#2} & \IfNoValueTF{#4}{}{#4} \\
\writechord{#1} & \writechord{#3} \\ \hline
\end{tabular}}
}
\NewDocumentCommand \xbbbb { m o m o m o m o }{{
\begin{tabular}{@{}lll}
\IfNoValueTF{#2}{}{#2} & \IfNoValueTF{#4}{}{#4} & \IfNoValueTF{#6}{}{#6} & \IfNoValueTF{#8}{}{#8} \\[-1ex]
\writechord{#1} & \writechord{#3} & \writechord{#5} & \writechord{#7} \\ \hline
\end{tabular}}
}
\begin{document}
\begin{song}[transpose-capo=true]{title={}, band={}, year={}, key={}}
\begin{verse}
\begin{tabular}[t]{@{}lllll}
\normalbar _{C} & \leftrepeat _{C} & |_{C} & |_{C} & | \\
\end{tabular}
\end{verse}
\begin{song}[transpose-capo=true]{title={The One I Love}, band={R.E.M.}, bpm={128}, key={Em}}
\begin{intr}
\adjustbox{valign=t}{
\begin{tabularx}{\textwidth}{XXXXX}
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} &
\end{tabularx}
}
\end{intr}
\begin{v1}
\adjustbox{valign=t}{
\begin{tabularx}{\textwidth}{XXXXX}
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\
\xbb{G5}{Em7/G} & \xbb{Dsus4}{Dsus2} & \xbb{Am7}{Am} & \xb{C} & \\
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} &
\end{tabularx}
}
\end{v1}
\begin{c1}
\adjustbox{valign=t}{
\begin{tabularx}{\textwidth}{XXXXX}
\xb{Em} & \xb{Dsus2} & \xbb{Em}{Em7} & \xb{Em} & \\
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} &
\end{tabularx}
}
\end{c1}
\begin{v2}
\instruction{Repeat V1}
\end{v2}
\begin{s}
\adjustbox{valign=t}{
\begin{tabularx}{\textwidth}{XXXXX}
\xb{G} & \xb{Dsus4} & \xb{G} & \xb{C} & \\
\xb{Em} & \xb{Dsus2} & \xb{Em} & \xb{Em} & \\
\end{tabularx}
}
\end{s}
\begin{v3}
\instruction{Repeat V3}
\end{v3}
\end{song}
\end{document}

View File

@ -74,7 +74,7 @@ the ^{Asus2*}best thing you ever had, has gone^{E} away ^{E}
Don't leave me ^{F#m11}high, ^{Asus2} don't leave me \=^{E}dry \=^{E} \\
Don't leave me ^{F#m11}high, ^{Asus2} don't leave me ^{E}dry ^{E} \\
Don't leave me ^{F#m11}high, ^{Asus2} \>^{E} \>^{E} \\
Don't leave me ^{F#m11}high, ^{Asus2*} don't leave me dry \\
Don't leave me ^{F#m11}high, ^{Asus2*} don't leave me ^{E*}dry \\
\end{tabbing}
\end{chorus}

View File

@ -44,10 +44,6 @@ The ^{(E5)}Blitzkrieg Bo^{A5}p ^{-} ^{D5} ^{A5}
\instruction{Repeat Verse}
\end{verse}
\begin{chorus}
\instruction{Repeat Chorus}
\end{chorus}
\begin{outro}
^{N.C.}Hey ho, let's go! \\
^{N.C.}Hey ho, let's go! \\

View File

@ -0,0 +1,58 @@
\begin{intro}
\instruction{Play riff}
Cha-cha-boom!
\end{intro}
\begin{verse}
^{Gm}Besame, ^{Gm}besame m^{Cm}ucho ^{-} ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\
^{Cm}Each time I bring you a ^{Cm}kiss I hear music d^{Gm}ivine ^{Gm} \\
So, ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\
I ^{Gm}love you forever, ^{Eb9}say that ^{-}you'll ^{D9}always be m^{Gm†}ine \\
^{N.\symbol{67}.} Cha-cha-boom!
\end{verse}
\begin{verse}
^{Gm}Dearest one, ^{Gm} if you should l^{Cm}eave ^{-}me ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\
Then ^{Cm}each little dream will take ^{Cm}wings and my life ^{Gm}would be through ^{Gm} \\
Oh, ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\
Ooh, ^{Gm}love me forever, ^{Eb9}make al^{-}l my ^{D9}dreams ^{Gm†}come true ^{N.\symbol{67}.}
\end{verse}
\begin{chorus}
Ooh, ^{Cm}this joy is some^{Cm}thing new,
^{Gm} my arms they're ^{Gm} holding you, \\
^{D7} Never knew this ^{D7} thrill be^{Gm}fore ^{Gm} \\
^{Cm}Who ever ^{Cm}thought I'd be ^{Gm}
holding you ^{Gm} close to me \\
^{A}Whispering, "^{A}It's you ^{D7}I adore" ^{D7}\\
\end{chorus}
\begin{verse}
Yes, so, ^{Gm}dearest one, ^{Gm} if you should l^{Cm}eave ^{-}me ^{Cm6} ^{Cm7} ^{-} ^{Cm6} \\
Then ^{Cm}each little dream will take ^{Cm}wings and my life ^{Gm}would be through ^{Gm} \\
Oh, so ^{G}besame, ^{G7} besame ^{Cm}mucho ^{Cm} \\
Yeah, I'll ^{Gm}love you forever, ^{Eb9}make a^{-}ll my ^{D9}dreams ^{Gm†}come true ^{N.\symbol{67}.}
\end{verse}
\begin{chorus}
\instruction{Repeat Chorus}
\end{chorus}
\begin{verse}
\instruction{Repeat Verse 3}
\end{verse}
\begin{outro}
Ooh, l^{Gm}ove you forever, m^{Eb9}ake al^{-}l my dr^{D9}eams come tr^{Gm†}ue ^{N.\symbol{67}.} \\
Ooh, l^{Gm}ove you forever, m^{Eb9}ake al^{-}l my dr^{D9}eams come tr^{Gm†}ue
\end{outro}
\begin{flushright}
\emph{Original by Consuelo Velázquez, 1940}
\end{flushright}
\begin{lstlisting}
Em Em Em B7 B7 B7 Em X
e --10--11--10---8--6--5--6--X--
B --11--13--11--10--8--7--8--X--
\end{lstlisting}

View File

@ -0,0 +1,9 @@
\documentclass{skrul-leadsheet}
\usepackage{listings}
\begin{document}
\begin{song}[transpose-capo=true]{title={Besame Mucho}, band={The Beatles}, year={1962}, key={Gm}, capo={3}}
\input{"Besame Mucho Body.tex"}
\end{song}
\end{document}

View File

@ -0,0 +1,9 @@
\documentclass{skrul-leadsheet}
\usepackage{listings}
\begin{document}
\begin{song}[transpose-capo=true]{title={Besame Mucho}, band={The Beatles}, year={1962}, key={Gm}}
\input{"Besame Mucho Body.tex"}
\end{song}
\end{document}

View File

@ -0,0 +1,172 @@
\ProvidesClass{skrul-leadsheet}
\LoadClassWithOptions{scrartcl}
\usepackage{savesym}
\usepackage{gchords}
\savesymbol{chord}
\RequirePackage{leadsheets}
\RequirePackage{etoolbox}
\RequirePackage{translations}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[sfdefault]{roboto}
\usepackage{geometry}
\geometry{
letterpaper,
margin=0.5in
}
\pagenumbering{gobble}
\usepackage[dvipsnames]{xcolor}
\definesongproperty{bpm}
\definesongproperty{meter}
\definesongproperty{note}
\definesongtitletemplate{leadsheet}{%
\Large
{\textbf{\songproperty{title}} - \songproperty{band}}
{\footnotesize
\space\space // \space\space \songproperty{bpm} bpm
\space\space // \space\space key: \songproperty{key}
\ifsongproperty{capo}{\space\space // \space\space\capo}{}
\ifsongproperty{meter}{\space\space // \space\space\songproperty{meter} time}{}
\ifsongproperty{note}{\space\space // \space\space\songproperty{note}}{}
}
\vspace{-0.5\baselineskip}
\hrulefill
}
\ExplSyntaxOn
\char_set_catcode_other:N \#
\char_set_catcode_parameter:N \!
\prop_const_from_keyval:Nn \__skrul_enharmonic_map_prop
{
Am/F##=Am/G,
Ab#m=Am,
A##m7=Bm7,
B#=C,
B#/B=C/B,
B#*=C*,
B#m=Cm,
B#add9=Cadd9,
Bb#=B,
Bb#m7=Bm7,
B#maj7=Cmaj7,
B#m6=Cm6,
C##=D,
C##m=Dm,
C##*=D*,
C##7=D7,
C##7*=D7*,
C##/F#=D/F#,
C##/C#=D/C#,
C##/C#*=D/C#*,
C##/B=D/B,
C##/B*=D/B*,
Db#=D,
D##m=Em,
D/Gb=D/F#,
Eb#m=Em,
Eb#m*=Em*,
E#=F,
E#*=F*,
F##=G,
F##*=G*,
F##7=G7,
F##/A##*=G/B*,
F##/B=G/B,
G##=A,
G##*=A*,
G##m=Am,
G##m*=Am*,
G##maj7=A\textsuperscript{maj7},
G##sus4=A\textsuperscript{sus4},
G##7=A\textsuperscript{7},
G##m7/C#=Am\textsuperscript{7}/D,
G#b*=G*,
G#b=G,
G##m7=Am7,
G##m7*=Am7*,
Gb#=G,
Eb#=E,
Db#7/F#=D7/F#,
A#=Bb,
(F##)=(G),
Cadd9=C\textsuperscript{add9},
A7=A\textsuperscript{7},
Am7=Am\textsuperscript{7},
D7=D\textsuperscript{7},
Bm7=Bm\textsuperscript{7},
F##sus2=G\textsuperscript{sus2},
B#maj7/F##=C\textsuperscript{maj7}/G,
Dm/E#=Dm/F
}
\cs_generate_variant:Nn \str_set:Nn {Nx}
\NewDocumentCommand \xchordname {m} {%
\tl_if_head_eq_charcode:nNTF { !1 } .
{
\str_set:Nx \l_tmpa_str { \str_tail:n !1 }
\prop_get:NVNTF \__skrul_enharmonic_map_prop \l_tmpa_str \__skrul_enharmonic_tl
{ \underline{\chordname{\__skrul_enharmonic_tl}}}
{ \underline{\chordname{\l_tmpa_str}}}
}
{
\prop_get:NnNTF \__skrul_enharmonic_map_prop { !1 } \__skrul_enharmonic_tl
{ \chordname{\__skrul_enharmonic_tl}}
{ \chordname{!1}}
}
}
\char_set_catcode_parameter:N \#
\char_set_catcode_other:N \!
\ExplSyntaxOff
\setleadsheets{
title-template = leadsheet,
align-chords=l,
verse/numbered,
chords/format = \color{black}\bfseries,
chord-cs = \xchordname,
verses-label-format = \itshape
}
\LeadsheetSurvive
\provideversetype{prechorus}[name=Prechorus]
\provideversetype*{prechorus*}[name=Prechorus]
\provideversetype{postchorus}[name=Postchorus]
\provideversetype*{postchorus*}[name=Postchorus]
\provideversetype{chorus1}[name=Chorus 1]
\provideversetype{chorus2}[name=Chorus 2]
\provideversetype{xbreak}[name=Break]
\provideversetype{v1}[name=V1]
\provideversetype{v2}[name=V2]
\provideversetype{v3}[name=V3]
\provideversetype{v4}[name=V4]
\provideversetype{c1}[name=C1]
\provideversetype{c2}[name=C2]
\provideversetype{intr}[name=In]
\provideversetype{s}[name=S]
\providerobustcmd*\lsenparen[1]{%
\expandcode{\noexpand\mklsenparen\mklsenparens{\unexpanded{#1}}}%
}
\providecommand*\mklsenparens{[]}
\providecommand*\mklsenparen[3]{\textup{#1}#3\textup{#2}}
\providerobustcmd*\instruction[1]{\lsenparen{\mkinstruction{#1}}}
\providecommand*\mkinstruction[1]{\emph{#1}}
\providerobustcmd*\choir[1]{\null\qquad\mkchoir{#1}}
\providecommand*\mkchoir[1]{\instruction{\leadsheetstranslate{choir}: #1}}
\LeadsheetEndSurvive