// Copyright (c) 1995-1999 Matra Datavision // Copyright (c) 1999-2014 OPEN CASCADE SAS // // This file is part of Open CASCADE Technology software library. // // This library is free software; you can redistribute it and/or modify it under // the terms of the GNU Lesser General Public License version 2.1 as published // by the Free Software Foundation, with special exception defined in the file // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT // distribution for complete text of the license and disclaimer of any warranty. // // Alternatively, this file may be used under the terms of Open CASCADE // commercial license or contractual agreement. #include #include #include #include #include #include #ifdef OCCT_DEBUG #include #include #include #include #ifdef DRAW #include #endif //POP pour NT #include static Standard_Integer IndexOfSection = 0; extern Standard_Boolean Blend_GettraceDRAWSECT(); // Pour debug : visualisation de la section static void Drawsect(const TheSurface& surf, const TheCurve& curv, const Standard_Real param, Blend_CSFunction& Func) { gp_Pnt2d p2d = Func.Pnt2d(); Standard_Real pc = Func.ParameterOnC(); Blend_Point BP(TheSurfaceTool::Value(surf,p2d.X(),p2d.Y()), TheCurveTool::Value(curv,pc), param,p2d.X(),p2d.Y(),pc); Standard_Integer hp,hk,hd,hp2d; Func.GetShape(hp,hk,hd,hp2d); TColStd_Array1OfReal TK(1,hk); Func.Knots(TK); TColStd_Array1OfInteger TMul(1,hk); Func.Mults(TMul); TColgp_Array1OfPnt TP(1,hp); TColgp_Array1OfPnt2d TP2d(1,hp2d); TColStd_Array1OfReal TW(1,hp); Func.Section(BP,TP,TP2d,TW); Handle(Geom_BSplineCurve) sect = new Geom_BSplineCurve (TP,TW,TK,TMul,hd); IndexOfSection++; //POP pour NT //char name[100]; char* name = new char[100]; sprintf(name,"%s_%d","Section",IndexOfSection); #ifdef DRAW DrawTrSurf::Set(name,sect); #endif } #endif #include #include #include #include