contrib/groff/contrib/chem/examples/122/ch4z1_eqn_glutamic.chem

   1 ch4z1_eqn_glutamic.chem:
   2 .br
   3 .EQ
   4 delim $$
   5 .EN
   6 .cstart
   7
   8 # Example file for `chem':
   9
  10 # This originates from Computing Science Technical Report No. 122
  11 #   CHEM - A Program for Typesetting Chemical Diagrams: User Manual
  12 #   by Jon L. Bentley, Lynn W. Jelinski, Brian W. Kernighan
  13 #   <http://cm.bell-labs.com/cm/cs/cstr/122.ps.gz>.
  14 # Some corrections were added.
  15
  16 # Copyright (C) 2006, 2009 Free Software Foundation, Inc.
  17
  18 # Last update: 5 Jan 2009
  19
  20 # This file is part of `chem', which is part of `groff'.
  21
  22 # `groff' is free software; you can redistribute it and/or modify it
  23 # under the terms of the GNU General Public License as published by
  24 # the Free Software Foundation, either version 3 of the License, or
  25 # (at your option) any later version.
  26
  27 # `groff' is distributed in the hope that it will be useful, but
  28 # WITHOUT ANY WARRANTY; without even the implied warranty of
  29 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  30 # General Public License for more details.
  31
  32 # You should have received a copy of the GNU General Public License
  33 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  34
  35 ########################################################################
  36
  37 # a left bracket
  38     bond right length .1 ; BP
  39     bond up length .3
  40     bond right length .1
  41     bond down length .3 from BP
  42     bond right length .1
  43 # this is the mainchain amide structure
  44     bond right length .1 from BP ; NH
  45     bond right ; CH
  46 # label the CH with an alpha, intended for eqn.
  47 # this line says "put the north edge of the alpha at the
  48 # south edge of the CH"
  49     "$alpha$" with .n at CH.s
  50     bond right from CH ; C
  51     double bond up from C ; O
  52     bond right length .1 from C ; BP
  53 # a right bracket
  54     bond up length .3
  55     bond left length .1
  56     bond right length .1 from BP
  57     bond down length .3 from BP ; BP
  58     bond left length .1
  59 # label the degree of polymerization
  60     "$n$" with .w at BP.se
  61 # this is the sidechain
  62     bond up from CH ; CH2
  63     "$beta$" with .e at CH2.w
  64     bond up from CH2 ; CH2
  65     "$gamma$" with .e at CH2.w
  66     bond up from CH2 ; C
  67 # this is the benzyl ester part
  68     double bond -60 from C ; O
  69     bond 60 from C ; O
  70     bond right ; CH2C6H5
  71
  72 ########################################################################
  73 ### Emacs settings
  74 # Local Variables:
  75 # mode: Nroff
  76 # End:
  77 .cend
  78 .EQ
  79 delim off
  80 .EN