mathas_a@maths.su.oz.au ( Andrew ) (07/06/90)
We are all aware of the wonders of smilely faces in email.
Does anybody have a font or set of macro definitions which
makes them accessible to TeX?
Andrew
--
- smile at a stranger today and help make the world a better
place; while you're, at it, why not hug a friend!edgar@shape.mps.ohio-state.edu (Gerald Edgar) (07/06/90)
I got a preprint of a mathematical paper by Knuth recently. The
ends of the proofs were smiley faces. I thought it was a nice touch.
So he must have such a macro ...
--
Gerald A. Edgar
Department of Mathematics Bitnet: EDGAR@OHSTPY
The Ohio State University Internet: edgar@mps.ohio-state.edu
Columbus, OH 43210 ...!{att,pyramid}!osu-cis!shape.mps.ohio-state.edu!edgarkas@cs.aber.ac.uk (Kevin Sharp) (07/09/90)
Here's a postscript smiley that I've included in LaTeX from time to
time ...
%!PS-Adobe-1.0
%%Title: smile.fig
%%Creator: fig2ps
%%CreationDate: Sun Aug 20 18:31:50 1989
%%For: kas@gabriel (Kevin A.I Sharp)
%%Pages: 0
%%BoundingBox: 0 0 14 14
%%EndComments
/$F2psDict 32 dict def $F2psDict begin $F2psDict /mtrx matrix put
/DrawEllipse { /endangle exch def /startangle exch def /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y translate xrad yrad scale 0 0 1 startangle endangle arc savematrix setmatrix } def
end /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def /$F2psEnd {$F2psEnteredState restore end} def %%EndProlog
$F2psBegin
-13 17 translate
0.000000 14.000000 translate 0.045 -0.045 scale
3.500 setlinewidth
% Ellipse
newpath 439 519 160 160 0 360 DrawEllipse stroke
24.500 setlinewidth
% Ellipse
newpath 499 484 7 25 0 360 DrawEllipse stroke
% Ellipse
newpath 379 484 7 25 0 360 DrawEllipse stroke
3.500 setlinewidth
% Ellipse
newpath 439 519 160 160 0 360 DrawEllipse stroke
14.000 setlinewidth
% Interpolated spline
newpath 548 601 moveto
549.248 600.015 544.629 592.350 543 590 curveto
541.856 588.350 538.586 585.187 537 584 curveto
534.658 582.248 527.252 576.695 526 578 curveto
524.835 579.214 530.232 585.907 532 588 curveto
533.397 589.655 537.372 592.671 539 594 curveto
541.013 595.644 546.823 601.930 548 601 curveto
closepath stroke
% Interpolated spline
newpath 330 601 moveto
328.752 600.015 333.371 592.350 335 590 curveto
336.144 588.350 339.414 585.187 341 584 curveto
343.342 582.248 350.748 576.695 352 578 curveto
353.166 579.214 347.768 585.907 346 588 curveto
344.603 589.655 340.628 592.671 339 594 curveto
336.987 595.644 331.177 601.929 330 601 curveto
closepath stroke
% Interpolated spline
newpath 535 593 moveto
523.551 599.029 518.551 601.529 515 603 curveto
508.304 605.774 491.954 611.044 485 613 curveto
479.133 614.651 465.133 618.302 459 619 curveto
455.552 619.393 447.417 619.000 444 619 curveto
443.146 619.000 441.896 619.000 439 619 curveto
stroke
% Interpolated spline
newpath 534 591 moveto
528.871 593.472 526.621 594.472 525 595 curveto
518.717 597.045 503.427 599.837 497 601 curveto
490.874 602.109 476.242 604.540 470 605 curveto
464.283 605.421 450.695 605.000 445 605 curveto
443.633 605.000 439.000 605.000 439 605 curveto
439.000 605.000 440.500 605.000 445 605 curveto
stroke
% Interpolated spline
newpath 344 591 moveto
349.129 593.472 351.379 594.472 353 595 curveto
359.283 597.045 374.573 599.837 381 601 curveto
387.126 602.109 401.758 604.540 408 605 curveto
413.717 605.421 427.305 605.000 433 605 curveto
434.367 605.000 439.000 605.000 439 605 curveto
439.000 605.000 437.500 605.000 433 605 curveto
stroke
% Interpolated spline
newpath 343 593 moveto
354.449 599.029 359.449 601.529 363 603 curveto
369.696 605.774 386.046 611.044 393 613 curveto
398.867 614.651 412.867 618.302 419 619 curveto
422.448 619.393 430.583 619.000 434 619 curveto
434.854 619.000 436.104 619.000 439 619 curveto
stroke
$F2psEnd
Enjoy,
--
--
Kevin Sharp, UUCP : {WALES}!ukc!aber-cs!kas
AI and Robotics Research Group, JANET: kas@uk.ac.aber.cs
Department of Computer Science, PHONE: +44 970 622450
University College of Wales, Aberystwyth, Dyfed, UK. SY23 3BZ