.ifnot greekmath .variant greekmath .; .; .; This file defines a whole set of fonts for the LN-03 .; AUTHOR: .; John Clement .; Bonner Lab, Rice Univ. .; Houston, Tx. .; The definitions are intended to be compatible with .; TEDI .; TEDI is a text fomatter written at Los Alamos National Lab .; by Clair Nielson .; .; Define TEDI specific commands .; Define TEDI specific header level formats .list 0 .display elements D .list 0 .display elements LU .list 0 .display elements LL .list 0 .display elements RU .list 0 .display elements RL .els 0.els 0.els 0.els 0.els 0 .; .; Define Tedi "like" page numbers .; .display number "-" "-" .layout 1 .RESET ESCAPE .; Reset default escape seq .no flags underline .no flags uppercase .no flags lowercase .no flags accept .no flags space .no flags substitute .no flags break .no flags hyphenate .flags overstrike \ .flags tab ! .flags hyphenate ~ .flags space _ .flags accept @ .flags equation .define escape "^]" VSP 1 27 "K" .; Subscript .define subscript 27 "K" .define escape "^[" VSP -1 27 'L' .; Superscript .define superscript 27 'L' .define escape "^<" 27 "[4m" .; Begin underlining .define escape "^>" 27 "[24m" .; End underlining .define escape "^|" 8 27 "K"27 "K~" 27 "L" 27 "L" .; define underscoring with ~ .define var spac 4 27 "[11h" 27 "[16a" 27 "[11l" .flags special []|<> .FLAGS ESCAPE & .ENABLE ESCAPE .; Large round and square brakets .DEFINE ESCAPE "&(",HSP,1,,27 ")>" 14,27 'K,'8,27 'L' 27'L+' 27'K',15 .DEFINE ESCAPE "&)",HSP,1,,27 ")>" 14,27 'K.'8,27 'L' 27'L-' 27'K',15 .DEFINE ESCAPE "&{",HSP,1,,27 ")>" 14,27 'K,'8,27 'L/'8, 27'L+' 27'K',15 .DEFINE ESCAPE "&}",HSP,1,,27 ")>" 14,27 'K.'8,27 'L0' 8, 27'L-' 27'K',15 .DEFINE ESCAPE "&[",HSP,1,,27 ")>" 14,27 'K('8,27 'L' 27"L'" 27'K',15 .DEFINE ESCAPE "&]",HSP,1,,27 ")>" 14,27 'K*'8,27 'L' 27'L)' 27'K',15 .DEFINE ESCAPE "&+",HSP,1,27 ")>" 14,'j',15 .; +- sumbol .DEFINE ESCAPE "&.",HSP,1,27 ")<" 14,'7',15 .; BULLET .DEFINE ESCAPE "&/",HSP,1,'/' .; Slash through .DEFINE ESCAPE "&<",HSP,1,27 ")>" 14,'<',15 .; LEq less than or = .DEFINE ESCAPE "&>",HSP,1,27 ")>" 14,'>',15 .; Gte grtr or = .DEFINE ESCAPE "&=",HSP,1,27 ")>" 14,'O',15 .; Equivalent .DEFINE ESCAPE "&@",HSP,1,27 ")>" 14,'I',15 .; Approx equal =~ .DEFINE ESCAPE "&_",HSP,1,27 ")>" 14,'{',15 .; Arrows Left .DEFINE ESCAPE "&\",HSP,1,27 ")>" 14,'}',15 .; Right .DEFINE ESCAPE "&^",HSP,1,27 ")>" 14,'|',15 .; Up .DEFINE ESCAPE "&,",HSP,1,27 ")>" 14,'~',15 .; Down .; .; .; .DEFINE ESCAPE "&A",HSP,1,27 ")<" 14,'E',15 .;Angstrom .DEFINE ESCAPE "&B",HSP,1,">" 8 "|" .; ?? .define escape "&C",hsp,1,27 ")>" 14,'C',15 .; Psi .DEFINE ESCAPE "&D",HSP,1,27 ")>" 14,'D',15 .;Delta .DEFINE ESCAPE "&E",HSP,1,27 ")>" 14,'O',15 .;Identity == .DEFINE ESCAPE "&F",HSP,1,27 ")>" 14,'F',15 .;Phi .DEFINE ESCAPE "&G",HSP,1,27 ")>" 14,'G',15 .;Gamma .DEFINE ESCAPE "&H",HSP,1,27 ")>" 14,'J',15 .; Theta .DEFINE ESCAPE "&I",HSP,1,27 ")>" 14,'?',15 .; Integral .DEFINE ESCAPE "&J",HSP,1,27 ")>" 14,'o',15 .; Partial differential .define escape "&K",HSP,1,"<",8,"|" .; ?? .DEFINE ESCAPE "&L",HSP,1,27 ")>" 14,'L',15 .; Lambda .DEFINE ESCAPE "&M",HSP,1,"{" .; ? .DEFINE ESCAPE "&N",HSP,1,"}" .; ? .DEFINE ESCAPE "&O",HSP,1,27 ")>" 14,'o',15 .; ?? .DEFINE ESCAPE "&P",HSP,1,27 ")>" 14,'P',15 .; Pi .DEFINE ESCAPE "&Q",HSP,1,27 ")>" 14,'\',15 .; ? .DEFINE ESCAPE "&R",HSP,1,27 ")>" 14,'V',15 .; Square root .DEFINE ESCAPE "&S",HSP,1,27 ")>" 14,'S',15 .; Sigma .DEFINE ESCAPE "&T",27 "K" "+" 27 "L" .; Lower plus .DEFINE ESCAPE "&U",HSP,1,27 ")>" 14,'Y',15 .; Upsilon .DEFINE ESCAPE "&V",HSP,1,27 ")>" 14,'E',15 .; Del .DEFINE ESCAPE "&W",HSP,1,27 ")>" 14,'W',15 .; Omega .define escape "&X",HSP,1,27 ")>" 14,'X',15 .; Xi .DEFINE ESCAPE "&Y",HSP,1,"^" .; carat .define escape "&Z",HSP,1,"~" .; Tilde .DEFINE ESCAPE "&a",HSP,1,27 ")>" 14,'a',15 .; alpha .DEFINE ESCAPE "&b",HSP,1,27 ")>" 14,'b',15 .; beta .DEFINE ESCAPE "&c",HSP,1,27 ")>" 14,'q',15 .; psi .DEFINE ESCAPE "&d",HSP,1,27 ")>" 14,'d',15 .;delta .DEFINE ESCAPE "&e",HSP,1,27 ")>" 14,'e',15 .; epsilon .DEFINE ESCAPE "&f",HSP,1,27 ")>" 14,'f',15 .; phi .DEFINE ESCAPE "&g",HSP,1,27 ")>" 14,'g',15 .; gamma .DEFINE ESCAPE "&h",HSP,1,27 ")>" 14,'j',15 .; theta .DEFINE ESCAPE "&i",HSP,1,27 ")>" 14,'i',15 .; iota .define escape "&j",hsp,1,27 ")>" 14,'u',15 .; ??? .DEFINE ESCAPE "&k",HSP,1,27 ")>" 14,'k',15 .; kappa .DEFINE ESCAPE "&l",HSP,1,27 ")>" 14,'l',15 .; lambda .DEFINE ESCAPE "&m",HSP,1,27 ")<" 14,'5',15 .; mu .DEFINE ESCAPE "&n",HSP,1,27 ")>" 14,'n',15 .; nu .DEFINE ESCAPE "&o",HSP,1,27 ")>" 14,'o',15 .; omicron .DEFINE ESCAPE "&p",HSP,1,27 ")>" 14,'p',15 .; pi .DEFINE ESCAPE "&q",HSP,1,27 ")>" 14,'c',15 .; Xi .DEFINE ESCAPE "&r",HSP,1,27 ")>" 14,'r',15 .; Rho .DEFINE ESCAPE "&s",HSP,1,27 ")>" 14,'s',15 .; Sigma .DEFINE ESCAPE "&t",HSP,1,27 ")>" 14,'t',15 .; Tau .define escape "&u",hsp,1,27 ")>" 14,'n',15 .; nu .DEFINE ESCAPE "&v",HSP,1,27 ")>" 14,'M',15 .; Double arrow <=> .DEFINE ESCAPE "&w",HSP,1,27 ")>" 14,'w',15 .; omega .DEFINE ESCAPE "&x",HSP,1,27 ")>" 14,'x',15 .; Xi .DEFINE ESCAPE "&y",HSP,1,27 ")>" 14,'h',15 .; eta .DEFINE ESCAPE "&z",HSP,1,27 ")>" 14,'z',15 .; Psi .; Large integral .DEFINE ESCAPE "&|",HSP,1,27 ")>" 14,27 "K%"8,27 "L" 27 "L$"27 "K" ,15 .DEFINE ESCAPE "&~",HSP,1,27 ")>" 14,'H',15 .; Approx .DEFINE ESCAPE "&!",HSP,1,27 ")0" 14,"v",15 .; Perp .DEFINE ESCAPE '&"',HSP,1,27 ")>" 14,";",15 .; ?? .DEFINE ESCAPE "&#",HSP,1,27 ")>" 14,"=",15 .; Not equal .DEFINE ESCAPE "&&",HSP,1,27 ")>" 14,"A",15 .; Approx equal .DEFINE ESCAPE "&-",HSP,1,27 ")>" 14,"u",15 .; ??? .define escape "&%",HSP,1,27 ")>" 14,"B",15 .; Infinity .define escape "&*",HSP,1,27 ")>" 14,"K",15 .; Times .define escape "&`",HSP,1,27 ")>" 14,"A",15 .; Proportional .DEFINE ESCAPE "&0",HSP,1,27,"[15m" 27"[1w",27 'L0' 27 "K" 27"[11m" .; 0 .DEFINE ESCAPE "&1",HSP,1,27,"[15m" 27"[1w",27 'L1' 27 "K" 27"[11m" .; 1 .DEFINE ESCAPE "&2",HSP,1,27,"[15m" 27"[1w",27 'L2' 27 "K" 27"[11m" .; 2 .DEFINE ESCAPE "&3",HSP,1,27,"[15m" 27"[1w",27 'L3' 27 "K" 27"[11m" .; 3 .DEFINE ESCAPE "&4",HSP,1,27,"[15m" 27"[1w",27 'L4' 27 "K" 27"[11m" .; 4 .DEFINE ESCAPE "&5",HSP,1,27,"[15m" 27"[1w",27 'L5' 27 "K" 27"[11m" .; 5 .DEFINE ESCAPE "&6",HSP,1,27,"[15m" 27"[1w",27 'L6' 27 "K" 27"[11m" .; 6 .DEFINE ESCAPE "&7",HSP,1,27,"[15m" 27"[1w",27 'L7' 27 "K" 27"[11m" .; 7 .DEFINE ESCAPE "&8",HSP,1,27,"[15m" 27"[1w",27 'L8' 27 "K" 27"[11m" .; 8 .DEFINE ESCAPE "&9",HSP,1,27,"[15m" 27"[1w",27 'L9' 27 "K" 27"[11m" .; 9 .define escape "&;",hsp,1,27 ")>" 14,"C",15 .; Divide by .DEFINE ESCAPE "&:",HSP,1,27 ")>" 14,"u",15 .; ??? .DEFINE ESCAPE "&?",HSP,1,"=" 8 "~" .; Approx equiv ==~ .DEFINE ESCAPE "&$",HSP,1,27 ")>" 14,'u',15 .; Large sigma .DEFINE ESCAPE "&'",HSP,1,"'" .; Proportional .enable command replacement .define command /EEQ/.restore status .eseq .define command /EQ/.save status .seq .define command /HN/number level .define command /VS/variable spacing .define command /FG/.text deferred .figure % .define command /EFG/.end text .define command /LM/page size ,,% .define command /RM/page size ,% .define command /P/.set paragraph .autoparagraph .no autohyphenate .define command /pg/number page & .page .define command /tp/Test text .define command /nnm/No numbering .define command /nm/number page .define command /ti/layout 0 .title .permanent footnote ________________ .end footnote .endif greekmath