src/GeomliteTest/GeomliteTest_ModificationCommands.cxx

   1 // Created on: 1997-04-15
   2 // Created by: Joelle CHAUVET
   3 // Copyright (c) 1997-1999 Matra Datavision
   4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 //
   6 // This file is part of Open CASCADE Technology software library.
   7 //
   8 // This library is free software; you can redistribute it and/or modify it under
   9 // the terms of the GNU Lesser General Public License version 2.1 as published
  10 // by the Free Software Foundation, with special exception defined in the file
  11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 // distribution for complete text of the license and disclaimer of any warranty.
  13 //
  14 // Alternatively, this file may be used under the terms of Open CASCADE
  15 // commercial license or contractual agreement.
  16
  17 #include <GeomliteTest.hxx>
  18 #include <DrawTrSurf.hxx>
  19 #include <Draw.hxx>
  20 #include <Draw_Interpretor.hxx>
  21 #include <Draw_Appli.hxx>
  22 #include <Draw_Display.hxx>
  23
  24 #include <Precision.hxx>
  25 #include <GeomLib.hxx>
  26
  27 #include <Geom2d_BezierCurve.hxx>
  28 #include <Geom2d_BSplineCurve.hxx>
  29 #include <Geom_BezierCurve.hxx>
  30 #include <Geom_BezierSurface.hxx>
  31 #include <Geom_BSplineCurve.hxx>
  32 #include <Geom_BSplineSurface.hxx>
  33
  34 #ifdef WNT
  35 #include <stdio.h>
  36 //#define strcasecmp strcmp Already defined
  37 #endif
  38
  39
  40 //=======================================================================
  41 //function : extendcurve
  42 //purpose  :
  43 //=======================================================================
  44
  45 static Standard_Integer extendcurve (Draw_Interpretor& di, Standard_Integer n, const char** a)
  46 {
  47   if (n < 4) return 1;
  48
  49   Handle(Geom_BoundedCurve) GB =
  50     Handle(Geom_BoundedCurve)::DownCast(DrawTrSurf::GetCurve(a[1]));
  51   if (GB.IsNull())  {
  52     di << "extendcurve needs a Bounded curve";
  53     return 1;
  54   }
  55
  56   gp_Pnt  P;
  57   if ( !DrawTrSurf::GetPoint(a[2],P)) return 1;
  58   Standard_Boolean apres = Standard_True;
  59   if (n == 5) {
  60       if (strcmp(a[4], "B") == 0) {
  61         apres = Standard_False ;
  62       }
  63   }
  64   Standard_Integer cont=Draw::Atoi(a[3]);
  65   GeomLib::ExtendCurveToPoint(GB,P,cont,apres);
  66   DrawTrSurf::Set(a[1],GB);
  67   return 0;
  68 }
  69
  70 //=======================================================================
  71 //function : extendsurf
  72 //purpose  :
  73 //=======================================================================
  74
  75 static Standard_Integer extendsurf (Draw_Interpretor& di, Standard_Integer n, const char** a)
  76 {
  77   if (n < 4) return 1;
  78
  79   Handle(Geom_BoundedSurface) GB =
  80     Handle(Geom_BoundedSurface)::DownCast(DrawTrSurf::GetSurface(a[1]));
  81   if (GB.IsNull())  {
  82     di << "extendsurf needs a Bounded surface";
  83     return 1;
  84   }
  85   Standard_Real chord=Draw::Atof(a[2]);
  86   Standard_Integer cont=Draw::Atoi(a[3]);
  87   Standard_Boolean enU = Standard_True, apres = Standard_True;
  88   if (n >= 5) {
  89       if (strcmp(a[4], "V") == 0) {
  90         enU = Standard_False ;
  91       }
  92       if (strcmp(a[4], "B") == 0) {
  93         apres = Standard_False ;
  94       }
  95   }
  96   if (n == 6) {
  97       if (strcmp(a[5], "B") == 0) {
  98         apres = Standard_False ;
  99       }
 100   }
 101
 102
 103   GeomLib::ExtendSurfByLength(GB,chord,cont,enU,apres);
 104   DrawTrSurf::Set(a[1],GB);
 105
 106   return 0;
 107 }
 108
 109
 110 //=======================================================================
 111 //function :  samerange
 112 //purpose  :
 113 //=======================================================================
 114
 115 static Standard_Integer samerange (Draw_Interpretor& /*di*/, Standard_Integer n, const char** a)
 116 {
 117   if (n < 6) return 1;
 118   Handle(Geom2d_Curve) C = DrawTrSurf::GetCurve2d(a[2]);
 119   Handle(Geom2d_Curve) Res;
 120   Standard_Real f, l, rf, rl;
 121   f = Draw::Atof(a[3]);
 122   l = Draw::Atof(a[4]);
 123   rf = Draw::Atof(a[5]);
 124   rl = Draw::Atof(a[6]);
 125
 126   GeomLib::SameRange(Precision::PConfusion(), C,
 127                      f, l, rf, rl, Res);
 128
 129   DrawTrSurf::Set(a[1],Res);
 130
 131   return 0;
 132
 133 }
 134
 135 //=======================================================================
 136 //function : setweight
 137 //purpose  : Changes a weight of a pole on B-spline curve/surface
 138 //=======================================================================
 139
 140 static Standard_Integer setweight(Draw_Interpretor& /*di*/, Standard_Integer n, const char** a)
 141 {
 142   if (n < 4 || n > 5)
 143   {
 144     std::cout << "Wrong parameters" << std::endl;
 145     return 1;
 146   }
 147
 148   Standard_Integer anIndex1 = Draw::Atoi(a[2]);
 149   Standard_Integer anIndex2 = n == 5 ? Draw::Atoi(a[3]) : 0;
 150   Standard_Real    aWeight  = Draw::Atof(a[n-1]);
 151
 152   Handle(Geom_BSplineCurve) aBSplCurve = DrawTrSurf::GetBSplineCurve(a[1]);
 153   if (!aBSplCurve.IsNull())
 154   {
 155     aBSplCurve->SetWeight(anIndex1, aWeight);
 156     return 0;
 157   }
 158
 159   Handle(Geom_BezierCurve) aBezCurve = DrawTrSurf::GetBezierCurve(a[1]);
 160   if (!aBezCurve.IsNull())
 161   {
 162     aBezCurve->SetWeight(anIndex1, aWeight);
 163     return 0;
 164   }
 165
 166   Handle(Geom2d_BSplineCurve) aBSplCurve2d = DrawTrSurf::GetBSplineCurve2d(a[1]);
 167   if (!aBSplCurve2d.IsNull())
 168   {
 169     aBSplCurve2d->SetWeight(anIndex1, aWeight);
 170     return 0;
 171   }
 172
 173   Handle(Geom2d_BezierCurve) aBezCurve2d = DrawTrSurf::GetBezierCurve2d(a[1]);
 174   if (!aBezCurve2d.IsNull())
 175   {
 176     aBezCurve2d->SetWeight(anIndex1, aWeight);
 177     return 0;
 178   }
 179
 180   Handle(Geom_BSplineSurface) aBSplSurf = DrawTrSurf::GetBSplineSurface(a[1]);
 181   Handle(Geom_BezierSurface) aBezSurf = DrawTrSurf::GetBezierSurface(a[1]);
 182   if (n != 5 && (!aBSplSurf.IsNull() || !aBezSurf.IsNull()))
 183   {
 184     std::cout << "Incorrect parameters" << std::endl;
 185     return 1;
 186   }
 187
 188   if (!aBSplSurf.IsNull())
 189   {
 190     aBSplSurf->SetWeight(anIndex1, anIndex2, aWeight);
 191     return 0;
 192   }
 193
 194   if (!aBezSurf.IsNull())
 195   {
 196     aBezSurf->SetWeight(anIndex1, anIndex2, aWeight);
 197     return 0;
 198   }
 199
 200   std::cout << a[1] << " is not a B-spline nor a Bezier curve/surface" << std::endl;
 201   return 1;
 202 }
 203
 204 //=======================================================================
 205 //function : ModificationCommands
 206 //purpose  :
 207 //=======================================================================
 208
 209
 210 void  GeomliteTest::ModificationCommands(Draw_Interpretor& theCommands)
 211 {
 212   static Standard_Boolean loaded = Standard_False;
 213   if (loaded) return;
 214   loaded = Standard_True;
 215
 216   DrawTrSurf::BasicCommands(theCommands);
 217
 218   const char* g;
 219
 220   g = "GEOMETRY Curves and Surfaces modification";
 221
 222
 223   theCommands.Add("extendcurve",
 224                   "extendcurve name point cont [A(fter)/B(efore)]",
 225                    __FILE__,
 226                   extendcurve , g);
 227
 228
 229   theCommands.Add("extendsurf",
 230                   "extendsurf name length cont [U/V] [A(fter)/B(efore)]",
 231                   __FILE__,
 232                    extendsurf, g);
 233
 234
 235   theCommands.Add("chgrange",
 236                   "chgrange newname curve2d first last  RequestedFirst RequestedLast ]",
 237                   __FILE__,
 238                    samerange, g);
 239
 240   theCommands.Add("setweight",
 241                   "setweight curve/surf index1 [index2] weight"
 242                   "\n\t\tchanges a weight of a pole of B-spline curve/surface (index2 is useful for surfaces only)",
 243                   __FILE__,
 244                   setweight,g);
 245
 246 }
 247
 248
 249
 250