real*4 a,b,c,x,y,dx,dy
	integer*2 h,k,l
	a=117.
	b=178
	c=199.5
	beta=106
	open (unit=3,name='cell.ps',status='new')
	write(3,*)'%!PS-Adobe'
	write(3,*)'200 300 translate'
	write(3,*)'0.3 0.3 scale'

	pi=4*atan(1.0)
	beta=pi*beta/180.
	dx=c*sin(beta)
	dy=c*cos(beta)

	do 100 h=0,5
	y=h*a
	x=0.
	write(3,*)x,y,' moveto'
	x=x+5*dx
	y=y+5*dy
100	write(3,*)x,y,' lineto'

	do 200 l=0,5
	x=l*dx
	y=l*dy
	write(3,*)x,y,' moveto'
	y=y+5*a
200	write(3,*)x,y,' lineto'
	write(3,*)'stroke showpage'
	close (unit=3)
	end