help with grace positioning

[TaoCG]

I'm trying to typeset the following measure:
sf282.png <http://lilypond.1069038.n5.nabble.com/file/n134539/sf282.png>  

And that's the closest I got:
attempt.png <http://lilypond.1069038.n5.nabble.com/file/n134539/attempt.png>  

\version "2.16.0"

skipOnce =
{
  \once \override NoteColumn #'glissando-skip = ##t
  \once \override NoteHead #'transparent = ##t
}

\relative c''
{
  #(define afterGraceFraction (cons 1 5000))
  \times 2/3 { f8~ f4\glissando } \tupletDown
  \times 4/5 { \skipOnce e16 \afterGrace e4_( { e32[ f e])\glissando } }
\tupletNeutral
  \times 4/5 { \skipOnce f16 f4~ } f4~
}



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/help-with-grace-positioning-tp134539.html
Sent from the User mailing list archive at Nabble.com.