c      face11.f
c      main program
       parameter(nx=600,ny=600)
       parameter(na1=nx*5,n2=nx*ny)
       dimension ia(na1), u(n2)
       lasl=12
       lasl=3000
       lasl=200
       r=1.0
       g=1.0
       b=1.0
       do 10 i=1,nx
       i1=1+5*(i-1)
       i2=2+5*(i-1)
       i3=3+5*(i-1)
       i4=4+5*(i-1)
       i5=5+5*(i-1)
       ia(i1)=0+2*(i-1)
       ia(i2)=1+2*(i-1)
       ia(i3)=3+2*(i-1)
       ia(i4)=2+2*(i-1)
       ia(i5)=-1
   10  continue
c
       na2=5*(nx-1)-1
       write(6,102) (ia(i),i=1,na2)
  102  format(4(4i2,i3),2i2,3i3,220i3,2i3,2i4,i3,
     1        449(4i4,i3),2i4,2i5,i3,3000(4i5,i3))
c
c      call initvrml
c
c      call linebe(r,g,b)
c
       do 40 ii=1,lasl
       lin=ii
       li1=3*(lin-1)+1
       li2=3*(lin-1)+2
       li3=3*lin
c      x=po(li1)
c      y=po(li2)
c      z=po(li3)
       x=0.1*float(ii-1)
       y=0.1*float(ii-1)
       z=0.1*float(ii-1)
c
c      call linep(x,y,z,ii,lasl)
c
   40  continue
c
c      call lineen(lasl)
c
       stop
       end