EgtGeomKernel 2.7c4 :

- aggiunte funzioni GetSurfTriMeshPyramidFrustum e GetSurfTriMeshConeFrustum
- modificata funzione GetSurfTriMeshPyramid per origine ora in centro alla base.

StmStandard.cpp

@@ -172,15 +172,15 @@ GetSurfTriMeshPyramid( double dDimX, double dDimY, double dHeight)
       return nullptr ;
   // creo la polilinea del contorno della base
    PolyLine PL ;
-   PL.AddUPoint( 0, ORIG) ;
-   PL.AddUPoint( 1, Point3d( dDimX, 0, 0)) ;
-   PL.AddUPoint( 2, Point3d( dDimX, dDimY, 0)) ;
-   PL.AddUPoint( 3, Point3d( 0, dDimY, 0)) ;
-   PL.AddUPoint( 4, ORIG) ;
+   PL.AddUPoint( 0, Point3d( -dDimX / 2, -dDimY / 2, 0)) ;
+   PL.AddUPoint( 1, Point3d( dDimX / 2, -dDimY / 2, 0)) ;
+   PL.AddUPoint( 2, Point3d( dDimX / 2, dDimY / 2, 0)) ;
+   PL.AddUPoint( 3, Point3d( -dDimX / 2, dDimY / 2, 0)) ;
+   PL.AddUPoint( 4, Point3d( -dDimX / 2, -dDimY / 2, 0)) ;
    if ( dHeight < 0)
       PL.Invert() ;
   // punto di vertice
-   Point3d ptTip( 0.5 * dDimX, 0.5 * dDimY, dHeight) ;
+   Point3d ptTip( 0, 0, dHeight) ;
   // creo e setto la superficie trimesh laterale
    PtrOwner<SurfTriMesh> pSTM( CreateBasicSurfTriMesh()) ;
    if ( IsNull( pSTM)  ||  ! pSTM->CreateByPointCurve( ptTip, PL))
@@ -257,6 +257,111 @@ GetSurfTriMeshSphere( double dRadius, double dLinTol)
    return GetSurfTriMeshByRevolve( &cArc, ORIG, Z_AX, true, dLinTol) ;
 }
 
+//-------------------------------------------------------------------------------
+ISurfTriMesh*
+GetSurfTriMeshPyramidFrustum( double dBaseDimX, double dBaseDimY, double dTopDimX, double dTopDimY, double dHeight)
+{
+  // le dimensioni devono essere significative
+   if ( ( min( dBaseDimX, dBaseDimY) < EPS_SMALL  &&  min( dTopDimX, dTopDimY) < EPS_SMALL)  ||  abs( dHeight) < EPS_SMALL)
+      return nullptr ;
+  // se piramide
+   if ( min( dTopDimX, dTopDimY) < EPS_SMALL)
+      return GetSurfTriMeshPyramid( dBaseDimX, dBaseDimY, dHeight) ;
+  // se piramide inversa
+   if ( min( dBaseDimX, dBaseDimY) < EPS_SMALL)
+      return GetSurfTriMeshPyramid( dTopDimX, dTopDimY, -dHeight) ;
+  // se parallelepipedo
+   // continuo qui per avere l'origine in centro e non sullo spigolo in basso a sinistra
+  // creo la polilinea del contorno della base
+   PolyLine PL1 ;
+   PL1.AddUPoint( 0, Point3d( -dBaseDimX / 2, -dBaseDimY / 2, 0)) ;
+   PL1.AddUPoint( 1, Point3d( dBaseDimX / 2, -dBaseDimY / 2, 0)) ;
+   PL1.AddUPoint( 2, Point3d( dBaseDimX / 2 , dBaseDimY / 2, 0)) ;
+   PL1.AddUPoint( 3, Point3d( -dBaseDimX / 2, dBaseDimY / 2, 0)) ;
+   PL1.AddUPoint( 4, Point3d( -dBaseDimX / 2, -dBaseDimY / 2, 0)) ;
+   if ( dHeight < 0)
+      PL1.Invert() ;
+  // creo la polilinea del contorno di sopra
+   PolyLine PL2 ;
+   PL2.AddUPoint( 0, Point3d( -dTopDimX / 2, -dTopDimY / 2, dHeight)) ;
+   PL2.AddUPoint( 1, Point3d( dTopDimX / 2, -dTopDimY / 2, dHeight)) ;
+   PL2.AddUPoint( 2, Point3d( dTopDimX / 2, dTopDimY / 2, dHeight)) ;
+   PL2.AddUPoint( 3, Point3d( -dTopDimX / 2, dTopDimY / 2, dHeight)) ;
+   PL2.AddUPoint( 4, Point3d( -dTopDimX / 2, -dTopDimY / 2, dHeight)) ;
+   if ( dHeight < 0)
+      PL2.Invert() ;
+  // creo e setto la superficie trimesh laterale
+   PtrOwner<SurfTriMesh> pSTM( CreateBasicSurfTriMesh()) ;
+   if ( IsNull( pSTM)  ||  ! pSTM->CreateByTwoCurves( PL1, PL2, ISurfTriMesh::RLT_ISOPAR_SMOOTH))
+      return nullptr ;
+  // creo la superficie di base e ne inverto la normale
+   SurfTriMesh STM1 ;
+   if ( ! STM1.CreateByFlatContour( PL1))
+      return nullptr ;
+   STM1.Invert() ;
+  // la unisco alla superficie del fianco
+   if ( ! pSTM->DoSewing( STM1))
+      return nullptr ;
+  // creo la superficie sopra
+   SurfTriMesh STM2 ;
+   if ( ! STM2.CreateByFlatContour( PL2))
+      return nullptr ;
+  // la unisco alla superficie del fianco
+   if ( ! pSTM->DoSewing( STM2))
+      return nullptr ;
+  // restituisco la superficie
+   return Release( pSTM) ;
+}
+
+//-------------------------------------------------------------------------------
+ISurfTriMesh*
+GetSurfTriMeshConeFrustum( double dBaseRad, double dTopRad, double dHeight, double dLinTol)
+{
+  // le dimensioni devono essere significative
+   if ( ( dBaseRad < EPS_SMALL  &&  dTopRad < EPS_SMALL)  ||  abs( dHeight) < EPS_SMALL)
+      return nullptr ;
+  // se cono
+   if ( dTopRad < EPS_SMALL)
+      return GetSurfTriMeshCone( dBaseRad, dHeight, dLinTol) ;
+  // se cono rovescio
+   if ( dBaseRad < EPS_SMALL)
+      return GetSurfTriMeshCone( dTopRad, -dHeight, dLinTol) ;
+  // se cilindro
+   if ( abs( dTopRad - dBaseRad) < EPS_SMALL)
+      return GetSurfTriMeshCylinder( dBaseRad, dHeight, dLinTol) ;
+  // creo la circonferenza sotto
+   CurveArc cArc1 ;
+   cArc1.Set( ORIG, Z_AX, dBaseRad) ;
+   if ( dHeight < 0)
+      cArc1.Invert() ;
+  // creo la circonferenza sopra
+   CurveArc cArc2 ;
+   cArc2.Set( Point3d( 0, 0, dHeight), Z_AX, dTopRad) ;
+   if ( dHeight < 0)
+      cArc2.Invert() ;
+  // creo la superficie laterale del cono
+   PtrOwner<ISurfTriMesh> pSTM( GetSurfTriMeshRuled( &cArc1, &cArc2, ISurfTriMesh::RLT_ISOPAR_SMOOTH, dLinTol)) ;
+   if ( IsNull( pSTM))
+      return nullptr ;
+  // creo la superficie sotto e la inverto
+   PtrOwner<ISurfTriMesh> pSTM1( GetSurfTriMeshByFlatContour( &cArc1, dLinTol)) ;
+   if ( IsNull( pSTM1))
+      return nullptr ;
+   pSTM1->Invert() ;
+  // la unisco alla superficie del fianco
+   if ( ! pSTM->DoSewing( *pSTM1))
+      return nullptr ;
+  // creo la superficie sopra
+   PtrOwner<ISurfTriMesh> pSTM2( GetSurfTriMeshByFlatContour( &cArc2, dLinTol)) ;
+   if ( IsNull( pSTM2))
+      return nullptr ;
+  // la unisco alla superficie del fianco
+   if ( ! pSTM->DoSewing( *pSTM2))
+      return nullptr ;
+  // restituisco la superficie
+   return Release( pSTM) ;
+}
+
 //-------------------------------------------------------------------------------
 ISurfTriMesh*
 GetSurfTriMeshPlaneInBox( const Plane3d& plPlane, const BBox3d& b3Box, bool bOnEq, bool bOnCt)