## text.box example ##

source('http://biostat.mc.vanderbilt.edu/twiki/pub/Main/TatsukiRcode/TatsukiRcode3.r')

pdf('textboxmanual.pdf', width=7.5, height=11)

plot(0,0, type='n', las=1, xlab='',ylab='',xlim=c(0,1),ylim=c(0,1))

text1 <- c(
	'<p><b>PITTSBURGH</b> While Jason Bay continues to enjoy his postseason run with the Red Sox,',
	'the former <bi>Pirates</bi> left fielder quietly received one more bit of recognition in the city where he established himself as an <col=darkmagenta>All-Star</col> caliber outfielder.</p>',
	'<p>Bay was voted as the Chuck<nbsp>Tanner<nbsp>Award winner for 2008, an honor that recognizes the Pirates player whose <dqs>professionalism<dqe><nosp>,',
	'cooperation and availability to and with Major League writers best assists them in carrying out daily responsibilities.',
	'The award is voted upon annually by members of the <col=<$sample(2:7,1)$>>Pittsburgh</col> chapter of the Baseball Writers Association of America.</p>'
	)
text2 <- c(
	'<p>The award is named for Tanner, a former P<nosp><col=yellow><b>irate</b></col><nosp>s manager and current special assistant to general manager Neal Huntington',
	'who has long been known for being accessible and helpful to those who have covered the club.</p>',
	'<p>Mr.<~>Bay, who joined the organization in 2003, played in Pittsburgh until the end of July.',
	'He was dealt to <sans>Boston<nosp></sans><nbsp>as part of a <cex=<$default$cex*1.5$>>three-team</cex> trade that landed the Pirates four young players in return.',
	'Bay hit <mono>.282</mono> with <i>22</i> <col=red>h</col><nosp><col=blue>o</col><nosp><b>m</b><nosp>ers and 64 RBI<*>s for Pittsburgh this season,',
	'as he bounced back from an injury-plagued 2007 campaign'
)


default <- list(family='serif', font=1, cex=.8, col=1)

w1 <- text.box(text1, default, x=c(.1,.9),y=1, x.padding=.05,y.padding=c(.02,.1),
		vertical.stretch=2, paragraph.break=1.5, justify=T, bkgr.col='powderblue',
		slide.quote=T, after.=1.5)
ny <- get.next.y(w1)

w2 <- text.box(text2, default, x=c(.1,.8), y=ny[2], x.padding=c(.1,.05), y.padding=c(.0, 10),
		vertical.stretch=2, paragraph.break=2, justify=F, bkgr.col='powderblue',
		slide.quote=T, after.=5)

dev.off()