program pg_circle
      integer pgopen
      if(pgopen('/xwin').le.0) stop('device open failed')
c 'pgsfs' will determine the closed shape is filled or empty
      call pgsfs(2)
      call pgenv(-1.0,1.0,-1.0,1.0,1,0)
      call pgcirc(0.0,0.0,0.3)
      call pgclos
      end