postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=8,paper="special")
Ch <- 16
Chc <- 8
Cr <- 60
plot(c(0,300),c(0,100),type="n",axes=F,xlab="",ylab="",asp=1,xlim=c(-30,140),ylim=c(0,110))
rect(0,80,20,100,col="white")
rect(0+Ch,80-Ch,20+Ch,100-Ch,col="white")
rect(0+2*Ch,80-2*Ch,20+2*Ch,100-2*Ch,col="white")
rect(0+3*Ch,80-3*Ch,20+3*Ch,100-3*Ch,col="white")

rect(0+Cr,80,20+Cr,100,col="white")
rect(0+Ch+Cr,80-Ch,20+Ch+Cr,100-Ch,col="white")
rect(0+2*Ch+Cr,80-2*Ch,20+2*Ch+Cr,100-2*Ch,col="white")
rect(0+3*Ch+Cr,80-3*Ch,20+3*Ch+Cr,100-3*Ch,col="white")

text(c(Chc,Chc+Cr),105,labels=c("No distractors","Distractors"))
lines(c(10-4,10+4),c(91,91))
lines(c(10,10),c(91+4,91-4))
lines(c(10+Cr-4,10+Cr+4),c(91,91))
lines(c(10+Cr,10+Cr),c(91+4,91-4))

lines(c(10+3*Ch,10+3*Ch),c(90-3*Ch+6,90-3*Ch-6))
lines(c(10+3*Ch+Cr,10+3*Ch+Cr),c(90-3*Ch+6,90-3*Ch-6))
lines(c(10+3*Ch-2,10+3*Ch+2),c(90-3*Ch+6,90-3*Ch+6))
lines(c(10+3*Ch-2,10+3*Ch+2),c(90-3*Ch-6,90-3*Ch-6))
lines(c(10+3*Ch+Cr-2,10+3*Ch+Cr+2),c(90-3*Ch+6,90-3*Ch+6))
lines(c(10+3*Ch+Cr-2,10+3*Ch+Cr+2),c(90-3*Ch-6,90-3*Ch-6))

points(c(Ch+2,Ch+2+Cr),c(86-Ch,86-Ch),col="red",pch=20)

text(40,98-Chc,labels="Fixation cross: 150 msec")
text(40+Ch,98-Ch-Chc,labels="Cue: 500 msec")
text(40+2*Ch,98-2*Ch-Chc,labels="Picture(s): 3000 msec")
text(40+3*Ch,98-3*Ch-Chc,labels="Sympathy rating: ~")

arrows(0,75,2.5*Ch,75-2.5*Ch)
dev.off()
system("bbox fig1.eps")
#stop()

library(gplots)
f2 <- t(matrix(c(183.3,184.4,175.9,163.1),2,2))
e2 <- t(matrix(c(9.22,9.20,9.37,9.85),2,2))
rownames(f2) <- c("No distractors","Distractors")
colnames(f2) <- c("Online judgment","Memory judgment")
postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot2(f2,beside=T,ylim=c(150,200),xpd=F,col=(c("gray40","gray80")),
         ylab="Sympathy",xlab="",plot.ci=F,ci.u=f2+e2,ci.l=f2-e2)
legend(x=2.5,y=200,bty="n",fill=c("gray40","gray80"),c("No distractors","Distractors"))
dev.off()

f2 <- t(matrix(c(1704,1765,1690,2038),2,2))
e2 <- t(matrix(c(86,74,74,100),2,2))
rownames(f2) <- c("No distractors","Distractors")
colnames(f2) <- c("Online judgment","Memory judgment")
postscript(file="fig3.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot2(f2,beside=T,ylim=c(1200,2200),xpd=F,col=(c("gray40","gray80")),
         ylab="Reaction time",xlab="",plot.ci=F,ci.u=f2+e2,ci.l=f2-e2)
legend(x=2,y=2200,bty="n",fill=c("gray40","gray80"),c("No distractors","Distractors"))
dev.off()

f2 <- t(matrix(c(232.4,228.5,222.1,215.5),2,2))
e2 <- t(matrix(c(9.79,10.24,15.2,11.05),2,2))
rownames(f2) <- c("No distractors","Distractors")
colnames(f2) <- c("Online judgment","Memory judgment")
postscript(file="fig4.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot2(f2,beside=T,ylim=c(150,260),xpd=F,col=(c("gray40","gray80")),
         ylab="Sympathy",xlab="",plot.ci=F,ci.u=f2+e2,ci.l=f2-e2)
legend(x=2.7,y=260,bty="n",fill=c("gray40","gray80"),c("No distractors","Distractors"))
dev.off()

f2 <- t(matrix(c(1478,1947,1803,1954),2,2))
e2 <- t(matrix(c(79,97,102,96),2,2))
rownames(f2) <- c("No distractors","Distractors")
colnames(f2) <- c("Online judgment","Memory judgment")
postscript(file="fig5.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")
barplot2(f2,beside=T,ylim=c(1200,2200),xpd=F,col=(c("gray40","gray80")),
         ylab="Reaction time",xlab="",plot.ci=F,ci.u=f2+e2,ci.l=f2-e2)
legend(x=2,y=2200,bty="n",fill=c("gray40","gray80"),c("No distractors","Distractors"))
dev.off()

system("bbox fig2.eps; bbox fig3.eps; bbox fig4.eps; bbox fig5.eps")