Hi,

Here is a sample code of framed text with titles using FunnyFrame.

I tried to use it to display theorems “Theorem #.#” inside the FrameTitle, and 
the text in FunnyFrame.
So, I defined “\defineenumeration[Thm]”.
But I couldn’t make it.
Is it possible to do that? If so, please let me know how to do the following 
two things.

1. to put “Theorem #.#” inside the FrameTitle?(#.# means that chapter 
number.theorem number)
2. to suppress the automatically display of “Thm #” inside the text?

Thanks for reading.

Best regards,

Dalyoung

%%%%%%%% framed Text copied from MetaFun book.
\startuseMPgraphic{FunnyFrame} 
picture p ; numeric o ; path a, b ; pair c ; 
p := textext.rt(\MPstring{FunnyFrame}) ; 
o := BodyFontSize ; 
a := unitsquare xyscaled (OverlayWidth,OverlayHeight) ; 
p := p shifted (2o,OverlayHeight-ypart center p) ; 
drawoptions (withpen pencircle scaled 1pt withcolor .625red) ; 
b := a superellipsed .95 ; 
%fill b withcolor .85white ; 
draw b ; 
b := (boundingbox p) superellipsed .95 ; 
fill b withcolor .85white ;  %.425green;%.
draw b ; 
draw p withcolor black ;
setbounds currentpicture to a ; 
\stopuseMPgraphic 

\defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] 
\defineframedtext[FunnyText][frame=off,background=FunnyFrame, 
offset=\bodyfontsize, width=\textwidth]%\overlaywidth]%
\def\FrameTitle #1% 
{\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut\ss\bf #1\hss}}} 

\defineenumeration[Thm]
   [%text=\thm,
    style=,
    title=yes,
    prefix=yes,
    prefixsegments=chapter,
    way=bychapter,
    number=yes,
    before={\blank[big]\FrameTitle{Theorem} \startFunnyText},
    after={\stopFunnyText\blank}]
    
\starttext
    
{\FrameTitle{Fort's space}
\startFunnyText{Fort's space}
Let $X$ be a uncountable set. Let $\infty$ is a fixed point of $X$. Let 
$\mathcal T$ be the family of subsets $G$ such that either (i) $\infty \notin 
G$ or (ii) $\infty \in G \text{ and } G^c$ is finite. The space $(X, {\mathcal 
T} )$ is called {\bf Fort's space}.
\stopFunnyText}

\startThm
    Fort's space is a compact and Hausdorff topological space.
\stopThm
\stoptext


___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Reply via email to