Lemzwerg: Lemzwerg moved page Circle of Fifths to Circle of fifths without leaving a redirect: Only the first letter of a title should be uppercase

2025-11-24T05:25:07Z

Lemzwerg moved page Circle of Fifths to Circle of fifths without leaving a redirect: Only the first letter of a title should be uppercase

← Older revision	Revision as of 05:25, 24 November 2025
(No difference)

Lemzwerg: New category

2025-11-21T23:16:51Z

New category

← Older revision		Revision as of 23:16, 21 November 2025
Line 238:		Line 238:
	</lilypond>		</lilypond>

	[[Category:Editorial annotations]][[Category:Snippet]]		[[Category:Editorial annotations]]
			[[Category:Snippet]]

Lemzwerg at 22:49, 21 November 2025

2025-11-21T22:49:37Z

← Older revision		Revision as of 22:49, 21 November 2025
Line 238:		Line 238:
	</lilypond>		</lilypond>

	[[Category:Editorial annotations]]		[[Category:Editorial annotations]][[Category:Snippet]]

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

2025-11-16T18:47:28Z

Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

← Older revision		Revision as of 18:47, 16 November 2025
Line 6:		Line 6:
	<code>\markup \move-and-scale \QuiZi #0.8 #40</code>		<code>\markup \move-and-scale \QuiZi #0.8 #40</code>

	<lilypond version="2.24.0">		<lilypond version="2.24">
	\language "deutsch"		\language "deutsch"
	%%		%%

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:49:28Z

Import snippet from LSR

New page

There is no problem, just a solution ;-) 
This is just a gimmick: a circle of fifths drawn with Lilypond. 
Usage: 
<code>\QuiZi</code> 
or if you want to change size and position: 
<code>\markup \move-and-scale \QuiZi #0.8 #40</code>

<lilypond version="2.24.0">
\language "deutsch"
%%
%% http://lsr.di.unimi.it/LSR/Item?id=1040
%% created by Manuela
%% thanks to the German forum http://www.lilypondforum.de
%% feel free to change and distribute
%%
%% draw a circle of fifths with Lilypond
%% in the style like here https://commons.wikimedia.org/wiki/File:Quintenzirkeldeluxe.png
%% you can use more Scheme if you like
%% e.g. drawing the ticker lines with whitening cirle as one graph
%% needs no include files

%% creating the score snippets
%% we remove some items not needed

\layout {
indent = #0
\context {
\Staff
\omit TimeSignature
\omit BarLine
explicitClefVisibility = #end-of-line-invisible
explicitKeySignatureVisibility = #end-of-line-invisible
\remove "Accidental_engraver"
}
\context {
\Voice
\omit NoteHead
\omit Stem
}
\context {
\Score
\override BarNumber.break-visibility = #all-invisible
\override KeyCancellation.break-visibility = #'#(#f #f #f)
}
}

%% define score snippets als markups
%% in order of appearance

CDur=\markup \score { { \key c \major g'4 } \layout { } }
GDur=\markup \score { { \key g \major g'4 } \layout { } }
DDur=\markup \score { { \key d \major g'4 } \layout { } }
ADur=\markup \score { { \key a \major g'4 } \layout { } }
EDur=\markup \score { { \key e \major g'4 } \layout { } }
HDur=\markup \score { { \key h \major g'4 } \layout { } }
FisDur=\markup \score { { \key fis \major g'4 } \layout { } }
GesDur=\markup \score { { \key ges \major g'4 } \layout { } }
DesDur=\markup \score { { \key des \major g'4 } \layout { } }
AsDur=\markup \score { { \key as \major g'4 } \layout { } }
EsDur=\markup \score { { \key es \major g'4 } \layout { } }
BDur=\markup \score { { \key b \major g'4 } \layout { } }
FDur=\markup \score { { \key f \major g'4 } \layout { } }

#(define (st-rot stencil myangle)
;; just for shortening the code
(ly:stencil-rotate stencil myangle 0 0))

#(define (x-width mystencil)
(let* ((x-ext (ly:stencil-extent mystencil X)))
(- (cdr x-ext) (car x-ext))))

#(define (y-width mystencil)
(let* ((y-ext (ly:stencil-extent mystencil Y)))
(- (cdr y-ext) (car y-ext))))

#(define (bogen winkel)
(* ( / winkel 180) PI))

#(define (kreis-punkt radius winkel)
;; this function returns the coordinates of a point on a circumference
;; as pair depending on radius and angle
;; like a clock: start at midnight ;-)
;; winkel = angle (in degrees)
;; '(x . y)
(let* ((wiboma (bogen winkel)) ;; calculate angle as radian measure
(x-sin (sin wiboma))
(y-cos (cos wiboma))
(x-cor (* x-sin radius))
(y-cor (* y-cos radius)))
(cons x-cor y-cor)))

#(define (mittel-punkt stencil)
;; returns the coordinates of the middle of the stencil als pair
;; '( x-middle . y-middle)
(let*
((x-li (car (ly:stencil-extent stencil X)))
(x-re (cdr (ly:stencil-extent stencil X)))
(y-li (car (ly:stencil-extent stencil Y)))
(y-re (cdr (ly:stencil-extent stencil Y))))
(cons (/ (+ x-li x-re) 2) (/ (+ y-li y-re) 2))))

#(define (move-to-circle radius winkel stencil)
;; move a stencil to the edge of a cirle
;; depending on radius and angle
;; the arithmetic middle of the stenil coordinates is the reference point
;; which is moved with its `mittel-punkt' to `kreis-punkt'
(let* ((mittel (mittel-punkt stencil))
(mittel-x (car mittel))
(mittel-y (cdr mittel))
(kreis (kreis-punkt radius winkel))
(kreis-x (car kreis))
(kreis-y (cdr kreis)))
(ly:stencil-translate stencil
(cons
(- kreis-x mittel-x)
(- kreis-y mittel-y)))))

#(define-markup-command (move-markup layout props mymark radius winkel)
(markup? number? number?)
(move-to-circle radius winkel (interpret-markup layout props mymark)))

#(define (move-to-circle-x radius winkel stencil delta)
;; move stencil down (at six)
;; winkel=0: left aligned
;; winkel<>0: right aligned
;; just for Fis/Ges Dur needed
;; two scales at six
(let* ((mittel (mittel-punkt stencil))
(mittel-x (car mittel))
(mittel-y (cdr mittel))
(kreis (kreis-punkt radius winkel))
(kreis-x (car kreis))
(kreis-y (cdr kreis)))
(if (= winkel 0)
(ly:stencil-translate stencil
(cons
(+ (* -2 mittel-x) delta)
(* radius -1)))
(ly:stencil-translate stencil
(cons
delta
(* radius -1))))))

#(define-markup-command (move-markup-x layout props mymark radius winkel delta)
(markup? number? number? number?)
(move-to-circle-x radius winkel (interpret-markup layout props mymark) delta))

#(define-markup-command (move-and-scale layout props mymark faktor x-offset)
(markup? number? number?)
(ly:stencil-translate
(ly:stencil-scale
(interpret-markup layout props mymark)
faktor faktor)
(cons x-offset 0))
)

#(define QC-radius 30) %% inner radius of the cirle
#(define Abstand 1.45) %% try what looks best
#(define ticker-len 1.07)
#(define outer-radius (* QC-radius Abstand)) %% outer radius
#(define Dur-radius (* QC-radius 1.16)) %% try what looks best
#(define moll-radius (/ QC-radius 1.3)) %% try what looks best

#(define ticker-line
;; this is the archetype of the ticker lines
;; that connect the majors with the minors
;; I combine six of them rotated at 30, 60, ... degrees
(make-filled-box-stencil (cons -0.1 0.1)
(cons (* -1 QC-radius ticker-len) (* QC-radius ticker-len))))

%%%% Remark
%% While 2.20.-update use markup-command \overlay instead of
%% multiple \combine
QuiZi=
\markup {
%% Score snippets
\combine \move-markup \GDur #outer-radius #30
\combine \move-markup \DDur #outer-radius #60
\combine \move-markup \ADur #outer-radius #90
\combine \move-markup \EDur #outer-radius #120
\combine \move-markup \HDur #outer-radius #150
\combine \move-markup-x \FisDur #outer-radius #180 #0.5
\combine \move-markup-x \GesDur #outer-radius #0 #-0.5
\combine \move-markup \DesDur #outer-radius #210
\combine \move-markup \AsDur #outer-radius #240
\combine \move-markup \EsDur #outer-radius #270
\combine \move-markup \BDur #outer-radius #300
\combine \move-markup \FDur #outer-radius #330
%% ticker lines
\combine \stencil \ticker-line
\combine \stencil #(st-rot ticker-line 30)
\combine \stencil #(st-rot ticker-line 60)
\combine \stencil #(st-rot ticker-line 90)
\combine \stencil #(st-rot ticker-line 120)
\combine \stencil #(st-rot ticker-line 150)
%% whiten the interior of the circle
\with-color #white
\combine \draw-circle #(/ QC-radius ticker-len) #0 ##t
%% add major letters in blue
\with-color #blue
\abs-fontsize #22 \bold
\combine \move-markup \circle "C" #Dur-radius #0
\combine \move-markup "G" #Dur-radius #30
\combine \move-markup "D" #Dur-radius #60
\combine \move-markup "A" #Dur-radius #90
\combine \move-markup "E" #Dur-radius #120
\combine \move-markup "H" #Dur-radius #150
\combine \move-markup "Ges/Fis" #Dur-radius #180
\combine \move-markup "Des" #Dur-radius #210
\combine \move-markup "As" #Dur-radius #240
\combine \move-markup "Es" #Dur-radius #270
\combine \move-markup "B" #Dur-radius #300
\combine \move-markup "F" #Dur-radius #330
\with-color #red
\combine \move-markup \circle "a" #moll-radius #0
\combine \move-markup "e" #moll-radius #30
\combine \move-markup "h" #moll-radius #60
\combine \move-markup "fis" #moll-radius #90
\combine \move-markup "cis" #moll-radius #120
\combine \move-markup "gis" #moll-radius #150
\combine \move-markup "es/dis" #moll-radius #180
\combine \move-markup "b" #moll-radius #210
\combine \move-markup "f" #moll-radius #240
\combine \move-markup "c" #moll-radius #270
\combine \move-markup "g" #moll-radius #300
\combine \move-markup "d" #moll-radius #330
\abs-fontsize #30
\with-color #blue
\combine \move-markup "Dur" #outer-radius #0
\with-color #red
\combine \move-markup "Moll" #(* moll-radius 0.6) #0
\with-color #black
\draw-circle #QC-radius #0.5 ##f

}
%% usage example
\markup \move-and-scale \QuiZi #0.8 #40
</lilypond>

[[Category:Editorial annotations]]

Circle of fifths - Revision history

Lemzwerg: Lemzwerg moved page Circle of Fifths to Circle of fifths without leaving a redirect: Only the first letter of a title should be uppercase

Lemzwerg: New category

Lemzwerg at 22:49, 21 November 2025

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

Jean Abou Samra: Import snippet from LSR