# pdf(file="fig1.pdf",pointsize=12)
postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=12,paper="special")

plot(c(3,5,7),c(5.2,7.5,6.6),type="b",cex=3,
       axes=F, xlab="",ylab="",xlim=c(1,9),ylim=c(1,9))
lines(c(3,5,7),c(5.2,6.0,6.6),type="b",cex=3)
lines(c(3,5,7),c(5.2,4.5,6.6),type="b",cex=3)
lines(c(3,5,7),c(5.2,3.0,6.6),type="b",cex=3)

lines(c(5,7),c(7.5,3.8),lty=1,type="b",cex=3)
lines(c(5,7),c(6.0,3.8),lty=1,type="b",cex=3)
lines(c(5,7),c(4.5,3.8),lty=1,type="b",cex=3)
lines(c(5,7),c(3.0,3.8),lty=1,type="b",cex=3)

lines(spline(c(3,5,7),c(5.5,8.5,6.9),n=50))
lines(spline(c(3,5,7),c(4.9,2,3.5),n=50))

s1 <- spline(c(0,.5,1),c(0,.15,0),n=25)
lines(s1$y+5.15,s1$x+3.25)
lines(4.85-s1$y,s1$x+3.25)
lines(s1$y+5.15,s1$x+4.75)
lines(4.85-s1$y,s1$x+4.75)
lines(s1$y+5.15,s1$x+6.25)
lines(4.85-s1$y,s1$x+6.25)
lines(s1$y+7.15,2.3*s1$x+4.05)

text(c(2.1,2.5,2.5,5.2,5.2,7.85,7.85,8.2,5,7.8,7.8),c(5.35,7,3.5,8.8,1.65,6.6,3.8,5.15,7.9,7.9,2.5),
     labels=c("Environment/\ncriterion","Ecological\nvalidities",
       "Inter-cue\ncorrelations",
       "Achievement for Party 1","Achievement for Party 2",
       "Party 1's\njudgments","Party 2's\njudgments",
       "Agreement\nbetween\nParties 1 and 2","Cues",
       "Cue utilization\nvalidities, Party 1",
       "Cue utilization\nvalidities, Party 2"))
arrows(x0=c(3.1,3.1,6.9,6.9),y0=c(6.9,3.5,7.9,2.5),
       x1=c(3.9,4.7,5.9,5.9),y1=c(6.3,3.8,7.1,3.3),lty=2)

dev.off()