File: SetLonga.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-- 498 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
;;;;;;;;;;;;;;; SetLonga
(if (and (defined? 'Snippet::Longa) (> Snippet::Longa 0))
    (d-SelectSnippet Snippet::Longa)
(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" "\\longa ")		
(d-SetDurationInTicks (* 4 1536))
(d-CreateSnippetFromObject "Longa")
(d-DeleteMeasure)
(d-PopPosition)))