contrib/groff/contrib/chem/examples/122/ch4h_methacrylate.chem

   1 ch4h_methacrylate.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     bond dotted
  34     bond right ; BP
  35     bond up from BP ; C
  36     double bond -60 from C ; O
  37     bond 60 length .1 from C ; OCH3
  38     bond down from BP ; CH3
  39 # begin second segment of polymer
  40     bond right length .5 from BP ; BP
  41     bond up length .1 from BP ; H
  42     bond down length .1 from BP ; H
  43 # begin third segment of polymer
  44     bond right length .5 from BP ; BP
  45     bond up from BP ; C
  46     double bond -60 from C ; O
  47     bond 60 length .1 from C ; OCH3
  48     bond down from BP ; CH3
  49 # begin fourth segment of polymer
  50     bond right length .5 from BP ; BP
  51     bond up length .1 from BP ; H
  52     bond down length .1 from BP ; H
  53 # begin fifth segment of polymer
  54     bond right length .5 from BP ; BP
  55     bond up from BP ; C
  56     double bond -60 from C ; O
  57     bond 60 length .1 from C ; OCH3
  58     bond down from BP ; CH3
  59     bond right from BP
  60     bond dotted
  61
  62 ########################################################################
  63 ### Emacs settings
  64 # Local Variables:
  65 # mode: Nroff
  66 # End:
  67 .cend