c----------------------------------------------
c      box1.f
c    
c      subrtn file : pk1subrtn
c----------------------------------------------
c      main program
       parameter (r=0.0,g=0.3,b=0.8,sz=1)
c
       call initvrml
c
       call box1(r,g,b,sz)
c
       stop
       end
