contrib/groff/contrib/chem/examples/122/chAi_poly_vinyl_chloride.chem

   1 chAi_poly_vinyl_chloride.chem:
   2 .br
   3 .ps -2
   4 .cstart
   5
   6 # Example file for `chem':
   7
   8 # This originates from Computing Science Technical Report No. 122
   9 #   CHEM - A Program for Typesetting Chemical Diagrams: User Manual
  10 #   by Jon L. Bentley, Lynn W. Jelinski, Brian W. Kernighan
  11 #   <http://cm.bell-labs.com/cm/cs/cstr/122.ps.gz>.
  12
  13 # Copyright (C) 2006, 2009 Free Software Foundation, Inc.
  14
  15 # Last update: 5 Jan 2009
  16
  17 # This file is part of `chem', which is part of `groff'.
  18
  19 # `groff' is free software; you can redistribute it and/or modify it
  20 # under the terms of the GNU General Public License as published by
  21 # the Free Software Foundation, either version 3 of the License, or
  22 # (at your option) any later version.
  23
  24 # `groff' is distributed in the hope that it will be useful, but
  25 # WITHOUT ANY WARRANTY; without even the implied warranty of
  26 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  27 # General Public License for more details.
  28
  29 # You should have received a copy of the GNU General Public License
  30 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  31
  32 ########################################################################
  33
  34 db = .12
  35 cwid = .095
  36 A: [
  37       bond dotted
  38       bond right ; CH
  39       bond down ; Cl
  40       bond right from CH ; CH2
  41       bond ; CH
  42       bond down ; Cl
  43       bond right from CH ; CH2
  44       bond ; C.
  45       bond down ; Cl
  46       bond right from C ; CH2
  47       bond ; CH2
  48       bond down ; Cl
  49 ]
  50 "     (6.13a)" ljust at A.e
  51 arrow down .5 from A.s
  52 [
  53       CH2
  54       double bond right ; CHCl
  55 ] with .w at last arrow.c
  56 B: [
  57       bond dotted
  58       bond right ; CH
  59       bond down ; Cl
  60       bond right from CH ; CH2
  61       bond ; CH
  62       bond down ; Cl
  63       bond right from CH ; CH2
  64       bond ; C
  65       bond up ; Cl
  66       bond down from C ; CH2
  67       bond ; CH2Cl
  68       bond right from C ; CH2
  69       bond ; CH
  70       bond down ; Cl
  71       bond right from CH
  72       bond dotted
  73 ] with .n at end of last arrow
  74 "     (6.13b)" ljust at B.e
  75 C: [
  76       bond dotted
  77       bond right ; CH
  78       bond down ; Cl
  79       bond right from CH ; CH2
  80       bond ; C.
  81       bond down ; Cl
  82       bond right from C ; CH2
  83       bond ; CH
  84       bond down ; Cl
  85       bond right from CH ; CH2
  86       bond ; CH2
  87       bond down ; Cl
  88 ] with .n at B.s - (0,.5)
  89 "     (6.14a)" ljust at C.e
  90 arrow down .3 from C.s
  91 [
  92       CH2
  93       double bond right
  94       CHCl
  95 ] with .w at last arrow.s
  96 arrow down .3 from last arrow.s
  97
  98 D: [
  99       bond dotted
 100       bond right ; CH
 101       bond down ; Cl
 102       bond right from CH ; CH2
 103       bond ; C
 104       bond up ; Cl
 105       bond down from C ; CH2
 106       bond ; CHCl
 107       bond ; CH2
 108       bond ; CH2Cl
 109       bond right from C ; CH2
 110       bond ; CH
 111       bond down ; Cl
 112       bond right from CH ; CH2
 113       bond ; CH
 114       bond down ; Cl
 115       bond right from CH
 116       bond dotted
 117 ] with .n at last arrow.s
 118 "     (6.14b)" ljust at D.e
 119 E: [
 120       bond dotted
 121       bond ; CH
 122       bond down ; Cl
 123       bond right from CH ; CH2
 124       bond ; CH
 125       bond down ; Cl
 126       bond right from CH ; CH2
 127       bond ; CH
 128       bond down ; Cl
 129       bond right from CH ; CH2
 130       bond ; CH
 131       bond down ; Cl
 132 ] with .e at B.w - (.5,0)
 133
 134 arrow from E.ne to A.sw
 135 arrow from E.se to C.nw
 136
 137 ########################################################################
 138 ### Emacs settings
 139 # Local Variables:
 140 # mode: Nroff
 141 # End:
 142 .cend
 143 .ps +2