Date: Mon, 5 Mar 2001 13:13:07 -0500
From: Chuck Bacon
<<<underline><color><param>0000,8000,0000</param>[EMAIL PROTECTED]</underline></color>>
To: David Bobroff
<<<underline><color><param>0000,8000,0000</param>[EMAIL PROTECTED]</underline></color>>
cc: <<<underline><color><param>0000,8000,0000</param>[EMAIL PROTECTED]</underline></color>>
Subject: Re: staff_paper
In-Reply-To:
<<<underline><color><param>0000,8000,0000</param>[EMAIL PROTECTED]</underline></color>>
Message-ID:
<<<underline><color><param>0000,8000,0000</param>Pine.SGI.4.32.0103051244310.4887599-
[EMAIL PROTECTED]</underline></color>>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
On Sun, 4 Mar 2001, David Bobroff wrote:
<color><param>7F00,0000,0000</param>> I recall many months ago that there was a
solution posted here for how to
> make blank staff paper. I was sure that I had saved it but I can't find
> it. Does anyone have the solution? I have worked out a partial solution
> with pmx but I still need to get rid of the barlines at the ends of the
> lines as well as the final barline.
>
> Thanks,
>
> David Bobroff
</color>At the risk of ruining somebody's evening (I am uncertain about the
"loop" construct below), I think the following should draw music
paper. It's all in inches, but look below how inches (in.) are
defined in points (72 to the inch, slightly under 3 per mm.).
If you have ghostscript (gs), you can find out a good deal about
this marvelous PostScript language which drives so many printers.
Chuck Bacon -
<underline><color><param>0000,8000,0000</param>[EMAIL PROTECTED]</underline></color>
(preferred over Helix address)
%!PS-Adobe
% Staff paper, you ask?
/in. { 72 mul } bind def
% Essential paper parameters
/copies 1 def % Change this after debugging!
/bottom 0.75 in. def % No marks below this
/top 10.0 in. def % Bottom of top staff
/leftmar 0.75 in. def % Space at left
/rightmar 8.0 in. def % Assumes 8.5" paper
/lineweight 1.0 def % Thickness of line in points
/linespace .125 in. def % Space between lines for 1/2-in. staff
/staffsep 1.0 in. def % Space between staves
/linesperstaff 5 def % (Usually a nobrainer)
/drawpage {
/Ystaff bottom def
{
/Y Ystaff def
lineweight setlinewidth
1 1 linesperstaff {
leftmar Y moveto rightmar Y lineto
/Y Y linespace add def
} for % We've just drawn five lines!
stroke
/Ystaff Ystaff staffsep add def
Ystaff top get { break } if
} loop
showpage
} bind def
1 1 copies { drawpage } for
% That's all!
<nofill>
