[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: A meter/measure-paper
From: |
Valeriy E. Ushakov |
Subject: |
Re: A meter/measure-paper |
Date: |
Tue, 21 Aug 2001 05:36:29 +0400 |
User-agent: |
Mutt/1.3.3i |
On Tue, Aug 21, 2001 at 00:02:20 +0200, Oliver Bandel wrote:
> It should be possible to give the numers of measures
> and the meter (4/4, 3/4, 5/4, 6/8, 13/11 etc.).
Well, this measures and meters don't make sense to me ;) so I don't
know which params are which, but I hope my example will help you with
the basic idea.
import @BasicSetup # for @FullWidthRule
def @NLines
right n
{
def @DoLines
right i
{
@OneCol {
{ 0.8f Slope } @Font { ({n @Minus i @Plus 1}) }
^|1f @FullWidthRule
}
/1v
i @Case {
n @Yield @Null
else @Yield @DoLines @Next i
}
}
@DoLines 1
}
Of course in real definition for the notation you'll need to make line
widths and number formats into paramters and you'll have two nested
loops for measures and meter and you might want to use a symbol for
line drawing that uses different alignemnt etc, etc, etc.
SY, Uwe
--
address@hidden | Zu Grunde kommen
http://www.ptc.spbu.ru/~uwe/ | Ist zu Grunde gehen