diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:14 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:14 +0000 |
| commit | f7f41daa27e7ccff0aa184cc81e80b9c96e3d761 (patch) | |
| tree | 3e81dfa2c263c20d7c9307a175b71ee6b7a5fd39 /include/diagf.lpg | |
| parent | 26230a416563decd82a0af827c0987b8628c5ef9 (diff) | |
| download | lout-f7f41daa27e7ccff0aa184cc81e80b9c96e3d761.tar.gz | |
Lout 3.35.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@39 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/diagf.lpg')
| -rw-r--r-- | include/diagf.lpg | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/include/diagf.lpg b/include/diagf.lpg index 63cd684..f266960 100644 --- a/include/diagf.lpg +++ b/include/diagf.lpg @@ -3306,5 +3306,31 @@ ldiagdict begin 0 0 } def +% shape and labels of the @ManyArrowHead symbol +% <pathwidth> ldiagmanyarrowhead - +/ldiagmanyarrowhead +{ + /pathwidth exch def + /LL [ 0 ysize 2 div pathwidth 2 div sub ] cvx def + /LU [ 0 ysize 2 div pathwidth 2 div add ] cvx def + LL + xsize 0 + xsize pathwidth + LU + LL + [] + LL + xsize LL exch pop + xsize LU exch pop + LU + LL + [] + LL + xsize ysize pathwidth sub + xsize ysize + LU + LL +} def + end %%EndResource |