Re: Speech bubbles

[Ian Lawrence <physics.wanderer@gmail.com>]

Thanks Wolfgang..

In case there are any others who are in need.. Here is one with curvy speech bubbles, left and right, and wrapped up so they don't overhang any text.
__

\startuseMPgraphic{speechL}
z1 = (0.25cm,0) ; z2=(1 cm,0) ; z3 = (0,-1cm) ; z4 = (2cm,0);z5 = (OverlayWidth-0.25cm,0) ; z6 = (OverlayWidth,0.25cm) ; z7 = (OverlayWidth,OverlayHeight-0.25cm) ; z8 = (OverlayWidth-0.25cm,OverlayHeight) ; z9 = (0.25 cm,OverlayHeight);z10=(0,OverlayHeight-0.25cm) ; z11=(0,0.25cm)  ;
path p ; p = z1--z2{down}..{dir 270}z3{dir 30}..{dir 70}z4--z5{right}..{up}z6--z7{up}..{left}z8--z9{left}..{down}z10--z11{down}..{right}z1--cycle ;
fill p withcolor blue ;
draw p withpen pencircle scaled 1 ;
setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

\startuseMPgraphic{speechR}
z1 = (0.25cm,0) ; z2=(5 cm,0) ; z3 = (7cm,-1cm) ; z4 = (6cm,0);z5 = (OverlayWidth-0.25cm,0) ; z6 = (OverlayWidth,0.25cm) ; z7 = (OverlayWidth,OverlayHeight-0.25cm) ; z8 = (OverlayWidth-0.25cm,OverlayHeight) ; z9 = (0.25 cm,OverlayHeight);z10=(0,OverlayHeight-0.25cm) ; z11=(0,0.25cm)  ;
path p ; p = z1{left}..{up}z11--z10{up}..{right}z9--z8{right}..{down}z7--z6{down}..{left}z5--z4{down}..{dir 270}z3{dir 150}..{dir 110}z2--cycle ;
fill p withcolor blue ;
draw p withpen pencircle scaled 1 ;
setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic


\defineoverlay[speechL][\useMPgraphic{speechL}]

\define [1] \speechbubbleL
{\blank
\framedtext[frame=off,background=speechL, width=7cm]{#1}
\blank[1 cm]}]

\defineoverlay[speechR][\useMPgraphic{speechR}]

\define [1] \speechbubbleR
{\blank
\framedtext[frame=off,background=speechR, width=7cm]{#1}
\blank[1 cm]}]



\starttext
Some text

\speechbubbleL {'Who needs highlighter pens, anyway?'}

If all three are satisfied then then sound radiates from the source to the detector. The source-medium-detector model was central to the model of sound. The vibrations, because of their nature, travel as variations in physical density, so rely on a medium made of particles connecting the source to the detector. Other vibrations, very similar in nature, could still travel out from the source, but not be detected. 

\speechbubbleR  {They could be above or below the frequency we can hear, so called infra-sound or ultra-sound, or the amplitude could be just too small: so not enough power in the radiating pathway for the detector to respond.}

More and more dog latin for beginners.. And so on...... And so on
\stoptext
__
Sorry the metapost is not parameterised...I should have variables in to set up the offsets and curvature of the corners. But I have not go that far yet...my floor is only a little higher, thanks to Wolfgang.

On 3 Feb 2011, at 08:39, Wolfgang Schuster wrote:

> 
> Am 02.02.2011 um 18:12 schrieb Ian Lawrence:
> 
>> Evening all:
>> 
>> Has anyone got a nicer \speechbubble definition up their sleeve?
>> 
>> Here is not-nice one, so you know the floor:
>> 
>> \define [1] \speechBubble 
>> {\blank
>> \framed [width=.6\textwidth ,autowidth=force,align={flushleft}, background=color, backgroundcolor=darkblue,
>>  foreground=color, foregroundcolor=white,
>> frame=off,corner=0,backgroundoffset=5pt,]  {#1}
>> ~~~ \tfd \startcolor[darkblue]{'} \stopcolor \tfa
>> \blank}
>> 
>> 
>> Called with things like:
>> 
>> \speechBubble {They could be above or below the frequency we can hear, so called infra-sound or ultra-sound, or the amplitude could be just too small: so not enough power in the radiating pathway for the detector to respond.}
>> 
>> 
>> I guess there are some people with xs metapost skills out there... But is there as simple way to get a nice curved pointer left or right from the bottom of that rounded rectangle frame?
> 
> \startuseMPgraphic{speechbubble}
> z1 = (0,0) ; z2 = (OverlayWidth,0) ; z3 = (OverlayWidth,OverlayHeight) ; z4 = (0,OverlayHeight) ;
> 1/2[x1,x2] = x8 + 2cm = x7 + 1cm = x9 - 1cm ; y7 = y9 = 0cm ; y8 = -2cm ;
> path p ; p = z1--z7--z8--z9--z2--z3--z4--cycle ;
> fill p withcolor blue ;
> draw p withpen pencircle scaled 5 ;
> setbounds currentpicture to OverlayBox ;
> \stopuseMPgraphic
> 
> \defineoverlay[speechbubble][\useMPgraphic{speechbubble}]
> 
> \starttext 
> 
> \framedtext[frame=off,background=speechbubble]{\input ward }
> 
> \blank[4cm]
> 
> \framedtext[frame=off,background=speechbubble,width=6cm]{\input ward }
> 
> \stoptext
> 
> Wolfgang
> 
> ___________________________________________________________________________________
> 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://tex.aanhet.net
> archive  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________

___________________________________________________________________________________
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://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________