[prev in list] [next in list] [prev in thread] [next in thread]
List: lilypond-user-fr
Subject: =?UTF-8?Q?Lilypond_en_mode_pr=c3=a9sentation_=28slideshow=29?=
From: survoje <survoje () free ! fr>
Date: 2020-06-17 9:37:23
Message-ID: 2377fc61-17b1-37d4-d116-ef89115cbbe1 () free ! fr
[Download RAW message or body]
Bonjour tout le monde,
Comme je n'ai rien trouvé sur ce sujet, je fais part ici d'une
utilisation possible de Lilypond en mode "présentation", c'est-à -dire
comme powerpoint, impress, beamer...Le principe : utilisation de
bookpart pour chaque diapo, compilation en PDF, visualisation en mode
"présentation".
Les deux ECM joints montrent ce qui pourrait être des exemples
d'utilisation en cours collectif avec projection sur écran et
explication du maître. N'étant pas prof, ce sont juste des exemples, je
ne sais pas si ça aurait un intérêt.
Le 3ème source (Air de Sanz) montre par contre une utilisation
personnelle en mode présentation sur écran pc. L'idée est de travailler
progressivement un morceau, "phrase par phrase", en boucle, avec
utilisation de la barre d'espace ou des flèches pour changer de diapo.
Je ne développe pas plus pour ne pas surcharger ce message. Il y a
beaucoup à dire sur mes méthodes employées (différentes pour l'ECM et
l'air de Sanz), sur le code, j'aimerai éviter que ça "saute" d'une diapo
à l'autre, etc. Il y a beaucoup de choses dans le LSR qui pourraient
agrémenter une présentation (couleur, flèche, carré, cercle, surlignage,
positionnement des textes, etc.)
Bref, si ça intéresse, on peut développer la discussion... et développer
cette idée de Lilypond en mode présentation.
Cordialement !
Gérard
(ps : j'avais fait un précédent envoi de ce message avec des pdf en
pièces jointes... Ne le voyant pas repasser, j'ai supprimé ces pdf en
supposant que le problème venait de là : pièces jointes trop importantes)
["Lilypond_mode-presentation_ECM.ly" (text/x-lilypond)]
\version "2.20.0"
\header {
title = "Les intervalles"
subsubtitle = " "
composer = ""
arranger = " "
piece = " "
tagline = " "
}
%--- réglage taille diapo, utilisé dans le \layout
#(set! paper-alist (cons '("format" . (cons (* 20 cm) (* 15 cm))) paper-alist))
%--- feuille de portées 8 mesures vides
vide = {\repeat unfold 4 { s1}\break
\repeat unfold 4 {s1}}
global= {
\time 4/4
\clef "treble_8"
\key c \major}
%---- diapo 1
melodie = \relative c {
\voiceOne % pour la liaison au-dessus des notes
c2_"intervalle de seconde"( d2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
\markup {\vspace #3 " " \null}
\markup \fill-line {
\center-column {
\box \with-color #blue \pad-markup #4 "On nomme intervalle la distance qui sépare 2 sons "
}
}
}
%---- diapo 2
melodie = \relative c {
\voiceOne
c2 d2
c2_"intervalle de tierce"( e2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 3
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2_"intervalle de quarte"( f2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 3
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2 f2
c2_"intervalle de quinte"( g'2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 5
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2 f2
c2 g'2
c,2_"intervalle de sixte"( a'2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 6
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2 f2
c2 g'2
c,2 a'2
c,2_"intervalle de septième"( b'2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 7
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2 f2
c2 g'2
c,2 a'2
c,2 b'2
c,2_"l'octave"( c'2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 8
melodie = \relative c {
\voiceOne
c2 d2
c2 e2
c2 f2
c2 g'2
c,2 a'2
c,2 b'2
c,2 b'2
c,2_"la neuvième"( d'2)
}
\bookpart{
\score{<<
\global
\context Voice = mel {\vide}
\context Voice = mel {\melodie }
>>
\layout {
#(set-default-paper-size "format")
}
}
}
%---- diapo 9
melodie = \relative c {
\voiceOne
c2( d2)_"seconde"
c2( e2_"tierce")
c2( f2_"quarte")
c2( g'2_"quinte")\break
c,2( a'2_"sixte")
c,2( b'2_"7ème")
c,2( c'2_"octave")
c,2( d'2_"9ème")
}
melOne = \relative c' {
\voiceOne
c2_"intervalle ascendant"( f2)
}
melTwo = \relative c' {
\voiceOne
e'2_"intervalle descendant"( g,2)
}
\bookpart{
\score{<<
\global
\context Voice = melodie {\melodie}
>>
}
\markup {
\override #'(line-width . 90) % <= Ã ajuster
\fill-line {
\override #'(baseline-skip . 13)
\left-column {
{
\score {
{ c'2(-"intervalle ascendant" f') }
\layout {
indent = 0
ragged-right = ##f
line-width = 50
}
}
\score {
{ e''2(-"intervalle descendant" g') }
\layout {
indent = 0
ragged-right = ##f
line-width = 50
}
}
}
}
\hspace #20 % <= Ã ajuster
\column {
}
}
}
}
%---- diapo 10
melodie = \relative c {
\voiceOne
c2( d2)_"seconde"
c2( e2_"tierce")
c2( f2_"quarte")
c2( g'2_"quinte")\break
c,2( a'2_"sixte")
c,2( b'2_"7ème")
c,2( c'2_"octave")
c,2( d'2_"9ème")
}
melOne = \relative c' {
\voiceOne
c2_"intervalle ascendant"( f2)
}
melTwo = \relative c' {
\voiceOne
e'2_"intervalle descendant"( g,2)
}
\bookpart{
\score{<<
\global
\context Voice = melodie {\melodie}
>>
}
\markup {
\override #'(line-width . 90) % <= Ã ajuster
\fill-line {
\override #'(baseline-skip . 13)
\left-column {
{
\score {
{ c'2(-"intervalle ascendant" f') }
\layout {
indent = 0
ragged-right = ##f
line-width = 50
}
}
\score {
{ e''2(-"intervalle descendant" g') }
\layout {
indent = 0
ragged-right = ##f
line-width = 50
}
}
}
}
\hspace #20 % <= Ã ajuster
\column {
\vspace #0 % % <= Ã ajuster
{
\line {un intervalle \bold simple}
\line {n'excède pas l'étendue d'une octave}
\line{" "}
\line{" "}
\line{un intervalle \bold redoublé}
\line{excède l'étendue d'une octave (ex : la 9ème)}}
}
}
}
}
["Lilypond_mode-presentation_ECM2.ly" (text/x-lilypond)]
\version "2.20.0"
\header {
title = "Exercice n °3"
subsubtitle = " "
composer = ""
arranger = " "
piece = " "
poet = "Donner les tonalités majeures indiquées par les armures suivantes :"
tagline = " "
}
%--- réglage taille diapo, utilisé dans le \layout
#(set! paper-alist (cons '("format" . (cons (* 20 cm) (* 15 cm))) paper-alist))
%---- diapo 11 Exercices
melodie = \relative c' {
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\override Staff.Clef #'color = #(x11-color 'grey60)
\key c \major
e4 d f g
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'full-size-change = ##t
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key d \major
a4 g fis e
%-----------------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar " "
\key a \major
e4 d fis gis
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar " "
\key g \major
a4 g fis e
}
melodieTwo = \relative c' {
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\override Staff.Clef #'color = #(x11-color 'grey60)
\key aes \major
ees4 des f g
%-----------
\stopStaff s1 \startStaff
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\once \override Staff.Clef #'full-size-change = ##t
\clef treble
\bar ""
\key f \major
a4 g f e
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\key ees \major
\bar ""
ees4 d f g
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key bes \major
a4 g f ees
}
\bookpart{
\score{<<
\context Voice = melodie {\melodie}
>>
\layout {
#(set-default-paper-size "format")}
}
\score{<<
\context Voice = melodie {\melodieTwo}
>>
}
}
%---- diapo 12 Solutions
melodie = \relative c' {
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\override Staff.Clef #'color = #(x11-color 'grey60)
\key c \major
e4_"DO" d f g
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'full-size-change = ##t
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key d \major
a4_"RÉ" g fis e
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key a \major
e4_"LA" d fis gis
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key g \major
a4_"SOL" g fis e
}
melodieTwo = \relative c' {
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\override Staff.Clef #'color = #(x11-color 'grey60)
\key aes \major
ees4_"LAb" des f g
%-----------
\stopStaff s1 \startStaff
\set Staff.printKeyCancellation = ##f
\override Staff.TimeSignature #'stencil = ##f
\once \override Staff.Clef #'full-size-change = ##t
\clef treble
\bar ""
\key f \major
a4_"FA" g f e
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key ees \major
ees4_"Mib" d f g
%-----------
\stopStaff s1 \startStaff
\once \override Staff.Clef #'extra-offset = #'(1 . 0)
\once \override Staff.Clef #'break-visibility = #all-visible
\clef treble
\bar ""
\key bes \major
a4_"SIb" g f ees
}
\bookpart{
\score{<<
\context Voice = melodie {\melodie}
>>
\layout {
#(set-default-paper-size "format")}
}
\score{<<
\context Voice = melodie {\melodieTwo}
>>
}
}
["Sanz_Book_Air-de-danse.ly" (text/x-lilypond)]
\version "2.20.0"
%======Sanz_1
\header {
title = "Air de danse"
subsubtitle = " Partie A "
composer = "G. Sanz"
arranger = "Tablature guitare"
piece = " "
tagline = " "
}
#(set! paper-alist (cons '("format" . (cons (* 20 cm) (* 15 cm))) paper-alist))
%--- gestion couleur
#(define (override-color-for-all-grobs color)
(lambda (context)
(let loop ((x all-grob-descriptions))
(if (not (null? x))
(let ((grob-name (caar x)))
(ly:context-pushpop-property context grob-name 'color color)
(loop (cdr x)))))))
couleur = {\applyContext #(override-color-for-all-grobs (x11-color 'blue))
}
pascouleur = {\applyContext #(override-color-for-all-grobs (x11-color 'black))
}
%---------------
global= {
\time 4/4
\clef "treble_8"
\key d \major}
%----- Air de danse (Sanz)
pouce = \relative c {
\voiceTwo
d1 d1 d2 fis4 e4 d1 \break
d1 d1 d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
d4.-2 cis8-1 d4-2 e4\2-4
fis8 g fis e d4 e4
fis4 d a' g
fis8 g fis e d2
d4. cis8 d4 e4
fis8 g fis e d4 e4
fis1 <cis e>2 s2 }
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts" \doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}
}
%============= Sanz Phrase 1
pouce = \relative c {
\voiceTwo
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d1 d1
\hideNotes d2 fis4 e4 d1 \break
d1 d1 d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
%\melodie
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d4.( cis8 d4 \tweak color #red e4\2
fis8 g fis \tweak color #red e\2 d4)
\hideNotes e4
fis4 d a' g
fis8 g fis e d2
d4. cis8 d4 e4
fis8 g fis e d4 e4
fis1 <cis e>2 s2
}
%---------------------------------------
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts" \doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}
%----- note
\markup{\line{"jouer le mi sur la corde 2"}}
}
%===========Sanz Phrase 2
pouce = \relative c {
\voiceTwo
d1 d1
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d2 fis4-3 e4-1 d1 \break
\hideNotes
d1 d1 d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
d4.( cis8 d4 e4\2
fis8 g fis e\2 d4)
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
e4 (
fis4 d a' g
fis8 g fis \tweak color #red e\2 d2)
\hideNotes
d4. cis8 d4 e4
fis8 g fis e d4 e4
fis1 <cis e>2 s2
}
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
%}
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts" \doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}
}
%===== Sanz Phrase 3
pouce = \relative c {
\voiceTwo
d1 d1
d2 fis4 e4 d1 \break
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d1 d1
\hideNotes
d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
d4.( cis8 d4 e4\2
fis8 g fis e\2 d4)
e4 (
fis4 d a' g
fis8 g fis e\2 d2)
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d4.( cis8 d4 \tweak color #red e4\2
fis8 g fis \tweak color #red e\2 d4 ) e4
\hideNotes
fis1 <cis e>2 s2
}
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts}
\context Voice = "le pouce" \pouce
>>
%}
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts" \doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}
\markup{\line{"répétition de la phrase 1"}}
}
%=========Sanz Phrase 4
pouce = \relative c {
\voiceTwo
d1 d1
d2 fis4 e4 d1 \break
d1 d1
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
d4. e8 fis4 gis4
a2 a,2
}
doigts = \relative c' {
\voiceOne
%\melodie
d4.( cis8 d4 e4\2
fis8 g fis e\2 d4)
e4 (
fis4 d a' g
fis8 g fis e d2)
d4.( cis8 d4 e4
fis8 g fis e d4 ) e4
\applyContext #(override-color-for-all-grobs (x11-color 'blue))
fis1 <cis e>2 s2
}
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts" \doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}}
%===== partie A complète Sanz_1
pouce = \relative c {
\voiceTwo
d1 d1 d2 fis4 e4 d1 \break
d1 d1 d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
d4.-2 cis8-1 d4-2 e4\2-4
fis8 g fis e d4 e4
fis4 d a' g
fis8 g fis e d2
d4. cis8 d4 e4
fis8 g fis e d4 e4
fis1 <cis e>2 s2 }
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
\new TabStaff = "guitare TAB" <<
\tabFullNotation
\context TabVoice = "le pouce" \pouce
\context TabVoice = "les doigts"
\doigts
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}}
%===== sans tablature
pouce = \relative c {
\voiceTwo
d1 d1 d2 fis4 e4 d1 \break
d1 d1 d4. e8 fis4 gis4 a2 a,2
}
doigts = \relative c' {
\voiceOne
d4.-2 cis8-1 d4-2 e4\2-4
fis8 g fis e\2 d4 e4
fis4 d a' g
fis8 g fis e d2
d4. cis8 d4 e4\2
fis8 g fis e\2 d4 e4
fis1 <cis e>2 s2 }
\bookpart{
\score{<<
\new StaffGroup = "classique et Tab" <<
\new Staff = "guitare traditionnelle" <<
\global
\context Voice = mel {\doigts }
\context Voice = "le pouce" \pouce
>>
>>
>>
\layout {
#(set-default-paper-size "format")
indent = 0
\context {
\RhythmicStaff
\remove "Time_signature_engraver"
\remove "Clef_engraver"
\override BarLine.transparent = ##t
\override StaffSymbol.line-count = #0
}
\context {
\StaffGroup
\override StaffGrouper.staff-staff-spacing =
#'((basic-distance . 5)
(minimum-distance . 3)
(padding . 0))
}
}
\midi{}
}
}
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic