c----------------------------------------------
c      cone1.f
c    
c      subrtn file : pk1subrtn
c----------------------------------------------
c      main program
       parameter (rd=3.0,h=6.0)
       parameter (r=0.2,g=0.8,b=0.2)
       parameter (x=20,y=80,z=20)
c
       call initvrml
c
       call cone1k1(rd,h,r,g,b,x,y,z)
c
       stop
       end
