contrib/groff/contrib/chem/examples/122/chAd_chlorophyll.chem

   1 chAd_chlorophyll.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, 2009 Free Software Foundation, Inc.
  13
  14 # Last update: 5 Jan 2009
  15
  16 # This file is part of `chem', which is part of `groff'.
  17
  18 # `groff' is free software; you can redistribute it and/or modify it
  19 # under the terms of the GNU General Public License as published by
  20 # the Free Software Foundation, either version 3 of the License, or
  21 # (at your option) any later version.
  22
  23 # `groff' is distributed in the hope that it will be useful, but
  24 # WITHOUT ANY WARRANTY; without even the implied warranty of
  25 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  26 # General Public License for more details.
  27
  28 # You should have received a copy of the GNU General Public License
  29 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  30
  31 ########################################################################
  32
  33     Mg
  34     bond 45 ; N
  35 R1: ring5 pointing up put N at 4 double 1,2 4,5 with .V4 at N
  36          bond up from R1.V1 ; CH3
  37          bond right from R1.V2 ; CH2CH3
  38     bond 135 from Mg ; N
  39 R2: ring5 pointing down put N at 3 double 1,2 4,5 with .V3 at N
  40          bond right from R2.V5 ; CH3
  41     bond 225 from Mg ; N
  42 R3: ring5 pointing down put N at 4 double 3,4 with .V4 at N
  43     bond -45 from Mg ; N
  44 R4: ring5 pointing up put N at 3 double 1,5 with .V3 at N
  45          bond left from R4.V5 ; H3C
  46          bond up from R4.V1 ; CH
  47          double bond right length .1 from CH ; CH2
  48     double bond 150 length .3 from R1.V3
  49     bond to R2.V4
  50 R5: ring5 pointing 72 with .V5 at R2.V2
  51          double bond 135 from R5.V2 ; O
  52          bond down from R5.V3 ; C
  53          double bond left length .1 from C ; O
  54          bond down from C ; O
  55          CH3 left of O
  56     double bond -25 from R5.V4
  57     bond down from R3.V1 ; CH2
  58     CH2 left of CH2
  59     bond left ; C
  60     double bond -45 ; O
  61     bond -135 from C ; C20H39O
  62     bond left from R3.V2 ; H3C
  63     double bond -150 length .3 from R4.V4
  64     bond to R3.V3
  65
  66 ########################################################################
  67 ### Emacs settings
  68 # Local Variables:
  69 # mode: Nroff
  70 # End:
  71 .cend