c      ------------------------------------------------
c      main program
c      ------------------------------------------------
       parameter(nx=3,ny=3,ipx0=3,ico=7,nxy=nx*ny)
       parameter(xb=0.0,yb=0.0,xl=1.0,yl=1.0)
       parameter(icc=1,zcc=0.0)
c      ------------------------------------------------       
c      nx:   array in x-direction
c      ny:   array in y-direction
c      ipx0: number of components in PixelTexture
c      ico:  color code : refer subroutine colorp(nx,p,ico) in face015.f
c      u(nxy): array variable of nxy=nx*ny for (0.0, 1.0)
c      ------------------------------------------------     
       dimension u(nxy)
c
c      u(i1): data input
       do 10 j=1,ny
       do 10 i=1,nx
       i1=i+nx*(j-1)
       u(i1)=float(i1)/float(nxy)
   10  continue
c
       call initvrml
c
c       call shape
c      mae-shori of PixelTexture
c 
       call pixel2(nx,ny,xb,yb,xl,yl,ipx0,ico,icc,zcc,u)
c      
c      ato-shori of PixelTexture
       stop
       end