Clip systems: Difference between revisions

← Older edit Newer edit →

VisualWikitext

@@ Line 10: / Line 10: @@
 <pre>
-\version "2.24.0"
+\version "2.24"
+#(set-default-paper-size "a6" 'landscape)
+\layout {
+  indent = 2.4\cm
+}
 #(ly:set-option 'clip-systems)
@@ Line 16: / Line 21: @@
 #(define output-suffix "1")
-origScore = \score {
+origScore = \new Staff \with { instrumentName = "Instrument" }
-  \relative c' {
+\relative c' {
-    \new Staff \with { instrumentName = "Instrument" }
+  c1
-    c1
+  d1
-    d1
+  \grace c16 e1
-    \grace c16 e1
+  \key d \major f1 \break
-    \key d \major
-    f1 \break
+  \clef bass g,1
-    \clef bass
+  fis1
-    g,1
-    fis1
-  }
 }
@@ Line 35: / Line 37: @@
      \layout {
        % Each clip-region is a (START . END) pair
-       % where both are rhythmic-locations.
+       % where both are rhythmic locations.  Syntax:
+      %
-       % (make-rhythmic-locations BAR-NUMBER NUM DEN)
+       %   (make-rhythmic-locations BAR-NUMBER NUM DEN)
+      %
        % means NUM/DEN whole-notes into bar numbered BAR-NUMBER
-       clip-regions = #(list
+       clip-regions = #(list (cons
-      (cons
+                             (make-rhythmic-location 2 0 1)
-       (make-rhythmic-location 2 0 1)
+                             (make-rhythmic-location 4 0 1))
-       (make-rhythmic-location 4 0 1))
+                            (cons
+                             (make-rhythmic-location 0 0 1)
-      (cons
+                             (make-rhythmic-location 4 0 1))
-       (make-rhythmic-location 0 0 1)
+                            (cons
-       (make-rhythmic-location 4 0 1))
+                             (make-rhythmic-location 0 0 1)
+                             (make-rhythmic-location 6 0 1)))
-      (cons
-       (make-rhythmic-location 0 0 1)
-       (make-rhythmic-location 6 0 1))
-      )
      }
    }
@@ Line 66: / Line 65: @@
    \score {
      \lyrics {
-       \markup { from-2.0.1-to-4.0.1-clip.eps }
+       "from-2.0.1-to-4.0.1-clip.eps"
-       \markup {
+       \markup \epsfile #X #30.0
-        \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
+                       #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
-                            (ly:parser-output-name)) }
+                                (ly:parser-output-name))
      }
    }