c      main program  mline.f
c      and symblv test program
       parameter (lasl=12,npo=3*lasl)
       dimension po(npo)
c
       r=1.0
       g=1.0
       b=1.0
c
       call initvrml
c
       do 100 jj=1,7
       r=1.0
       g=1.0
       b=1.0
       if(jj.eq.2) b=0.0
       if(jj.eq.3) g=0.0
       if(jj.eq.4) r=0.0
       if(jj.eq.5) b=0.0
       if(jj.eq.5) g=0.0
       if(jj.eq.6) b=0.0
       if(jj.eq.6) r=0.0
       if(jj.eq.7) g=0.0
       if(jj.eq.7) r=0.0
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=2.1*float(ii-1)-0.0*float(jj)
       y=2.1*float(ii-1)-0.0*float(jj)
       z=2.1*float(ii-1)-2.2*float(jj)
       po(li1)=x
       po(li2)=y
       po(li3)=z
   40  continue
c
       call line3d(lasl,r,g,b,po)
  100  continue
c
       stop
       end