\version "2.11.44"

%% my definition for easy writing of texts, symbols, midi effects, etc

%% tempo texts
prestoagitato = \markup { \bold \italic "Presto agitato" }
presto = \markup { \bold \italic "Presto" }
vivace = \markup { \bold \italic "Vivace" }
allegroassai = \markup { \bold \italic "Allegro assai" }
allegrobrio = \markup { \bold \italic "Allegro con brio" }
allegroanima = \markup { \bold \italic "Allegro con anima" }
allegro = \markup { \bold \italic "Allegro" }
allegretto = \markup { \bold \italic "Allegretto" }
moderato = \markup { \bold \italic "Moderato" }
andantemoderato = \markup { \bold \italic "Andante moderato" }
andante = \markup { \bold \italic "Andante" }
adagio = \markup { \bold \italic "Adagio" }
larghetto = \markup { \bold \italic "Larghetto" }
largo = \markup { \bold \italic "Largo" }
grave = \markup { \bold \italic "Grave" }

%% tempo changes
accel = \markup { \bold \italic "Accel." }
pocoaccel = \markup { \bold \italic "Accel. poco a poco" }
stretto = \markup { \bold \italic "Stretto" }
rit = \markup { \bold \italic "Rit." }
moltorit = \markup { \bold \italic "Molto rit." }
riten = \markup { \bold \italic "Riten." }
allarg = \markup { \bold \italic "Allarg." }
piumosso = \markup { \bold \italic "Più mosso" }
piulento = \markup { \bold \italic "Più lento" }
rapido = \markup { \bold \italic "Rapido" }
atempo = \markup { \bold \italic "A tempo" }

%% other texts
pont = \markup { \upright "Sul ponticello" }
cl = \markup { \bold \italic "Col legno battuto" }
clp = \markup { \bold \italic "C.L., Pont." }
piz = \markup { \bold "Pizz." }
arc = \markup { \bold "Arco" }
btk = \markup { \bold \italic "Bartok pizz." }

%% "noteheads only" for harp glissando
headsOn = \sequential {
  \override Dots #'transparent = ##t
  \override NoteHead #'no-ledgers = ##t
  \override Stem #'transparent = ##t
  \override Beam  #'transparent = ##t
}
headsOff = \sequential {
  \revert Dots #'transparent
  \revert NoteHead #'no-ledgers
  \revert Stem #'transparent
  \revert Beam #'transparent
}

%% hide and unhide time signature
hidetime = \sequential {
  \override Staff.TimeSignature #'stencil = ##f
}
unhidetime = \sequential {
  \revert Staff.TimeSignature #'stencil
}

%% chinese fonts selection (currently simfang.ttf GB2312 encoding only)
simfang = \override #'(font-name . "仿宋_GB2312")

%% special midi effects
mute = \set Staff.midiInstrument = "muted trumpet"
open = \set Staff.midiInstrument = "trumpet"
pizz = \set Staff.midiInstrument = "pizzicato strings"
arco = \set Staff.midiInstrument = "string ensemble 1"
vnarco = \set Staff.midiInstrument = "violin"
vlarco = \set Staff.midiInstrument = "viola"
vcarco = \set Staff.midiInstrument = "cello"
cbarco = \set Staff.midiInstrument = "contrabass"
legno = \set Staff.midiInstrument = "taiko drum"
bpizz = \set Staff.midiInstrument = "agogo"
tutti = \set Staff.midiInstrument = "string ensemble 1"

%% staff change
str = { \change Staff = rh }
stl = { \change Staff = lh }
stI = { \change Staff = one }
stII = { \change Staff = two }

%% bartok pizzicato
#(define-markup-command (bartokpizz layout props) ()
  (interpret-markup layout props
  (markup #:stencil
  (ly:stencil-translate-axis
  (ly:stencil-add
  (make-circle-stencil 0.7 0.1 #f)
  (ly:make-stencil
  (list 'draw-line 0.1 0 0.1 0 1)
   (-0.1 . 0.1) '(0.1 . 1)))
  0.7 X))))
bartok = \markup \bartokpizz

%% markuplist command \paragraph
#(define-markup-list-command (paragraph layout props args) (markup-list?)
  (let ((indent (chain-assoc-get 'par-indent props 2)))
  (interpret-markup-list layout props
  (make-justified-lines-markup-list (cons (make-hspace-markup indent)
  args)))))