1 // Created on: 1994-07-25 2 // Created by: Remi LEQUETTE 3 // Copyright (c) 1994-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 <GeometryTest.hxx> 18 #include <GeomliteTest.hxx> 19 #include <Standard_Boolean.hxx> 20 #include <Draw_Interpretor.hxx> 21 AllCommands(Draw_Interpretor & theCommands)22void GeometryTest::AllCommands(Draw_Interpretor& theCommands) 23 { 24 static Standard_Boolean done = Standard_False; 25 if (done) return; 26 done = Standard_True; 27 28 GeomliteTest::AllCommands(theCommands); 29 GeometryTest::CurveCommands(theCommands); 30 GeometryTest::CurveTanCommands(theCommands); 31 GeometryTest::FairCurveCommands(theCommands); 32 GeometryTest::SurfaceCommands(theCommands); 33 GeometryTest::ConstraintCommands(theCommands); 34 GeometryTest::APICommands(theCommands); 35 GeometryTest::ContinuityCommands(theCommands); 36 GeometryTest::TestProjCommands(theCommands); 37 GeometryTest::PolyCommands(theCommands); 38 39 // define the TCL variable Draw_GEOMETRY 40 //char* com = "set Draw_GEOMETRY 1"; 41 //theCommands.Eval(com); 42 //char* com2 = "source $env(CASROOT)/src/DrawResources/CURVES.tcl"; 43 //theCommands.Eval(com2); 44 //char* com3 = "source $env(CASROOT)/src/DrawResources/SURFACES.tcl"; 45 //theCommands.Eval(com3); 46 } 47