// @(#)root/gl:$Name:  $:$Id: TGLLogicalShape.cxx,v 1.4 2005/05/28 12:21:00 rdm Exp $
// Author:  Richard Maunder  25/05/2005

/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/

// TODO: Function descriptions
// TODO: Class def - same as header

#include "TGLLogicalShape.h"
#include "TGLDisplayListCache.h"

ClassImp(TGLLogicalShape)

//______________________________________________________________________________
TGLLogicalShape::TGLLogicalShape(ULong_t ID) :
   TGLDrawable(ID, kFALSE), // Logical shapes not DL cached by default at present
   fRef(0)
{
}

//______________________________________________________________________________
 TGLLogicalShape::~TGLLogicalShape()
{
   // Physical refs should have been cleared
   if (fRef > 0) {
      assert(kFALSE);
   }
}

//______________________________________________________________________________
 void TGLLogicalShape::Purge()
{
   // Overload and clear out any costly geometry cache

   // Base work - purge the DL cache
   TGLDrawable::Purge();
}