> De : Laura Conrad <[EMAIL PROTECTED]>
> A : [EMAIL PROTECTED]
> Objet : Re: [abcusers] free Finale
> Date�: samedi 28 octobre 2000 01:54
[...]
>
> I think I've learned to use abc2ps pretty well, but I don't use it for
> mixing text and music , and I've never figured out how to put the date
> of printing on the page, and I don't know how to do an incipit in a
> smaller music font size. (If there were syntax for the clefs I needed
> in an incipit.)
>
> If you think these things are possible, can you post an example?
[Incipits]
You could build on something like that:
X:1
%%partsfont * 9pt
%%partsspace .3cm
%%staffsep .3cm
%%titleleft
%%staffwidth 10cm
%%scale 0.5
T:Incipits for Laura
M:4/4
L:1/8
K:DDor
P:Marche de Noces (d'apr\`es Michel P\'echadre)
e2 (fg) a2 b2|a2 g2 f2 e2|(ag) (ab) a2 g2|f2 (ed) e4|
P:Polka (d'apr\`es Michel Meilhac)
M:2/4
K:D
abag fagf|egfe d2f2|
Wil Macaulay has posted some time ago a pretty example of incipits
catalogue build from a tunebook.
Wil, could you post it again?
[Text]
The %%%begintext (obeylines|ragged|align) and %%endtext pseudocomments are
easy to use for simple things. But, abc2mTeX and LaTeX would be better for
serious things. The inconveniences are that abc2mTeX needs an update and
that MusixTeX uses type III fonts which render very badly in Acrobat Reader
if you want pdf.
I am not that litterate in LaTeX but perhaps there is a place for a LaTeX
package which could allow to enter abc directly embedded in a LaTeX source
within an abc environment and turning it in an eps file with abc2ps and a
\includegraphics instruction at compile time.
There is an 'emp' package on CTAN which do things like that with embedded
metapost figures. I think the 'ConTeXt' format do it too.
Do you think it would be a right track, Laura?
[Date stamping]
For the present time, you have to post-process the PostScript file.
The 'First Guide to PostScript' �by P.J. Weingartner (Univ. of Indiana) at
http://www.cs.indiana.edu/docproject/programming/postscript/postscript.html
has nice perl examples.
Try to build on the following (adapted from the 'draft' example on that web
page).
#!/usr/local/bin/perl
$flag = 0;
@date=localtime(time);
($day,$month,$year)=@date[3,4,5];
$year+=1900;
while (<>) {
if (/^%%Page:/) {
if ($flag) {
print "grestore\n";
}
$flag = 1;
print $_;
print "gsave\n";
print "/Times-Roman-Italic findfont 12 scalefont setfont\n";
print "60 60 moveto\n";
print "(Printed on $day/$month/$year) show\n";
print "grestore\n";
} else {
print;
}
}
Regards.
Christophe
To subscribe/unsubscribe, point your browser to: http://www.tullochgorm.com/lists.html
