c----------------------------------------------
c      linemesh1.f
c    
c      subrtn file : pk1subrtn
c       
c----------------------------------------------
c                     < cylinder wo tunaide line wo kaku>        *
c      main program  linemesh1.f 
c----( n1: point su, rd: cylinder radius, h: cylinder high )
       parameter (pi=360,n1=5000,rd1=1000,rd=20)
c----( color sitei )
       parameter (r=1.0,g=0.0,b=0.0,pai=3.14159)
c----( p: x,y,z no jun ni set )
       dimension p(3*n1)
cc      dimension u(3*n1)
c
       call initvrml
c
c################################( test data )
       do 20 i=1,n1
c
       i1=3*(i-1)+1
       i2=i1+1
       i3=i1+2
c
       p(i1)=rd1*cos(i*2*pai/n1)
       p(i3)=rd1*sin(2*pai*i/n1)
       p(i2)=0.3*i
c
   20  continue
c###################################################
c
       call linemesh(p,n1,rd,r,g,b)
c
c
       stop
       end
