--- /dev/null
+
+hairyChord = \context Staff \notes\relative c' <
+ \context Voice=one {
+ \property Voice.Stem \push #'direction = #1
+ \property Voice.NoteColumn \push #'horizontal-shift = #0
+ e4\arpeggio
+ }
+
+ \context Voice=two {
+ \property Voice.Stem \push #'direction = #1
+ \property Voice.NoteColumn \push #'horizontal-shift = #1
+ cis\arpeggio
+ }
+
+ \context Voice=three {
+ \property Voice.Stem \push #'direction = #1
+ \property Voice.NoteColumn \push #'horizontal-shift = #2
+ ais\arpeggio
+ }
+
+ \context Voice=four {
+ \property Voice.Stem \push #'direction = #-1
+ \property Voice.NoteColumn \push #'horizontal-shift = #-1
+ fis\arpeggio
+ }
+>
+
+
+\score{
+ \notes \transpose c'' {
+ \context Voice < fis''-\arpeggio g d a >
+ \context Voice < fis,-\arpeggio g d a >
+ \context Voice < fis''-\arpeggio g d a >
+ \hairyChord
+ }
+ \paper {
+ linewidth = -1.;
+ \translator{
+ \StaffContext
+ connectArpeggios = ##t
+ }
+ }
+}
\paper{
linewidth=80.0\mm;
- \translator { \VoiceContext noAutoBeaming = "1"; }
+ \translator { \VoiceContext noAutoBeaming = ##t; }
\translator { \HaraKiriStaffContext }
\translator { \OrchestralScoreContext skipBars = 1; }
}
% half diminished chords
c:m5-.7 % slashed o = m7b5
-c:9.3-.5- % ø7(pure 9)
+c:9.3-.5- % o/7(pure 9)
% diminished chords
c:m5-.7- % o = diminished seventh chord
stems_.push (info.elem_l_);
}
- else
-
- /*
- We can't catch local key items from Voice context, but let's leave
- it here in case someone moves this stuff around. */
- if (Rhythmic_head::has_interface (info.elem_l_)
- || Local_key_item::has_interface (info.elem_l_))
+ /*
+ We can't catch local key items (accidentals) from Voice context,
+ see Local_key_engraver
+ */
+ else if (Rhythmic_head::has_interface (info.elem_l_))
{
supports_.push (info.elem_l_);
}
arpeggio_ = new Item (get_property ("Arpeggio"));
arpeggio_->set_parent (stems_[0], Y_AXIS);
- // Staff_symbol_referencer::set_interface (arpeggio_);
-
for (int i = 0; i < stems_.size (); i++)
{
Pointer_group_interface::add_element (arpeggio_, "stems", stems_[i]);
- //Side_position::add_support (arpeggio_, stems_[i]);
}
for (int i = 0; i < supports_.size (); i++)
{
- ;//Side_position::add_support (arpeggio_, supports_[i]);
+ Side_position::add_support (arpeggio_, supports_[i]);
}
announce_element (arpeggio_, arpeggio_req_);
}
{
/*
Hmm. Which one has to be on the left?
+
+ On which left, code or paper?
+
+ (Arpeggios are engraved left of accidentals, of course.)
*/
for (int i=0; i < arpeggios_.size (); i++)
Side_position::add_support (arpeggios_[i], key_item_p_);
*/
#include "staff-symbol-referencer.hh"
#include "note-head.hh"
-#include "pitch-squash-engraver.hh"
#include "rhythmic-head.hh"
#include "engraver.hh"
;; See input/test/american-chords.ly
;;
;; James Hammons, <jlhamm@pacificnet.net>
+;;
+
+;; DONT use non-ascii characters, even if ``it works'' in Windows
(define chord::names-alist-american '())
(set! chord::names-alist-american
)
chord::names-alist-american))
-;; Jazz chords, by Atte Andr
é Jensen <atte@post.com>
+;; Jazz chords, by Atte Andr
'e Jensen <atte@post.com>
;; NBs: This uses the american list as a base.
;; Some defs take up more than one line,
;; be carefull when messing with ;'s!!
;;
;;
;;
+;; DONT use non-ascii characters, even if ``it works'' in Windows
+
(define chord::names-alist-jazz '())
(set! chord::names-alist-jazz
(append
;; diminished chord(s)
; diminished seventh chord = o
- ;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (((raise . 0.8)"o"))); works, but "o" is a little big
- (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("°")))
+
+
+ ;; DONT use non-ascii characters, even if ``it works'' in Windows
+
+ ;;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (((raise . 0.8)"o"))); works, but "o" is a little big
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ((raise . 0.8) (size . -2) ("o")))
;; half diminshed chords
; half diminished seventh chord = slashed o
- (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (((raise . 0.8)"ø"))); works, but "ø" is a little big
+ (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (((raise . 0.8)"/o")))
; half diminished seventh chord with major 9 = slashed o cancelation 9
(((0 . 0) (2 . -1) (4 . -1) (6 . -1) (1 . 0)) . (
- ((raise . 0.8)"ø(")
+ ((raise . 0.8)"/o(")
((raise . 0.3)(music (named ("accidentals-0"))))
- ((raise . 0.8)"9)"))); works, but "ø" is a little big
+ ((raise . 0.8)"9)")));
;; Missing jazz chord definitions go here (note new syntax: see american for hints)
--- /dev/null
+% dyn.tex
+
+\font\fetaelevenfont=feta-din11
+\font\fetathirteenfont=feta-din13
+\font\fetasixteenfont=feta-din16
+\font\fetatwentyfont=feta-din20
+\font\fetatwentythreefont=feta-din23
+\font\fetatwentysixfont=feta-din26
+
+\def\fetafont{\fetasixteenfont}
+
+\def\test#1{%
+ \hbox {%
+ \vrule height #1pt width 5pt
+ \hbox { pp p mp mf f ff }
+ \vrule height #1pt width 5pt
+ }
+
+}
+
+\def\testa#1{%
+ \hbox{
+ \vrule height #1pt width 5pt
+ \hbox { sf sp sfz rfz }
+ \vrule height #1pt width 5pt
+ }
+
+}
+
+\parindent0mm
+\magnification \magstep 2
+\baselineskip 10mm
+
+\fetaelevenfont \test{11}
+\fetathirteenfont \test{13}
+\fetasixteenfont \test{16}
+\fetatwentyfont \test{20}
+\fetatwentythreefont \test{23}
+\fetatwentysixfont \test{26}
+
+
+\let\test\testa
+\fetaelevenfont \test{11}
+\fetathirteenfont \test{13}
+\fetasixteenfont \test{16}
+\fetatwentyfont \test{20}
+\fetatwentythreefont \test{23}
+\fetatwentysixfont \test{26}
+
+\end
--- /dev/null
+% number.tex
+
+\font\fetaelevenfont=feta-nummer11
+\font\fetathirteenfont=feta-nummer13
+\font\fetasixteenfont=feta-nummer16
+\font\fetatwentyfont=feta-nummer20
+\font\fetatwentythreefont=feta-nummer23
+\font\fetatwentysixfont=feta-nummer26
+
+\def\fetafont{\fetasixteenfont}
+
+\def\test#1{%
+ \hbox {%
+ \vrule height #1pt width 5pt
+ \vbox{44}
+ \vrule height #1pt width 5pt
+ \hfill
+ }
+
+}
+
+\parindent0mm
+\magnification \magstep 2
+\baselineskip 10mm
+
+\fetaelevenfont \test{11}
+\fetathirteenfont \test{13}
+\fetasixteenfont \test{16}
+\fetatwentyfont \test{20}
+\fetatwentythreefont \test{23}
+\fetatwentysixfont \test{26}
+
+\end
projects / lilypond.git / commitdiff