%#####
%#
%# This listing has been transcribed from a printed listing that 
%# is dated 1991-04-05.  This is an early development version of
%# the songbook macros; pre-version 1.0.
%#

%# Copyright 2002 Christopher Rath <>

%#
%# This package is free software; you can redistribute it and/or
%# modify it under the terms of the GNU Lesser General Public
%# License as published by the Free Software Foundation; either
%# version 2.1 of the License, or (at your option) any later
%# version.
%#
%# This package 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 Lesser General Public License for more
%# details.
%#
%#####

%%%
% Preamble begins
%%%
\documentstyle[12pt]{sbook}

%%%
% Begin Songbook macro.s
%%%
%

%
% C.C.L.I. license number definition.
%
\newcommand\CCLInumber{\#192656}

%
% Font definition.
%     SBFntSNum - Font for the Song Number.
%
\font\SBFntSNum=mvtt10 scaled 3000 outline

%
% Define Song counter.
%
% The verse counter is used for numbering the songs.  When a song is listed
% multiple times (for multiple keys) the songs number must remain the same each
% time.
%
\newcounter{SBSongCnt}

%
% Define Verse counter.
%
% The verse counter is used for numbring verses as they occur within a song.
%
\newcounter{SBVerseCnt}

%
% \STitle - Song title macro definition.
%     Paramaters.
%          [1] Song's title.
%          [2] Song's key.
% Before printing the title we reset the SBVerseCnt counter back to zero.  This
% is for songs which are printed in more than one key.  The verse count always
% begins at 1. for each key.
%
\newcommad{\STitle}[2]{\setcounter{SBVerseCnt}{0}
               \vspace{.5in}
               \centerline{{\SBFntSNum}\theSBSongCnt} --- {\bf\sf{#1}} [#2]}}

%
% \CpyRt - Copyright info. macro definition.
%     Paramaters.
%          [1] Copyright information.
%
\newcommand{\CpyRt}[1]{\centerline{\footnotesize\copyright #1}}

%
% \WAndM - Words and Music macro definition.
%     Paramaters.
%          [1] Name(s) of the composer and lyricist.
%
\newcommand{\WAndM}[1]{\centerline{\footnotesize W\&M:  #1}}

%
% \ScriptReF - Scripture reference macro definition.
%     Paramaters:
%          [1] Address of scripture reference for the song.
%
% Used to indicate a scripture reference for the song.  May either be the
% scripture being quoted in the song, or a scripture which supports the
% theology presented in the song.
%
\newcommand{\ScriptRef}[1]{\centerline{\footnotesize #1}}

%
% {song} - Song enviroment definition.
%          [1] Title of song.
%          [2] Key song is written in.
%          [3] Copyright information.
%          [4] Name(s) of composer and lyricist.
%          [5] Scripture reference for the song.
%
% The song enviroment encapsulates a song, including multiple appearances for
% multiple keys.  We increment the song counter and then cause the title and
% other paramater information to be displayed.
%
% The startup code for this environment needs to eventually generate listings in
% an index file.
%
\newenvironment{song}[5]{
     \addtocounter{SBSongCnt}{1}
     %
     \STitle{#1}{#2}
     \CpyRt{#3}
     \WAndM{#4}
     \ScriptRef{#5}
%     \vspace{2ex}
}{\vfill\pagebreak}

%
% \Ch - Chord over lyrics macro definition.
%     P8ramaters.
%          [1] Chord.
%          [2] Syllable that chord is to be left justified over.
%
\newcommand{\Ch}[2]{\leavevmode\vbox{\hbox{ }\hbox{\strut\bf\sf{#1}}\hbox{#2\strut}}}

%
% \SBRef - Song reference definition.
%
%     Paramaters.
%          [1] Songbook name.
%          [2] Page/Song number within book ref'ed by [1].
%
% Used to indicate a source for the full SATB music for this song.
%
\newcommand{\SBRef}[2]{\marginpar{{\begin{flushleft}\scriptsize{\em #1}, {#2}.\end{flushleft}}}}
%

%
% \begin{SBVerse} - Verse environment definition.
%     Parameters:  None.
%
\newenviroment{SBVerse}{
     \addtocounter{SBVerseCnt}{1}
     \begin{list}{{\small\bf\sf{\theSBVerseCnt}.}}{\setlength{\leftmargin}{4em}}
          \item
}{\end{list}\par}

%
% \begin{SBChorus} - Chorus environment definition.
%     Parameters:  None.
%
\newenvironment{SBChorus}{
     \begin{list}{{\small\bf\sf Ch:}}{\setlength{\leftmargin}{4em}}
          \item
}{\end{list}\par}

%
%%%
% End songbook macro.s
%%%