* scm/define-markup-commands.scm (score): remove debugging code.
* input/test/clef-end-of-line.ly: fold into manual.
+ * input/test/scales-greek.ly: remove.
+
* input/test/chords-without-melody.ly: fold into manual.
* input/test/cadenza-skip.ly: remove.
+++ /dev/null
-\version "2.3.8"
-% TODO: check to see if this example can be simplified using \small
-% or \tiny.
-\header { texidoc = "@cindex Cue Notes
-Cue notes are typeset in a smaller font. "
-% Cue clefs are usually not restored explicitly. "
-}
-
"
}
-
-%
-%TODO: make print-function to do this.
-%
-
\score {
\relative c'' {
- a-"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
- -"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
- b-"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
+ a-\markup { \postscript #"3 4 moveto 5 3 rlineto stroke" }
+ -\markup { \postscript #"[ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke " }
+
+ b-\markup { \postscript #"3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke" }
s2
a'1
}
+++ /dev/null
-\version "2.3.8"
-\header {
- texidoc = "
-
-In addition to major and minor keys, the key can be given also in terms
-of greek, modal scales: ionian (= major), dorian, phrygian, lydian, mixolydian,
-aeolian (= minor), and locrian. All these scales are in the key of C.
-
-"
-}
-
-\score { {
-
-\key c \ionian c'8 -"C ionian, major" d'8 e'8 f'8 g'8 a'8 b'8 c''8
-
-\transpose d c { \key d \dorian d'8 -"C dorian" e'8 f'8 g'8 a'8 b'8 c''8 d''8}
-
-\transpose e c { \key e \phrygian e'8 -"C phrygian" f'8 g'8 a'8 b'8 c''8 d''8 e''8}
-
-\transpose f c { \key f \lydian f'8 -"C lydian" g'8 a'8 b'8 c''8 d''8 e''8 f''8}
-
-\transpose g c { \key g \mixolydian g'8 -"C mixolydian" a'8 b'8 c''8 d''8 e''8 f''8 g''8}
-
-\transpose a c' { \key a \aeolian a8 -"C aeolian, minor" b8 c'8 d'8 e'8 f'8 g'8 a'8 }
-
-\transpose b c' { \key b \locrian b8 -"C locrian" c'8 d'8 e'8 f'8 g'8 a'8 b'8 }
-
-}
-
- \paper { }
- \midi {}
-}
-
(Text_item::interpret_string paper
props sym str))
+
;; TODO: use font recoding.
;; (make-line-markup
;; (map make-word-markup (string-tokenize str)))))
(define-public empty-markup
(make-simple-markup ""))
+
+(def-markup-command (postscript paper props str)
+ "This inserts @var{str} directly into the output as a PostScript command string."
+ (string?)
+ (ly:make-stencil
+ (list 'embedded-ps str)
+ '(0 . 0) '(0 . 0) ))
+
;;(def-markup-command (fill-line paper props line-width markups)
;; (number? markup-list?)
;; no parser tag -- should make number? markuk-list? thingy
placebox
bezier-sandwich
horizontal-line
+ embedded-ps
filledbox
round-filled-box
text
(escape-parentheses val)
") def\n"))
+
(define (ps-number-def prefix key val)
(let ((s (if (integer? val)
(ly:number->string val)
; todo: merge with tex-font-command?
-
+(define (embedded-ps string)
+ string)
(define (dot x y radius)
(string-append
(define (dot x y radius)
(embedded-ps (list 'dot x y radius)))
+
+(define (embedded-ps string)
+ (embedded-ps (list 'embedded-ps string)))
+
(define (white-dot x y radius)
(embedded-ps (list 'white-dot x y radius)))