0022048: Visualization, AIS_InteractiveContext - single object selection should alway...
[occt.git] / src / GeomliteTest / GeomliteTest_ModificationCommands.cxx
old mode 100755 (executable)
new mode 100644 (file)
index a5688ea..1c649ca
@@ -1,7 +1,18 @@
-// File:       GeomliteTest_ModificationCommands.cxx
-// Created:    Thu Apr 15 12:00 1997
-// Author:     Joelle CHAUVET
-//             <jct@sgi38>
+// Created on: 1997-04-15
+// Created by: Joelle CHAUVET
+// Copyright (c) 1997-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 <GeomliteTest.hxx>
 #include <DrawTrSurf.hxx>
 #include <Precision.hxx>
 #include <GeomLib.hxx>
 
-#ifdef WNT
+#include <Geom2d_BezierCurve.hxx>
+#include <Geom2d_BSplineCurve.hxx>
+#include <Geom_BezierCurve.hxx>
+#include <Geom_BezierSurface.hxx>
+#include <Geom_BSplineCurve.hxx>
+#include <Geom_BSplineSurface.hxx>
+#include <Geom_BoundedCurve.hxx>
+#include <Geom_BoundedSurface.hxx>
+
+#ifdef _MSC_VER
 #include <stdio.h>
 //#define strcasecmp strcmp Already defined
 #endif
@@ -43,7 +63,7 @@ static Standard_Integer extendcurve (Draw_Interpretor& di, Standard_Integer n, c
        apres = Standard_False ;
       }
   }
-  Standard_Integer cont=atoi(a[3]);  
+  Standard_Integer cont=Draw::Atoi(a[3]);  
   GeomLib::ExtendCurveToPoint(GB,P,cont,apres);
   DrawTrSurf::Set(a[1],GB);
   return 0;
@@ -64,8 +84,8 @@ static Standard_Integer extendsurf (Draw_Interpretor& di, Standard_Integer n, co
     di << "extendsurf needs a Bounded surface";
     return 1;
   }
-  Standard_Real chord=atof(a[2]);
-  Standard_Integer cont=atoi(a[3]);
+  Standard_Real chord=Draw::Atof(a[2]);
+  Standard_Integer cont=Draw::Atoi(a[3]);
   Standard_Boolean enU = Standard_True, apres = Standard_True;
   if (n >= 5) {
       if (strcmp(a[4], "V") == 0) {
@@ -94,16 +114,16 @@ static Standard_Integer extendsurf (Draw_Interpretor& di, Standard_Integer n, co
 //purpose  : 
 //=======================================================================
 
-static Standard_Integer samerange (Draw_Interpretor& di, Standard_Integer n, const char** a)
+static Standard_Integer samerange (Draw_Interpretor& /*di*/, Standard_Integer n, const char** a)
 {
   if (n < 6) return 1;
   Handle(Geom2d_Curve) C = DrawTrSurf::GetCurve2d(a[2]);
   Handle(Geom2d_Curve) Res;
   Standard_Real f, l, rf, rl;
-  f = atof(a[3]);
-  l = atof(a[4]);
-  rf = atof(a[5]);
-  rl = atof(a[6]);
+  f = Draw::Atof(a[3]);
+  l = Draw::Atof(a[4]);
+  rf = Draw::Atof(a[5]);
+  rl = Draw::Atof(a[6]);
 
   GeomLib::SameRange(Precision::PConfusion(), C, 
                     f, l, rf, rl, Res);
@@ -115,6 +135,75 @@ static Standard_Integer samerange (Draw_Interpretor& di, Standard_Integer n, con
 }
 
 //=======================================================================
+//function : setweight
+//purpose  : Changes a weight of a pole on B-spline curve/surface
+//=======================================================================
+
+static Standard_Integer setweight(Draw_Interpretor& /*di*/, Standard_Integer n, const char** a)
+{
+  if (n < 4 || n > 5)
+  {
+    std::cout << "Wrong parameters" << std::endl;
+    return 1;
+  }
+
+  Standard_Integer anIndex1 = Draw::Atoi(a[2]);
+  Standard_Integer anIndex2 = n == 5 ? Draw::Atoi(a[3]) : 0;
+  Standard_Real    aWeight  = Draw::Atof(a[n-1]);
+
+  Handle(Geom_BSplineCurve) aBSplCurve = DrawTrSurf::GetBSplineCurve(a[1]);
+  if (!aBSplCurve.IsNull())
+  {
+    aBSplCurve->SetWeight(anIndex1, aWeight);
+    return 0;
+  }
+
+  Handle(Geom_BezierCurve) aBezCurve = DrawTrSurf::GetBezierCurve(a[1]);
+  if (!aBezCurve.IsNull())
+  {
+    aBezCurve->SetWeight(anIndex1, aWeight);
+    return 0;
+  }
+
+  Handle(Geom2d_BSplineCurve) aBSplCurve2d = DrawTrSurf::GetBSplineCurve2d(a[1]);
+  if (!aBSplCurve2d.IsNull())
+  {
+    aBSplCurve2d->SetWeight(anIndex1, aWeight);
+    return 0;
+  }
+
+  Handle(Geom2d_BezierCurve) aBezCurve2d = DrawTrSurf::GetBezierCurve2d(a[1]);
+  if (!aBezCurve2d.IsNull())
+  {
+    aBezCurve2d->SetWeight(anIndex1, aWeight);
+    return 0;
+  }
+
+  Handle(Geom_BSplineSurface) aBSplSurf = DrawTrSurf::GetBSplineSurface(a[1]);
+  Handle(Geom_BezierSurface) aBezSurf = DrawTrSurf::GetBezierSurface(a[1]);
+  if (n != 5 && (!aBSplSurf.IsNull() || !aBezSurf.IsNull()))
+  {
+    std::cout << "Incorrect parameters" << std::endl;
+    return 1;
+  }
+
+  if (!aBSplSurf.IsNull())
+  {
+    aBSplSurf->SetWeight(anIndex1, anIndex2, aWeight);
+    return 0;
+  }
+
+  if (!aBezSurf.IsNull())
+  {
+    aBezSurf->SetWeight(anIndex1, anIndex2, aWeight);
+    return 0;
+  }
+
+  std::cout << a[1] << " is not a B-spline nor a Bezier curve/surface" << std::endl;
+  return 1;
+}
+
+//=======================================================================
 //function : ModificationCommands
 //purpose  : 
 //=======================================================================
@@ -150,6 +239,12 @@ void  GeomliteTest::ModificationCommands(Draw_Interpretor& theCommands)
                  __FILE__,
                   samerange, g);
 
+  theCommands.Add("setweight",
+                  "setweight curve/surf index1 [index2] weight"
+                  "\n\t\tchanges a weight of a pole of B-spline curve/surface (index2 is useful for surfaces only)",
+                  __FILE__,
+                  setweight,g);
+
 }