Re: Postsctipt arrows

[David Nalesnik]

On Fri, Mar 13, 2015 at 9:27 PM, David Nalesnik <address@hidden> wrote:

On Fri, Mar 13, 2015 at 9:24 PM, David Nalesnik <address@hidden> wrote:

On Fri, Mar 13, 2015 at 8:31 PM, Andrew Bernard <address@hidden> wrote:

Why do I get the feeling nobody is going to answer this? In all seriousness, I don’t know enough about lilypond to know if this is even possible or not, which is a dark state of ignorance. If the Scheme gods could let me know if I am barking up an entirely impossible tree, that may save me from wandering in the wilderness. The archives seem very silent on this topic.

Look for the documentation of the \postscript command to get you started: http://lilypond.org/doc/v2.19/Documentation/notation/graphic

David 

Oh, oops, I see that you referenced that command.  Sorry, don't think I can be of much help here.

Spoke too soon:

 \version "2.19.16"

arrowdef = "/arrowdict 14 dict def arrowdict begin

/mtrx matrix def end

/arrow

{ arrowdict begin

/headlength exch def /halfheadthickness exch 2 div def /halfthickness exch 2 div def

/tipy exch def /tipx exch def

/taily exch def /tailx exch def

/dx tipx tailx sub def

/dy tipy taily sub def

/arrowlength dx dx mul dy dy mul add

sqrt def

/angle dy dx atan def

/base arrowlength headlength sub def

/savematrix mtrx currentmatrix def

tailx taily translate angle rotate

0 halfthickness neg moveto

base halfthickness neg lineto base halfheadthickness neg lineto arrowlength 0 lineto

base halfheadthickness lineto base halfthickness lineto

0 halfthickness lineto

closepath

savematrix setmatrix end

} def" 

myarrow = #(string-append arrowdef " 0 0 20 4 0.3 1.2 1.2 arrow stroke")

{

  c-\markup { \postscript #myarrow }

}