Path: utzoo!censor!geac!torsqnt!lethe!yunexus!ists!helios.physics.utoronto.ca!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!munnari.oz.au!metro!usage.csd.unsw.oz.au!mummy!bobm From: bobm@mummy.unsw.oz (Robert Marks) Newsgroups: comp.text Subject: Re: Oblique Greek Letters in Ditroff Summary: Complete set of oblique Greek letters for ditroff Message-ID: <1023@usage.csd.unsw.oz.au> Date: 9 Jan 91 03:10:40 GMT References: <1991Jan8.221651.10042@eagle.lerc.nasa.gov> Sender: news@usage.csd.unsw.oz.au Lines: 147 In article <1991Jan8.221651.10042@eagle.lerc.nasa.gov>, pstowne@zargon.lerc.nasa.gov (Charles E. Towne) writes: > Several months ago, in article <706@agsm.unsw.oz>, bobm@agsm.unsw.oz > (Robert Marks) posted an article showing how to use the \S slant > operator to get oblique greek letters in ditroff. In his post, he > included the following eqn definitions for the first four greek letters: > > define alpha % "\S'+15'\s-1\H'+1'\(*a\H'0'\s+1\S'0'\h'0.2n'" % > define beta % "\S'+15'\s-1\H'+1'\(*b\H'0'\s+1\S'0'\h'0.2n'" % > define gamma % "\S'+15'\s-1\H'+1'\(*g\H'0'\s+1\S'0'\h'0.4n'" % > define delta % "\S'+15'\s-1\H'+1'\(*d\H'0'\s+1\S'0'\h'0.3n'" % > > The \S'+15' results in letters printed at an oblique angle of 15 degrees. > The other operations alter the aspect ratio (for aesthetic reasons) and > add a slight space at the right of the character. > > Has anyone developed definitions like these for all the greek letters? > If so, could you email them to me, or post them? (I tried email to > Mr. Marks, but it bounced.) > > Since the above definitions are all the same, except for the amount of > space added at the right of the character, I could assume this is true > for the remaining letters, and experiment to get values for the \h values. > But if someone's already developed a set of definitions, I'd like to > try them. Thanks in advance. > > -- > Charlie Towne Email: pstowne@zargon.lerc.nasa.gov > MS 5-11 Phone: (216) 433-5851 > NASA Lewis Research Center > Cleveland, OH 44135 Here is the complete set I wrote for production of the Australian Journal of Management, with some additional symbols and definitions besides. (Although I haven't yet used groff 0.6 -- if Larry Wall has trouble compiling g++, what hope have the rest of us? -- I have read the manual entries, and I see that geqn has a much more elegant facility than definitions to obtain special words in roman font in equations; still, for what it's worth I've left these definitions in.) Robert MARKS, Australian Graduate School of Management, University of New South Wales, PO Box 1, Kensington, NSW 2033, Australia. Phone: +61 2 662-0271 Fax: +61 2 662-2451 Internet: bobm%agsm.unsw.oz.au define alpha % "\S'+15'\s-1\H'+1'\(*a\H'0'\s+1\S'0'\h'0.2n'" % define ALPHAit % "\S'+15'\s-1\H'+1'\(*A\H'0'\s+1\S'0'\h'0.1n'" % define beta % "\S'+15'\s-1\H'+1'\(*b\H'0'\s+1\S'0'\h'0.2n'" % define BETAit % "\S'+15'\s-1\H'+1'\(*B\H'0'\s+1\S'0'\h'0.2n'" % define gamma % "\S'+15'\s-1\H'+1'\(*g\H'0'\s+1\S'0'\h'0.4n'" % define GAMMAit % "\S'+15'\s-1\H'+1'\(*G\H'0'\s+1\S'0'\h'0.35n'" % define delta % "\S'+15'\s-1\H'+1'\(*d\H'0'\s+1\S'0'\h'0.3n'" % define DELTAit % "\S'+15'\s-1\H'+1'\(*D\H'0'\s+1\S'0'\h'0.1n'" % define epsilon % "\S'+15'\s-1\H'+1'\(*e\H'0'\s+1\S'0'\h'0.2n'" % define EPSILONit % "\S'+15'\s-1\H'+1'\(*E\H'0'\s+1\S'0'\h'0.25n'" % define zeta % "\S'+15'\s-1\H'+1'\(*z\H'0'\s+1\S'0'\h'0.3n'" % define ZETAit % "\S'+15'\s-1\H'+1'\(*Z\H'0'\s+1\S'0'\h'0.33n'" % define eta % "\S'+15'\s-1\H'+1'\(*y\H'0'\s+1\S'0'\h'0.17n'" % define ETAit % "\S'+15'\s-1\H'+1'\(*Y\H'0'\s+1\S'0'\h'0.28n'" % define theta % "\S'+15'\s-1\H'+1'\(*h\H'0'\s+1\S'0'\h'0.2n'" % define THETAit % "\S'+15'\s-1\H'+1'\(*H\H'0'\s+1\S'0'\h'0.2n'" % define iota % "\S'+15'\s-1\H'+1'\(*i\H'0'\s+1\S'0'\h'0.17n'" % define IOTAit % "\S'+15'\s-1\H'+1'\(*I\H'0'\s+1\S'0'\h'0.33n'" % define kappa % "\S'+15'\s-1\H'+1'\(*k\H'0'\s+1\S'0'\h'0.3n'" % define KAPPAit % "\S'+15'\s-1\H'+1'\(*K\H'0'\s+1\S'0'\h'0.33n'" % define lambda % "\S'+15'\s-1\H'+1'\(*l\H'0'\s+1\S'0'\h'0.2n'" % define LAMBDAit % "\S'+15'\s-1\H'+1'\(*L\H'0'\s+1\S'0'\h'0.1n'" % define mu % "\S'+15'\s-1\H'+1'\(*m\H'0'\s+1\S'0'\h'0.2n'" % define MUit % "\S'+15'\s-1\H'+1'\(*M\H'0'\s+1\S'0'\h'0.33n'" % define nu % "\S'+15'\s-1\H'+1'\(*n\H'0'\s+1\S'0'\h'0.25n'" % define NUit % "\S'+15'\s-1\H'+1'\(*N\H'0'\s+1\S'0'\h'0.33n'" % define xi % "\S'+15'\s-1\H'+1'\(*c\H'0'\s+1\S'0'\h'0.2n'" % define XIit % "\S'+15'\s-1\H'+1'\(*C\H'0'\s+1\S'0'\h'0.25n'" % define omicron % "\S'+15'\s-1\H'+1'\(*o\H'0'\s+1\S'0'\h'0.2n'" % define OMICRONit % "\S'+15'\s-1\H'+1'\(*O\H'0'\s+1\S'0'\h'0.2n'" % define pi % "\S'+15'\s-1\H'+1'\(*p\H'0'\s+1\S'0'\h'0.25n'" % define PIit % "\S'+15'\s-1\H'+1'\(*P\H'0'\s+1\S'0'\h'0.33n'" % define rho % "\S'+15'\s-1\H'+1'\(*r\H'0'\s+1\S'0'\h'0.2n'" % define RHOit % "\S'+15'\s-1\H'+1'\(*R\H'0'\s+1\S'0'\h'0.25n'" % define sigma % "\S'+15'\s-1\H'+1'\(*s\H'0'\s+1\S'0'\h'0.3n'" % define SIGMAit % "\S'+15'\s-1\H'+1'\(*S\H'0'\s+1\S'0'\h'0.3n'" % define tau % "\S'+15'\s-1\H'+1'\(*t\H'0'\s+1\S'0'\h'0.3n'" % define TAUit % "\S'+15'\s-1\H'+1'\(*T\H'0'\s+1\S'0'\h'0.3n'" % define upsilon % "\S'+15'\s-1\H'+1'\(*u\H'0'\s+1\S'0'\h'0.2n'" % define UPSILONit % "\S'+15'\s-1\H'+1'\(*U\H'0'\s+1\S'0'\h'0.4n'" % define phi % "\S'+15'\s-1\H'+1'\(*f\H'0'\s+1\S'0'\h'0.2n'" % define PHIit % "\S'+15'\s-1\H'+1'\(*F\H'0'\s+1\S'0'\h'0.2n'" % define psi % "\S'+15'\s-1\H'+1'\(*q\H'0'\s+1\S'0'\h'0.35n'" % define PSIit % "\S'+15'\s-1\H'+1'\(*Q\H'0'\s+1\S'0'\h'0.35n'" % define chi % "\S'+15'\s-1\H'+1'\(*x\H'0'\s+1\S'0'\h'0.25n'" % define CHIit % "\S'+15'\s-1\H'+1'\(*X\H'0'\s+1\S'0'\h'0.33n'" % define omega % "\S'+15'\s-1\H'+1'\(*w\H'0'\s+1\S'0'\h'0.2n'" % define OMEGAit % "\S'+15'\s-1\H'+1'\(*W\H'0'\s+1\S'0'\h'0.2n'" % define Fraction % {up 20 size -4 $1 down 25 "" back 12 size +1 "\S'+15'/\S'0'" up 5 "" fwd 6 size -4 $2} % define lower % sub up 30 fwd 50 % define upper % sup up 30 % define Integral % {size +2 int lower $1 upper $2} % define aleph % "\S'+15'\s-1\H'+1'\(al\H'0'\s+1\S'0'\h'0.2n'" % define ln % "\S'-15'\f2ln\fP\S'0'" % define lscr % "\S'-15'\f2l\fP\S'0'" % define becaus % "\u\s+5.\s0\d\s+5.\s0\u\s+5.\s0\d" % define times % \(mu % define lt % roman "\^<\^" % define < % roman "\^<\^" % define gt % roman "\^>\^" % define > % roman "\^>\^" % define | % roman "\^|\^" % define / % roman "\^\S'+18'\(br\S'0'\^"^ ^ % define ++++ % \(pl % define ==== % \(eq % define prime % \(mt % define there4 % \(tf % define thf % \(tf % define forall % \(fa % define oppA % \(fa % define exist % \(te % define oppE % \(te % define intersection % "\(ca" % define union % "\(cu" % define Exp % roman "Exp" % define cov % roman "cov" % define Cov % roman "Cov" % define var % roman "var" % define Var % roman "Var" % define Prob % roman "Prob" % define where % roman "where" % define subject % roman "subject" % define st % roman "st" % define nd % roman "nd" % define rd % roman "rd" % define th % roman "th" % define n.s. % roman "n.s." % define s.t. % roman "s.t." % define tr % roman "tr" % define sgn % roman "sgn" % define RR % "\fHI\h'-.85n'R\fP" % define lcb % ^ roman "{"^ % define rcb % ^ roman "}"^ % define sroot % down 20 sqrt up 20 % define app= % "\(mi" up 20 back 55 "\(ap" down 20 % define -wig % "\(mi" up 20 back 55 "\(ap" down 20 % define wig % "\(ap" % define divby % ^ "\(di" ^ % define member % "\(mo" %