X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fclip-systems.ly;fp=input%2Flsr%2Fclip-systems.ly;h=0000000000000000000000000000000000000000;hb=941dff9d2a67080e0dd8474f1e70f0c72ace6424;hp=8db309ebb886bd43fe0c7c0ced9a7a6edce79613;hpb=5a22d6233a39d3164e1ca043244794c268be4ad0;p=lilypond.git

diff --git a/input/lsr/clip-systems.ly b/input/lsr/clip-systems.ly
deleted file mode 100644
index 8db309ebb8..0000000000
--- a/input/lsr/clip-systems.ly
+++ /dev/null
@@ -1,91 +0,0 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
-%% This file is in the public domain.
-\version "2.12.3"
-
-\header {
-  lsrtags = "paper-and-layout"
-
-  texidoc = "
-This code shows how to clip (extract) snippets from a full score.
-
-This file needs to be run separately with @code{-dclip-systems}; the
-snippets page may not adequately show the results.
-
-The result will be files named
-@samp{base-from-start-to-end[-count].eps}.
-
-
-If system starts and ends are included, they include extents of the
-System grob, e.g., instrument names.
-
-
-Grace notes at the end point of the region are not included.
-
-
-Regions can span multiple systems.  In this case, multiple EPS files
-are generated. 
-
-"
-  doctitle = "Clip systems"
-} % begin verbatim
-
-#(ly:set-option 'clip-systems)
-#(set! output-count 1)
-
-origScore = \score {
-  \relative c' {
-    \set Staff.instrumentName = #"bla"
-    c1
-    d1
-    \grace c16 e1
-    \key d \major
-    f1 \break
-    \clef bass
-    g,1
-    fis1
-  }
-}
-
-\book {
-  \score {
-    \origScore
-    \layout {
-      % Each clip-region is a (START . END) pair
-      % where both are rhythmic-locations.
-      
-      % (make-rhythmic-locations BAR-NUMBER NUM DEN)
-      % means NUM/DEN whole-notes into bar numbered BAR-NUMBER
-
-      clip-regions = #(list
-      (cons
-       (make-rhythmic-location 2 0 1)
-       (make-rhythmic-location 4 0 1))
-      
-      (cons
-       (make-rhythmic-location 0 0 1)
-       (make-rhythmic-location 4 0 1))
-
-      (cons
-       (make-rhythmic-location 0 0 1)
-       (make-rhythmic-location 6 0 1))
-      )
-    }
-  }
-}
-
-#(set! output-count 0)
-#(ly:set-option 'clip-systems #f)
-
-\book {
-  \score { \origScore }
-  \markup { \bold \fontsize #6 clips }
-  \score {
-    \lyrics {
-      \markup { from-2.0.1-to-4.0.1-clip.eps }
-      \markup {
-        \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps"
-                            (ly:parser-output-name parser)) }
-    }
-  }
-}
-