c----------------------------------------------
c      box2.f
c    
c      subrtn file : pk1subrtn
c----------------------------------------------
c      main program
       parameter (r=0.7,g=0.0,b=0.2)
       parameter (sx=2.0,sy=2.0,sz=4.0)
c
       call initvrml
c
       call box2(r,g,b,sx,sy,sz)
c
       stop
       end
