%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


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

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



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  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 Wiki
%% (https://wiki.lilypond.community).
%%
%% Make any changes in the Wiki itself, or in
%% `Documentation/snippets/new/`, then run
%% `scripts/auxiliar/makelsr.pl`.
%%
%% This file is in the public domain.

\version "2.24.0"

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

%% Translation of GIT committish: de1e42ce512f3690387cdd065109bddff1b7bd6d
  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: 4f16fa98fd258f08e64203c793028ea3e363b1c0
  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 solo 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 @emph{Marte}, de @emph{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"

  categories = "Pitches, Real music, Really cool, Scheme"

  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
% ****************************************************************