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-2014 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
  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