Perspective projection

Hello,

I'm trying to make a perspective projection with the HLR algorithms. First, I define the position of the camera in the view and establish the projection type as Graphic3d_Camera::Projection_Perspective. Then I use a Prs3d_Projector to define the projection with the params predefined in the view. Afterwards, I apply the HLR algorithm and display the VCompound and OutLineVCompound shapes. The problem is that the VCompoud is well computed but the OutlineVcompund don't. You can see it in the attached file (perspective_projection.png). However, if I try to make a orthographic projection the result is good for both shapes (see orthographic_projection.png). Am I doing anything wrong?Or it could be a bug in the software? 

        aView->SetBackgroundColor(Quantity_NOC_GRAY20);
        aView->Camera()->SetCenter(centre);      
        aView->Camera()->SetDirection(gp_Dir (-1.,0., 0.));
        aView->Camera()->SetDistance(300.0);
        aView->Camera()->SetProjectionType(Graphic3d_Camera::Projection_Perspective);
        aView->Redraw();

        Standard_Real aProjVecX, aProjVecY, aProjVecZ;
        aView->Proj(aProjVecX, aProjVecY, aProjVecZ);

        Standard_Real aUpX, aUpY, aUpZ;
        aView->Up(aUpX, aUpY, aUpZ);

        Standard_Real aPntX , aPntY , aPntZ ;
        aView->At(aPntX,aPntY,aPntZ);

        Standard_Boolean IsPerspective = (aView->Type() == V3d_PERSPECTIVE);
        // create a projector object
        Handle(Prs3d_Projector) Projector = new Prs3d_Projector(IsPerspective, 300.0,
                aProjVecX, aProjVecY, aProjVecZ, aPntX, aPntY, aPntZ, aUpX, aUpY, aUpZ);

        gp_Pnt At(aPntX, aPntY, aPntZ);
        gp_Dir Zpers(aProjVecX, aProjVecY, aProjVecZ);
        gp_Dir Ypers(aUpX, aUpY, aUpZ);
        gp_Dir Xpers = Ypers.Crossed(Zpers);
        gp_Ax3 NewCoordSystem(At, Zpers, Xpers);
        gp_Ax3 CurrentCoordSystem(gp_Pnt(0, 0, 0), gp_Dir(0, 0, 1));
        gp_Trsf Trsf;
        Trsf.SetDisplacement(CurrentCoordSystem, NewCoordSystem);

        HLRAlgo_Projector aProjector = Projector->Projector();
        TopLoc_Location aLoc(Trsf);

        // Build The algorithm object
        Handle(HLRBRep_Algo) myAlgo = new HLRBRep_Algo();
        
        
        myAlgo->Add(result);// Add Shapes into the algorithm
        myAlgo->Projector(aProjector);// define the point of view       
        myAlgo->Update();// Launches calculation of outlines of the shape          
        myAlgo->Hide();// Computes the visible and hidden lines of the shape
                   
        HLRBRep_HLRToShape aHLRToShape(myAlgo);// Build the extraction object

        // extract the results of visible parts of the shape:
        TopoDS_Shape VCompound = aHLRToShape.VCompound();
        //Visible sharp edges, Sharp edges present a C0 continuity
        TopoDS_Shape OutLineVCompound = aHLRToShape.OutLineVCompound();
        //Visible outline edges
                          
        aContext->Erase(anAISShape, Standard_False);
        
        VCompound.Location(aLoc);
        Handle(AIS_Shape) aGraphicShape = new AIS_Shape(VCompound);    
        Handle(Prs3d_LineAspect) lineAspect = new Prs3d_LineAspect (Quantity_NOC_FORESTGREEN, Aspect_TOL_SOLID, 1.5);      
        aGraphicShape->Attributes()->SetWireAspect(lineAspect);
        aContext->Display(aGraphicShape);
            
        OutLineVCompound.Location(aLoc);
        Handle(AIS_Shape) aGraphicShape2 = new AIS_Shape(OutLineVCompound);      
        lineAspect = new Prs3d_LineAspect (Quantity_NOC_CORAL4, Aspect_TOL_SOLID, 1.5);      
        aGraphicShape2->Attributes()->SetWireAspect(lineAspect);
                       
        aContext->Display(aGraphicShape2);

I really appreciate your help! I've been struggling with this for days...