diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/greenpoint |
Initial commit
Diffstat (limited to 'fonts/greenpoint')
-rw-r--r-- | fonts/greenpoint/ChangeLog | 8 | ||||
-rw-r--r-- | fonts/greenpoint/README | 34 | ||||
-rw-r--r-- | fonts/greenpoint/greenpoint.mf | 65 |
3 files changed, 107 insertions, 0 deletions
diff --git a/fonts/greenpoint/ChangeLog b/fonts/greenpoint/ChangeLog new file mode 100644 index 0000000000..4fda668665 --- /dev/null +++ b/fonts/greenpoint/ChangeLog @@ -0,0 +1,8 @@ +Version 0.9.1 (August 31st, 2001) + + *) initial public release + +Version 1.0 (September 30th, 2003) + + *) refined symbol shape + *) more elaborate documentation diff --git a/fonts/greenpoint/README b/fonts/greenpoint/README new file mode 100644 index 0000000000..24134d0dd9 --- /dev/null +++ b/fonts/greenpoint/README @@ -0,0 +1,34 @@ +greenpoint.mf --- The Green Point in METAFONT. + +This is the logo of "Der Gruene Punkt" ("The Green Point"). It can be perceived +on nearly every bottle in Austria and probably in other parts of the world. It +should not be confused with the "Recycle"-logo, implemented in METAFONT by +Ian Green. + +You can use it in your documents like this: + + \font\gp=greenpoint + This is The Green Point: {\gp G}. + +To scale the symbol, use + + \font\gp=greenpoint at 20pt + +(or any other size you want - default is 10pt). + + + +The latest version of The Green Point will be available from + +http://triskam.virtualave.net/greenpoint/greenpoint.html + +and from http://www.ctan.org. + +For any comments, send e-mail to: triska@gmx.at + + +I want to thank Beate Edl for her sharp eye and her suggestions. + +Good luck, +Markus Triska. +September 30th, 2003. diff --git a/fonts/greenpoint/greenpoint.mf b/fonts/greenpoint/greenpoint.mf new file mode 100644 index 0000000000..5922e4ecd8 --- /dev/null +++ b/fonts/greenpoint/greenpoint.mf @@ -0,0 +1,65 @@ +% greenpoint.mf - "The Green Point" in METAFONT +% Copyright (C) 2001, 2003 Markus Triska +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 2 of the License, or +% (at your option) any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA +% +% Contact me at triska@gmx.at +% + +font_identifier := "GPOINT"; font_size 10pt#; + +mode_setup; + +% The breadth of the tip of the arrow on either side of the stem +side_breadth#:=.9pt#; +% The distance from the uppermost point of the stem to the boarder +boarder_dist#:=1.4pt#; +% The length of the tip of the arrow +tip_length#:=2.3pt#; +% The significance of the curvature of the tip of the arrow +curve_factor:=2.3; + +define_whole_vertical_pixels(boarder_dist, side_breadth); +define_whole_pixels(tip_length); + +beginchar("G", 8pt#, 8pt#, 0); +"The Green Point, version 1.0"; +pickup pencircle scaled .2pt; +% The surrounding circle +top z1' = (.5w, h); rt z2' = (w, .5h); bot z3' = (.5w, 0); lft z4' = (0, .5h); +path p; p = z1'{right}..{down}z2'..{left}z3'..{up}z4'..cycle; +draw p; + +path arc; +archeight = h - boarder_dist; +z4 = (.07w, .5archeight); +arc = (.5w, 0){left}..{up}z4..{right}(.5w, archeight); +fill arc--cycle; + +% The tip of the arrow +z1 = (.5w, archeight + side_breadth); +z2 = (.5w + tip_length, .5[y1, y3]); +z3 = (.5w, .5h - .5side_breadth); +path tip; +tip = z1{(curve_factor*(x2-x1), y2-y1)}..{(x2-x1, curve_factor*(y2-y1))}z2; +tip := tip & z2{(x3-x2, curve_factor*(y3-y2))}..{(curve_factor*(x3-x2), y3-y2)}z3--cycle; +fill tip; +labels(1, 2, 3, 4); +tip := tip rotatedaround ((.5w, .5h), 180); +unfill tip; +arc := arc rotatedaround((.5w, .5h), 180); +fill arc--(.5w, 0){right}..{up}(w, .5h)..{left}(.5w, h)..cycle; +endchar; +end. |