Re: A meter/measure-paper

[Valeriy E. Ushakov]

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