2013/04/21

4/27近況、4/29絹に泥

近況 vol.49
4/27(土)於 東京文化会館4F音楽鑑賞室(上野)
18時半頃開演 入場無料

コサカイフミオ(非常階段/インキャパシタンツ/宇宙エンジン)
やましん
しばてつ
池田拓実


絹に泥 vol.3
4/29(月・祝)
Cafe FLYING TEAPOT(江古田)
開場19:00 開演19:30 
1500円+オーダー

池田拓実・梅原貴久duo
comugico audio deathmarch (yuki kaneko / asuka tanaka)
Dave McMahon・梅原貴久duo

DJ: yuki kaneko (balen disc, polyphonic parachute)

2013/04/20

coloring notes



\version "2.16.0"

#(define-public ((color-notehead nnn) grob)
   
   (define color-mapping
     (vector
      (list
       (cons (ly:make-pitch 0 0 0) (rgb-color 1 .5 0))
       (cons (ly:make-pitch 0 4 0) (rgb-color .3 .7 0))
       )
      (list
       (cons (ly:make-pitch 0 1 0) (rgb-color 1 0 1))
       (cons (ly:make-pitch 0 5 0) (rgb-color .5 0 1))
       )
      )
     )
   
   (define (pitch-to-color pitch)
     (let*
      (
       (vvv (vector-ref color-mapping nnn))
       (ccc (assoc pitch vvv))
       )
      (if ccc
          (cdr ccc))
      )
     )
   
   (pitch-to-color
    (ly:event-property (event-cause grob) 'pitch))
   )

aaa = \relative c' { c8 d e f g a b c }

\score {
  <<
    \new Staff <<
      \override Staff.NoteHead #'color = #(color-notehead 0)
      \aaa
    >>
    \new Staff <<
      \override Staff.NoteHead #'color = #(color-notehead 1)
      \aaa
    >>
  >>
}

cf. Coloring notes depending on their pitch
http://lsr.dsi.unimi.it/LSR/Item?id=572

staff paper


click to download