%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "snippets/creating-a-sequence-of-notes-on-various-pitches.ly"
\sourcefileline 0
%% DO NOT EDIT this file manually; it was automatically
%% generated from the LilyPond Snippet Repository
%% (http://lsr.di.unimi.it).
%%
%% Make any changes in the LSR itself, or in
%% `Documentation/snippets/new/`, then run
%% `scripts/auxiliar/makelsr.pl`.
%%
%% This file is in the public domain.

\version "2.23.13"

\header {
%% Translation of GIT committish: f11513f36c131dab18338d6a3a729e24a927150d
  texidocja = "
同じ音符列が異なる音高で複数出現する音楽では、次の音楽関数が@c
便利です。これは音符を引数として取り、その音高のみが使用されます。@c
この例では Holst の The Planets の一曲、Mars に使用されるリズムを作り出して@c
います。
"
  doctitleja = "異なるピッチの音符列を作成する"

%% Translation of GIT committish: a3fd5364fc4f247579da0ed2bfea887ab37285c6
  texidocfr = "
Lorsque la musique comporte à de nombreuses reprises une même séquence
sur des hauteurs différentes, la fonction musicale ci-dessous peut
s'avérer fort utile. Elle considère une note dont seule la hauteur est
utilisée.

Cet exemple reproduit le rythme utilisé tout au long de « Mars », l'une
des pièces de l'œuvre de Gustav Holst « Les planètes ».
"

  doctitlefr = "Création d'une séquence de notes de même hauteur"

%% Translation of GIT committish: 0c00cd98e81b27325bed5891b950fe7f0f0ebe5d
  texidoces = "
En una música que tenga muchas apariciones de la
misma secuencia de notas a distintas alturas, podría ser de
utilidad la siguiente función musical.  Admite una nota, de la que
sólo se utiliza su altura.  Las funciones de apoyo en Scheme se
han tomado prestadas del documento de \"Consejos y trucos\"de la
versión 2.10 del manual.  Este ejemplo crea las duraciones
rítmicas que se usan a todo lo largo de «Marte», de «Los Planetas»
de Gustav Holst.

"
  doctitlees = "Crear una secuencia de notas a distintas alturas"

%% Translation of GIT committish: e115f1949f9f63d5faee3369fbf2094c54966f9f
  texidocca = "
En una música que tingui moltes aparicions de la mateixa seqüència
de notes a diferents altures, podria ser d'utilitat la següent
funció musical.  Admet una nota, de la qual sols s'utilitza la
seva alçada.  Les funcions de suport a l'Scheme s'han agafat
prestades del document de \"Consells i ajustament\" de la versió
2.10 del manual.  Aquest exemple crea les duracions rítmiques que
s'usen a tot el llarg de «Mart», de «Els Planetes» de Gustav Holst.

"
  doctitleca = "Crear una seqüència de notes a diferents alçades"

  lsrtags = "pitches, real-music, really-cool, scheme-language"

  texidoc = "
In music that contains many occurrences of the same sequence of notes
at different pitches, the following music function may prove
useful.  It takes a note, of which only the pitch is used.

This example creates the rhythm used throughout @emph{Mars}, from
Gustav Holst's @emph{The Planets}.
"

  doctitle = "Creating a sequence of notes on various pitches"
} % begin verbatim


rhythm =
#(define-music-function (p) (ly:pitch?)
   "Make the rhythm in Mars (the Planets) at the given pitch"
  #{ \tuplet 3/2 { $p 8 8 8 } 4 4 8 8 4 #})

\new Staff {
  \time 5/4
  \rhythm c'
  \rhythm c''
  \rhythm g
}



% ****************************************************************
% end ly snippet
% ****************************************************************
