|
From: | David Nalesnik |
Subject: | Re: Postsctipt arrows |
Date: | Fri, 13 Mar 2015 21:56:54 -0500 |
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 addsqrt def/angle dy dx atan def/base arrowlength headlength sub def/savematrix mtrx currentmatrix deftailx taily translate angle rotate0 halfthickness neg movetobase halfthickness neg lineto base halfheadthickness neg lineto arrowlength 0 linetobase halfheadthickness lineto base halfthickness lineto0 halfthickness linetoclosepathsavematrix setmatrix end} def"myarrow = #(string-append arrowdef " 0 0 20 4 0.3 1.2 1.2 arrow stroke"){c-\markup { \postscript #myarrow }}
[Prev in Thread] | Current Thread | [Next in Thread] |