source: GTP/trunk/Lib/Vis/Preprocessing/src/Pvs.cpp @ 1740

#include <iostream>
#include <stack>
#include "Pvs.h"
#include "Intersectable.h"
#include "IntersectableWrapper.h"
#include "KdTree.h"
#include "common.h"
#include "BvHierarchy.h"


namespace GtpVisibilityPreprocessor {

int MailablePvsData::sMailId = 1;
int MailablePvsData::sReservedMailboxes = 1;


int KdPvs::Compress()
{
        return 0; // TODO
}

/** the pvs is the number of different objects in the node leaves
        We eliminate already accounted kd nodes and objects using mailboxing. 
*/
static int EvalKdNodeContribution(KdIntersectable *kdobj)
{
        int pvs = 0;
        stack<KdNode *> tStack;

        tStack.push(kdobj->GetItem());

        while (!tStack.empty())
        {
                KdNode *node = tStack.top();
                tStack.pop();

                // already processed node (=> objects already in pvs)?
                if (!node->Mailed())
                {
                        node->Mail();

                        if (node->IsLeaf())
                        {
                                KdLeaf *leaf = dynamic_cast<KdLeaf *>(node);
                       
                                // add #objects exclusivly in this node
                                pvs += (int)(leaf->mObjects.size() - leaf->mMultipleObjects.size());

                                // Objects already accounted for can only be found among those
                                // which are referenced in more than one leaf
                                ObjectContainer::const_iterator oit, oit_end = leaf->mMultipleObjects.end();
                                                
                                for (oit = leaf->mMultipleObjects.begin(); oit != oit_end; ++ oit)
                                {
                                        Intersectable *object = *oit;                                           
                            
                                        if (!object->Mailed())
                                        {
                                                object->Mail();
                                                ++ pvs;
                                        }
                                }
                        }
                        else // traverse tree
                        {
                                KdInterior *interior = dynamic_cast<KdInterior *>(node);

                                tStack.push(interior->mFront);
                                tStack.push(interior->mBack);
                        }
                }
        }

        return pvs;
}


/** Returns the the number of new (unmailed) objects in the leaves of the node.
        We eliminate already accounted bvh nodes and objects using mailboxing. 
*/
static float EvalBvhNodeContribution(BvhIntersectable *bvhobj)
{
        BvhLeaf *leaf = bvhobj->GetItem();
        BvhNode *node = leaf->GetActiveNode();

        // early exit
        if (node == leaf)       
        {
                // objects already accounted for
                if (leaf->Mailed())
                        return 0;

                leaf->Mail();
                return BvHierarchy::EvalAbsCost(leaf->mObjects);
        }                        

        // compute leaf pvs
        float pvs = 0;
        stack<BvhNode *> tStack;
        tStack.push(node);

        while (!tStack.empty())
        {
                node = tStack.top();
                tStack.pop();

                // already processed node (=> objects already in pvs)?
                if (!node->Mailed())
                {
                        node->Mail();

                        if (node->IsLeaf())
                        {
                                leaf = dynamic_cast<BvhLeaf *>(node);

                                // add #objects exclusivly in this node
                                pvs += BvHierarchy::EvalAbsCost(leaf->mObjects);
                        }
                        else // traverse tree
                        {
                                BvhInterior *interior = dynamic_cast<BvhInterior *>(node);

                                tStack.push(interior->GetFront());
                                tStack.push(interior->GetBack());
                        }
                }
        }

        return pvs;
}


float ObjectPvs::EvalPvsCost() const
{
        float pvs = 0;

        Intersectable::NewMail();
        KdLeaf::NewMail();
        BvhLeaf::NewMail();

        ObjectPvsEntries::const_iterator it, it_end = mEntries.end();

        for (it = mEntries.begin(); it != it_end; ++ it)
        {
                Intersectable *obj = (*it).mObject;
        
                switch (obj->Type())
                {
                        case Intersectable::KD_INTERSECTABLE:
                                {
                                        // found kd node
                                        KdIntersectable *kdObj = dynamic_cast<KdIntersectable *>(obj);
                                        pvs += EvalKdNodeContribution(kdObj);   
                                        break;
                                }
                        case Intersectable::BVH_INTERSECTABLE:
                                {
                                        BvhIntersectable *bvhObj = dynamic_cast<BvhIntersectable *>(obj);
                                        pvs += EvalBvhNodeContribution(bvhObj);
                                        break;
                                }
                        default:
                                ++ pvs;
                                break;
                }
        }

        return pvs;
}

}