.;  GREEKMATH.RNO - Charles Meyer - Rice University Chemical Engineering
.;                  Special setup for symbols and equations for LA100 printer
.ifnot greekmath		.; If already defined skip it
.flags substitute
.flags escape
.flags overstrike
.flags equation
.define subscript 27,'K'
.define superscript 27,'L'
.;	Set vertical motion to 8 lines/inch
.DEFINE ESCAPE "^!" LCK 27, 91, "2","z"
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\!" LCK 27, "[","0","z"
.;	Set vertical motion to 12 lines/inch 
.DEFINE ESCAPE "^?" LCK 27, "[","3","z"
.;	Set vertical motion to 6 lines/inch (normal setting)
.DEFINE ESCAPE "\?" LCK 27, "[","0","z"
.;	Set up references
.define escape "^-" LCK,CHR,27,"L",27,"n"
.define escape "\-" LCK,CHR,27,"K",14
.;
.;	Use single < or > to sub/superscript
.;
.FLAGS SPECIAL <
.FLAGS SPECIAL >
.;
.;	Define upper and lower case greek symbols
.;		"abbreviated"
.;
.DEFINE SUBSTITUTE /a$/^8a\8
.DEFINE SUBSTITUTE /b$/^8b\8
.DEFINE SUBSTITUTE /G$/^8G\8
.DEFINE SUBSTITUTE /g$/^8g\8
.DEFINE SUBSTITUTE /D$/^8D\8
.DEFINE SUBSTITUTE /d$/^8d\8
.DEFINE SUBSTITUTE /e$/^8e\8
.DEFINE SUBSTITUTE /z$/^8z\8
.DEFINE SUBSTITUTE /h$/^8f\8
.DEFINE SUBSTITUTE /Th$/^8H\8
.DEFINE SUBSTITUTE /th$/^8h\8
.DEFINE SUBSTITUTE /i$/^8i\8
.DEFINE SUBSTITUTE /k$/^8k\8
.DEFINE SUBSTITUTE /L$/^8L\8
.DEFINE SUBSTITUTE /l$/^8l\8
.DEFINE SUBSTITUTE /r$/^8r\8
.DEFINE SUBSTITUTE /S$/^8S\8
.DEFINE SUBSTITUTE /s$/^8s\8
.DEFINE SUBSTITUTE /t$/^8t\8
.DEFINE SUBSTITUTE /u$/^8u\8
.DEFINE SUBSTITUTE /Ph$/^8Q\8
.DEFINE SUBSTITUTE /ph$/^8q\8
.DEFINE SUBSTITUTE \ph2$\o%/
.DEFINE SUBSTITUTE /x$/^8c\8
.DEFINE SUBSTITUTE /Ps$/^8V\8
.DEFINE SUBSTITUTE /ps$/^8v\8
.DEFINE SUBSTITUTE /Om$/^8W\8
.DEFINE SUBSTITUTE /om$/^8w\8
.;
.;	Now full definition
.;
.DEFINE SUBSTITUTE /alpha$/^8a\8
.DEFINE SUBSTITUTE /beta$/^8b\8
.DEFINE SUBSTITUTE /Gamma$/^8G\8
.DEFINE SUBSTITUTE /gamma$/^8g\8
.DEFINE SUBSTITUTE /Delta$/^8D\8
.DEFINE SUBSTITUTE /delta$/^8d\8
.DEFINE SUBSTITUTE /epsilon$/^8e\8
.DEFINE SUBSTITUTE /zeta$/^8z\8
.DEFINE SUBSTITUTE /eta$/^8f\8
.DEFINE SUBSTITUTE /Theta$/^8H\8
.DEFINE SUBSTITUTE /theta$/^8h\8
.DEFINE SUBSTITUTE /iota$/^8i\8
.DEFINE SUBSTITUTE /kappa$/^8k\8
.DEFINE SUBSTITUTE /Lambda$/^8L\8
.DEFINE SUBSTITUTE /lambda$/^8l\8
.DEFINE SUBSTITUTE /mu$/^8m\8
.DEFINE SUBSTITUTE /nu$/^8n\8
.DEFINE SUBSTITUTE /Xi$/^8X\8
.DEFINE SUBSTITUTE /xi$/^8x\8
.DEFINE SUBSTITUTE /Pi$/^8P\8
.DEFINE SUBSTITUTE /pi$/^8p\8
.DEFINE SUBSTITUTE /rho$/^8r\8
.DEFINE SUBSTITUTE /Sigma$/^8S\8
.DEFINE SUBSTITUTE /sigma$/^8s\8
.DEFINE SUBSTITUTE /tau$/^8t\8
.DEFINE SUBSTITUTE /upsilon$/^8u\8
.DEFINE SUBSTITUTE /Phi$/^8Q\8
.DEFINE SUBSTITUTE /phi$/^8q\8
.DEFINE SUBSTITUTE /chi$/^8c\8
.DEFINE SUBSTITUTE /Psi$/^8V\8
.DEFINE SUBSTITUTE /psi$/^8v\8
.DEFINE SUBSTITUTE /Omega$/^8W\8
.DEFINE SUBSTITUTE /omega$/^8w\8
.;
.;	Script symbols
.;
.DEFINE SUBSTITUTE /reg$/^8M\8
.DEFINE SUBSTITUTE /copy$/^8N\8
.DEFINE SUBSTITUTE /tm$/^8__\8
.DEFINE SUBSTITUTE /para$/^8_|\8
.DEFINE SUBSTITUTE /sect$/^8_\\8
.define substitute /l'/^8j\8
.;
.;	Scientific symbol del
.;
.DEFINE SUBSTITUTE /del$/^8I\8
.;
.;	Foreign language symbol should appear in front of letter to be marked
.;
.DEFINE SUBSTITUTE /umlaut$/^8;\8%
.DEFINE SUBSTITUTE /uml$/^8;\8%
.;	Define a dagger
.DEFINE SUBSTITUTE /dagger$/^8Z\8
.DEFINE SUBSTITUTE /dag$/^8Z\8
.;	Define a bullet
.DEFINE SUBSTITUTE /bul$/^8"\8
.;	Angstrom symbol
.DEFINE SUBSTITUTE /angstrom$/^8A\8
.DEFINE SUBSTITUTE /angs$/^8A\8
.DEFINE SUBSTITUTE /bar$/^8_(\8
.;	2 line bra,line, and ket
.DEFINE SUBSTITUTE /bar2$/^8<_(%>_(%>_(<\8
.;	Degree symbol
.DEFINE SUBSTITUTE /degree$/^8:\8
.DEFINE SUBSTITUTE /deg$/^8:\8
.;	Perpendicular symbol
.DEFINE SUBSTITUTE /perp$/^8(\8%__
.;	Partial derivative symbol
.DEFINE SUBSTITUTE /partial$/^8F\8
.DEFINE SUBSTITUTE /par$/^8F\8
.;
.;	less than or =, greater than or =, etc.
.;
.DEFINE SUBSTITUTE /<=$/^8J%_&\8
.DEFINE SUBSTITUTE />=$/^8K%_&\8
.DEFINE SUBSTITUTE /~=$/_~%^8_$\8
.DEFINE SUBSTITUTE /<$/^8J\8
.DEFINE SUBSTITUTE />$/^8K\8
.DEFINE SUBSTITUTE /ident$/^8B\8
.DEFINE SUBSTITUTE /plusmin$/^8_%\8
.DEFINE SUBSTITUTE /minplus$/8^_@\8
.DEFINE SUBSTITUTE /prop$/^8O\8
.DEFINE SUBSTITUTE /inf$/^8*\8
.;
.;	Arrows
.;
.DEFINE SUBSTITUTE /up$/^8E\8
.DEFINE SUBSTITUTE /down$/^8R\8
.DEFINE SUBSTITUTE /right$/^8Y\8
.DEFINE SUBSTITUTE /left$/^8T\8
.DEFINE SUBSTITUTE /dn$/^8R\8
.DEFINE SUBSTITUTE /rg$/^8Y\8
.DEFINE SUBSTITUTE /lf$/^8T\8
.;
.;	Large square brakets
.;		$[2$ are centered
.;
.DEFINE SUBSTITUTE /[2$/^8<_,%>_(>%_<\8<
.DEFINE SUBSTITUTE /]2$/^8<_.%>_(>%_>\8<
.DEFINE SUBSTITUTE /[3$/^8<<_,%>_(%>_(%>_(%>_<\8<<
.DEFINE SUBSTITUTE /]3$/^8<<_.%>_(%>_(%>_(%>_>\8<<
.DEFINE SUBSTITUTE /[4$/^8<<<_,%>_(%>_(%>_(%>_(%>_(%>_<\8<<<
.DEFINE SUBSTITUTE /]4$/^8<<<_.%>_(%>_(%>_(%>_(%>_(%>_>\8<<<
.DEFINE SUBSTITUTE /[5$/^8<<<<_,%>_(%>_(%>_(%>_(%>_(%>_(%>_(>%_<\8<<<<
.DEFINE SUBSTITUTE /]5$/^8<<<<_.%>_(%>_(%>_(%>_(%>_(%>_(%>_(>%_>\8<<<<
.comment; large parenthses
.DEFINE SUBSTITUTE /(2$/^8<_[%>_(>%_{\8<
.DEFINE SUBSTITUTE /)2$/^8<_]%>_(>%_}\8<
.DEFINE SUBSTITUTE /(3$/^8<<_[%>_(%>_(%>_(%>_{\8<<
.DEFINE SUBSTITUTE /)3$/^8<<_]%>_(%>_(%>_(%>_}\8<<
.DEFINE SUBSTITUTE /(4$/^8<<<_[%>_(%>_(%>_(%>_(%>_(%>_{\8<<<
.DEFINE SUBSTITUTE /)4$/^8<<<_]%>_(%>_(%>_(%>_(%>_(%>_}\8<<<
.DEFINE SUBSTITUTE /(5$/^8<<<<_[%>_(%>_(%>_(%>_(%>_(%>_(%>_(>%_{\8<<<<
.DEFINE SUBSTITUTE /)5$/^8<<<<_]%>_(%>_(%>_(%>_(%>_(%>_(%>_(>%_}\8<<<<
.comment; large brackets
.DEFINE SUBSTITUTE /{2$/^8<_[%>_?>%_{\8<
.DEFINE SUBSTITUTE /}2$/^8<_]%>_/>%_}\8<
.DEFINE SUBSTITUTE /{3$/^8<<_[%>_(%>_?%>_(%>_{\8<<
.DEFINE SUBSTITUTE /}3$/^8<<_]%>_(%>_/%>_(%>_}\8<<
.DEFINE SUBSTITUTE /{4$/^8<<<_[%>_(%>_(%>_?%>_(%>_(%>_{\8<<<
.DEFINE SUBSTITUTE /}4$/^8<<<_]%>_(%>_(%>_/%>_(%>_(%>_}\8<<<
.DEFINE SUBSTITUTE /{5$/^8<<<<_[%>_(%>_(%>_(%>_?%>_(%>_(%>_(>%_{\8<<<<
.DEFINE SUBSTITUTE /}5$/^8<<<<_]%>_(%>_(%>_(%>_/%>_(%>_(%>_(>%_}\8<<<<
.;
.;	Large integral sign
.;
.DEFINE SUBSTITUTE /int$/^8_)\8
.DEFINE SUBSTITUTE /int2$/^8<_=>%_(>%_+<\8
.DEFINE SUBSTITUTE /int4$/^8^)<=>%_(>%_(>%_(>%_(>%_(>%_+^)<\8
.;
.;	Large summation symbol
.;
.DEFINE SUBSTITUTE /sum$/^8>_~%^)_`>\8\!
.DEFINE SUBSTITUTE /sq$/^8!\8
.DEFINE SUBSTITUTE /sq1,1$/^8!%>_#_$%<\8
.DEFINE SUBSTITUTE /sq1,2$/^8!%>_#_$_$%%<\8
.DEFINE SUBSTITUTE /sq1,3$/^8!%>_#_$_$_$%%%<\8
.DEFINE SUBSTITUTE /sq1,4$/^8!%>_#_$_$_$_$%%%%<\8
.DEFINE SUBSTITUTE /sq1,5$/^8!%>_#_$_$_$_$_$%%%%%%<\8
.DEFINE SUBSTITUTE /sq1,6$/^8!%>_#_$_$_$_$_$_$%%%%%%<\8
.DEFINE SUBSTITUTE /sq2,1$/^8!%>_(%>_(%>_#_$%<^)\8
.DEFINE SUBSTITUTE /sq2,2$/^8!%>_(%>_(%>_#_$_$%%<^)\8
.DEFINE SUBSTITUTE /sq2,3$/^8!%>_(%>_(%>_#_$_$_$%%%<^)\8
.DEFINE SUBSTITUTE /sq2,4$/^8!%>_(%>_(%>_#_$_$_$_$%%%%<^)\8
.DEFINE SUBSTITUTE /sq2,5$/^8!%>_(%>_(%>_#_$_$_$_$_$%%%%%<^)\8
.DEFINE SUBSTITUTE /sq2,6$/^8!%>_(%>_(%>_#_$_$_$_$_$_$%%%%%%<^)\8
.DEFINE SUBSTITUTE /sq2,8$/^8!%>_(%>_(%>_#_$_$_$_$_$_$_$_$%%%%%%%%<^)\8
.variant greekmath
.endif greekmath