contrib/groff/contrib/chem/examples/122/chAf_arrow.chem

   1 chAf_arrow.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
  15 # Copyright (C) 2006, 2009 Free Software Foundation, Inc.
  16
  17 # Last update: 5 Jan 2009
  18
  19 # This file is part of `chem', which is part of `groff'.
  20
  21 # `groff' is free software; you can redistribute it and/or modify it
  22 # under the terms of the GNU General Public License as published by
  23 # the Free Software Foundation, either version 3 of the License, or
  24 # (at your option) any later version.
  25
  26 # `groff' is distributed in the hope that it will be useful, but
  27 # WITHOUT ANY WARRANTY; without even the implied warranty of
  28 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  29 # General Public License for more details.
  30
  31 # You should have received a copy of the GNU General Public License
  32 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  33
  34 ########################################################################
  35
  36     bond length .1 ; BP
  37     bond up length .5
  38     bond right
  39     bond down length .5 from BP
  40     bond right
  41     bond right from BP ; C
  42     double bond up ; O
  43     bond right from C
  44     benzene pointing right
  45     bond right ; C
  46     double bond up from C ; O
  47     bond right from C ; O
  48     bond right ; CH2
  49 # this is the statement to make the arrow
  50     line <- from CH2.s down
  51     move down .1 ; "0.085"
  52     CH2CH2CH2 right of CH2
  53     bond right ; O
  54     bond right length .1 ; BP
  55     bond up length .5 from BP
  56     bond left
  57     bond right length .1 from BP
  58     bond down length .5 from BP ; BP
  59     bond left
  60     "$n$" with .w at BP.se
  61
  62 ########################################################################
  63 ### Emacs settings
  64 # Local Variables:
  65 # mode: Nroff
  66 # End:
  67 .cend
  68 .EQ
  69 delim off
  70 .EN