Adding upstream version 1.23.0.upstream/1.23.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 52 insertions, 0 deletions

diff --git a/contrib/chem/examples/penicillin.chem b/contrib/chem/examples/penicillin.chem
new file mode 100644
index 0000000..ef522bc
--- /dev/null
+++ b/contrib/chem/examples/penicillin.chem
@@ -0,0 +1,52 @@
+penicillin.chem:
+.cstart
+
+# Example file for 'chem':
+#    Penicillin or C16_H18_N2_O4_S or
+#    3,3-dimethyl-6-oxo-7-(2-phenylacetyl)amino-2-thia-5-
+#      azabicyclo[3.2.0]heptane-4-carboxylic acid
+
+# Found at http://www.chemindustry.com/apps/chemicals.
+
+# Copyright (C) 2006-2020 Free Software Foundation, Inc.
+# Written by Bernd Warken <groff-bernd.warken-72@web.de>.
+
+# This file is part of 'chem', which is part of 'groff'.
+
+# 'groff' is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License (GPL) version 2 as
+# published by the Free Software Foundation.
+
+# 'groff' 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, see <http://www.gnu.org/licenses/>.
+
+# The GPL2 license text is available in the internet at
+# <http://www.gnu.org/licenses/gpl-2.0.html>.
+
+R1:	flatring5 pointing up put S at 1 put N at 4
+	bond 45 at R1.V2
+	bond 135 at R1.V2
+	bond 120 at R1.V3
+D1:	doublebond 45 ; O
+	bond 135 at D1.start ; OH
+	bond left at R1.N
+	doublebond -135 ; O
+	bond left at R1.V5
+B1:	bond down length .3
+	bond -60 at B1.start ; N
+	bond up ; H
+	bond -120 at N
+D2:	doublebond down ; O
+	bond -60 at D2.start
+	bond -120
+	benzene
+
+# Local Variables:
+# mode: Nroff
+# End:
+.cend