+2003-08-06 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
+ * Documentation/user/*.tely: remove WEBTITLE
+
+ * scm/output-tex.scm (comment): idem.
+
+ * scm/output-pdftex.scm: remove GUILE 1.4 glue
+
+ * scm/music-functions.scm (make-lyric-event): new function
+
+ * scm/lily.scm (lilypond-version): new function
+
+ * input/test/version-output.ly: new file.
+
+ * Documentation/user/lilypond.tely: add version number to
+ front-page.
+
2003-08-05 Jan Nieuwenhuizen <janneke@gnu.org>
* input/test/midi-scales.ly: Reformat to match midi2ly output again.
<!meta http-equiv=refresh content="0; url='music-glossary.html'">
-<!--- @WEB-TITLE@=Music Glossary moved --->
<h2>Music glossary has moved</h2>
The new location is: <a href='music-glossary.html'>music-glossary.html</a>.
-<p>Please update your links. Sorry for the inconvenience.
\ No newline at end of file
+<p>Please update your links. Sorry for the inconvenience.
@settitle GNU LilyPond
-@html
-<!--- @@WEB-TITLE@@=User Manual --->
-@end html
@ignore
Distributions will want to install lilypond.info doing:
A copy of the license is included in the section entitled ``GNU
Free Documentation License''.
+@vskip 20pt
+
+
+@lilypond[singleline]
+\score { \context Lyrics \notes {
+ \property Score.RehearsalMark \set #'self-alignment-X = #LEFT
+
+\mark #(ly:export (string-append "(For LilyPond version "
+(lilypond-version) ")"))
+s2
+ }
+ \paper { indent = 0.0\pt
+ raggedright = ##t
+ }
+}
+@end lilypond
+
@end titlepage
@settitle Music Glossary
@setfilename music-glosssary.info
-@html
-<!--- @@WEB-TITLE@@=Music Glossary --->
-@end html
@ifhtml
This document is also available in @uref{music-glossary.ps.gz,gzipped
@node Notation manual
@chapter Notation manual
-@html
-<!--- @@WEB-TITLE@@=Notation manual --->
-@end html
-
-
@menu
* Note entry::
* Easier music entry::
@node Tutorial
@chapter Tutorial
-@html
-<!--- @@WEB-TITLE@@=Tutorial --->
-@end html
Using LilyPond comes down to encoding music in an input file. After
@end example
The @code{\include} command substitutes the contents of the file at
this position in the file, so that @code{hornNotes} is defined
-afterwards. Since the horn is tuned in F, the @code{\transpose}
-command is used. The code @code{\transpose c' f} indicates that the
+afterwards. The code @code{\transpose f c'} indicates that the
argument, being @code{\hornNotes}, should be transposed by a fifth
-downwards: the @code{c'} becomes a @code{f}. The transposition can be
-seen in the following output:
+downwards: sounding @code{f} is denoted by notated @code{c'}, which
+corresponds with tuning of a normal French Horn in F. The
+transposition can be seen in the following output:
@lilypond[singleline]
\score {
- \notes \transpose c' f \notes \relative c' {
+ \notes \transpose f c' \notes \relative c {
\time 2/4
r4 f8 a cis4 f e d
}
following result:
@lilypond[singleline]
-\score {\notes { \transpose c' f \relative c' { \time 2/4
+\score {\notes { \transpose f c' \relative c { \time 2/4
\property Score.skipBars = ##t
R2*3
r4 f8 a cis4 f e d } }}
cd $(builddir) && find Documentation input \
$(web-ext:%=-path '*/out-www/*.%' -or) -false \
> $(outdir)/weblist
- echo '<META HTTP-EQUIV="refresh" content="1;URL=Documentation/out-www/index.html">' > $(builddir)/index.html
+ echo '<META HTTP-EQUIV="refresh" content="0;URL=Documentation/out-www/index.html">' > $(builddir)/index.html
echo '<html><body>Redirecting to the documentation index...</body></html>' >> $(builddir)/index.html
cd $(builddir) && ls *.html >> $(outdir)/weblist
cat $(outdir)/weblist | (cd $(builddir); GZIP=-9v tar -czf $(outdir)/web.tar.gz -T -)
--- /dev/null
+\version "1.7.30"
+
+\header {
+ texidoc = "By putting the output of @code{lilypond-version}
+ into a lyric, we can print the version number in a score,
+or a lilypond-book document."
+ }
+
+\score { \context Lyrics \notes {
+ \property Score.RehearsalMark \set #'self-alignment-X = #LEFT
+ \mark #(ly:export (string-append "Processed with LilyPond version " (lilypond-version)))
+ s2
+ }
+}
+
+
)
;;; General settings
-;; debugging evaluator is slower.
+;;; debugging evaluator is slower. This should
+;;; have a more sensible default.
+
+
(debug-enable 'debug)
;(debug-enable 'backtrace)
(define-public point-and-click #f)
+(define-public (lilypond-version)
+ (string-join
+ (map (lambda (x) (if (symbol? x)
+ (symbol->string x)
+ (number->string x)))
+ (ly:version))
+ "."))
+
+
+
;; cpp hack to get useful error message
(define ifdef "First run this through cpp.")
(define ifndef "First run this through cpp.")
m
))
+
(define-public (make-nonevent-skip dur)
(let* ((m (make-music-by-name 'NonEventSkip)))
(ly:set-mus-property! m 'duration dur)
m
))
+(define-public (make-lyric-event string duration)
+ (let* ((m (make-music-by-name 'LyricEvent)))
+
+ (ly:set-mus-property! m 'duration duration)
+ (ly:set-mus-property! m 'text string)
+ m))
+
(define-public (make-span-event type spandir)
(let* (
(m (make-music-by-name type))
(set-mus-properties! m (cdr alist)))
))
+
+
(define-public (music-separator? m)
"Is M a separator?"
(let* ((ts (ly:get-mus-property m 'types )))
""
)
-(if (or (equal? (minor-version) "4.1")
- (equal? (minor-version) "4")
- (equal? (minor-version) "3.4"))
- (define (embedded-pdf expr)
- (let ((ps-string
- (with-output-to-string
- (lambda () (pdf-output-expression expr (current-output-port))))))
- (string-append "\\embeddedpdf{" ps-string "}")))
- (define (embedded-pdf expr)
- (let
- ((os (open-output-string)))
- (pdf-output-expression expr os)
- (string-append "\\embeddedpdf{" (get-output-string os) "}"))))
+(define (embedded-pdf expr)
+ (let
+ ((os (open-output-string)))
+ (pdf-output-expression expr os)
+ (string-append "\\embeddedpdf{" (get-output-string os) "}")))
(define (comment s)
""
)
-(if (or (equal? (minor-version) "4.1")
- (equal? (minor-version) "4")
- (equal? (minor-version) "3.4"))
- (define (embedded-ps expr)
- (let ((ps-string
- (with-output-to-string
- (lambda () (ps-output-expression expr (current-output-port))))))
- (string-append "\\embeddedps{" ps-string "}")))
- (define (embedded-ps expr)
- (let
- ((os (open-output-string)))
- (ps-output-expression expr os)
- (string-append "\\embeddedps{" (get-output-string os) "}"))))
-
+(define (embedded-ps expr)
+ (let ((ps-string
+ (with-output-to-string
+ (lambda () (ps-output-expression expr (current-output-port))))))
+ (string-append "\\embeddedps{" ps-string "}")))
+
(define (comment s)
(string-append "% " s "\n"))