File: SetBreve.scm

package info (click to toggle)
denemo 2.6.49-0.2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 66,916 kB
  • sloc: ansic: 94,587; lisp: 38,713; xml: 22,675; python: 1,930; sh: 1,239; makefile: 642; yacc: 288; sed: 93
file content (16 lines) | stat: -rw-r--r-- 500 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
;;;;;;;;;;;;;;; SetBreve
(if (and (defined? 'Snippet::Breve) (> Snippet::Breve 0))
    (d-SelectSnippet Snippet::Breve)
(begin
(d-PushPosition)
(d-InsertMeasureBefore)
(d-Insert0)
	(d-DirectivePut-chord-graphic "Duration" "
emmentaler")
	(d-DirectivePut-chord-override "Duration" (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_ALT_OVERRIDE))
	(d-DirectivePut-chord-prefix "Duration" "\\breve ")		
	(d-SetDurationInTicks (* 2 1536))
(d-CreateSnippetFromObject "Breve")
(d-DeleteMeasure)
(d-PopPosition)))