diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:40:57 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:40:57 +0000 |
| commit | 26230a416563decd82a0af827c0987b8628c5ef9 (patch) | |
| tree | ff226c95db8ba7104bc0f8b1d16a3a4b481c6949 /include/diagf.lpg | |
| parent | 51fe0cfa3e3ba27f55ff7d14a7fe077cc31ed0b7 (diff) | |
| download | lout-26230a416563decd82a0af827c0987b8628c5ef9.tar.gz | |
Lout 3.34.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@37 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/diagf.lpg')
| -rw-r--r-- | include/diagf.lpg | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/include/diagf.lpg b/include/diagf.lpg index 76bb0b5..63cd684 100644 --- a/include/diagf.lpg +++ b/include/diagf.lpg @@ -3187,6 +3187,17 @@ ldiagdict begin 0 0 xsize ysize 0.5 mul 0 ysize } def +% shape and labels of the @SolidWithBarArrowHead symbol +% <pathwidth> ldiagsolidwithbararrowhead - +/ldiagsolidwithbararrowhead +{ + /pathwidth exch def + /XBK [ xsize pathwidth 0.5 mul sub ] cvx def + /XFW [ xsize pathwidth 0.5 mul add ] cvx def + 0 0 XBK ysize 0.5 mul XBK 0 XFW 0 XFW ysize + XBK ysize XBK ysize 0.5 mul 0 ysize 0 0 +} def + % shape and labels of the @OpenArrowHead symbol % <pathwidth> ldiagopenarrowhead - /ldiagopenarrowhead |