postscript(file="fig6.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
symbols(c(93,93),c(75,25),circles=c(7,7),inches=F,add=T) # circles
lines(c(93,93,127),c(81.25,95,95)) # lines to right of circles, top
lines(c(93,93,127),c(68.75,60,60))
text(130,95,labels="Say goodbye, not too upset (100)",adj=0)
rect(127,91,214,100)
text(130,60,labels="Upset, embarrassed, no goodbye (0)",adj=0)
rect(127,56,214,65)
lines(c(93,93,127),c(31.25,40,40)) # bottom
lines(c(93,93,127),c(18.75,5,5))
text(130,40,labels="Upset, no goodbye (20)",adj=0)
rect(127,36,214,45)
text(130,5,labels="Not too upset but no goodbye (50)",adj=0)
rect(127,1,214,10)
text(90,75,labels="50",adj=0) # circle labels
text(90,25,labels="21.5",adj=.2)
text(106,82,labels="50",cex=.8) # small circles top
text(115,71,labels="50",cex=.8)
lines(c(106,106),c(85.5,95))
lines(c(115,115),c(67.5,60))
text(106,29,labels="95",cex=.8) # small circles bottom
text(115,18,labels="5",cex=.8)
lines(c(106,106),c(32.5,40))
lines(c(115,115),c(14.5,5))
symbols(c(106,115,106,115),c(82,71,29,18),circles=c(4,4,4,4),inches=F,add=T)
dev.off()
system("bbox fig6.eps")

postscript(file="fig1.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
dev.off()
system("bbox fig1.eps")

postscript(file="fig2.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
symbols(c(93),c(75),circles=c(7),inches=F,add=T) # circles
lines(c(93,93,127),c(81.25,95,95)) # lines to right of circles, top
lines(c(93,93,127),c(68.75,60,60))
text(130,95,labels="Say goodbye, not too upset",adj=0)
rect(127,91,214,100)
text(130,60,labels="Upset, embarrassed, no goodbye",adj=0)
rect(127,56,214,65)
dev.off()
system("bbox fig2.eps")

postscript(file="fig3.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
symbols(c(93,93),c(75,25),circles=c(7,7),inches=F,add=T) # circles
lines(c(93,93,127),c(81.25,95,95)) # lines to right of circles, top
lines(c(93,93,127),c(68.75,60,60))
text(130,95,labels="Say goodbye, not too upset",adj=0)
rect(127,91,214,100)
text(130,60,labels="Upset, embarrassed, no goodbye",adj=0)
rect(127,56,214,65)
lines(c(93,93,127),c(31.25,40,40)) # bottom
lines(c(93,93,127),c(18.75,5,5))
text(130,40,labels="Upset, no goodbye",adj=0)
rect(127,36,214,45)
text(130,5,labels="Not too upset but no goodbye",adj=0)
rect(127,1,214,10)
dev.off()
system("bbox fig3.eps")

postscript(file="fig4.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
symbols(c(93,93),c(75,25),circles=c(7,7),inches=F,add=T) # circles
lines(c(93,93,127),c(81.25,95,95)) # lines to right of circles, top
lines(c(93,93,127),c(68.75,60,60))
text(130,95,labels="Say goodbye, not too upset",adj=0)
rect(127,91,214,100)
text(130,60,labels="Upset, embarrassed, no goodbye",adj=0)
rect(127,56,214,65)
lines(c(93,93,127),c(31.25,40,40)) # bottom
lines(c(93,93,127),c(18.75,5,5))
text(130,40,labels="Upset, no goodbye",adj=0)
rect(127,36,214,45)
text(130,5,labels="Not too upset but no goodbye",adj=0)
rect(127,1,214,10)
text(106,82,labels="50",cex=.8) # small circles top
text(115,71,labels="50",cex=.8)
lines(c(106,106),c(85.5,95))
lines(c(115,115),c(67.5,60))
text(106,29,labels="95",cex=.8) # small circles bottom
text(115,18,labels="5",cex=.8)
lines(c(106,106),c(32.5,40))
lines(c(115,115),c(14.5,5))
symbols(c(106,115,106,115),c(82,71,29,18),circles=c(4,4,4,4),inches=F,add=T)
dev.off()
system("bbox fig4.eps")

postscript(file="fig5.eps",width=12,height=8,
           horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(0,215),c(0,100),type="n",axes=F,xlab="",ylab="")
text(20,50,labels="Mhairi's\ndifficult\ndecision",adj=0)
rect(17,39,44,61)
lines(c(30,30,86),c(61,75,75))
lines(c(30,30,86),c(39,25,25))
text(45,80,labels="Go to funeral",adj=0)
text(45,20,labels="Stay at home",adj=0)
symbols(c(93,93),c(75,25),circles=c(7,7),inches=F,add=T) # circles
lines(c(93,93,127),c(81.25,95,95)) # lines to right of circles, top
lines(c(93,93,127),c(68.75,60,60))
text(130,95,labels="Say goodbye, not too upset (100)",adj=0)
rect(127,91,214,100)
text(130,60,labels="Upset, embarrassed, no goodbye (0)",adj=0)
rect(127,56,214,65)
lines(c(93,93,127),c(31.25,40,40)) # bottom
lines(c(93,93,127),c(18.75,5,5))
text(130,40,labels="Upset, no goodbye (20)",adj=0)
rect(127,36,214,45)
text(130,5,labels="Not too upset but no goodbye (50)",adj=0)
rect(127,1,214,10)
text(106,82,labels="50",cex=.8) # small circles top
text(115,71,labels="50",cex=.8)
lines(c(106,106),c(85.5,95))
lines(c(115,115),c(67.5,60))
text(106,29,labels="95",cex=.8) # small circles bottom
text(115,18,labels="5",cex=.8)
lines(c(106,106),c(32.5,40))
lines(c(115,115),c(14.5,5))
symbols(c(106,115,106,115),c(82,71,29,18),circles=c(4,4,4,4),inches=F,add=T)
dev.off()
system("bbox fig5.eps")