[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Denemo-devel] [bug #28347] Tempo Chooser

From: anonymous
Subject: [Denemo-devel] [bug #28347] Tempo Chooser
Date: Sat, 19 Dec 2009 21:06:47 +0000
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv: Gecko/20091201 Firefox/3.5.6


                 Summary: Tempo Chooser
                 Project: GNU Denemo, a gtk+ frontend to GNU Lilypond
            Submitted by: None
            Submitted on: Sat 19 Dec 2009 09:06:46 PM UTC
                Category: Feature request
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any



The current denemo tempo commands are limited and don't use the best lilypond
Here's a script that allows you to pick from several common tempos, or write
your own.  Also, it uses the current lilypond method of displaying the tempo,
the \tempo command.  The output is therefore better IMO than that of the
existing denemo commands.  The script also, when executed on top of an
existing tempo directive, allows you to modify it.  It uses standalone
directives. ty is set to be a bit lower than the metronome mark offset so they
don't overlap.  This might be something that should get a global variable-each
type of lilydirective could get a different denemo ty-offset so that they
don't overlap one another and space is conserved. -Dan W.

 (let ((choice #f) (replace #f))
(if (equal? (d-GetType) "LILYDIRECTIVE" ) 
        (if (equal? (d-DirectiveGetTag-standalone) "Tempo" )
                (set! replace #t )
(set! choice (d-GetOption (string-append "Presto" stop "Vivace" stop
"Allegro" stop "Andante" stop "Adagio" stop "Largo" stop "Other" stop )))

(if (equal? choice "Other") (set! choice (d-GetUserInput "Tempo setting"
"Enter tempo text:" "Allegro assai" ) )  )
( if (not (boolean? choice) )
        ( if (equal? replace #f ) (d-DirectivePut-standalone "Tempo" ) )
        (d-DirectivePut-standalone-postfix "Tempo" (string-append  "\\tempo " 
choice  ))
        (d-DirectivePut-standalone-display  "Tempo" choice)
        (d-DirectivePut-standalone-minpixels "Tempo" 10 )
        (d-DirectivePut-standalone-ty "Tempo" 90 )


Reply to this item at:


  Message sent via/by Savannah

reply via email to

[Prev in Thread] Current Thread [Next in Thread]