##postscript('../WriteUp/Graphics/1999/prob_23.eps', onefile=FALSE, horizontal=FALSE)

x_min = -4
x_max = 4
y_min = -0.5
y_max = 6
plot(1, type='n', xlab='x', ylab='y', xlim=c(x_min, x_max), ylim=c(y_min, y_max))
abline(v=0, col='black') ## draw in the X-Y axis
abline(h=0, col='black')
x = c( 0, 1, 3, 2, -2, -5/2, 0 )
y= c( 0, 0, 2*sqrt(3), 3*sqrt(3), 3*sqrt(3), 5*sqrt(3)/2, 0 )
polygon(x, y, col='gray')

text(-0.25, -0.25, 'A')
text(1+0.15, -0.25, 'B')
text(3+0.15, 2*sqrt(3)-0.25, 'C')
text(2+0.15, 3*sqrt(3)+0.25, 'D')
text(-2-0.15, 3*sqrt(3)+0.25, 'E')
text(-5/2-0.15, (5/2)*sqrt(3), 'F')
grid()

##dev.off()