1chAe_chair.chem:
2.br
3.cstart
4
5# Example file for 'chem':
6
7# This originates from Computing Science Technical Report No. 122
8#   CHEM - A Program for Typesetting Chemical Diagrams: User Manual
9#   by Jon L. Bentley, Lynn W. Jelinski, Brian W. Kernighan
10#   <http://cm.bell-labs.com/cm/cs/cstr/122.ps.gz>.
11
12# Copyright (C) 2006-2018 Free Software Foundation, Inc.
13
14# This file is part of 'chem', which is part of 'groff'.
15
16# 'groff' is free software; you can redistribute it and/or modify it
17# under the terms of the GNU General Public License (GPL) version 2 as
18# published by the Free Software Foundation.
19
20# 'groff' is distributed in the hope that it will be useful, but
21# WITHOUT ANY WARRANTY; without even the implied warranty of
22# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
23# General Public License for more details.
24
25# You should have received a copy of the GNU General Public License
26# along with this program.  If not, see <http://www.gnu.org/licenses/>.
27
28# The GPL2 license text is available in the internet at
29# <http://www.gnu.org/licenses/gpl-2.0.html>.
30
31########################################################################
32
33pic define chair { [
34    V1: bond 120 length .25
35    V2: bond right length .35
36    V3: bond 150 length .35
37    V4: bond -60 length .25
38    V5: bond left length .35
39    V6: bond to V1.start
40pic ] }
41R1: chair
42R2: chair with .V1 at R1.V4.start
43bond 60 from R2.V4.start ; CH3
44bond down from R2.V4.start ; OH
45
46########################################################################
47### Emacs settings
48# Local Variables:
49# mode: Nroff
50# End:
51.cend
52