denemo-devel
[Top][All Lists]
Advanced

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

[Denemo-devel] [bug #28039] Delete Barline command


From: anonymous
Subject: [Denemo-devel] [bug #28039] Delete Barline command
Date: Tue, 17 Nov 2009 18:17:00 +0000
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5

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

                 Summary: Delete Barline command
                 Project: GNU Denemo, a gtk+ frontend to GNU Lilypond
            Submitted by: None
            Submitted on: Tue 17 Nov 2009 06:16:59 PM UTC
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

I noticed the Delete Barline command.  I wrote a script which I've been using
for a while now, and it's pretty successful, whereas the existing one, I tried
it and it seems to either do nothing or delete a measure.

(define type (d-GetType) ) ;don't try it if not at the end of bar
(if  (or (equal? type  "Appending" ) (equal? type "None" ) )
(begin (d-SetMark)
(if (d-MeasureRight) ;;we don't want to delete next bar if there isn't one!
  (begin        (d-MeasureLeft) ;; Now we're at the beginning of that measure
        (d-Cut)
        (d-DeleteMeasure)
        (d-Paste) )
  (d-UnsetMark)  ;this is to clear the mark if we set it, but were at end of
staff
  )
)
)

This script can be used to define a "smarter" DeleteObject command, that
deletes the barline if it's at the end of the bar.  Just change (d-UnsetMark)
to (d-DeleteObject).  Comments are just there for your understanding; do they
slow down the scripts?  If so I say ditch them.
-Dan W.




    _______________________________________________________

Reply to this item at:

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

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





reply via email to

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