tmac/eqnrc

   1 .\"@ Startup file for eqn.
   2 .\"
   3 .\" Adapted to S-roff by Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   4 .
   5 .if !d EQ .ds EQ
   6 .if !d EN .ds EN
   7 .EQ
   8 sdefine << %{ < back 20 < }%
   9 sdefine >> %{ > back 20 > }%
  10
  11 sdefine dot %accent "\fR\(a.\fP"%
  12 sdefine dotdot %accent "\fR\(ad\fP"%
  13 sdefine vec %accent {up 52 "\s[\En[.s]/2u]\(->\s0"}%
  14 sdefine dyad %accent {up 52 "\s[\En[.s]/2u]\(<>\s0"}%
  15
  16 sdefine cdot %type "binary" \(md%
  17
  18 .\" Removed, but just leave them in here, just in case someone readds..
  19 ifdef X75 ! define X %1% !
  20 ifdef X100 ! define X %1% !
  21 ifdef X75-12 ! define X %1% !
  22 ifdef X100-12 ! define X %1% !
  23
  24 ifdef ps ! define ps|X|html %1% !
  25 ifdef X ! define ps|X|html %1% !
  26 ifdef html ! define ps|X|html %1% !
  27
  28 ifdef ps|X|html ! sdefine inf %"\s[\En[.s]*13u/10u]\v'12M'\(if\v'-12M'\s0"% !
  29
  30 ifdef dvi !
  31 sdefine int %{type "operator" vcenter \[integral]}%
  32 sdefine sum %{type "operator" vcenter \[sum]}%
  33 sdefine prod %{type "operator" vcenter \[product]}%
  34 sdefine coprod %{type "operator" vcenter \[coproduct]}%
  35 set num1 68
  36 set num2 39
  37 set denom1 69
  38 set denom2 34
  39 set sup1 41
  40 set sup2 36
  41 set sup3 29
  42 set sup_drop 39
  43 set sub_drop 5
  44 set axis_height 25
  45 set x_height 43
  46 set default_rule_thickness 4
  47 set big_op_spacing1 11
  48 set big_op_spacing2 16
  49 set big_op_spacing3 20
  50 set big_op_spacing4 60
  51 set big_op_spacing5 10
  52 !
  53
  54 ifdef X ! set axis_height 32 !
  55
  56 ifdef ps|X|html ! set draw_lines 1 !
  57
  58 ifdef ascii ! define n %1% !
  59 ifdef latin1 ! define n %1% !
  60 ifdef utf8 ! define n %1% !
  61 ifdef cp1047 ! define n %1% !
  62 ifdef n !
  63 set nroff 1
  64 !
  65
  66 undef X
  67 undef ps|X|html
  68 undef n
  69 .EN
  70 .
  71 .\" s-ts-mode