MetaFun - Pragma ADE

252
We will surround this text with a circular line, that we define as follows. By using a buffer we keep
things organized.
\startbuffer[circle]
\startuseMPgraphic{followtokens}
path RotPath ; RotPath := reverse fullcircle
rotatedaround(origin,90)
xscaled \overlaywidth yscaled \overlayheight ;
drawoptions (withcolor .625red) ;
\stopuseMPgraphic
\followtokens
{This is just a dummy text, kerned by T{\kern
-.1667em\lower .5ex\hbox {E}}{\kern -.125emX} and typeset
in a circle using {\setMFPfont M}{\setMFPfont
E}{\setMFPfont T}{\setMFPfont A}{\setMFPfont
P}{\setMFPfont O}{\setMFPfont S}{\setMFPfont T}.\quad}
\stopbuffer
\defineoverlay[edge][{\getbuffer[circle]}]
The text and graphics come together in a framed text:
\startbuffer[quote]
\framed
[offset=6pt,background=edge,frame=off]
{\getshapetext}
\stopbuffer
\placefigure
{One more time Hofstadter's quotation.}
{\getbuffer[quote]}
Here also, I will rewrite things a bit so that we can avoid \startMPdrawing outside the macro, and thereby
avoid problems. I can also add the maps cdrom cover as example.
Typesetting in METAPOST Libraries