🚀 go-pugleaf

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" %