summaryrefslogtreecommitdiff
path: root/fonts/greenpoint
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/greenpoint
Initial commit
Diffstat (limited to 'fonts/greenpoint')
-rw-r--r--fonts/greenpoint/ChangeLog8
-rw-r--r--fonts/greenpoint/README34
-rw-r--r--fonts/greenpoint/greenpoint.mf65
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.