c----------------------------------------------
c      sphere1.f
c    
c      subrtn file : pk1subrtn
c       
c----------------------------------------------
c      main program
       parameter (r=0.8,g=0.2,b=0.0,rd=2.0)
c
       call initvrml
c
       call sphere2(r,g,b,rd)
c
       stop
       end
