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

[anonymous]

URL:
  <http://savannah.gnu.org/bugs/?28347>

                 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

    _______________________________________________________

Details:

The current denemo tempo commands are limited and don't use the best lilypond
syntax.
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) )
    (begin 
        ( 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 )
        (d-RefreshDisplay)
        (d-CursorRight)
    )
 ))




    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?28347>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/