#(define-public (extended-dynamic-absolute-volume s)
  ;; debugging:
  ;(write s )(newline)
  (cond
   ((string? s )
    (default-dynamic-absolute-volume s))
   ((rational? s)
    (exact->inexact s))
   ((number? s )
    s)
   (else throw "this will never happen" )))

vel = #(define-event-function (velocity)(number?)
  #{ 
  	 \tweak stencil #'()
      $(make-music 
        'AbsoluteDynamicEvent 
        'text velocity 
        'direction 1)
  #})

\score {
  {
    c'\vel 0.2
    d'\vel 0.4
    e'\vel 0.6
    f'\vel 0.8
  }
  \layout { }
  \midi {
    \context {
      \Score
      dynamicAbsoluteVolumeFunction = #extended-dynamic-absolute-volume
    }
  }
}