0023362: Adding DRAW command vsetinteriorstyle
[occt.git] / src / ViewerTest / ViewerTest.cxx
1 // Created on: 1997-07-23
2 // Created by: Henri JEANNIN
3 // Copyright (c) 1997-1999 Matra Datavision
4 // Copyright (c) 1999-2012 OPEN CASCADE SAS
5 //
6 // The content of this file is subject to the Open CASCADE Technology Public
7 // License Version 6.5 (the "License"). You may not use the content of this file
8 // except in compliance with the License. Please obtain a copy of the License
9 // at http://www.opencascade.org and read it completely before using this file.
10 //
11 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 //
14 // The Original Code and all software distributed under the License is
15 // distributed on an "AS IS" basis, without warranty of any kind, and the
16 // Initial Developer hereby disclaims all such warranties, including without
17 // limitation, any warranties of merchantability, fitness for a particular
18 // purpose or non-infringement. Please see the License for the specific terms
19 // and conditions governing the rights and limitations under the License.
20
21 // Modified by  Eric Gouthiere [sep-oct 98] -> add commands for display...
22 // Modified by  Robert Coublanc [nov 16-17-18 1998]
23 //             -split ViewerTest.cxx into 3 files : ViewerTest.cxx,
24 //                                                  ViewerTest_ObjectCommands.cxx
25 //                                                  ViewerTest_RelationCommands.cxx
26 //             -add Functions and commands for interactive selection of shapes and objects
27 //              in AIS Viewers. (PickShape(s), PickObject(s),
28
29 #include <Standard_Stream.hxx>
30
31 #include <ViewerTest.hxx>
32 #include <TopLoc_Location.hxx>
33 #include <TopTools_HArray1OfShape.hxx>
34 #include <TColStd_HArray1OfTransient.hxx>
35 #include <OSD_Directory.hxx>
36 #include <OSD_File.hxx>
37 #include <OSD_Path.hxx>
38 #include <OSD_Timer.hxx>
39 #include <Geom_Axis2Placement.hxx>
40 #include <Geom_Axis1Placement.hxx>
41 #include <gp_Trsf.hxx>
42 #include <TopExp_Explorer.hxx>
43 #include <BRepAdaptor_Curve.hxx>
44 #include <StdSelect_ShapeTypeFilter.hxx>
45 #include <AIS.hxx>
46 #include <AIS_Drawer.hxx>
47 #include <AIS_InteractiveObject.hxx>
48 #include <AIS_Trihedron.hxx>
49 #include <AIS_Axis.hxx>
50 #include <AIS_Relation.hxx>
51 #include <AIS_TypeFilter.hxx>
52 #include <AIS_SignatureFilter.hxx>
53 #include <AIS_ListOfInteractive.hxx>
54 #include <AIS_ListIteratorOfListOfInteractive.hxx>
55 #include <Aspect_InteriorStyle.hxx>
56 #include <Graphic3d_AspectFillArea3d.hxx>
57 #include <Image_PixMap.hxx>
58 #include <Prs3d_ShadingAspect.hxx>
59
60 #ifdef HAVE_CONFIG_H
61 # include <config.h>
62 #endif
63 #include <stdio.h>
64 #ifdef HAVE_STRINGS_H
65 # include <strings.h>
66 #endif
67
68 #include <Draw_Interpretor.hxx>
69 #include <TCollection_AsciiString.hxx>
70 #include <Draw_PluginMacro.hxx>
71 #include <ViewerTest.hxx>
72 #include <Viewer2dTest.hxx>
73
74 // avoid warnings on 'extern "C"' functions returning C++ classes
75 #ifdef WNT
76 #define _CRT_SECURE_NO_DEPRECATE
77 #pragma warning(4:4190)
78 #pragma warning (disable:4996)
79 #endif
80
81 #include <NIS_InteractiveContext.hxx>
82 #include <NIS_Triangulated.hxx>
83 extern int ViewerMainLoop(Standard_Integer argc, const char** argv);
84
85 //=======================================================================
86 //function : GetColorFromName
87 //purpose  : get the Quantity_NameOfColor from a string
88 //=======================================================================
89
90 #include <Quantity_NameOfColor.hxx>
91 #include <Quantity_Color.hxx>
92 #include <Quantity_NameOfColor.hxx>
93
94 #include <Graphic3d_NameOfMaterial.hxx>
95
96 #define DEFAULT_COLOR    Quantity_NOC_GOLDENROD
97 #define DEFAULT_MATERIAL Graphic3d_NOM_BRASS
98
99 static Quantity_NameOfColor GetColorFromName( const char *name )
100 {
101   Quantity_NameOfColor ret = DEFAULT_COLOR;
102
103   Standard_Boolean Found = Standard_False;
104   Standard_CString colstring;
105   for(Standard_Integer i=0;i<=514 && !Found;i++)
106     {
107       colstring = Quantity_Color::StringName(Quantity_NameOfColor(i));
108       if (!strcasecmp(name,colstring)) {
109         ret = (Quantity_NameOfColor)i;
110         Found = Standard_True;
111       }
112     }
113
114   return ret;
115 }
116
117 //=======================================================================
118 //function : GetMaterialFromName
119 //purpose  : get the Graphic3d_NameOfMaterial from a string
120 //=======================================================================
121
122 static Graphic3d_NameOfMaterial GetMaterialFromName( const char *name )
123 {
124   Graphic3d_NameOfMaterial mat = DEFAULT_MATERIAL;
125
126   if      ( !strcasecmp(name,"BRASS" ) )         mat = Graphic3d_NOM_BRASS;
127   else if ( !strcasecmp(name,"BRONZE" ) )        mat = Graphic3d_NOM_BRONZE;
128   else if ( !strcasecmp(name,"COPPER" ) )        mat = Graphic3d_NOM_COPPER;
129   else if ( !strcasecmp(name,"GOLD" ) )          mat = Graphic3d_NOM_GOLD;
130   else if ( !strcasecmp(name,"PEWTER" ) )        mat = Graphic3d_NOM_PEWTER;
131   else if ( !strcasecmp(name,"SILVER" ) )        mat = Graphic3d_NOM_SILVER;
132   else if ( !strcasecmp(name,"STEEL" ) )         mat = Graphic3d_NOM_STEEL;
133   else if ( !strcasecmp(name,"METALIZED" ) )     mat = Graphic3d_NOM_METALIZED;
134   else if ( !strcasecmp(name,"STONE" ) )         mat = Graphic3d_NOM_STONE;
135   else if ( !strcasecmp(name,"CHROME" ) )        mat = Graphic3d_NOM_CHROME;
136   else if ( !strcasecmp(name,"ALUMINIUM" ) )     mat = Graphic3d_NOM_ALUMINIUM;
137   else if ( !strcasecmp(name,"STONE" ) )         mat = Graphic3d_NOM_STONE;
138   else if ( !strcasecmp(name,"NEON_PHC" ) )      mat = Graphic3d_NOM_NEON_PHC;
139   else if ( !strcasecmp(name,"NEON_GNC" ) )      mat = Graphic3d_NOM_NEON_GNC;
140   else if ( !strcasecmp(name,"PLASTER" ) )       mat = Graphic3d_NOM_PLASTER;
141   else if ( !strcasecmp(name,"SHINY_PLASTIC" ) ) mat = Graphic3d_NOM_SHINY_PLASTIC;
142   else if ( !strcasecmp(name,"SATIN" ) )         mat = Graphic3d_NOM_SATIN;
143   else if ( !strcasecmp(name,"PLASTIC" ) )       mat = Graphic3d_NOM_PLASTIC;
144   else if ( !strcasecmp(name,"OBSIDIAN" ) )      mat = Graphic3d_NOM_OBSIDIAN;
145   else if ( !strcasecmp(name,"JADE" ) )          mat = Graphic3d_NOM_JADE;
146
147   return mat;
148 }
149
150 //=======================================================================
151 //function : GetTypeNames
152 //purpose  :
153 //=======================================================================
154 static const char** GetTypeNames()
155 {
156   static const char* names[14] = {"Point","Axis","Trihedron","PlaneTrihedron", "Line","Circle","Plane",
157                           "Shape","ConnectedShape","MultiConn.Shape",
158                           "ConnectedInter.","MultiConn.",
159                           "Constraint","Dimension"};
160   static const char** ThePointer = names;
161   return ThePointer;
162 }
163
164 //=======================================================================
165 //function : GetTypeAndSignfromString
166 //purpose  :
167 //=======================================================================
168 void GetTypeAndSignfromString (const char* name,AIS_KindOfInteractive& TheType,Standard_Integer& TheSign)
169 {
170   const char ** thefullnames = GetTypeNames();
171   Standard_Integer index(-1);
172
173   for(Standard_Integer i=0;i<=13 && index==-1;i++)
174     if(!strcasecmp(name,thefullnames[i]))
175       index = i;
176
177   if(index ==-1){
178     TheType = AIS_KOI_None;
179     TheSign = -1;
180     return;
181   }
182
183   if(index<=6){
184     TheType = AIS_KOI_Datum;
185     TheSign = index+1;
186   }
187   else if (index <=9){
188     TheType = AIS_KOI_Shape;
189     TheSign = index-7;
190   }
191   else if(index<=11){
192     TheType = AIS_KOI_Object;
193     TheSign = index-10;
194   }
195   else{
196     TheType = AIS_KOI_Relation;
197     TheSign = index-12;
198   }
199
200 }
201
202
203
204 #include <string.h>
205 #include <Draw_Interpretor.hxx>
206 #include <Draw.hxx>
207 #include <Draw_Appli.hxx>
208 #include <DBRep.hxx>
209
210
211 #include <TCollection_AsciiString.hxx>
212 #include <V3d_Viewer.hxx>
213 #include <V3d_View.hxx>
214 #include <V3d.hxx>
215
216 #include <AIS_InteractiveContext.hxx>
217 #include <AIS_Shape.hxx>
218 #include <AIS_TexturedShape.hxx>
219 #include <AIS_DisplayMode.hxx>
220 #include <TColStd_MapOfInteger.hxx>
221 #include <AIS_MapOfInteractive.hxx>
222 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
223 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
224 #include <ViewerTest_EventManager.hxx>
225
226 #include <TopoDS_Solid.hxx>
227 #include <BRepTools.hxx>
228 #include <BRep_Builder.hxx>
229 #include <TopAbs_ShapeEnum.hxx>
230
231 #include <TopoDS.hxx>
232 #include <BRep_Tool.hxx>
233
234
235 #include <Draw_Window.hxx>
236 #include <AIS_ListIteratorOfListOfInteractive.hxx>
237 #include <AIS_ListOfInteractive.hxx>
238 #include <AIS_DisplayMode.hxx>
239 #include <TopTools_ListOfShape.hxx>
240 #include <BRepOffsetAPI_MakeThickSolid.hxx>
241 #include <BRepOffset.hxx>
242
243
244 //==============================================================================
245 //function : GetTypeNameFromShape
246 //purpose  : get the shape type as a string from a shape
247 //==============================================================================
248
249 static const char* GetTypeNameFromShape( const TopoDS_Shape& aShape )
250 { const char *ret = "????";
251
252   if ( aShape.IsNull() ) ret = "Null Shape";
253
254             switch ( aShape.ShapeType() ) {
255               case TopAbs_COMPOUND  : ret = "COMPOUND" ; break;
256               case TopAbs_COMPSOLID : ret = "COMPSOLID" ; break;
257               case TopAbs_SOLID     : ret = "SOLID" ; break;
258               case TopAbs_SHELL     : ret = "SHELL" ; break;
259               case TopAbs_FACE      : ret = "FACE" ; break;
260               case TopAbs_WIRE      : ret = "WIRE" ; break;
261               case TopAbs_EDGE      : ret = "EDGE" ; break;
262               case TopAbs_VERTEX    : ret = "VERTEX" ; break;
263               case TopAbs_SHAPE     : ret = "SHAPE" ; break;
264             }
265   return ret;
266 }
267 //==============================================================================
268 //  VIEWER OBJECT MANAGEMENT GLOBAL VARIABLES
269 //==============================================================================
270 Standard_EXPORT ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS(){
271   static ViewerTest_DoubleMapOfInteractiveAndName TheMap;
272   return TheMap;
273 }
274
275
276 //==============================================================================
277 //function : VDisplayAISObject
278 //purpose  : register interactive object in the map of AIS objects;
279 //           if other object with such name already registered, it will be kept
280 //           or replaced depending on value of <theReplaceIfExists>,
281 //           if "true" - the old object will be cleared from AIS context;
282 //           returns Standard_True if <theAISObj> registered in map;
283 //==============================================================================
284 Standard_EXPORT Standard_Boolean VDisplayAISObject (const TCollection_AsciiString& theName,
285                                                     const Handle(AIS_InteractiveObject)& theAISObj,
286                                                     Standard_Boolean theReplaceIfExists = Standard_True)
287 {
288   ViewerTest_DoubleMapOfInteractiveAndName& aMap = GetMapOfAIS();
289   Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
290   if (aContextAIS.IsNull())
291   {
292     std::cout << "AIS context is not available.\n";
293     return Standard_False;
294   }
295
296   if (aMap.IsBound2 (theName))
297   {
298     if (!theReplaceIfExists)
299     {
300       std::cout << "Other interactive object has been already "
301                 << "registered with name: " << theName << ".\n"
302                 << "Please use another name.\n";
303       return Standard_False;
304     }
305
306     // stop displaying object
307     Handle(AIS_InteractiveObject) anOldObj =
308        Handle(AIS_InteractiveObject)::DownCast (aMap.Find2 (theName));
309
310     if (!anOldObj.IsNull())
311       aContextAIS->Clear (anOldObj, Standard_True);
312
313     // remove name and old object from map
314     aMap.UnBind2 (theName);
315   }
316
317   if (theAISObj.IsNull())
318   {
319     // object with specified name already unbound
320     return Standard_True;
321   }
322
323   // unbind AIS object if was bound with another name
324   aMap.UnBind1 (theAISObj);
325
326   // can be registered without rebinding
327   aMap.Bind (theAISObj, theName);
328   aContextAIS->Display (theAISObj, Standard_True);
329   return Standard_True;
330 }
331
332 static TColStd_MapOfInteger theactivatedmodes(8);
333 static TColStd_ListOfTransient theEventMgrs;
334
335 static void VwrTst_InitEventMgr(const Handle(NIS_View)& aView,
336                                 const Handle(AIS_InteractiveContext)& Ctx)
337 {
338   theEventMgrs.Clear();
339   theEventMgrs.Prepend(new ViewerTest_EventManager(aView, Ctx));
340 }
341
342 static Handle(V3d_View)&  a3DView(){
343   static Handle(V3d_View) Viou;
344   return Viou;
345 }
346
347 Standard_EXPORT Handle(AIS_InteractiveContext)& TheAISContext(){
348   static Handle(AIS_InteractiveContext) aContext;
349   return aContext;
350 }
351
352 Handle(V3d_View) ViewerTest::CurrentView()
353 {
354   return a3DView();
355 }
356 void ViewerTest::CurrentView(const Handle(V3d_View)& V)
357 {
358   a3DView() = V;
359 }
360
361 Standard_EXPORT const Handle(NIS_InteractiveContext)& TheNISContext()
362 {
363   static Handle(NIS_InteractiveContext) aContext;
364   if (aContext.IsNull()) {
365     aContext = new NIS_InteractiveContext;
366     aContext->SetSelectionMode (NIS_InteractiveContext::Mode_Normal);
367   }
368   return aContext;
369 }
370
371 Handle(AIS_InteractiveContext) ViewerTest::GetAISContext()
372 {
373   return TheAISContext();
374 }
375
376 void ViewerTest::SetAISContext (const Handle(AIS_InteractiveContext)& aCtx)
377 {
378   TheAISContext() = aCtx;
379   ViewerTest::ResetEventManager();
380 }
381
382 Handle(V3d_Viewer) ViewerTest::GetViewerFromContext()
383 {
384   return !TheAISContext().IsNull() ? TheAISContext()->CurrentViewer() : Handle(V3d_Viewer)();
385 }
386
387 Handle(V3d_Viewer) ViewerTest::GetCollectorFromContext()
388 {
389   return !TheAISContext().IsNull() ? TheAISContext()->CurrentViewer() : Handle(V3d_Viewer)();
390 }
391
392
393 void ViewerTest::SetEventManager(const Handle(ViewerTest_EventManager)& EM){
394   theEventMgrs.Prepend(EM);
395 }
396
397 void ViewerTest::UnsetEventManager()
398 {
399   theEventMgrs.RemoveFirst();
400 }
401
402
403 void ViewerTest::ResetEventManager()
404 {
405   const Handle(NIS_View) aView =
406     Handle(NIS_View)::DownCast(ViewerTest::CurrentView());
407   VwrTst_InitEventMgr(aView, ViewerTest::GetAISContext());
408 }
409
410 Handle(ViewerTest_EventManager) ViewerTest::CurrentEventManager()
411 {
412   Handle(ViewerTest_EventManager) EM;
413   if(theEventMgrs.IsEmpty()) return EM;
414   Handle(Standard_Transient) Tr =  theEventMgrs.First();
415   EM = *((Handle(ViewerTest_EventManager)*)&Tr);
416   return EM;
417 }
418
419
420 //=======================================================================
421 //function : Get Context and active viou..
422 //purpose  :
423 //=======================================================================
424 void GetCtxAndView(Handle(AIS_InteractiveContext)& Ctx,
425                    Handle(V3d_View)& Viou)
426 {
427   Ctx = ViewerTest::GetAISContext();
428   if (!Ctx.IsNull())
429   {
430     const Handle(V3d_Viewer)& Vwr = Ctx->CurrentViewer();
431     Vwr->InitActiveViews();
432     if(Vwr->MoreActiveViews())
433       Viou = Vwr->ActiveView();
434   }
435 }
436
437
438 //==============================================================================
439 //function : GetShapeFromName
440 //purpose  : Compute an Shape from a draw variable or a file name
441 //==============================================================================
442
443 static TopoDS_Shape GetShapeFromName(const char* name)
444 {
445   TopoDS_Shape S = DBRep::Get(name);
446
447   if ( S.IsNull() ) {
448         BRep_Builder aBuilder;
449         BRepTools::Read( S, name, aBuilder);
450   }
451
452   return S;
453 }
454 //==============================================================================
455 //function : GetShapeFromName
456 //purpose  : Compute an Shape from a draw variable or a file name
457 //==============================================================================
458 // Unused :
459 #ifdef DEB
460 static TopoDS_Shape GetShapeFromAIS(const AIS_InteractiveObject & TheAisIO )
461 {
462   TopoDS_Shape TheShape=((*(Handle(AIS_Shape)*)&TheAisIO))->Shape();
463   return TheShape;
464 }
465 #endif
466 //==============================================================================
467 //function : GetAISShapeFromName
468 //purpose  : Compute an AIS_Shape from a draw variable or a file name
469 //==============================================================================
470 Handle(AIS_Shape) GetAISShapeFromName(const char* name)
471 {
472   Handle(AIS_Shape) retsh;
473
474   if(GetMapOfAIS().IsBound2(name)){
475     const Handle(AIS_InteractiveObject) IO =
476       Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
477     if (!IO.IsNull()) {
478       if(IO->Type()==AIS_KOI_Shape)
479         if(IO->Signature()==0){
480           retsh = *((Handle(AIS_Shape)*)&IO);
481         }
482         else
483           cout << "an Object which is not an AIS_Shape "
484             "already has this name!!!"<<endl;
485     }
486     return retsh;
487   }
488
489
490   TopoDS_Shape S = GetShapeFromName(name);
491   if ( !S.IsNull() ) {
492     retsh = new AIS_Shape(S);
493   }
494   return retsh;
495 }
496
497
498 //==============================================================================
499 //function : Clear
500 //purpose  : Remove all the object from the viewer
501 //==============================================================================
502 void ViewerTest::Clear()
503 {
504   if ( !a3DView().IsNull() ) {
505     if (TheAISContext()->HasOpenedContext())
506       TheAISContext()->CloseLocalContext();
507     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it(GetMapOfAIS());
508     while ( it.More() ) {
509       cout << "Remove " << it.Key2() << endl;
510       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
511         const Handle(AIS_InteractiveObject) anObj =
512           Handle(AIS_InteractiveObject)::DownCast (it.Key1());
513         TheAISContext()->Remove(anObj,Standard_False);
514       } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
515         const Handle(NIS_InteractiveObject) anObj =
516           Handle(NIS_InteractiveObject)::DownCast (it.Key1());
517         TheNISContext()->Remove(anObj);
518       }
519       it.Next();
520     }
521     TheAISContext()->UpdateCurrentViewer();
522 //    TheNISContext()->UpdateViews();
523     GetMapOfAIS().Clear();
524   }
525 }
526
527 //==============================================================================
528 //function : StandardModesActivation
529 //purpose  : Activate a selection mode, vertex, edge, wire ..., in a local
530 //           Context
531 //==============================================================================
532 void ViewerTest::StandardModeActivation(const Standard_Integer mode )
533 {
534   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
535   if(mode==0) {
536     if (TheAISContext()->HasOpenedContext())
537       aContext->CloseLocalContext();
538   } else {
539
540     if(!aContext->HasOpenedContext()) {
541       // To unhilight the preselected object
542       aContext->UnhilightCurrents(Standard_False);
543       // Open a local Context in order to be able to select subshape from
544       // the selected shape if any or for all if there is no selection
545       if (!aContext->FirstCurrentObject().IsNull()){
546         aContext->OpenLocalContext(Standard_False);
547
548         for(aContext->InitCurrent();aContext->MoreCurrent();aContext->NextCurrent()){
549           aContext->Load(       aContext->Current(),-1,Standard_True);
550         }
551       }
552       else
553         aContext->OpenLocalContext();
554     }
555
556     const char *cmode="???";
557
558     switch (mode) {
559     case 0: cmode = "Shape"; break;
560     case 1: cmode = "Vertex"; break;
561     case 2: cmode = "Edge"; break;
562     case 3: cmode = "Wire"; break;
563     case 4: cmode = "Face"; break;
564     case 5: cmode = "Shell"; break;
565     case 6: cmode = "Solid"; break;
566     case 7: cmode = "Compound"; break;
567     }
568
569     if(theactivatedmodes.Contains(mode))
570       { // Desactivate
571         aContext->DeactivateStandardMode(AIS_Shape::SelectionType(mode));
572         theactivatedmodes.Remove(mode);
573         cout<<"Mode "<< cmode <<" OFF"<<endl;
574       }
575     else
576       { // Activate
577         aContext->ActivateStandardMode(AIS_Shape::SelectionType(mode));
578         theactivatedmodes.Add(mode);
579         cout<<"Mode "<< cmode << " ON" << endl;
580       }
581   }
582 }
583
584 //==============================================================================
585 //function : SelectFromContext
586 //purpose  : pick / select an object from the last MoveTo() on a
587 //            ButtonPress event
588 //==============================================================================
589
590 Handle(AIS_InteractiveObject) Select(Standard_Integer argc,
591                                      const char** argv,
592                                      Standard_Boolean shift,
593                                      Standard_Boolean pick )
594 {
595   Handle(AIS_InteractiveObject) ret;
596   Handle (ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
597   if ( shift ) {
598     EM->ShiftSelect();
599   }
600   else {
601     EM->Select();
602   }
603   const Handle(AIS_InteractiveContext) aContext = EM->Context();
604
605   if ( !aContext->HasOpenedContext() ) {
606     aContext->InitCurrent();
607     while ( aContext->MoreCurrent() ) {
608       Handle(AIS_InteractiveObject) aisPickedShape =
609         Handle(AIS_InteractiveObject)::DownCast(aContext->Current());
610
611 //JR/Hp
612       const char *name = (GetMapOfAIS().IsBound1(aisPickedShape))?
613 //      const char *name = (GetMapOfAIS().IsBound1(aisPickedShape))?
614         GetMapOfAIS().Find1(aisPickedShape).ToCString() :
615           "????";
616       Handle(AIS_Shape) TheRealSh = Handle(AIS_Shape)::DownCast(aisPickedShape);
617       if(!TheRealSh.IsNull()){
618         cout << "Current is " << name
619           << " (" << GetTypeNameFromShape(TheRealSh->Shape())
620             << ")" << endl;
621       }
622       ret = aisPickedShape;
623       if(!TheRealSh.IsNull()){
624         if ( pick && argc > 4 ) {
625           DBRep::Set(argv[4], TheRealSh->Shape());
626         }
627       }
628       aContext->NextCurrent();
629     }
630   }
631   else {
632     // A LocalContext is opened, the use xxxxSelected()
633     // to select an object and its SubShape
634     aContext->InitSelected();
635     while ( aContext->MoreSelected() ) {
636       if ( !aContext->HasSelectedShape() ) {
637       }
638       else {
639         TopoDS_Shape PickedShape = aContext->SelectedShape();
640         if ( pick && argc > 5 ) {
641           DBRep::Set(argv[5], PickedShape);
642         }
643       }
644
645       if ( aContext->Interactive().IsNull() ) {
646         cout << "??? (No InteractiveObject selected)" << endl;
647       }
648       else {
649         Handle(AIS_InteractiveObject) aisPicked =
650           Handle(AIS_InteractiveObject)::DownCast(aContext->Interactive());
651         ret = aisPicked;
652         Handle(AIS_Shape) aisPickedShape = Handle(AIS_Shape)::DownCast(aisPicked);
653
654         // Get back its name
655 //JR/Hp
656         const char *name = ( GetMapOfAIS().IsBound1(aisPicked) )?
657 //      const char *name = ( GetMapOfAIS().IsBound1(aisPicked) )?
658           GetMapOfAIS().Find1(aisPicked).ToCString() :
659             "????";
660
661         if(!aisPickedShape.IsNull()){
662           if ( pick && argc > 4 ) {
663             // Create a draw variable to store the wohole shape
664             // for vpick command
665             DBRep::Set(argv[4], aisPickedShape->Shape());
666           }
667
668           cout << name << " (" << GetTypeNameFromShape(aisPickedShape->Shape())
669             << ")" << endl  ;
670         }
671       }
672       // Goto the next selected object
673       aContext->NextSelected();
674     }
675   }
676   return ret;
677 }
678
679 //==============================================================================
680 //function : DetectedFromContext
681 //purpose  : hilight dynamicaly an object from the last MoveTo() on a
682 //            MouseMove event
683 //==============================================================================
684 Handle(AIS_InteractiveObject) DetectedFromContext(
685         Handle(AIS_InteractiveContext) aContext )
686 {
687   Handle(AIS_InteractiveObject) ret;
688   if ( aContext->HasDetected() ) {
689     if ( !aContext->HasDetectedShape() ) {
690       //No SubShape selected
691     }
692     else {
693       // Get the detected SubShape
694       TopoDS_Shape PickedShape = aContext->DetectedShape();
695     }
696     if ( !aContext->DetectedInteractive().IsNull() ) {
697       Handle(AIS_InteractiveObject) aisPickedShape =
698         Handle(AIS_InteractiveObject)::DownCast(aContext->DetectedInteractive());
699       ret = aisPickedShape;
700     }
701   }
702   return ret;
703 }
704
705
706 //==============================================================================
707 //function : VDispAreas,VDispSensitive,...
708 //purpose  : Redraw the view
709 //Draw arg : No args
710 //==============================================================================
711 static int VDispAreas (Draw_Interpretor& ,Standard_Integer , const char** )
712 {
713
714   Handle(AIS_InteractiveContext) Ctx;
715   Handle(V3d_View) Viou;
716   GetCtxAndView(Ctx,Viou);
717   Ctx->DisplayActiveAreas(Viou);
718   return 0;
719 }
720 static  int VClearAreas (Draw_Interpretor& ,Standard_Integer , const char** )
721 {
722   Handle(AIS_InteractiveContext) Ctx;
723   Handle(V3d_View) Viou;
724   GetCtxAndView(Ctx,Viou);
725   Ctx->ClearActiveAreas(Viou);
726   return 0;
727
728 }
729 static  int VDispSensi (Draw_Interpretor& ,Standard_Integer , const char** )
730 {
731   Handle(AIS_InteractiveContext) Ctx;
732   Handle(V3d_View) Viou;
733   GetCtxAndView(Ctx,Viou);
734   Ctx->DisplayActiveSensitive(Viou);
735   return 0;
736
737 }
738 static  int VClearSensi (Draw_Interpretor& ,Standard_Integer , const char** )
739 {
740   Handle(AIS_InteractiveContext) Ctx;
741   Handle(V3d_View) Viou;
742   GetCtxAndView(Ctx,Viou);
743   Ctx->ClearActiveSensitive(Viou);
744   return 0;
745 }
746
747 //==============================================================================
748 //function : VDebug
749 //purpose  : To list the displayed object with their attributes
750 //Draw arg : No args
751 //==============================================================================
752 static int VDebug(Draw_Interpretor& di, Standard_Integer , const char** )
753 { if ( !a3DView().IsNull() ) {
754      di << "List of object in the viewer :" << "\n";
755
756     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it(GetMapOfAIS());
757
758     while ( it.More() ) {
759         di << "\t" << it.Key2().ToCString() << "\n";
760         it.Next();
761     }
762   }
763
764   return 0;
765 }
766
767 //==============================================================================
768 //function : VSelPrecision
769 //purpose  : To set the selection precision mode and tolerance value
770 //Draw arg : Selection precision mode (0 for window, 1 for view) and tolerance
771 //           value (integer number of pixel for window mode, double value of
772 //           sensitivity for view mode). Without arguments the function just
773 //           prints the current precision mode and the corresponding tolerance.
774 //==============================================================================
775 static int VSelPrecision(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
776 {
777   if( argc > 3 )
778   {
779     di << "Use: " << argv[0] << " [precision_mode [tolerance_value]]\n";
780     return 1;
781   }
782
783   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
784   if( aContext.IsNull() )
785     return 1;
786
787   if( argc == 1 )
788   {
789     StdSelect_SensitivityMode aMode = aContext->SensitivityMode();
790     if( aMode == StdSelect_SM_WINDOW )
791     {
792       Standard_Integer aPixelTolerance = aContext->PixelTolerance();
793       di << "Precision mode  : 0 (window)\n";
794       di << "Pixel tolerance : " << aPixelTolerance << "\n";
795     }
796     else if( aMode == StdSelect_SM_VIEW )
797     {
798       Standard_Real aSensitivity = aContext->Sensitivity();
799       di << "Precision mode : 1 (view)\n";
800       di << "Sensitivity    : " << aSensitivity << "\n";
801     }
802   }
803   else if( argc > 1 )
804   {
805     StdSelect_SensitivityMode aMode = ( StdSelect_SensitivityMode )atoi( argv[1] );
806     aContext->SetSensitivityMode( aMode );
807     if( argc > 2 )
808     {
809       if( aMode == StdSelect_SM_WINDOW )
810       {
811         Standard_Integer aPixelTolerance = atoi( argv[2] );
812         aContext->SetPixelTolerance( aPixelTolerance );
813       }
814       else if( aMode == StdSelect_SM_VIEW )
815       {
816         Standard_Real aSensitivity = atof( argv[2] );
817         aContext->SetSensitivity( aSensitivity );
818       }
819     }
820   }
821   return 0;
822 }
823
824 //==============================================================================
825 //function : VDump
826 //purpose  : To dump the active view snapshot to image file
827 //Draw arg : Picture file name with extension corresponding to desired format
828 //==============================================================================
829 static Standard_Integer VDump (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
830 {
831   if (argc < 2)
832   {
833     di<<"Use: "<<argv[0]<<" <filename>.{png|bmp|jpg|gif} [buffer={rgb|rgba|depth}] [width height]\n";
834     return 1;
835   }
836
837   Image_TypeOfImage aBufferType = Image_TOI_RGB;
838
839   if (argc > 2)
840   {
841     TCollection_AsciiString aBuffTypeStr (argv[2]);
842     if (TCollection_AsciiString::ISSIMILAR (aBuffTypeStr, TCollection_AsciiString ("rgb")))
843     {
844       aBufferType = Image_TOI_RGB;
845     }
846     else if (TCollection_AsciiString::ISSIMILAR (aBuffTypeStr, TCollection_AsciiString ("rgba")))
847     {
848       aBufferType = Image_TOI_RGBA;
849     }
850     else if (TCollection_AsciiString::ISSIMILAR (aBuffTypeStr, TCollection_AsciiString ("depth")))
851     {
852       aBufferType = Image_TOI_FLOAT;
853     }
854   }
855
856   Standard_Integer aWidth  = (argc > 3) ? atoi (argv[3]) : 0;
857   Standard_Integer aHeight = (argc > 4) ? atoi (argv[4]) : 0;
858
859   Handle(AIS_InteractiveContext) IC;
860   Handle(V3d_View) view;
861   GetCtxAndView (IC, view);
862   if (view.IsNull())
863   {
864     di << "Cannot find an active viewer/view\n";
865     return 1;
866   }
867
868   if (aWidth <= 0 || aHeight <= 0)
869   {
870     if (!view->Dump (argv[1], aBufferType))
871     {
872       di << "Dumping failed!\n";
873       return 1;
874     }
875     return 0;
876   }
877
878   Handle(Image_PixMap) aPixMap = view->ToPixMap (aWidth, aHeight, aBufferType);
879   if (aPixMap.IsNull())
880   {
881     di << "Dumping failed!\n";
882     return 1;
883   }
884
885   Image_CRawBufferData aRawBuffer;
886   aPixMap->AccessBuffer (aRawBuffer);
887   if (aRawBuffer.widthPx != aWidth || aRawBuffer.heightPx != aHeight)
888   {
889     std::cout << "Warning! Dumped dimensions " << aRawBuffer.widthPx << "x" << aRawBuffer.heightPx
890               << " are lesser than requested " << aWidth             << "x" << aHeight << "\n";
891   }
892   if (!aPixMap->Dump (argv[1]))
893   {
894     di << "Saving image failed!\n";
895     return 1;
896   }
897   return 0;
898 }
899
900
901 //==============================================================================
902 //function : Displays,Erase...
903 //purpose  :
904 //Draw arg :
905 //==============================================================================
906 static int VwrTst_DispErase(const Handle(AIS_InteractiveObject)& IO,
907                             const Standard_Integer Mode,
908                             const Standard_Integer TypeOfOperation,
909                             const Standard_Boolean Upd)
910 {
911   Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
912
913   switch(TypeOfOperation){
914   case 1:
915     Ctx->Display(IO,Mode,Upd);
916     break;
917   case 2:{
918     Ctx->Erase(IO,Mode,Upd);
919     break;
920   }
921   case 3:{
922     if(IO.IsNull())
923       Ctx->SetDisplayMode((AIS_DisplayMode)Mode,Upd);
924     else
925       Ctx->SetDisplayMode(IO,Mode,Upd);
926     break;
927   }
928   case 4:{
929     if(IO.IsNull())
930       Ctx->SetDisplayMode(0,Upd);
931     else
932       Ctx->UnsetDisplayMode(IO,Upd);
933     break;
934   }
935   }
936   return 0;
937 }
938
939 //=======================================================================
940 //function :
941 //purpose  :
942 //=======================================================================
943 static int VDispMode (Draw_Interpretor& , Standard_Integer argc, const char** argv)
944 {
945
946   TCollection_AsciiString name;
947   if(argc>3)
948     return 1;
949   // display others presentations
950   Standard_Integer TypeOfOperation = (strcasecmp(argv[0],"vdispmode")==0)? 1:
951     (strcasecmp(argv[0],"verasemode")==0) ? 2 :
952       (strcasecmp(argv[0],"vsetdispmode")==0) ? 3 :
953         (strcasecmp(argv[0],"vunsetdispmode")==0) ? 4 : -1;
954
955   Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
956
957   //unset displaymode.. comportement particulier...
958   if(TypeOfOperation==4){
959     if(argc==1){
960       if(Ctx->NbCurrents()==0 ||
961          Ctx->NbSelected()==0){
962         Handle(AIS_InteractiveObject) IO;
963         VwrTst_DispErase(IO,-1,4,Standard_False);
964       }
965       else if(!Ctx->HasOpenedContext()){
966         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
967           VwrTst_DispErase(Ctx->Current(),-1,4,Standard_False);
968       }
969       else{
970         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
971           VwrTst_DispErase(Ctx->Interactive(),-1,4,Standard_False);}
972       Ctx->UpdateCurrentViewer();
973     }
974     else{
975       Handle(AIS_InteractiveObject) IO;
976       name = argv[1];
977       if(GetMapOfAIS().IsBound2(name)){
978         IO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
979         if (!IO.IsNull())
980           VwrTst_DispErase(IO,-1,4,Standard_True);
981       }
982     }
983   }
984   else if(argc==2){
985     Standard_Integer Dmode = atoi(argv[1]);
986     if(Ctx->NbCurrents()==0 && TypeOfOperation==3){
987       Handle(AIS_InteractiveObject) IO;
988       VwrTst_DispErase(IO,Dmode,TypeOfOperation,Standard_True);
989     }
990     if(!Ctx->HasOpenedContext()){
991       // set/unset display mode sur le Contexte...
992       for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent()){
993         VwrTst_DispErase(Ctx->Current(),Dmode,TypeOfOperation,Standard_False);
994       }
995       Ctx->UpdateCurrentViewer();
996     }
997     else{
998       for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
999         Ctx->Display(Ctx->Interactive(),Dmode);
1000     }
1001   }
1002   else{
1003     Handle(AIS_InteractiveObject) IO;
1004     name = argv[1];
1005     if(GetMapOfAIS().IsBound2(name))
1006       IO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
1007     if (!IO.IsNull())
1008       VwrTst_DispErase(IO,atoi(argv[2]),TypeOfOperation,Standard_True);
1009   }
1010   return 0;
1011 }
1012
1013
1014 //=======================================================================
1015 //function :
1016 //purpose  :
1017 //=======================================================================
1018 static int VSubInt(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1019 {
1020   if(argc==1) return 1;
1021   Standard_Integer On = atoi(argv[1]);
1022   const Handle(AIS_InteractiveContext)& Ctx = ViewerTest::GetAISContext();
1023
1024   if(argc==2){
1025
1026     if(!Ctx->HasOpenedContext()){
1027       di<<"sub intensite ";
1028       if(On==1) di<<"On";
1029       else di<<"Off";
1030       di<<" pour "<<Ctx->NbCurrents()<<"  objets"<<"\n";
1031       for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent()){
1032         if(On==1){
1033           Ctx->SubIntensityOn(Ctx->Current(),Standard_False);}
1034         else{
1035           di <<"passage dans off"<<"\n";
1036           Ctx->SubIntensityOff(Ctx->Current(),Standard_False);
1037         }
1038       }
1039     }
1040     else{
1041       for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected()){
1042         if(On==1){
1043           Ctx->SubIntensityOn(Ctx->Interactive(),Standard_False);}
1044         else{
1045           Ctx->SubIntensityOff(Ctx->Interactive(),Standard_False);}
1046       }
1047     }
1048     Ctx->UpdateCurrentViewer();
1049   }
1050   else {
1051     Handle(AIS_InteractiveObject) IO;
1052     TCollection_AsciiString name = argv[2];
1053     if(GetMapOfAIS().IsBound2(name)){
1054       IO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
1055       if (!IO.IsNull())
1056         if(On==1)
1057           Ctx->SubIntensityOn(IO);
1058         else
1059           Ctx->SubIntensityOff(IO);
1060
1061     }
1062     else return 1;
1063   }
1064   return 0;
1065
1066 }
1067 //==============================================================================
1068 //function : VColor2
1069 //Author   : ege
1070 //purpose  : change the color of a selected or named or displayed shape
1071 //Draw arg : vcolor2 [name] color
1072 //==============================================================================
1073 static int VColor2 (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1074 {
1075
1076   Standard_Boolean    ThereIsCurrent;
1077   Standard_Boolean    ThereIsArgument;
1078   Standard_Boolean    IsBound = Standard_False ;
1079
1080   const Standard_Boolean HaveToSet=(strcasecmp( argv[0],"vsetcolor") == 0);
1081   if (HaveToSet) {
1082     if ( argc < 2 || argc > 3 ) { di << argv[0] << " syntax error: Give 2 or 3 arguments" << "\n"; return 1; }
1083     ThereIsArgument = (argc != 2);
1084   }
1085   else {
1086     if ( argc > 2 ) { di << argv[0] << " syntax error: Given too many arguments" << "\n"; return 1; }
1087     ThereIsArgument = (argc == 2);
1088   }
1089
1090   if ( !a3DView().IsNull() ) {
1091     TCollection_AsciiString name;
1092     if (ThereIsArgument) {
1093       name = argv[1];
1094       IsBound= GetMapOfAIS().IsBound2(name);
1095     }
1096     if (TheAISContext()->HasOpenedContext())
1097       TheAISContext()->CloseLocalContext();
1098
1099     //  On set le Booleen There is current
1100     if (TheAISContext() -> NbCurrents() > 0  ) {ThereIsCurrent =Standard_True; }
1101     else ThereIsCurrent =Standard_False;
1102
1103     //=======================================================================
1104     // Il y a un  argument
1105     //=======================================================================
1106     if ( ThereIsArgument && IsBound ) {
1107       const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1108       if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1109         Handle(AIS_InteractiveObject) ashape =
1110           Handle(AIS_InteractiveObject)::DownCast (anObj);
1111 #ifdef DEB
1112           if (HaveToSet)
1113             di  << "HaveToSet "<< "1" <<" Color Given "<< argv[2] << " Color returned "<< GetColorFromName(argv[2]) << "\n";
1114           else
1115             di  << "HaveToSet 0\n";
1116 #endif
1117
1118         if(HaveToSet)
1119           TheAISContext()->SetColor(ashape,GetColorFromName(argv[2]) );
1120         else
1121           TheAISContext()->UnsetColor(ashape);
1122       } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1123         Handle(NIS_Triangulated) ashape =
1124           Handle(NIS_Triangulated)::DownCast (anObj);
1125         if (!ashape.IsNull())
1126           ashape->SetColor (GetColorFromName(argv[2]));
1127       }
1128     }
1129
1130
1131     //=======================================================================
1132     // Il n'y a pas d'arguments
1133     // Mais un ou plusieurs objets on des current representation
1134     //=======================================================================
1135     if (ThereIsCurrent && !ThereIsArgument) {
1136       for (TheAISContext() -> InitCurrent() ;
1137            TheAISContext() -> MoreCurrent() ;
1138            TheAISContext() ->NextCurrent() )
1139       {
1140         const Handle(AIS_InteractiveObject) ashape= TheAISContext()->Current();
1141         if (ashape.IsNull())
1142           continue;
1143 #ifdef DEB
1144         if (HaveToSet)
1145           di  << "HaveToSet "<< "1" <<" Color Given "<< argv[2] << " Color returned "<< GetColorFromName(argv[2]) << "\n";
1146         else
1147           di  << "HaveToSet 0\n";
1148 #endif
1149         if(HaveToSet)
1150           TheAISContext()->SetColor(ashape,GetColorFromName(argv[1]),Standard_False);
1151         else
1152           TheAISContext()->UnsetColor(ashape,Standard_False);
1153       }
1154
1155       TheAISContext()->UpdateCurrentViewer();
1156     }
1157
1158     //=======================================================================
1159     // Il n'y a pas d'arguments(nom de shape) ET aucun objet courrant
1160     // on impose a tous les objets du viewer la couleur passee
1161     //=======================================================================
1162     else if (!ThereIsCurrent && !ThereIsArgument){
1163       ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it(GetMapOfAIS());
1164       while ( it.More() ) {
1165         const Handle(AIS_InteractiveObject) ashape =
1166           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1167         if (!ashape.IsNull())
1168           if(HaveToSet)
1169             TheAISContext()->SetColor(ashape,GetColorFromName(argv[1]),Standard_False);
1170           else
1171             TheAISContext()->UnsetColor(ashape,Standard_False);
1172         it.Next();
1173       }
1174       TheAISContext()->UpdateCurrentViewer();
1175     }
1176   }
1177   return 0;
1178 }
1179
1180 //==============================================================================
1181 //function : VTransparency
1182 //Author   : ege
1183 //purpose  : change the transparency of a selected or named or displayed shape
1184 //Draw arg : vtransparency [name] TransparencyCoeficient
1185 //==============================================================================
1186
1187 static int VTransparency  (Draw_Interpretor& di, Standard_Integer argc,
1188                            const char** argv)
1189 {
1190   Standard_Boolean    ThereIsCurrent;
1191   Standard_Boolean    ThereIsArgument;
1192   Standard_Boolean    IsBound = Standard_False ;
1193
1194   const Standard_Boolean HaveToSet = (strcasecmp( argv[0],"vsettransparency") == 0);
1195   if (HaveToSet) {
1196     if ( argc < 2 || argc > 3 ) { di << argv[0] << " syntax error passez 1 ou 2 arguments" << "\n"; return 1; }
1197     ThereIsArgument = (argc != 2);
1198   }
1199   else{
1200     if ( argc > 2 ) { di << argv[0] << " syntax error: Passez au plus un argument" << "\n"; return 1; }
1201     ThereIsArgument = (argc == 2);
1202   }
1203
1204   if ( !a3DView().IsNull() ) {
1205     TCollection_AsciiString name;
1206     if (ThereIsArgument) {
1207       name = argv[1];
1208       IsBound= GetMapOfAIS().IsBound2(name);
1209     }
1210     if (TheAISContext()->HasOpenedContext())
1211       TheAISContext()->CloseLocalContext();
1212
1213     if (TheAISContext() -> NbCurrents() > 0  ) {ThereIsCurrent =Standard_True; }
1214     else ThereIsCurrent = Standard_False;
1215
1216     //=======================================================================
1217     // Il y a des arguments: un nom et une couleur
1218     //=======================================================================
1219     if ( ThereIsArgument && IsBound ) {
1220       const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1221       if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1222         const Handle(AIS_InteractiveObject) ashape =
1223           Handle(AIS_InteractiveObject)::DownCast(anObj);
1224         if(HaveToSet)
1225           TheAISContext()->SetTransparency(ashape,atof(argv[2]) );
1226         else
1227           TheAISContext()->UnsetTransparency(ashape);
1228       } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1229         const Handle(NIS_InteractiveObject) ashape =
1230           Handle(NIS_InteractiveObject)::DownCast(anObj);
1231         if(HaveToSet)
1232           ashape->SetTransparency(atof(argv[2]) );
1233         else
1234           ashape->UnsetTransparency();
1235       }
1236     }
1237     //=======================================================================
1238     // Il n'y a pas d'arguments
1239     // Mais un ou plusieurs objets on des current representation
1240     //=======================================================================
1241     if (ThereIsCurrent && !ThereIsArgument) {
1242       for (TheAISContext() -> InitCurrent() ;
1243            TheAISContext() -> MoreCurrent() ;
1244            TheAISContext() ->NextCurrent() )
1245       {
1246         Handle(AIS_InteractiveObject) ashape =  TheAISContext() -> Current();
1247         if(HaveToSet)
1248           TheAISContext()->SetTransparency(ashape,atof(argv[1]),Standard_False);
1249         else
1250           TheAISContext()->UnsetTransparency(ashape,Standard_False);
1251       }
1252
1253       TheAISContext()->UpdateCurrentViewer();
1254     }
1255     //=======================================================================
1256     // Il n'y a pas d'arguments ET aucun objet courrant
1257     //=======================================================================
1258     else if ( !ThereIsCurrent && !ThereIsArgument ) {
1259       ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1260         it(GetMapOfAIS());
1261       while ( it.More() ) {
1262         Handle(AIS_InteractiveObject) ashape =
1263           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1264         if (!ashape.IsNull())
1265           if(HaveToSet)
1266             TheAISContext()->SetTransparency(ashape,atof(argv[1]),Standard_False);
1267           else
1268             TheAISContext()->UnsetTransparency(ashape,Standard_False);
1269         it.Next();
1270       }
1271       TheAISContext()->UpdateCurrentViewer();
1272     }
1273   }
1274   return 0;
1275 }
1276
1277
1278 //==============================================================================
1279 //function : VMaterial
1280 //Author   : ege
1281 //purpose  : change the Material of a selected or named or displayed shape
1282 //Draw arg : vmaterial  [Name] Material
1283 //==============================================================================
1284 static int VMaterial (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1285 {
1286
1287   Standard_Boolean    ThereIsCurrent;
1288   Standard_Boolean    ThereIsName;
1289   Standard_Boolean    IsBound = Standard_False ;
1290
1291   const Standard_Boolean HaveToSet = (strcasecmp( argv[0],"vsetmaterial") == 0);
1292   if (HaveToSet) {
1293     if ( argc < 2 || argc > 3 ) { di << argv[0] << " syntax error passez 1 ou 2 arguments" << "\n"; return 1; }
1294     ThereIsName = (argc != 2);
1295   }
1296   else {
1297     if ( argc>2 ) { di << argv[0] << " syntax error passez au plus un argument" << "\n"; return 1; }
1298     ThereIsName = (argc == 2);
1299   }
1300
1301   if ( !a3DView().IsNull() ) {
1302     TCollection_AsciiString name;
1303     if (ThereIsName) {
1304       name = argv[1];
1305       IsBound= GetMapOfAIS().IsBound2(name);
1306     }
1307     if (TheAISContext()->HasOpenedContext())
1308       TheAISContext()->CloseLocalContext();
1309     if (TheAISContext() -> NbCurrents() > 0  )
1310       ThereIsCurrent =Standard_True;
1311     else
1312       ThereIsCurrent =Standard_False;
1313
1314     //=======================================================================
1315     // Ther is a name of shape and a material name
1316     //=======================================================================
1317     if ( ThereIsName && IsBound ) {
1318       Handle(AIS_InteractiveObject) ashape =
1319         Handle(AIS_InteractiveObject)::DownCast (GetMapOfAIS().Find2(name));
1320       if (!ashape.IsNull())
1321         if (HaveToSet)
1322           TheAISContext()->SetMaterial(ashape,GetMaterialFromName(argv[2]));
1323         else
1324           TheAISContext()->UnsetMaterial(ashape);
1325     }
1326     //=======================================================================
1327     // Il n'y a pas de nom de shape
1328     // Mais un ou plusieurs objets on des current representation
1329     //=======================================================================
1330     if (ThereIsCurrent && !ThereIsName) {
1331       for (TheAISContext() -> InitCurrent() ;
1332            TheAISContext() -> MoreCurrent() ;
1333            TheAISContext() ->NextCurrent() )
1334       {
1335         Handle(AIS_InteractiveObject) ashape = TheAISContext()->Current();
1336         if (HaveToSet)
1337           TheAISContext()->SetMaterial(ashape,GetMaterialFromName(argv[1]),Standard_False);
1338         else
1339           TheAISContext()->UnsetMaterial(ashape,Standard_False);
1340       }
1341       TheAISContext()->UpdateCurrentViewer();
1342     }
1343
1344     //=======================================================================
1345     // Il n'y a pas de noms de shape ET aucun objet courrant
1346     // On impose a tous les objets du viewer le material passe en argument
1347     //=======================================================================
1348     else if (!ThereIsCurrent && !ThereIsName){
1349       ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1350         it(GetMapOfAIS());
1351       while ( it.More() ) {
1352         Handle(AIS_InteractiveObject) ashape =
1353           Handle(AIS_InteractiveObject)::DownCast (it.Key1());
1354         if (!ashape.IsNull())
1355           if (HaveToSet)
1356             TheAISContext()->SetMaterial(ashape,GetMaterialFromName(argv[1]),Standard_False);
1357           else
1358             TheAISContext()->UnsetMaterial(ashape,Standard_False);
1359         it.Next();
1360       }
1361       TheAISContext()->UpdateCurrentViewer();
1362     }
1363   }
1364   return 0;
1365 }
1366
1367
1368
1369 //==============================================================================
1370 //function : VWidth
1371 //Author   : ege
1372 //purpose  : change the width of the edges of a selected or named or displayed shape
1373 //Draw arg : vwidth  [Name] WidthValue(1->10)
1374 //==============================================================================
1375 static int VWidth (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1376 {
1377
1378   Standard_Boolean    ThereIsCurrent;
1379   Standard_Boolean    ThereIsArgument;
1380   Standard_Boolean    IsBound = Standard_False ;
1381
1382   const Standard_Boolean HaveToSet = (strcasecmp( argv[0],"vsetwidth") == 0);
1383   if (HaveToSet) {
1384     if ( argc < 2 || argc > 3 ) { di << argv[0] << " syntax error passez 1 ou 2 arguments" << "\n"; return 1; }
1385     ThereIsArgument = (argc != 2);
1386   }
1387   else {
1388     if ( argc>2 ) { di << argv[0] << " syntax error passez au plus 1  argument" << "\n"; return 1; }
1389     ThereIsArgument = (argc == 2);
1390   }
1391   if ( !a3DView().IsNull() ) {
1392     TCollection_AsciiString name;
1393     if (ThereIsArgument) {
1394       name = argv[1];
1395       IsBound= GetMapOfAIS().IsBound2(name);
1396     }
1397     if (TheAISContext()->HasOpenedContext())
1398       TheAISContext()->CloseLocalContext();
1399
1400     if (TheAISContext() -> NbCurrents() > 0  )
1401       ThereIsCurrent =Standard_True;
1402     else
1403       ThereIsCurrent =Standard_False;
1404
1405     if ( ThereIsArgument && IsBound ) {
1406       const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1407       if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1408         const Handle(AIS_InteractiveObject) ashape =
1409           Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
1410         if (HaveToSet)
1411           TheAISContext()->SetWidth ( ashape,atof (argv[2]) );
1412         else
1413           TheAISContext()->UnsetWidth (ashape);
1414       } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1415         const Handle(NIS_Triangulated) ashape =
1416           Handle(NIS_Triangulated)::DownCast(GetMapOfAIS().Find2(name));
1417         if (HaveToSet && !ashape.IsNull())
1418           ashape->SetLineWidth ( atof (argv[2]) );
1419       }
1420     }
1421
1422     //=======================================================================
1423     // Il n'y a pas d'arguments
1424     // Mais un ou plusieurs objets on des current representation
1425     //=======================================================================
1426     if (ThereIsCurrent && !ThereIsArgument) {
1427       for (TheAISContext() -> InitCurrent() ;
1428            TheAISContext() -> MoreCurrent() ;
1429            TheAISContext() ->NextCurrent() )
1430       {
1431         Handle(AIS_InteractiveObject) ashape =  TheAISContext() -> Current();
1432         if (HaveToSet)
1433           TheAISContext()->SetWidth(ashape,atof(argv[1]),Standard_False);
1434         else
1435           TheAISContext()->UnsetWidth(ashape,Standard_False);
1436       }
1437       TheAISContext()->UpdateCurrentViewer();
1438     }
1439     //=======================================================================
1440     // Il n'y a pas d'arguments ET aucun objet courrant
1441     //=======================================================================
1442     else if (!ThereIsCurrent && !ThereIsArgument){
1443      ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1444        it(GetMapOfAIS());
1445      while ( it.More() ) {
1446        Handle(AIS_InteractiveObject) ashape =
1447          Handle(AIS_InteractiveObject)::DownCast (it.Key1());
1448        if (!ashape.IsNull())
1449          if (HaveToSet)
1450            TheAISContext()->SetWidth(ashape,atof(argv[1]),Standard_False);
1451          else
1452            TheAISContext()->UnsetWidth(ashape,Standard_False);
1453        it.Next();
1454      }
1455      TheAISContext()->UpdateCurrentViewer();
1456    }
1457   }
1458   return 0;
1459 }
1460
1461 //==============================================================================
1462 //function : VInteriorStyle
1463 //purpose  : sets interior style of the a selected or named or displayed shape
1464 //Draw arg : vsetinteriorstyle [shape] style
1465 //==============================================================================
1466 static void SetInteriorStyle (const Handle(AIS_InteractiveObject)& theIAO,
1467                               const Standard_Integer theStyle,
1468                               Draw_Interpretor& di)
1469 {
1470   if (theStyle < Aspect_IS_EMPTY || theStyle > Aspect_IS_HIDDENLINE) {
1471     di << "Style must be within a range [0 (Aspect_IS_EMPTY), " << Aspect_IS_HIDDENLINE <<
1472       " (Aspect_IS_HIDDENLINE)]\n";
1473     return;
1474   }
1475   const Handle(Prs3d_Drawer)& aDrawer = theIAO->Attributes();
1476   Handle(Prs3d_ShadingAspect) aShadingAspect = aDrawer->ShadingAspect();
1477   Handle(Graphic3d_AspectFillArea3d) aFillAspect = aShadingAspect->Aspect();
1478   Aspect_InteriorStyle aStyle = (Aspect_InteriorStyle) (theStyle);
1479   aFillAspect->SetInteriorStyle (aStyle);
1480   TheAISContext()->RecomputePrsOnly (theIAO, Standard_False /*update*/, Standard_True /*all modes*/);
1481 }
1482
1483 static int VInteriorStyle (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1484 {
1485   if (argc < 2 || argc > 3) {
1486     di << argv[0] << " requires 2 or 3 arguments\n";
1487     di << "Usage : " << argv[0] << " [shape] Style : Set interior style" << "\n";
1488     di << "Style must match Aspect_InteriorStyle and be one of:\n";
1489     di << "         0 = EMPTY, 1 = HOLLOW, 2 = HATCH, 3 = SOLID, 4 = HIDDENLINE\n";
1490     return 1;
1491   }
1492
1493   Standard_Boolean    ThereIsCurrent;
1494   Standard_Boolean    ThereIsArgument;
1495   Standard_Boolean    IsBound = Standard_False ;
1496
1497   ThereIsArgument = (argc > 2);
1498   if ( !a3DView().IsNull() ) {
1499     TCollection_AsciiString name;
1500     if (ThereIsArgument) {
1501       name = argv[1];
1502       IsBound= GetMapOfAIS().IsBound2(name);
1503     }
1504     if (TheAISContext()->HasOpenedContext())
1505       TheAISContext()->CloseLocalContext();
1506
1507     if (TheAISContext() -> NbCurrents() > 0  )
1508       ThereIsCurrent =Standard_True;
1509     else
1510       ThereIsCurrent =Standard_False;
1511
1512     if ( ThereIsArgument && IsBound ) {
1513       const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1514       if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1515         const Handle(AIS_InteractiveObject) ashape =
1516           Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
1517         SetInteriorStyle (ashape, atoi (argv[2]), di);
1518       }
1519     }
1520     //=======================================================================
1521     // No arguments specified
1522     // But there are one or more selected objects
1523     //=======================================================================
1524     if (ThereIsCurrent && !ThereIsArgument) {
1525       for (TheAISContext() -> InitCurrent() ;
1526            TheAISContext() -> MoreCurrent() ;
1527            TheAISContext() ->NextCurrent() )
1528       {
1529         Handle(AIS_InteractiveObject) ashape =  TheAISContext() -> Current();
1530         SetInteriorStyle (ashape, atoi (argv[1]), di);
1531       }
1532     }
1533     //=======================================================================
1534     // No arguments specified and there are no selected objects
1535     //=======================================================================
1536     else if (!ThereIsCurrent && !ThereIsArgument){
1537       ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1538        it(GetMapOfAIS());
1539       while ( it.More() ) {
1540         Handle(AIS_InteractiveObject) ashape =
1541           Handle(AIS_InteractiveObject)::DownCast (it.Key1());
1542         if (!ashape.IsNull())
1543           SetInteriorStyle (ashape, atoi (argv[1]), di);
1544         it.Next();
1545       }
1546     }
1547     TheAISContext()->UpdateCurrentViewer();
1548   }
1549   return 0;
1550 }
1551
1552 //==============================================================================
1553 //function : VDonly2
1554 //author   : ege
1555 //purpose  : Display only a selected or named  object
1556 //           if there is no selected or named object s, nothing is donne
1557 //Draw arg : vdonly2 [name1] ... [name n]
1558 //==============================================================================
1559 static int VDonly2(Draw_Interpretor& , Standard_Integer argc, const char** argv)
1560
1561 {
1562   if ( a3DView().IsNull() )
1563     return 1;
1564
1565   Standard_Boolean ThereIsCurrent = TheAISContext() -> NbCurrents() > 0;
1566   Standard_Boolean ThereIsArgument= argc>1;
1567
1568   if (TheAISContext()->HasOpenedContext())
1569     TheAISContext()->CloseLocalContext();
1570
1571   //===============================================================
1572   // Il n'y a pas d'arguments mais des objets selectionnes(current)
1573   // dans le viewer
1574   //===============================================================
1575   if (!ThereIsArgument && ThereIsCurrent) {
1576
1577 #ifdef DEB
1578     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1579       it (GetMapOfAIS());
1580 #endif
1581     for(TheAISContext()->InitCurrent();
1582         TheAISContext()->MoreCurrent();
1583         TheAISContext()->NextCurrent()){
1584       Handle(AIS_InteractiveObject) aShape = TheAISContext()->Current();
1585       TheAISContext()->Erase(aShape,Standard_False);}
1586   }
1587   TheAISContext() ->UpdateCurrentViewer();
1588   //===============================================================
1589   // Il y a des arguments
1590   //===============================================================
1591   if (ThereIsArgument) {
1592     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1593       it (GetMapOfAIS());
1594     while ( it.More() ) {
1595       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1596         const Handle(AIS_InteractiveObject) aShape =
1597           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1598         TheAISContext()->Erase(aShape,Standard_False);
1599       } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1600         const Handle(NIS_InteractiveObject) aShape =
1601           Handle(NIS_InteractiveObject)::DownCast(it.Key1());
1602         TheNISContext()->Erase(aShape);
1603       }
1604       it.Next();
1605     }
1606
1607     // On display les objets passes par parametre
1608     for (int i=1; i<argc ; i++) {
1609       TCollection_AsciiString name=argv[i];
1610       Standard_Boolean IsBound = GetMapOfAIS().IsBound2(name);
1611       if (IsBound) {
1612         const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1613         if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1614           const Handle(AIS_InteractiveObject) aShape =
1615             Handle(AIS_InteractiveObject)::DownCast (anObj);
1616           TheAISContext()->Display(aShape, Standard_False);
1617         } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1618           Handle(NIS_InteractiveObject) aShape =
1619             Handle(NIS_InteractiveObject)::DownCast (anObj);
1620           TheNISContext()->Display(aShape);
1621         }
1622       }
1623     }
1624     TheAISContext() ->UpdateCurrentViewer();
1625 //    TheNISContext() ->UpdateViews();
1626   }
1627   return 0;
1628 }
1629
1630 //==============================================================================
1631 //function : VErase2
1632 //author   : ege
1633 //purpose  : Erase some  selected or named  objects
1634 //           if there is no selected or named objects, the whole viewer is erased
1635 //Draw arg : verase2 [name1] ... [name n]
1636 //==============================================================================
1637 static int VErase2(Draw_Interpretor& ,  Standard_Integer argc,  const char** argv)
1638
1639 {
1640   if ( a3DView().IsNull() )
1641     return 1;
1642
1643   Standard_Boolean ThereIsCurrent = TheAISContext() -> NbCurrents() > 0;
1644   Standard_Boolean ThereIsArgument= argc>1;
1645   if(TheAISContext()->HasOpenedContext())
1646     TheAISContext()->CloseLocalContext();
1647
1648   //===============================================================
1649   // Il n'y a pas d'arguments mais des objets selectionnes(current)
1650   // dans le viewer
1651   //===============================================================
1652   if (!ThereIsArgument && ThereIsCurrent) {
1653     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1654       it (GetMapOfAIS());
1655     while ( it.More() ) {
1656       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1657         const Handle(AIS_InteractiveObject) aShape =
1658           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1659         if (TheAISContext()->IsCurrent(aShape))
1660           TheAISContext()->Erase(aShape,Standard_False);
1661       }
1662       it.Next();
1663     }
1664
1665     TheAISContext() ->UpdateCurrentViewer();
1666   }
1667
1668   //===============================================================
1669   // Il n'y a pas d'arguments et aucuns objets selectionnes
1670   // dans le viewer:
1671   // On erase tout le viewer
1672   //===============================================================
1673
1674   if (!ThereIsArgument && !ThereIsCurrent) {
1675     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it (GetMapOfAIS());
1676     while ( it.More() ) {
1677       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1678         const Handle(AIS_InteractiveObject) aShape =
1679           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1680         TheAISContext()->Erase(aShape,Standard_False);
1681       } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1682         const Handle(NIS_InteractiveObject) aShape =
1683           Handle(NIS_InteractiveObject)::DownCast(it.Key1());
1684         TheNISContext()->Erase(aShape);
1685       }
1686       it.Next();
1687     }
1688     TheAISContext() ->UpdateCurrentViewer();
1689 //    TheNISContext()->UpdateViews();
1690   }
1691
1692   //===============================================================
1693   // Il y a des arguments
1694   //===============================================================
1695   if (ThereIsArgument) {
1696     for (int i=1; i<argc ; i++) {
1697       TCollection_AsciiString name=argv[i];
1698       Standard_Boolean IsBound= GetMapOfAIS().IsBound2(name);
1699       if (IsBound) {
1700         const Handle(Standard_Transient) anObj = GetMapOfAIS().Find2(name);
1701         if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1702           const Handle(AIS_InteractiveObject) aShape =
1703             Handle(AIS_InteractiveObject)::DownCast (anObj);
1704           TheAISContext()->Erase(aShape,Standard_False);
1705         } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1706           const Handle(NIS_InteractiveObject) aShape =
1707             Handle(NIS_InteractiveObject)::DownCast (anObj);
1708           TheNISContext()->Erase(aShape);
1709         }
1710       }
1711     }
1712     TheAISContext() ->UpdateCurrentViewer();
1713 //    TheNISContext() ->UpdateViews();
1714   }
1715   return 0;
1716 }
1717
1718 //==============================================================================
1719 //function : VEraseAll
1720 //author   : ege
1721 //purpose  : Erase all the objects displayed in the viewer
1722 //Draw arg : veraseall
1723 //==============================================================================
1724 static int VEraseAll(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1725
1726 {
1727   // Verification des arguments
1728   if (argc>1){ di<<" Syntaxe error: "<<argv[0]<<" too much arguments."<<"\n";return 1;}
1729   if (a3DView().IsNull() ) {di<<" Error: vinit hasn't been called."<<"\n";return 1;}
1730   TheAISContext()->CloseAllContexts(Standard_False);
1731   ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1732     it(GetMapOfAIS());
1733   while ( it.More() ) {
1734     if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1735       const Handle(AIS_InteractiveObject) aShape =
1736         Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1737       TheAISContext()->Erase(aShape,Standard_False);
1738     } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1739       const Handle(NIS_InteractiveObject) aShape =
1740         Handle(NIS_InteractiveObject)::DownCast(it.Key1());
1741       TheNISContext()->Erase(aShape);
1742     }
1743     it.Next();
1744   }
1745   TheAISContext() ->UpdateCurrentViewer();
1746 //  TheNISContext() ->UpdateViews();
1747   return 0;
1748 }
1749
1750
1751 //==============================================================================
1752 //function : VDisplayAll
1753 //author   : ege
1754 //purpose  : Display all the objects of the Map
1755 //Draw arg : vdisplayall
1756 //==============================================================================
1757 static int VDisplayAll( Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1758
1759 {
1760   if (! a3DView().IsNull() ) {
1761     if (argc >  1) {di<<argv[0]<<" Syntaxe error"<<"\n"; return 1;}
1762     if (TheAISContext()->HasOpenedContext())
1763       TheAISContext()->CloseLocalContext();
1764     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
1765       it (GetMapOfAIS());
1766     while ( it.More() ) {
1767       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1768         const Handle(AIS_InteractiveObject) aShape =
1769           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1770         TheAISContext()->Erase(aShape,Standard_False);
1771       } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1772         const Handle(NIS_InteractiveObject) aShape =
1773           Handle(NIS_InteractiveObject)::DownCast(it.Key1());
1774         TheNISContext()->Erase(aShape);
1775       }
1776       it.Next();
1777     }
1778     it.Reset();
1779     while ( it.More() ) {
1780       if (it.Key1()->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
1781         const Handle(AIS_InteractiveObject) aShape =
1782           Handle(AIS_InteractiveObject)::DownCast(it.Key1());
1783         TheAISContext()->Display(aShape, Standard_False);
1784       } else if (it.Key1()->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
1785         Handle(NIS_InteractiveObject) aShape =
1786           Handle(NIS_InteractiveObject)::DownCast(it.Key1());
1787         TheNISContext()->Display(aShape);
1788       }
1789       it.Next();
1790     }
1791     TheAISContext() ->UpdateCurrentViewer();
1792 //    TheNISContext() ->UpdateViews();
1793   }
1794   return 0;
1795 }
1796
1797
1798 //#######################################################################################################
1799
1800
1801 static TCollection_AsciiString GetEnvir (Draw_Interpretor& di) {
1802
1803   static Standard_Boolean IsDefined=Standard_False ;
1804   static TCollection_AsciiString VarName;
1805   if ( !IsDefined ) {
1806     const char *envir, *casroot ;
1807     envir = getenv("CSF_MDTVTexturesDirectory") ;
1808
1809     Standard_Boolean HasDefinition = Standard_False ;
1810     if ( !envir ) {
1811       casroot  = getenv("CASROOT");
1812       if ( casroot ) {
1813         VarName = TCollection_AsciiString  (casroot);
1814         VarName += "/src/Textures" ;
1815         HasDefinition = Standard_True ;
1816       }
1817     } else {
1818       VarName = TCollection_AsciiString  (envir);
1819       HasDefinition = Standard_True ;
1820     }
1821     if ( HasDefinition ) {
1822       OSD_Path aPath ( VarName );
1823       OSD_Directory aDir(aPath);
1824       if ( aDir.Exists () ) {
1825         TCollection_AsciiString aTexture = VarName + "/2d_MatraDatavision.rgb" ;
1826         OSD_File TextureFile ( aTexture );
1827         if ( !TextureFile.Exists() ) {
1828           di << " CSF_MDTVTexturesDirectory or CASROOT not correctly setted " << "\n";
1829           di << " not all files are found in : "<<VarName.ToCString() << "\n";
1830           Standard_Failure::Raise ( "CSF_MDTVTexturesDirectory or CASROOT not correctly setted " );
1831         }
1832       } else {
1833         di << " CSF_MDTVTexturesDirectory or CASROOT not correctly setted " << "\n";
1834         di << " Directory : "<< VarName.ToCString() << " not exist " << "\n";
1835         Standard_Failure::Raise ( "CSF_MDTVTexturesDirectory or CASROOT not correctly setted " );
1836       }
1837       return VarName ;
1838     } else {
1839       di << " CSF_MDTVTexturesDirectory and CASROOT not setted " << "\n";
1840       di << " one of these variable are mandatory to use this fonctionnality" << "\n";
1841       Standard_Failure::Raise ( "CSF_MDTVTexturesDirectory and CASROOT not setted " );
1842     }
1843     IsDefined = Standard_True ;
1844   }
1845   return VarName ;
1846
1847 }
1848
1849 //#######################################################################################################
1850
1851
1852 //#######################################################################################################
1853
1854 //##     VTexture
1855
1856 //#######################################################################################################
1857
1858 Standard_Integer VTexture (Draw_Interpretor& di,Standard_Integer argc, const char** argv )
1859 {
1860   Standard_Integer command = (strcasecmp(argv[0],"vtexture")==0)? 1:
1861     (strcasecmp(argv[0],"vtexscale")==0) ? 2 :
1862       (strcasecmp(argv[0],"vtexorigin")==0) ? 3 :
1863         (strcasecmp(argv[0],"vtexrepeat")==0) ? 4 :
1864           (strcasecmp(argv[0],"vtexdefault")==0) ? 5 : -1;
1865
1866   Handle(AIS_InteractiveContext) myAISContext = ViewerTest::GetAISContext();
1867   if(myAISContext.IsNull())
1868     {
1869       di << "use 'vinit' command before " << argv[0] << "\n";
1870       return 1;
1871     }
1872
1873   Handle(AIS_InteractiveObject) TheAisIO;
1874   Handle(AIS_TexturedShape) myShape;
1875   Standard_Integer myPreviousMode = 0;
1876
1877   if (argc<2 || !argv[1])
1878     {
1879       di << argv[0] <<" syntax error - Type 'help vtex'"<<"\n";
1880       return 1;
1881     }
1882
1883   TCollection_AsciiString name = argv[1];
1884   ViewerTest::CurrentView()->SetSurfaceDetail(V3d_TEX_ALL);
1885
1886   if (GetMapOfAIS().IsBound2(name))
1887     TheAisIO = Handle(AIS_InteractiveObject)::DownCast
1888       (GetMapOfAIS().Find2(name));
1889   if (TheAisIO.IsNull())
1890   {
1891     di <<"shape "<<name.ToCString()<<" doesn\'t exist"<<"\n";
1892     return 1;
1893   }
1894
1895   if (TheAisIO->IsKind(STANDARD_TYPE(AIS_TexturedShape)) && !TheAisIO.IsNull())
1896     {
1897       myShape = Handle(AIS_TexturedShape)::DownCast(TheAisIO);
1898       myPreviousMode = myShape->DisplayMode() ;
1899     }
1900   else
1901     {
1902       myAISContext->Clear(TheAisIO,Standard_False);
1903       myShape = new AIS_TexturedShape (DBRep::Get(argv[1]));
1904       GetMapOfAIS().UnBind1(TheAisIO);
1905       GetMapOfAIS().UnBind2(name);
1906       GetMapOfAIS().Bind(myShape, name);
1907     }
1908   switch (command)
1909     {
1910     case 1: // vtexture : we only map a texture on the shape
1911       if(argc<=1)
1912         {
1913           di << argv[0] <<" syntax error - Type 'help vtex'" << "\n";
1914           return 1;
1915         }
1916       if (argc>2 && argv[2])
1917         {
1918           if(strcasecmp(argv[2],"?")==0)
1919             {
1920               TCollection_AsciiString monPath = GetEnvir (di) ;
1921
1922               di<<"\n Files in current directory : \n"<<"\n";
1923               TCollection_AsciiString Cmnd ("glob -nocomplain *");
1924               di.Eval(Cmnd.ToCString());
1925
1926               Cmnd = TCollection_AsciiString("glob -nocomplain ") ;
1927               Cmnd += monPath ;
1928               Cmnd += "/* " ;
1929               di<<"Files in "<<monPath.ToCString()<<" : \n"<<"\n";
1930               di.Eval(Cmnd.ToCString());
1931
1932               return 0;
1933             }
1934           else
1935             myShape->SetTextureFileName(argv[2]);
1936         }
1937       else
1938         {
1939           di <<"Texture mapping disabled \n \
1940                   To enable it, use 'vtexture NameOfShape NameOfTexture' \n"<<"\n";
1941
1942           myAISContext->SetDisplayMode(myShape,1,Standard_False);
1943           if (myPreviousMode == 3 )
1944             myAISContext->RecomputePrsOnly(myShape);
1945           myAISContext->Display(myShape, Standard_True);
1946           return 0;
1947         }
1948       break;
1949
1950     case 2: // vtexscale : we change the scaling factor of the texture
1951
1952       if(argc<2)
1953         {
1954           di << argv[0] <<" syntax error - Type 'help vtex'" << "\n";
1955           return 1;
1956         }
1957
1958       myShape->SetTextureScale (( argv[2] ? Standard_True    : Standard_False ),
1959                                 ( argv[2] ? atof(argv[2])    : 1.0 ),
1960                                 ( argv[2] ? atof(argv[argc-1]) : 1.0 ) );
1961       break;
1962
1963     case 3: // vtexorigin : we change the origin of the texture on the shape
1964       if(argc<2)
1965         {
1966           di << argv[0] <<" syntax error - Type 'help vtex'" << "\n";
1967           return 1;
1968         }
1969       myShape->SetTextureOrigin (( argv[2] ? Standard_True    : Standard_False ),
1970                                  ( argv[2] ? atof(argv[2])    : 0.0 ),
1971                                  ( argv[2] ? atof(argv[argc-1]) : 0.0 ));
1972       break;
1973
1974     case 4: // vtexrepeat : we change the number of occurences of the texture on the shape
1975       if(argc<2)
1976         {
1977           di << argv[0] <<" syntax error - Type 'help vtex'" << "\n";
1978           return 1;
1979         }
1980       if (argc>2 && argv[2])
1981         {
1982           di <<"Texture repeat enabled"<<"\n";
1983           myShape->SetTextureRepeat(Standard_True, atof(argv[2]), atof(argv[argc-1]) );
1984         }
1985       else
1986         {
1987           di <<"Texture repeat disabled"<<"\n";
1988           myShape->SetTextureRepeat(Standard_False);
1989         }
1990       break;
1991
1992     case 5: // vtexdefault : default texture mapping
1993       // ScaleU = ScaleV = 100.0
1994       // URepeat = VRepeat = 1.0
1995       // Uorigin = VOrigin = 0.0
1996
1997       if(argc<2)
1998         {
1999           di << argv[0] <<" syntax error - Type 'help vtex'" << "\n";
2000           return 1;
2001         }
2002       myShape->SetTextureRepeat(Standard_False);
2003       myShape->SetTextureOrigin(Standard_False);
2004       myShape->SetTextureScale (Standard_False);
2005       break;
2006     }
2007
2008   if ((myShape->DisplayMode() == 3) || (myPreviousMode == 3 ))
2009     myAISContext->RecomputePrsOnly(myShape);
2010   else
2011     {
2012       myAISContext->SetDisplayMode(myShape,3,Standard_False);
2013       myAISContext->Display(myShape, Standard_True);
2014       myAISContext->Update(myShape,Standard_True);
2015     }
2016   return 0;
2017 }
2018
2019 //==============================================================================
2020 //function : VDisplay2
2021 //author   : ege
2022 //purpose  : Display an object from its name
2023 //Draw arg : vdisplay name1 [name2] ... [name n]
2024 //==============================================================================
2025 static int VDisplay2 (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2026
2027 {
2028   // Verification des arguments
2029   if ( a3DView().IsNull() ) {
2030
2031     ViewerTest::ViewerInit();
2032     di<<"La commande vinit n'a pas ete appele avant"<<"\n";
2033     //    return 1;
2034   }
2035
2036   if ( argc<2) {
2037     di<<argv[0]<<" Syntaxe error"<<"\n";
2038     return 1;
2039   }
2040
2041
2042   TCollection_AsciiString name;
2043   if (TheAISContext()->HasOpenedContext())
2044     TheAISContext()->CloseLocalContext();
2045
2046   for ( int i = 1; i < argc; i++ ) {
2047     name = argv[i];
2048     Standard_Boolean IsBound      = GetMapOfAIS().IsBound2(name);
2049     Standard_Boolean IsDatum = Standard_False;
2050     Handle(Standard_Transient) anObj;
2051     if ( IsBound ) {
2052       anObj = GetMapOfAIS().Find2(name);
2053       if (anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject))) {
2054         Handle(AIS_InteractiveObject) aShape =
2055           Handle(AIS_InteractiveObject)::DownCast(anObj);
2056         if (aShape->Type()==AIS_KOI_Datum) {
2057           IsDatum  = Standard_True;
2058           TheAISContext()->Display(aShape, Standard_False);
2059         }
2060         if (!IsDatum) {
2061           di << "Display " << name.ToCString() << "\n";
2062           // Get the Shape from a name
2063           TopoDS_Shape NewShape = GetShapeFromName((const char *)name.ToCString());
2064
2065           // Update the Shape in the AIS_Shape
2066           Handle(AIS_Shape) TheRealSh = Handle(AIS_Shape)::DownCast(aShape);
2067           if(!TheRealSh.IsNull())
2068             TheRealSh->Set(NewShape);
2069           TheAISContext()->Redisplay(aShape, Standard_False);
2070           TheAISContext()->Display(aShape, Standard_False);
2071         }
2072         aShape.Nullify();
2073       } else if (anObj->IsKind(STANDARD_TYPE(NIS_InteractiveObject))) {
2074         Handle(NIS_InteractiveObject) aShape =
2075           Handle(NIS_InteractiveObject)::DownCast(anObj);
2076         TheNISContext()->Display(aShape);
2077       }
2078     }
2079     else { // Create the AIS_Shape from a name
2080       const Handle(AIS_InteractiveObject) aShape =
2081         GetAISShapeFromName((const char *)name.ToCString());
2082       if ( !aShape.IsNull() ) {
2083         GetMapOfAIS().Bind(aShape, name);
2084         TheAISContext()->Display(aShape, Standard_False);
2085       }
2086     }
2087   }
2088   // Upadate the screen and redraw the view
2089   TheAISContext()->UpdateCurrentViewer();
2090 //  TheNISContext()->UpdateViews();
2091   return 0;
2092 }
2093
2094 //==============================================================================
2095 //function : VMoveA
2096 //purpose  : Test the annimation of an object along a
2097 //           predifined trajectory
2098 //Draw arg : vmove ShapeName
2099 //==============================================================================
2100
2101 #ifdef DEB
2102 static int VMoveA (Draw_Interpretor& di, Standard_Integer argc, const char** argv) {
2103
2104   OSD_Timer myTimer;
2105   myTimer.Start();
2106
2107   if (TheAISContext()->HasOpenedContext())
2108     TheAISContext()->CloseLocalContext();
2109
2110   Standard_Real Step=2*M_PI/180;
2111   Standard_Real Angle=0;
2112   // R est le rayon de l'hellicoide
2113   Standard_Real R=50;
2114   // D est la distance parcourue en translation en 1 tour
2115   Standard_Real D=50;
2116
2117   Handle(AIS_InteractiveObject) aIO;
2118
2119   if (GetMapOfAIS().IsBound2(argv[1]))
2120     aIO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(argv[1]));
2121
2122   if (aIO.IsNull()) {
2123     di<<" Syntaxe error: "<<argv[1]<<" doesn't exist"<<"\n";
2124     return 1;
2125   }
2126   TheAISContext()->Deactivate(aIO);
2127
2128   // boucle generant le mouvement
2129   if(argc==3) {
2130     di<<" Transformations"<<"\n";
2131     for (Standard_Real myAngle=0;Angle<5*2*M_PI; myAngle++) {
2132
2133       Angle=Step*myAngle;
2134       gp_Ax3 newBase(gp_Pnt(R*cos(Angle), R*sin(Angle), D*Angle/(2*M_PI) ), gp_Vec(0,0,1), gp_Vec(1,0,0)  );
2135       gp_Trsf myTransfo;
2136       myTransfo.SetTransformation(newBase.Rotated(gp_Ax1(gp_Pnt(R*cos(Angle),R*sin(Angle),0), gp_Dir(0,0,1)  ),Angle ) );
2137       TheAISContext()->SetLocation(aIO,myTransfo);
2138
2139       TheAISContext() ->UpdateCurrentViewer();
2140
2141     }
2142   }
2143   else {
2144     di<<" Locations"<<"\n";
2145     gp_Trsf myAngleTrsf;
2146     myAngleTrsf.SetRotation(gp_Ax1(gp_Pnt(0,0,0),gp_Dir(0,0,1) ), Step  );
2147     TopLoc_Location myDeltaAngle (myAngleTrsf);
2148     gp_Trsf myDistTrsf;
2149     myDistTrsf.SetTranslation(gp_Dir(0,0,1) );
2150     TopLoc_Location myDeltaDist (myDistTrsf);
2151     TopLoc_Location myTrueLoc;
2152
2153     for (Standard_Real myAngle=0;Angle<5*2*M_PI; myAngle++) {
2154
2155       Angle=Step*myAngle;
2156       myTrueLoc=myTrueLoc*myDeltaAngle*myDeltaDist;
2157       TheAISContext()->SetLocation(aIO,myTrueLoc );
2158       TheAISContext() ->UpdateCurrentViewer();
2159     }
2160   }
2161
2162
2163   TopoDS_Shape ShapeBis=((*(Handle(AIS_Shape)*)&aIO)->Shape()).Located( aIO->Location() );
2164
2165   //TopLoc_Location Tempo=aIO->Location();
2166   //TopoDS_Shape ShapeBis=((*(Handle(AIS_Shape)*)&aIO)->Shape());
2167   //ShapeBis.Located(Tempo);
2168
2169
2170   // On reset la location (origine) contenue dans l'AISInteractiveObject
2171   TheAISContext() ->ResetLocation(aIO);
2172
2173   // On force aShape a devenir l'AIS IO propre a ShapeBis
2174
2175   // Pour cela on force aShape(AIS IO) a devenir une AISShape
2176   // ->Set() est une methode de AIS_Shape
2177   (*(Handle(AIS_Shape)*)& aIO)->Set(ShapeBis);
2178
2179   // On donne a ShapeBis le nom de l'AIS IO
2180   //Rep::Set(argv[1],ShapeBis);
2181
2182
2183   TheAISContext()->Redisplay(aIO,Standard_False);
2184
2185   // On reactive la selection des primitives sensibles
2186   TheAISContext()->Activate(aIO,0);
2187
2188   TheAISContext() ->UpdateCurrentViewer();
2189   a3DView() -> Redraw();
2190
2191   myTimer.Stop();
2192   di<<" Temps ecoule "<<"\n";
2193   myTimer.Show();
2194
2195   return 0;
2196 }
2197 #endif
2198
2199
2200 //==============================================================================
2201 //function : VPerf
2202 //purpose  : Test the annimation of an object along a
2203 //           predifined trajectory
2204 //Draw arg : vperf ShapeName 1/0(Transfo/Location) 1/0(Primitives sensibles ON/OFF)
2205 //==============================================================================
2206
2207 static int VPerf(Draw_Interpretor& di, Standard_Integer , const char** argv) {
2208
2209   OSD_Timer myTimer;
2210   if (TheAISContext()->HasOpenedContext())
2211     TheAISContext()->CloseLocalContext();
2212
2213   Standard_Real Step=4*M_PI/180;
2214   Standard_Real Angle=0;
2215
2216   Handle(AIS_InteractiveObject) aIO;
2217   if (GetMapOfAIS().IsBound2(argv[1]))
2218     aIO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(argv[1]));
2219   if (aIO.IsNull())
2220     return 1;
2221
2222   Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(aIO);
2223
2224   myTimer.Start();
2225
2226   if (atoi(argv[3])==1 ) {
2227     di<<" Primitives sensibles OFF"<<"\n";
2228     TheAISContext()->Deactivate(aIO);
2229   }
2230   else {
2231     di<<" Primitives sensibles ON"<<"\n";
2232   }
2233   // Movement par transformation
2234   if(atoi(argv[2]) ==1) {
2235     di<<" Calcul par Transformation"<<"\n";
2236     for (Standard_Real myAngle=0;Angle<10*2*M_PI; myAngle++) {
2237
2238       Angle=Step*myAngle;
2239       gp_Trsf myTransfo;
2240       myTransfo.SetRotation(gp_Ax1(gp_Pnt(0,0,0),gp_Dir(0,0,1) ) ,Angle );
2241       TheAISContext()->SetLocation(aShape,myTransfo);
2242       TheAISContext() ->UpdateCurrentViewer();
2243
2244     }
2245   }
2246   else {
2247     di<<" Calcul par Locations"<<"\n";
2248     gp_Trsf myAngleTrsf;
2249     myAngleTrsf.SetRotation(gp_Ax1(gp_Pnt(0,0,0),gp_Dir(0,0,1) ), Step  );
2250     TopLoc_Location myDeltaAngle (myAngleTrsf);
2251     TopLoc_Location myTrueLoc;
2252
2253     for (Standard_Real myAngle=0;Angle<10*2*M_PI; myAngle++) {
2254
2255       Angle=Step*myAngle;
2256       myTrueLoc=myTrueLoc*myDeltaAngle;
2257       TheAISContext()->SetLocation(aShape,myTrueLoc );
2258       TheAISContext() ->UpdateCurrentViewer();
2259     }
2260   }
2261   if (atoi(argv[3])==1 ){
2262     // On reactive la selection des primitives sensibles
2263     TheAISContext()->Activate(aIO,0);
2264   }
2265   a3DView() -> Redraw();
2266   myTimer.Stop();
2267   di<<" Temps ecoule "<<"\n";
2268   myTimer.Show();
2269   return 0;
2270 }
2271
2272
2273 //==================================================================================
2274 // Function : VAnimation
2275 //==================================================================================
2276 static int VAnimation (Draw_Interpretor& di, Standard_Integer argc, const char** argv) {
2277   if (argc != 5) {
2278     di<<"Use: "<<argv[0]<<" CrankArmFile CylinderHeadFile PropellerFile EngineBlockFile"<<"\n";
2279     return 1;
2280   }
2281
2282   Standard_Real thread = 4;
2283   Standard_Real angleA=0;
2284   Standard_Real angleB;
2285   Standard_Real X;
2286   gp_Ax1 Ax1(gp_Pnt(0,0,0),gp_Vec(0,0,1));
2287
2288   BRep_Builder B;
2289   TopoDS_Shape CrankArm;
2290   TopoDS_Shape CylinderHead;
2291   TopoDS_Shape Propeller;
2292   TopoDS_Shape EngineBlock;
2293
2294   //BRepTools::Read(CrankArm,"/dp_26/Indus/ege/assemblage/CrankArm.rle",B);
2295   //BRepTools::Read(CylinderHead,"/dp_26/Indus/ege/assemblage/CylinderHead.rle",B);
2296   //BRepTools::Read(Propeller,"/dp_26/Indus/ege/assemblage/Propeller.rle",B);
2297   //BRepTools::Read(EngineBlock,"/dp_26/Indus/ege/assemblage/EngineBlock.rle",B);
2298   BRepTools::Read(CrankArm,argv[1],B);
2299   BRepTools::Read(CylinderHead,argv[2],B);
2300   BRepTools::Read(Propeller,argv[3],B);
2301   BRepTools::Read(EngineBlock,argv[4],B);
2302
2303   if (CrankArm.IsNull() || CylinderHead.IsNull() || Propeller.IsNull() || EngineBlock.IsNull()) {di<<" Syntaxe error:loading failure."<<"\n";}
2304
2305
2306   OSD_Timer myTimer;
2307   myTimer.Start();
2308
2309   Handle(AIS_Shape) myAisCylinderHead = new AIS_Shape (CylinderHead);
2310   Handle(AIS_Shape) myAisEngineBlock  = new AIS_Shape (EngineBlock);
2311   Handle(AIS_Shape) myAisCrankArm     = new AIS_Shape (CrankArm);
2312   Handle(AIS_Shape) myAisPropeller    = new AIS_Shape (Propeller);
2313
2314   GetMapOfAIS().Bind(myAisCylinderHead,"a");
2315   GetMapOfAIS().Bind(myAisEngineBlock,"b");
2316   GetMapOfAIS().Bind(myAisCrankArm,"c");
2317   GetMapOfAIS().Bind(myAisPropeller,"d");
2318
2319   TheAISContext()->SetColor(myAisCylinderHead, Quantity_NOC_INDIANRED);
2320   TheAISContext()->SetColor(myAisEngineBlock , Quantity_NOC_RED);
2321   TheAISContext()->SetColor(myAisPropeller   , Quantity_NOC_GREEN);
2322
2323   TheAISContext()->Display(myAisCylinderHead,Standard_False);
2324   TheAISContext()->Display(myAisEngineBlock,Standard_False );
2325   TheAISContext()->Display(myAisCrankArm,Standard_False    );
2326   TheAISContext()->Display(myAisPropeller,Standard_False);
2327
2328   TheAISContext()->Deactivate(myAisCylinderHead);
2329   TheAISContext()->Deactivate(myAisEngineBlock );
2330   TheAISContext()->Deactivate(myAisCrankArm    );
2331   TheAISContext()->Deactivate(myAisPropeller   );
2332
2333   // Boucle de mouvement
2334   for (Standard_Real myAngle = 0;angleA<2*M_PI*10.175 ;myAngle++) {
2335
2336     angleA = thread*myAngle*M_PI/180;
2337     X = Sin(angleA)*3/8;
2338     angleB = atan(X / Sqrt(-X * X + 1));
2339     Standard_Real decal(25*0.6);
2340
2341
2342     //Build a transformation on the display
2343     gp_Trsf aPropellerTrsf;
2344     aPropellerTrsf.SetRotation(Ax1,angleA);
2345     TheAISContext()->SetLocation(myAisPropeller,aPropellerTrsf);
2346
2347     gp_Ax3 base(gp_Pnt(3*decal*(1-Cos(angleA)),-3*decal*Sin(angleA),0),gp_Vec(0,0,1),gp_Vec(1,0,0));
2348     gp_Trsf aCrankArmTrsf;
2349     aCrankArmTrsf.SetTransformation(   base.Rotated(gp_Ax1(gp_Pnt(3*decal,0,0),gp_Dir(0,0,1)),angleB));
2350     TheAISContext()->SetLocation(myAisCrankArm,aCrankArmTrsf);
2351
2352     TheAISContext()->UpdateCurrentViewer();
2353   }
2354
2355   TopoDS_Shape myNewCrankArm  =myAisCrankArm ->Shape().Located( myAisCrankArm ->Location() );
2356   TopoDS_Shape myNewPropeller =myAisPropeller->Shape().Located( myAisPropeller->Location() );
2357
2358   myAisCrankArm ->ResetLocation();
2359   myAisPropeller->ResetLocation();
2360
2361   myAisCrankArm  -> Set(myNewCrankArm );
2362   myAisPropeller -> Set(myNewPropeller);
2363
2364   TheAISContext()->Activate(myAisCylinderHead,0);
2365   TheAISContext()->Activate(myAisEngineBlock,0 );
2366   TheAISContext()->Activate(myAisCrankArm ,0   );
2367   TheAISContext()->Activate(myAisPropeller ,0  );
2368
2369   myTimer.Stop();
2370   myTimer.Show();
2371   myTimer.Start();
2372
2373   TheAISContext()->Redisplay(myAisCrankArm ,Standard_False);
2374   TheAISContext()->Redisplay(myAisPropeller,Standard_False);
2375
2376   TheAISContext()->UpdateCurrentViewer();
2377   a3DView()->Redraw();
2378
2379   myTimer.Stop();
2380   myTimer.Show();
2381
2382   return 0;
2383
2384 }
2385
2386 //==============================================================================
2387 //function : VShading
2388 //purpose  : Sharpen or roughten the quality of the shading
2389 //Draw arg : vshading ShapeName 0.1->0.00001  1 deg-> 30 deg
2390 //==============================================================================
2391 static int VShading(Draw_Interpretor& ,Standard_Integer argc, const char** argv)
2392 {
2393   Standard_Real    myDevCoef;
2394   Handle(AIS_InteractiveObject) TheAisIO;
2395
2396   // Verifications
2397   const Standard_Boolean HaveToSet = (strcasecmp(argv[0],"vsetshading") == 0);
2398
2399   if (TheAISContext()->HasOpenedContext())
2400     TheAISContext()->CloseLocalContext();
2401
2402   if (argc < 3) {
2403     myDevCoef  = 0.0008;
2404   } else {
2405     myDevCoef  =atof(argv[2]);
2406   }
2407
2408   TCollection_AsciiString name=argv[1];
2409   if (GetMapOfAIS().IsBound2(name ))
2410     TheAisIO = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
2411   if (TheAisIO.IsNull())
2412     TheAisIO=GetAISShapeFromName((const char *)name.ToCString());
2413
2414   if (HaveToSet)
2415     TheAISContext()->SetDeviationCoefficient(TheAisIO,myDevCoef,Standard_True);
2416   else
2417     TheAISContext()->SetDeviationCoefficient(TheAisIO,0.0008,Standard_True);
2418
2419   TheAISContext()->Redisplay(TheAisIO);
2420   return 0;
2421 }
2422 //==============================================================================
2423 //function : HaveMode
2424 //use      : VActivatedModes
2425 //==============================================================================
2426 #include <TColStd_ListIteratorOfListOfInteger.hxx>
2427
2428 Standard_Boolean  HaveMode(const Handle(AIS_InteractiveObject)& TheAisIO,const Standard_Integer mode  )
2429 {
2430   TColStd_ListOfInteger List;
2431   TheAISContext()->ActivatedModes (TheAisIO,List);
2432   TColStd_ListIteratorOfListOfInteger it;
2433   Standard_Boolean Found=Standard_False;
2434   for (it.Initialize(List); it.More()&&!Found; it.Next() ){
2435     if (it.Value()==mode ) Found=Standard_True;
2436   }
2437   return Found;
2438 }
2439
2440
2441
2442 //==============================================================================
2443 //function : VActivatedMode
2444 //author   : ege
2445 //purpose  : permet d'attribuer a chacune des shapes un mode d'activation
2446 //           (edges,vertex...)qui lui est propre et le mode de selection standard.
2447 //           La fonction s'applique aux shapes selectionnees(current ou selected dans le viewer)
2448 //             Dans le cas ou on veut psser la shape en argument, la fonction n'autorise
2449 //           qu'un nom et qu'un mode.
2450 //Draw arg : vsetam  [ShapeName] mode(0,1,2,3,4,5,6,7)
2451 //==============================================================================
2452 #include <AIS_ListIteratorOfListOfInteractive.hxx>
2453
2454 static int VActivatedMode (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2455
2456 {
2457   Standard_Boolean ThereIsName = Standard_False ;
2458
2459   if(!a3DView().IsNull()){
2460
2461     const Standard_Boolean HaveToSet = (strcasecmp(argv[0],"vsetam") == 0);
2462     // verification des arguments
2463     if (HaveToSet) {
2464       if (argc<2||argc>3) { di<<" Syntaxe error"<<"\n";return 1;}
2465       ThereIsName = (argc == 3);
2466     }
2467     else {
2468       // vunsetam
2469       if (argc>1) {di<<" Syntaxe error"<<"\n";return 1;}
2470       else {
2471         di<<" R.A.Z de tous les modes de selecion"<<"\n";
2472         di<<" Fermeture du Context local"<<"\n";
2473         if (TheAISContext()->HasOpenedContext())
2474           TheAISContext()->CloseLocalContext();
2475       }
2476     }
2477
2478     // IL n'y a aps de nom de shape passe en argument
2479     if (HaveToSet && !ThereIsName){
2480       Standard_Integer aMode=atoi(argv [1]);
2481
2482       const char *cmode="???";
2483       switch (aMode) {
2484       case 0: cmode = "Shape"; break;
2485       case 1: cmode = "Vertex"; break;
2486       case 2: cmode = "Edge"; break;
2487       case 3: cmode = "Wire"; break;
2488       case 4: cmode = "Face"; break;
2489       case 5: cmode = "Shell"; break;
2490       case 6: cmode = "Solid"; break;
2491       case 7: cmode = "Compound"; break;
2492       }
2493
2494       if( !TheAISContext()->HasOpenedContext() ) {
2495         // il n'y a pas de Context local d'ouvert
2496         // on en ouvre un et on charge toutes les shapes displayees
2497         // on load tous les objets displayees et on Activate les objets de la liste
2498         AIS_ListOfInteractive ListOfIO;
2499         // on sauve dans une AISListOfInteractive tous les objets currents
2500         if (TheAISContext()->NbCurrents()>0 ){
2501           TheAISContext()->UnhilightCurrents(Standard_False);
2502
2503           for (TheAISContext()->InitCurrent(); TheAISContext()->MoreCurrent(); TheAISContext()->NextCurrent() ){
2504             ListOfIO.Append(TheAISContext()->Current() );
2505           }
2506         }
2507
2508         TheAISContext()->OpenLocalContext(Standard_False);
2509         ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
2510           it (GetMapOfAIS());
2511         while(it.More()){
2512           Handle(AIS_InteractiveObject) aIO =
2513             Handle(AIS_InteractiveObject)::DownCast(it.Key1());
2514           if (!aIO.IsNull())
2515             TheAISContext()->Load(aIO,0,Standard_False);
2516           it.Next();
2517         }
2518         // traitement des objets qui etaient currents dans le Contexte global
2519         if (!ListOfIO.IsEmpty() ) {
2520           // il y avait des objets currents
2521           AIS_ListIteratorOfListOfInteractive iter;
2522           for (iter.Initialize(ListOfIO); iter.More() ; iter.Next() ) {
2523             Handle(AIS_InteractiveObject) aIO=iter.Value();
2524             TheAISContext()->Activate(aIO,aMode);
2525             di<<" Mode: "<<cmode<<" ON pour "<<GetMapOfAIS().Find1(aIO).ToCString()  <<"\n";
2526           }
2527         }
2528         else {
2529           // On applique le mode a tous les objets displayes
2530           ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
2531             it2 (GetMapOfAIS());
2532           while(it2.More()){
2533             Handle(AIS_InteractiveObject) aIO =
2534               Handle(AIS_InteractiveObject)::DownCast(it2.Key1());
2535             if (!aIO.IsNull()) {
2536               di<<" Mode: "<<cmode<<" ON pour "<<it2.Key2().ToCString() <<"\n";
2537               TheAISContext()->Activate(aIO,aMode);
2538             }
2539             it2.Next();
2540           }
2541         }
2542
2543       }
2544
2545       else {
2546         // un Context local est deja ouvert
2547         // Traitement des objets du Context local
2548         if (TheAISContext()->NbSelected()>0 ){
2549           TheAISContext()->UnhilightSelected(Standard_False);
2550           // il y a des objets selected,on les parcourt
2551           for (TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected() ){
2552             Handle(AIS_InteractiveObject) aIO=TheAISContext()->Interactive();
2553
2554
2555             if (HaveMode(aIO,aMode) ) {
2556               di<<" Mode: "<<cmode<<" OFF pour "<<GetMapOfAIS().Find1(aIO).ToCString() <<"\n";
2557               TheAISContext()->Deactivate(aIO,aMode);
2558             }
2559             else{
2560               di<<" Mode: "<<cmode<<" ON pour "<<GetMapOfAIS().Find1(aIO).ToCString() <<"\n";
2561               TheAISContext()->Activate(aIO,aMode);
2562             }
2563
2564           }
2565         }
2566         else{
2567           // il n'y a pas d'objets selected
2568           // tous les objets diplayes sont traites
2569           ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
2570             it (GetMapOfAIS());
2571           while(it.More()){
2572             Handle(AIS_InteractiveObject) aIO =
2573               Handle(AIS_InteractiveObject)::DownCast(it.Key1());
2574             if (!aIO.IsNull()) {
2575               if (HaveMode(aIO,aMode) ) {
2576                 di<<" Mode: "<<cmode<<" OFF pour "
2577                   <<GetMapOfAIS().Find1(aIO).ToCString() <<"\n";
2578                 TheAISContext()->Deactivate(aIO,aMode);
2579               }
2580               else{
2581                 di<<" Mode: "<<cmode<<" ON pour"
2582                   <<GetMapOfAIS().Find1(aIO).ToCString() <<"\n";
2583                 TheAISContext()->Activate(aIO,aMode);
2584               }
2585             }
2586             it.Next();
2587           }
2588         }
2589       }
2590     }
2591     else if (HaveToSet && ThereIsName){
2592       Standard_Integer aMode=atoi(argv [2]);
2593       Handle(AIS_InteractiveObject) aIO =
2594         Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(argv[1]));
2595
2596       if (!aIO.IsNull()) {
2597         const char *cmode="???";
2598
2599         switch (aMode) {
2600         case 0: cmode = "Shape"; break;
2601         case 1: cmode = "Vertex"; break;
2602         case 2: cmode = "Edge"; break;
2603         case 3: cmode = "Wire"; break;
2604         case 4: cmode = "Face"; break;
2605         case 5: cmode = "Shell"; break;
2606         case 6: cmode = "Solid"; break;
2607         case 7: cmode = "Compound"; break;
2608         }
2609
2610         if( !TheAISContext()->HasOpenedContext() ) {
2611           TheAISContext()->OpenLocalContext(Standard_False);
2612           // On charge tous les objets de la map
2613           ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it (GetMapOfAIS());
2614           while(it.More()){
2615             Handle(AIS_InteractiveObject) aShape=
2616               Handle(AIS_InteractiveObject)::DownCast(it.Key1());
2617             if (!aShape.IsNull())
2618               TheAISContext()->Load(aShape,0,Standard_False);
2619             it.Next();
2620           }
2621           TheAISContext()->Activate(aIO,aMode);
2622           di<<" Mode: "<<cmode<<" ON pour "<<argv[1]<<"\n";
2623         }
2624
2625         else {
2626           // un Context local est deja ouvert
2627           if (HaveMode(aIO,aMode) ) {
2628             di<<" Mode: "<<cmode<<" OFF pour "<<argv[1]<<"\n";
2629             TheAISContext()->Deactivate(aIO,aMode);
2630           }
2631           else{
2632             di<<" Mode: "<<cmode<<" ON pour "<<argv[1]<<"\n";
2633             TheAISContext()->Activate(aIO,aMode);
2634           }
2635         }
2636       }
2637     }
2638   }
2639   return 0;
2640
2641 }
2642
2643
2644
2645 //==============================================================================
2646 // function : WhoAmI
2647 // user : vState
2648 //==============================================================================
2649 void WhoAmI (const Handle(AIS_InteractiveObject )& theShape ,Draw_Interpretor& di) {
2650
2651   // AIS_Datum
2652   if (theShape->Type()==AIS_KOI_Datum) {
2653     if      (theShape->Signature()==3 ) { di<<"  AIS_Trihedron"; }
2654     else if (theShape->Signature()==2 ) { di<<"  AIS_Axis"; }
2655     else if (theShape->Signature()==6 ) { di<<"  AIS_Circle"; }
2656     else if (theShape->Signature()==5 ) { di<<"  AIS_Line"; }
2657     else if (theShape->Signature()==7 ) { di<<"  AIS_Plane"; }
2658     else if (theShape->Signature()==1 ) { di<<"  AIS_Point"; }
2659     else if (theShape->Signature()==4 ) { di<<"  AIS_PlaneTrihedron"; }
2660   }
2661   // AIS_Shape
2662   else if (theShape->Type()==AIS_KOI_Shape && theShape->Signature()==0 ) { di<<"  AIS_Shape"; }
2663   // AIS_Dimentions et AIS_Relations
2664   else if (theShape->Type()==AIS_KOI_Relation) {
2665     Handle(AIS_Relation) TheShape= ((*(Handle(AIS_Relation)*)&theShape));
2666
2667     if      (TheShape->KindOfDimension()==AIS_KOD_PLANEANGLE)      {di<<"  AIS_AngleDimension";}
2668     else if (TheShape->KindOfDimension()==AIS_KOD_LENGTH )         {di<<"  AIS_Chamf2/3dDimension/AIS_LengthDimension ";  }
2669     else if (TheShape->KindOfDimension()==AIS_KOD_DIAMETER  )      {di<<"  AIS_DiameterDimension ";}
2670     else if (TheShape->KindOfDimension()==AIS_KOD_ELLIPSERADIUS  ) {di<<"  AIS_EllipseRadiusDimension ";}
2671     //else if (TheShape->KindOfDimension()==AIS_KOD_FILLETRADIUS  )  {di<<" AIS_FilletRadiusDimension "<<endl;}
2672     else if (TheShape->KindOfDimension()==AIS_KOD_OFFSET  )        {di<<"  AIS_OffsetDimension ";}
2673     else if (TheShape->KindOfDimension()==AIS_KOD_RADIUS  )        {di<<"  AIS_RadiusDimension ";}
2674     // AIS no repertorie.
2675     else {di<<"  Type Unknown.";}
2676   }
2677 }
2678
2679
2680
2681 //==============================================================================
2682 //function : VState
2683 //purpose  :
2684 //Draw arg : vstate [nameA] ... [nameN]
2685 //==============================================================================
2686 static int VState(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2687 {
2688   TheAISContext()->CloseAllContexts();
2689   const Standard_Boolean ThereIsArguments=(argc>=2);
2690   const Standard_Boolean ThereIsCurrent=(TheAISContext()->NbCurrents()>0);
2691   // Debut...
2692   // ==================
2693   // Il y a un argument
2694   // ==================
2695   if (ThereIsArguments) {
2696     for (int cpt=1;cpt<argc;cpt++) {
2697       // Verification que lq piece est bien bindee.
2698       if (GetMapOfAIS().IsBound2(argv[cpt]) ) {
2699         const Handle(AIS_InteractiveObject) theShape=
2700           Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2
2701                                                   (argv[cpt]));
2702         if (!theShape.IsNull()) {
2703           di<<argv[cpt];WhoAmI(theShape, di);
2704           if (TheAISContext()->IsDisplayed(theShape) ) {
2705             di<<"    Displayed"<<"\n";
2706           }
2707           else {
2708             di<<"    Not Displayed"<<"\n";
2709           }
2710         }
2711       }
2712       else {
2713         di<<"vstate error: Shape "<<cpt<<" doesn't exist;" <<"\n";return 1;
2714       }
2715     }
2716   }
2717   else if (ThereIsCurrent ) {
2718     for (TheAISContext() -> InitCurrent() ;
2719          TheAISContext() -> MoreCurrent() ;
2720          TheAISContext() ->NextCurrent() )
2721     {
2722       Handle(AIS_InteractiveObject) theShape=TheAISContext()->Current();
2723       di<<GetMapOfAIS().Find1(theShape).ToCString(); WhoAmI(theShape, di);
2724       if (TheAISContext()->IsDisplayed(theShape) ) {
2725         di<<"    Displayed"<<"\n";
2726       }
2727       else {
2728         di<<"    Not Displayed"<<"\n";
2729       }
2730
2731     }
2732   }
2733   else {
2734     ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName
2735       it(GetMapOfAIS());
2736     while ( it.More() ) {
2737       Handle(AIS_InteractiveObject) theShape =
2738         Handle(AIS_InteractiveObject)::DownCast(it.Key1());
2739       if (!theShape.IsNull()) {
2740         di<<it.Key2().ToCString();
2741         WhoAmI(theShape, di);
2742         if (TheAISContext()->IsDisplayed(theShape) ) {
2743           di<<"    Displayed"<<"\n";
2744         }
2745         else {
2746           di<<"    Not Displayed"<<"\n";
2747         }
2748       }
2749       it.Next();
2750     }
2751   }
2752
2753   return 0;
2754 }
2755
2756
2757 //=======================================================================
2758 //function : PickObjects
2759 //purpose  :
2760 //=======================================================================
2761 Standard_Boolean  ViewerTest::PickObjects(Handle(TColStd_HArray1OfTransient)& arr,
2762                                           const AIS_KindOfInteractive TheType,
2763                                           const Standard_Integer TheSignature,
2764                                           const Standard_Integer MaxPick)
2765 {
2766   Handle(AIS_InteractiveObject) IO;
2767   Standard_Integer curindex = (TheType == AIS_KOI_None) ? 0 : TheAISContext()->OpenLocalContext();
2768
2769   // step 1: prepare the data
2770   if(curindex !=0){
2771     Handle(AIS_SignatureFilter) F1 = new AIS_SignatureFilter(TheType,TheSignature);
2772     TheAISContext()->AddFilter(F1);
2773   }
2774
2775   // step 2 : wait for the selection...
2776 //  Standard_Boolean IsGood (Standard_False);
2777 //  Standard_Integer NbPick(0);
2778   Standard_Boolean NbPickGood (0),NbToReach(arr->Length());
2779   Standard_Integer NbPickFail(0);
2780   Standard_Integer argccc = 5;
2781   const char *bufff[] = { "A", "B", "C","D", "E" };
2782   const char **argvvv = (const char **) bufff;
2783
2784
2785   while(NbPickGood<NbToReach && NbPickFail <= MaxPick){
2786     while(ViewerMainLoop(argccc,argvvv)){}
2787     Standard_Integer NbStored = TheAISContext()->NbSelected();
2788     if((unsigned int ) NbStored != NbPickGood)
2789       NbPickGood= NbStored;
2790     else
2791       NbPickFail++;
2792     cout<<"NbPicked =  "<<NbPickGood<<" |  Nb Pick Fail :"<<NbPickFail<<endl;
2793   }
2794
2795   // step3 get result.
2796
2797   if((unsigned int ) NbPickFail >= NbToReach) return Standard_False;
2798
2799   Standard_Integer i(0);
2800   for(TheAISContext()->InitSelected();
2801       TheAISContext()->MoreSelected();
2802       TheAISContext()->NextSelected()){
2803     i++;
2804     Handle(AIS_InteractiveObject) IO2 = TheAISContext()->SelectedInteractive();
2805     arr->SetValue(i,IO2);
2806   }
2807
2808
2809   if(curindex>0)
2810     TheAISContext()->CloseLocalContext(curindex);
2811
2812   return Standard_True;
2813 }
2814
2815
2816 //=======================================================================
2817 //function : PickObject
2818 //purpose  :
2819 //=======================================================================
2820 Handle(AIS_InteractiveObject) ViewerTest::PickObject(const AIS_KindOfInteractive TheType,
2821                                                      const Standard_Integer TheSignature,
2822                                                      const Standard_Integer MaxPick)
2823 {
2824   Handle(AIS_InteractiveObject) IO;
2825   Standard_Integer curindex = (TheType == AIS_KOI_None) ? 0 : TheAISContext()->OpenLocalContext();
2826
2827   // step 1: prepare the data
2828
2829   if(curindex !=0){
2830     Handle(AIS_SignatureFilter) F1 = new AIS_SignatureFilter(TheType,TheSignature);
2831     TheAISContext()->AddFilter(F1);
2832   }
2833
2834   // step 2 : wait for the selection...
2835   Standard_Boolean IsGood (Standard_False);
2836   Standard_Integer NbPick(0);
2837   Standard_Integer argccc = 5;
2838   const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2839   const char **argvvv = (const char **) bufff;
2840
2841
2842   while(!IsGood && NbPick<= MaxPick){
2843     while(ViewerMainLoop(argccc,argvvv)){}
2844     IsGood = (TheAISContext()->NbSelected()>0) ;
2845     NbPick++;
2846     cout<<"Nb Pick :"<<NbPick<<endl;
2847   }
2848
2849
2850   // step3 get result.
2851   if(IsGood){
2852     TheAISContext()->InitSelected();
2853     IO = TheAISContext()->SelectedInteractive();
2854   }
2855
2856   if(curindex!=0)
2857     TheAISContext()->CloseLocalContext(curindex);
2858   return IO;
2859 }
2860
2861 //=======================================================================
2862 //function : PickShape
2863 //purpose  : First Activate the rightmode + Put Filters to be able to
2864 //           pick objets that are of type <TheType>...
2865 //=======================================================================
2866
2867 TopoDS_Shape ViewerTest::PickShape(const TopAbs_ShapeEnum TheType,
2868                                    const Standard_Integer MaxPick)
2869 {
2870
2871   // step 1: prepare the data
2872
2873   Standard_Integer curindex = TheAISContext()->OpenLocalContext();
2874   TopoDS_Shape result;
2875
2876   if(TheType==TopAbs_SHAPE){
2877     Handle(AIS_TypeFilter) F1 = new AIS_TypeFilter(AIS_KOI_Shape);
2878     TheAISContext()->AddFilter(F1);
2879   }
2880   else{
2881     Handle(StdSelect_ShapeTypeFilter) TF = new StdSelect_ShapeTypeFilter(TheType);
2882     TheAISContext()->AddFilter(TF);
2883     TheAISContext()->ActivateStandardMode(TheType);
2884
2885   }
2886
2887
2888   // step 2 : wait for the selection...
2889   Standard_Boolean NoShape (Standard_True);
2890   Standard_Integer NbPick(0);
2891   Standard_Integer argccc = 5;
2892   const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2893   const char **argvvv = (const char **) bufff;
2894
2895
2896   while(NoShape && NbPick<= MaxPick){
2897     while(ViewerMainLoop(argccc,argvvv)){}
2898     NoShape = (TheAISContext()->NbSelected()==0) ;
2899     NbPick++;
2900     cout<<"Nb Pick :"<<NbPick<<endl;
2901   }
2902
2903   // step3 get result.
2904
2905   if(!NoShape){
2906
2907     TheAISContext()->InitSelected();
2908     if(TheAISContext()->HasSelectedShape())
2909       result = TheAISContext()->SelectedShape();
2910     else{
2911       Handle(AIS_InteractiveObject) IO = TheAISContext()->SelectedInteractive();
2912       result = (*((Handle(AIS_Shape)*) &IO))->Shape();
2913     }
2914   }
2915
2916   if(curindex>0)
2917     TheAISContext()->CloseLocalContext(curindex);
2918
2919   return result;
2920 }
2921
2922
2923 //=======================================================================
2924 //function : PickShapes
2925 //purpose  :
2926 //=======================================================================
2927 Standard_Boolean ViewerTest::PickShapes (const TopAbs_ShapeEnum TheType,
2928                                          Handle(TopTools_HArray1OfShape)& thearr,
2929                                          const Standard_Integer MaxPick)
2930 {
2931
2932   Standard_Integer Taille = thearr->Length();
2933   if(Taille>1)
2934     cout<<" WARNING : Pick with Shift+ MB1 for Selection of more than 1 object"<<"\n";
2935
2936   // step 1: prepare the data
2937   Standard_Integer curindex = TheAISContext()->OpenLocalContext();
2938   if(TheType==TopAbs_SHAPE){
2939     Handle(AIS_TypeFilter) F1 = new AIS_TypeFilter(AIS_KOI_Shape);
2940     TheAISContext()->AddFilter(F1);
2941   }
2942   else{
2943     Handle(StdSelect_ShapeTypeFilter) TF = new StdSelect_ShapeTypeFilter(TheType);
2944     TheAISContext()->AddFilter(TF);
2945     TheAISContext()->ActivateStandardMode(TheType);
2946
2947   }
2948
2949   // step 2 : wait for the selection...
2950
2951   Standard_Boolean NbPickGood (0),NbToReach(thearr->Length());
2952   Standard_Integer NbPickFail(0);
2953   Standard_Integer argccc = 5;
2954   const char *bufff[] = { "A", "B", "C","D", "E" };
2955   const char **argvvv = (const char **) bufff;
2956
2957
2958   while(NbPickGood<NbToReach && NbPickFail <= MaxPick){
2959     while(ViewerMainLoop(argccc,argvvv)){}
2960     Standard_Integer NbStored = TheAISContext()->NbSelected();
2961     if((unsigned int ) NbStored != NbPickGood)
2962       NbPickGood= NbStored;
2963     else
2964       NbPickFail++;
2965     cout<<"NbPicked =  "<<NbPickGood<<" |  Nb Pick Fail :"<<NbPickFail<<"\n";
2966   }
2967
2968   // step3 get result.
2969
2970   if((unsigned int ) NbPickFail >= NbToReach) return Standard_False;
2971
2972   Standard_Integer i(0);
2973   for(TheAISContext()->InitSelected();TheAISContext()->MoreSelected();TheAISContext()->NextSelected()){
2974     i++;
2975     if(TheAISContext()->HasSelectedShape())
2976       thearr->SetValue(i,TheAISContext()->SelectedShape());
2977     else{
2978       Handle(AIS_InteractiveObject) IO = TheAISContext()->SelectedInteractive();
2979       thearr->SetValue(i,(*((Handle(AIS_Shape)*) &IO))->Shape());
2980     }
2981   }
2982
2983   TheAISContext()->CloseLocalContext(curindex);
2984   return Standard_True;
2985 }
2986
2987
2988 //=======================================================================
2989 //function : VPickShape
2990 //purpose  :
2991 //=======================================================================
2992 static int VPickShape( Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2993 {
2994   TopoDS_Shape PickSh;
2995   TopAbs_ShapeEnum theType = TopAbs_COMPOUND;
2996
2997   if(argc==1)
2998     theType = TopAbs_SHAPE;
2999   else{
3000     if(!strcasecmp(argv[1],"V" )) theType = TopAbs_VERTEX;
3001     else if (!strcasecmp(argv[1],"E" )) theType = TopAbs_EDGE;
3002     else if (!strcasecmp(argv[1],"W" )) theType = TopAbs_WIRE;
3003     else if (!strcasecmp(argv[1],"F" )) theType = TopAbs_FACE;
3004     else if(!strcasecmp(argv[1],"SHAPE" )) theType = TopAbs_SHAPE;
3005     else if (!strcasecmp(argv[1],"SHELL" )) theType = TopAbs_SHELL;
3006     else if (!strcasecmp(argv[1],"SOLID" )) theType = TopAbs_SOLID;
3007   }
3008
3009   static Standard_Integer nbOfSub[8]={0,0,0,0,0,0,0,0};
3010   static TCollection_AsciiString nameType[8] = {"COMPS","SOL","SHE","F","W","E","V","SHAP"};
3011
3012   TCollection_AsciiString name;
3013
3014
3015   Standard_Integer NbToPick = argc>2 ? argc-2 : 1;
3016   if(NbToPick==1){
3017     PickSh = ViewerTest::PickShape(theType);
3018
3019     if(PickSh.IsNull())
3020       return 1;
3021     if(argc>2){
3022       name += argv[2];
3023     }
3024     else{
3025
3026       if(!PickSh.IsNull()){
3027         nbOfSub[Standard_Integer(theType)]++;
3028         name += "Picked_";
3029         name += nameType[Standard_Integer(theType)];
3030         TCollection_AsciiString indxstring(nbOfSub[Standard_Integer(theType)]);
3031         name +="_";
3032         name+=indxstring;
3033       }
3034     }
3035     // si on avait une petite methode pour voir si la shape
3036     // est deja dans la Double map, ca eviterait de creer....
3037     DBRep::Set(name.ToCString(),PickSh);
3038
3039     Handle(AIS_Shape) newsh = new AIS_Shape(PickSh);
3040     GetMapOfAIS().Bind(newsh, name);
3041     TheAISContext()->Display(newsh);
3042     di<<"Nom de la shape pickee : "<<name.ToCString()<<"\n";
3043   }
3044
3045   // Plusieurs objets a picker, vite vite vite....
3046   //
3047   else{
3048     Standard_Boolean autonaming = !strcasecmp(argv[2],".");
3049     Handle(TopTools_HArray1OfShape) arr = new TopTools_HArray1OfShape(1,NbToPick);
3050     if(ViewerTest::PickShapes(theType,arr)){
3051       for(Standard_Integer i=1;i<=NbToPick;i++){
3052         PickSh = arr->Value(i);
3053         if(!PickSh.IsNull()){
3054           if(autonaming){
3055             nbOfSub[Standard_Integer(theType)]++;
3056             name.Clear();
3057             name += "Picked_";
3058             name += nameType[Standard_Integer(theType)];
3059             TCollection_AsciiString indxstring(nbOfSub[Standard_Integer(theType)]);
3060             name +="_";
3061             name+=indxstring;
3062           }
3063         }
3064         else
3065           name = argv[1+i];
3066
3067         DBRep::Set(name.ToCString(),PickSh);
3068         Handle(AIS_Shape) newsh = new AIS_Shape(PickSh);
3069         GetMapOfAIS().Bind(newsh, name);
3070         di<<"display of picke shape #"<<i<<" - nom : "<<name.ToCString()<<"\n";
3071         TheAISContext()->Display(newsh);
3072
3073       }
3074     }
3075   }
3076   return 0;
3077
3078 }
3079
3080
3081 //=======================================================================
3082 //function : VPickObject
3083 //purpose  : filters can be set (type of Object to pick....
3084 //
3085 //=======================================================================
3086 // Unused :
3087 #ifdef DEB
3088 static int VPickObject( Draw_Interpretor& , Standard_Integer /*argc*/, const char** /*argv*/)
3089 {
3090   // preparation de la nomination automatique
3091   static TCollection_AsciiString ObjType[] ={"None","Datum","Shape","Object","Relation"};
3092 //  static char* DatumSig [8] ={"Point","Axis","Trih","PlTri","Line","Circle","Plane","UnK"};
3093
3094 /*  TCollection_AsciiString name;
3095
3096   Standard_Integer NbToPick = argc>2 ? argc-2 : 1;
3097   if(NbToPick==1){
3098     PickSh = ViewerTest::PickObject(theType);
3099
3100     if(PickSh.IsNull())
3101       return 1;
3102     if(argc>2){
3103       name += argv[2];
3104     }
3105     else{
3106
3107       if(!PickSh.IsNull()){
3108         nbOfSub[Standard_Integer(theType)]++;
3109         name += "Picked_";
3110         name += nameType[Standard_Integer(theType)];
3111         TCollection_AsciiString indxstring(nbOfSub[Standard_Integer(theType)]);
3112         name +="_";
3113         name+=indxstring;
3114       }
3115     }
3116     // si on avait une petite methode pour voir si la shape
3117     // est deja dans la Double map, ca eviterait de creer....
3118     DBRep::Set(name.ToCString(),PickSh);
3119
3120     Handle(AIS_Shape) newsh = new AIS_Shape(PickSh);
3121     GetMapOfAIS().Bind(newsh, name);
3122     TheAISContext()->Display(newsh);
3123     cout<<"Nom de la shape pickee : "<<name<<endl;
3124   }
3125
3126   // Plusieurs objets a picker, vite vite vite....
3127   //
3128   else{
3129     Standard_Boolean autonaming = !strcasecmp(argv[2],".");
3130     Handle(TopTools_HArray1OfShape) arr = new TopTools_HArray1OfShape(1,NbToPick);
3131     if(ViewerTest::PickShapes(theType,arr)){
3132       for(Standard_Integer i=1;i<=NbToPick;i++){
3133         PickSh = arr->Value(i);
3134         if(!PickSh.IsNull()){
3135           if(autonaming){
3136             nbOfSub[Standard_Integer(theType)]++;
3137             name.Clear();
3138             name += "Picked_";
3139             name += nameType[Standard_Integer(theType)];
3140             TCollection_AsciiString indxstring(nbOfSub[Standard_Integer(theType)]);
3141             name +="_";
3142             name+=indxstring;
3143           }
3144         }
3145         else
3146           name = argv[1+i];
3147
3148         DBRep::Set(name.ToCString(),PickSh);
3149         Handle(AIS_Shape) newsh = new AIS_Shape(PickSh);
3150         GetMapOfAIS().Bind(newsh, name);
3151         cout<<"display of picke shape #"<<i<<" - nom : "<<name<<endl;
3152         TheAISContext()->Display(newsh);
3153
3154       }
3155     }
3156   }
3157   */
3158   return 0;
3159 }
3160 #endif
3161
3162 //=======================================================================
3163 //function : list of known objects
3164 //purpose  :
3165 //=======================================================================
3166 static int VIOTypes( Draw_Interpretor& di, Standard_Integer , const char** )
3167 {
3168   //                             1234567890         12345678901234567         123456789
3169   TCollection_AsciiString Colum [3]={"Standard Types","Type Of Object","Signature"};
3170   TCollection_AsciiString BlankLine(64,'_');
3171   Standard_Integer i ;
3172
3173   di<<"/n"<<BlankLine.ToCString()<<"\n";
3174
3175   for( i =0;i<=2;i++)
3176     Colum[i].Center(20,' ');
3177   for(i=0;i<=2;i++)
3178     di<<"|"<<Colum[i].ToCString();
3179   di<<"|"<<"\n";
3180
3181   di<<BlankLine.ToCString()<<"\n";
3182
3183   //  TCollection_AsciiString thetypes[5]={"Datum","Shape","Object","Relation","None"};
3184   const char ** names = GetTypeNames();
3185
3186   TCollection_AsciiString curstring;
3187   TCollection_AsciiString curcolum[3];
3188
3189
3190   // les objets de type Datum..
3191   curcolum[1]+="Datum";
3192   for(i =0;i<=6;i++){
3193     curcolum[0].Clear();
3194     curcolum[0] += names[i];
3195
3196     curcolum[2].Clear();
3197     curcolum[2]+=TCollection_AsciiString(i+1);
3198
3199     for(Standard_Integer j =0;j<=2;j++){
3200       curcolum[j].Center(20,' ');
3201       di<<"|"<<curcolum[j].ToCString();
3202     }
3203     di<<"|"<<"\n";
3204   }
3205   di<<BlankLine.ToCString()<<"\n";
3206
3207   // les objets de type shape
3208   curcolum[1].Clear();
3209   curcolum[1]+="Shape";
3210   curcolum[1].Center(20,' ');
3211
3212   for(i=0;i<=2;i++){
3213     curcolum[0].Clear();
3214     curcolum[0] += names[7+i];
3215     curcolum[2].Clear();
3216     curcolum[2]+=TCollection_AsciiString(i);
3217
3218     for(Standard_Integer j =0;j<=2;j++){
3219       curcolum[j].Center(20,' ');
3220       di<<"|"<<curcolum[j].ToCString();
3221     }
3222     di<<"|"<<"\n";
3223   }
3224   di<<BlankLine.ToCString()<<"\n";
3225   // les IO de type objet...
3226   curcolum[1].Clear();
3227   curcolum[1]+="Object";
3228   curcolum[1].Center(20,' ');
3229   for(i=0;i<=1;i++){
3230     curcolum[0].Clear();
3231     curcolum[0] += names[10+i];
3232     curcolum[2].Clear();
3233     curcolum[2]+=TCollection_AsciiString(i);
3234
3235     for(Standard_Integer j =0;j<=2;j++){
3236       curcolum[j].Center(20,' ');
3237       di<<"|"<<curcolum[j].ToCString();
3238     }
3239     di<<"|"<<"\n";
3240   }
3241   di<<BlankLine.ToCString()<<"\n";
3242   // les contraintes et dimensions.
3243   // pour l'instant on separe juste contraintes et dimensions...
3244   // plus tard, on detaillera toutes les sortes...
3245   curcolum[1].Clear();
3246   curcolum[1]+="Relation";
3247   curcolum[1].Center(20,' ');
3248   for(i=0;i<=1;i++){
3249     curcolum[0].Clear();
3250     curcolum[0] += names[12+i];
3251     curcolum[2].Clear();
3252     curcolum[2]+=TCollection_AsciiString(i);
3253
3254     for(Standard_Integer j =0;j<=2;j++){
3255       curcolum[j].Center(20,' ');
3256       di<<"|"<<curcolum[j].ToCString();
3257     }
3258     di<<"|"<<"\n";
3259   }
3260   di<<BlankLine.ToCString()<<"\n";
3261
3262
3263   return 0;
3264 }
3265
3266
3267 static int VEraseType( Draw_Interpretor& , Standard_Integer argc, const char** argv)
3268 {
3269   if(argc!=2) return 1;
3270
3271   AIS_KindOfInteractive TheType;
3272   Standard_Integer TheSign(-1);
3273   GetTypeAndSignfromString(argv[1],TheType,TheSign);
3274
3275
3276   AIS_ListOfInteractive LIO;
3277
3278   // en attendant l'amelioration ais pour les dimensions...
3279   //
3280   Standard_Integer dimension_status(-1);
3281   if(TheType==AIS_KOI_Relation){
3282     dimension_status = TheSign ==1 ? 1 : 0;
3283     TheSign=-1;
3284   }
3285
3286   TheAISContext()->DisplayedObjects(TheType,TheSign,LIO);
3287   Handle(AIS_InteractiveObject) curio;
3288   for(AIS_ListIteratorOfListOfInteractive it(LIO);it.More();it.Next()){
3289     curio  = it.Value();
3290
3291     if(dimension_status == -1)
3292       TheAISContext()->Erase(curio,Standard_False);
3293     else {
3294       AIS_KindOfDimension KOD = (*((Handle(AIS_Relation)*)&curio))->KindOfDimension();
3295       if ((dimension_status==0 && KOD == AIS_KOD_NONE)||
3296           (dimension_status==1 && KOD != AIS_KOD_NONE))
3297         TheAISContext()->Erase(curio,Standard_False);
3298     }
3299   }
3300   TheAISContext()->UpdateCurrentViewer();
3301   return 0;
3302 }
3303 static int VDisplayType(Draw_Interpretor& , Standard_Integer argc, const char** argv)
3304 {
3305   if(argc!=2) return 1;
3306
3307   AIS_KindOfInteractive TheType;
3308   Standard_Integer TheSign(-1);
3309   GetTypeAndSignfromString(argv[1],TheType,TheSign);
3310
3311   // en attendant l'amelioration ais pour les dimensions...
3312   //
3313   Standard_Integer dimension_status(-1);
3314   if(TheType==AIS_KOI_Relation){
3315     dimension_status = TheSign ==1 ? 1 : 0;
3316     TheSign=-1;
3317   }
3318
3319   AIS_ListOfInteractive LIO;
3320   TheAISContext()->ObjectsInside(LIO,TheType,TheSign);
3321   Handle(AIS_InteractiveObject) curio;
3322   for(AIS_ListIteratorOfListOfInteractive it(LIO);it.More();it.Next()){
3323     curio  = it.Value();
3324     if(dimension_status == -1)
3325       TheAISContext()->Display(curio,Standard_False);
3326     else {
3327       AIS_KindOfDimension KOD = (*((Handle(AIS_Relation)*)&curio))->KindOfDimension();
3328       if ((dimension_status==0 && KOD == AIS_KOD_NONE)||
3329           (dimension_status==1 && KOD != AIS_KOD_NONE))
3330         TheAISContext()->Display(curio,Standard_False);
3331     }
3332
3333   }
3334
3335   TheAISContext()->UpdateCurrentViewer();
3336   return 0;
3337 }
3338
3339 //==============================================================================
3340 //function : VSetTransMode
3341 //purpose  :
3342 //Draw arg : vsettransmode shape flag1 [flag2] [flag3] [X Y Z]
3343 //==============================================================================
3344
3345 static int VSetTransMode ( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
3346   // Verification des arguments
3347   if ( a3DView().IsNull() ) {
3348     ViewerTest::ViewerInit();
3349     di << "La commande vinit n'a pas ete appele avant" << "\n";
3350   }
3351
3352   if ( argc < 3 || argc > 8 ) {
3353     di << argv[0] << " Invalid number of arguments" << "\n";
3354     return 1;
3355   }
3356
3357   TCollection_AsciiString shapeName;
3358   shapeName = argv[1];
3359   Standard_Integer persFlag1 = atoi(argv[2]);
3360   Standard_Integer persFlag2 = 0;
3361   Standard_Integer persFlag3 = 0;
3362   gp_Pnt origin = gp_Pnt( 0.0, 0.0, 0.0 );
3363   if ( argc == 4 || argc == 5 || argc == 7 || argc == 8 ) {
3364     persFlag2 = atoi(argv[3]);
3365   }
3366   if ( argc == 5 || argc == 8 ) {
3367     persFlag3 = atoi(argv[4]);
3368   }
3369   if ( argc >= 6 ) {
3370     origin.SetX( atof(argv[argc - 3]) );
3371     origin.SetY( atof(argv[argc - 2]) );
3372     origin.SetZ( atof(argv[argc - 1]) );
3373   }
3374
3375   Standard_Boolean IsBound = GetMapOfAIS().IsBound2(shapeName);
3376   Handle(Standard_Transient) anObj;
3377   if ( IsBound ) {
3378     anObj = GetMapOfAIS().Find2(shapeName);
3379     if ( anObj->IsKind(STANDARD_TYPE(AIS_InteractiveObject)) ) {
3380       Handle(AIS_InteractiveObject) aShape = Handle(AIS_InteractiveObject)::DownCast(anObj);
3381       aShape->SetTransformPersistence( (persFlag1 | persFlag2 | persFlag3), origin );
3382       if ( persFlag1 == 0 && persFlag2 == 0 && persFlag3 == 0 ) {
3383         di << argv[0] << " All persistence modifiers were removed" << "\n";
3384       }
3385     } else {
3386       di << argv[0] << " Wrong object type" << "\n";
3387       return 1;
3388     }
3389   } else { // Create the AIS_Shape from a name
3390     const Handle(AIS_InteractiveObject) aShape = GetAISShapeFromName((const char* )shapeName.ToCString());
3391     if ( !aShape.IsNull() ) {
3392       GetMapOfAIS().Bind( aShape, shapeName );
3393       aShape->SetTransformPersistence( (persFlag1 | persFlag2 | persFlag3), origin );
3394       TheAISContext()->Display( aShape, Standard_False );
3395     } else {
3396       di << argv[0] << " Object not found" << "\n";
3397       return 1;
3398     }
3399   }
3400
3401   // Upadate the screen and redraw the view
3402   TheAISContext()->UpdateCurrentViewer();
3403   return 0;
3404 }
3405
3406 static Standard_Integer vr(Draw_Interpretor& , Standard_Integer , const char** a)
3407 {
3408   ifstream s(a[1]);
3409   BRep_Builder builder;
3410   TopoDS_Shape shape;
3411   BRepTools::Read(shape, s, builder);
3412   DBRep::Set(a[1], shape);
3413   Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
3414   Handle(AIS_Shape) ais = new AIS_Shape(shape);
3415   Ctx->Display(ais);
3416   return 0;
3417 }
3418 //============================================================================
3419 #include <AIS2D_InteractiveContext.hxx>
3420 #include <HLRAlgo_Projector.hxx>
3421 #include <Prs3d_Projector.hxx>
3422 #include <AIS2D_ProjShape.hxx>
3423 #include <gp_Ax2.hxx>
3424 #include <gp.hxx>
3425 Standard_Integer hlrtest(Draw_Interpretor&,   Standard_Integer n,   const char** a)
3426 {
3427
3428   Handle(AIS2D_InteractiveContext) aContext2D = Viewer2dTest::GetAIS2DContext();
3429   /////////////////////
3430   TopoDS_Shape aShape =  DBRep::Get(a[1]);
3431   aContext2D->EraseAll(Standard_True);
3432   //Standard_Integer aPolyAlgo = 0;
3433   Standard_Boolean IsPoly = Standard_False;
3434   gp_Ax2 anAx2 = gp::XOY();
3435
3436   //if(n > 2) aPolyAlgo = atoi(a[2]);
3437
3438   //IsPoly = aPolyAlgo > 0;
3439
3440   TopoDS_Shape aResult = aShape;
3441
3442
3443   if (n == 11)
3444   {
3445     Standard_Real x = atof(a[2]);
3446     Standard_Real y = atof(a[3]);
3447     Standard_Real z = atof(a[4]);
3448
3449     Standard_Real dx = atof(a[5]);
3450     Standard_Real dy = atof(a[6]);
3451     Standard_Real dz = atof(a[7]);
3452
3453     Standard_Real dx1 = atof(a[8]);
3454     Standard_Real dy1 = atof(a[9]);
3455     Standard_Real dz1 = atof(a[10]);
3456
3457     gp_Pnt anOrigin (x, y, z);
3458     gp_Dir aNormal  (dx, dy, dz);
3459     gp_Dir aDX      (dx1, dy1, dz1);
3460     anAx2 = gp_Ax2(anOrigin, aNormal, aDX);
3461   }
3462
3463
3464   HLRAlgo_Projector aProjector(anAx2);
3465
3466   //Prs3d_Projector aProjector_t(Standard_False,1, 0,0,1,0,0,1000,0,1,0);
3467
3468   //aProjector =  aProjector_t.Projector();
3469
3470   Handle(AIS2D_ProjShape) myDisplayableShape =
3471     new AIS2D_ProjShape(aProjector,0,IsPoly, Standard_False);
3472
3473   myDisplayableShape->ShowEdges(Standard_True, Standard_False,
3474                                 Standard_False, Standard_True, Standard_False);
3475
3476   myDisplayableShape->Add( aResult );
3477
3478
3479   aContext2D->Display( myDisplayableShape,Standard_True );
3480   aContext2D->UpdateCurrentViewer();
3481
3482   return 0;
3483 }
3484
3485 Standard_Integer phlrtest(Draw_Interpretor&,   Standard_Integer n,   const char** a)
3486 {
3487
3488   Handle(AIS2D_InteractiveContext) aContext2D = Viewer2dTest::GetAIS2DContext();
3489   /////////////////////
3490   TopoDS_Shape aShape =  DBRep::Get(a[1]);
3491   aContext2D->EraseAll(Standard_True);
3492   //Standard_Integer aPolyAlgo = 0;
3493   Standard_Boolean IsPoly = Standard_True;
3494   gp_Ax2 anAx2 = gp::XOY();
3495
3496   //if(n > 2) aPolyAlgo = atoi(a[2]);
3497
3498   //IsPoly = aPolyAlgo > 0;
3499
3500   TopoDS_Shape aResult = aShape;
3501
3502
3503   if (n == 11)
3504   {
3505     Standard_Real x = atof(a[2]);
3506     Standard_Real y = atof(a[3]);
3507     Standard_Real z = atof(a[4]);
3508
3509     Standard_Real dx = atof(a[5]);
3510     Standard_Real dy = atof(a[6]);
3511     Standard_Real dz = atof(a[7]);
3512
3513     Standard_Real dx1 = atof(a[8]);
3514     Standard_Real dy1 = atof(a[9]);
3515     Standard_Real dz1 = atof(a[10]);
3516
3517     gp_Pnt anOrigin (x, y, z);
3518     gp_Dir aNormal  (dx, dy, dz);
3519     gp_Dir aDX      (dx1, dy1, dz1);
3520     anAx2 = gp_Ax2(anOrigin, aNormal, aDX);
3521   }
3522
3523
3524   HLRAlgo_Projector aProjector(anAx2);
3525
3526   //Prs3d_Projector aProjector_t(Standard_False,1, 0,0,1,0,0,1000,0,1,0);
3527
3528   //aProjector =  aProjector_t.Projector();
3529
3530   Handle(AIS2D_ProjShape) myDisplayableShape =
3531     new AIS2D_ProjShape(aProjector,0,IsPoly, Standard_False);
3532
3533   myDisplayableShape->ShowEdges(Standard_True, Standard_False,
3534                                 Standard_False, Standard_True, Standard_False);
3535
3536   myDisplayableShape->Add( aResult );
3537
3538
3539   aContext2D->Display( myDisplayableShape,Standard_True );
3540   aContext2D->UpdateCurrentViewer();
3541
3542   return 0;
3543 }
3544
3545 //==============================================================================
3546 //function : ViewerTest::Commands
3547 //purpose  : Add all the viewer command in the Draw_Interpretor
3548 //==============================================================================
3549
3550 void ViewerTest::Commands(Draw_Interpretor& theCommands)
3551 {
3552   ViewerTest::ViewerCommands(theCommands);
3553   ViewerTest::RelationCommands(theCommands);
3554   ViewerTest::ObjectCommands(theCommands);
3555   ViewerTest::FilletCommands(theCommands);
3556   ViewerTest::VoxelCommands(theCommands);
3557   ViewerTest::OpenGlCommands(theCommands);
3558
3559   const char *group = "AIS_Display";
3560
3561   // display
3562
3563   theCommands.Add("vdisplay",
3564                   "vdisplay         : vdisplay2 name1 [name2] ... [name n] ",
3565                   __FILE__,VDisplay2,group);
3566
3567   theCommands.Add("verase",
3568                   "verase      : verase2 [name1] ...  [name n] ",
3569                   __FILE__,VErase2,group);
3570
3571   theCommands.Add("vdonly",
3572                   "vdonly         : vdonly2 [name1] ...  [name n]",
3573                   __FILE__,VDonly2,group);
3574
3575   theCommands.Add("vdisplayall",
3576                   "vdisplayall         : vdisplayall",
3577                   __FILE__,VDisplayAll,group);
3578
3579   theCommands.Add("veraseall",
3580                   "veraseall        : veraseall ",
3581                   __FILE__,VEraseAll,group);
3582
3583   theCommands.Add("verasetype",
3584                   "verasetype        : verasetype <Type>  \n\t erase all the displayed objects of one given kind (see vtypes)",
3585                   __FILE__,VEraseType,group);
3586
3587   theCommands.Add("vdisplaytype",
3588                   "vdisplaytype        : vdisplaytype <Type> <Signature> \n\t display all the objects of one given kind (see vtypes) which are stored the AISContext ",
3589                   __FILE__,VDisplayType,group);
3590
3591   theCommands.Add("vdisplaymode",
3592                   "vdispmode       : vdispmode  [name] mode(1,2,..) : no name -> on selected objects ",
3593                   __FILE__,VDispMode,group);
3594
3595   theCommands.Add("verasemode",
3596                   "verasemode      : verasemode [name] mode(1,2,..) : no name -> on selected objects",
3597                   __FILE__,VDispMode,group);
3598
3599   theCommands.Add("vsetdispmode",
3600                   "vsetdispmode    : vsetdispmode [name] mode(1,2,..): no name -> on selected objects ",
3601                   __FILE__,VDispMode,group);
3602
3603   theCommands.Add("vunsetdispmode",
3604                   "vunsetdispmode : vunsetdispmode [name] mode(1,2,..): no name -> on selected objects",
3605                   __FILE__,VDispMode,group);
3606
3607   theCommands.Add("vdir",
3608                   "vdir",
3609                   __FILE__,VDebug,group);
3610
3611   theCommands.Add("vdump",
3612                   "<filename>.{png|bmp|jpg|gif} [buffer={rgb|rgba|depth}] [width height]\n\t\t: Dump contents of viewer window to PNG, BMP, JPEG or GIF file",
3613                   __FILE__,VDump,group);
3614
3615   theCommands.Add("vsub",      "vsub 0/1 (off/on) [obj]        : Subintensity(on/off) of selected objects",
3616                   __FILE__,VSubInt,group);
3617
3618   theCommands.Add("vsetcolor",
3619                   "vsetcolor         : vsetcolor [name of shape] ColorName",
3620                   __FILE__,VColor2,group);
3621
3622   theCommands.Add("vunsetcolor",
3623                   "vunsetcolor     : vunsetcolor   [name of shape] ",
3624                   __FILE__,VColor2,group);
3625
3626   theCommands.Add("vsettransparency",
3627                   "vsettransparency          : vtransparency [name of shape] TransparenctCoef (0 -> 1)",
3628                   __FILE__,VTransparency,group);
3629
3630   theCommands.Add("vunsettransparency",
3631                   "vunsettransparency          : vtransparency [name of shape]",
3632                   __FILE__,VTransparency,group);
3633
3634   theCommands.Add("vsetmaterial",
3635                   "vmaterial          : vmaterial  [name of shape] MaterialName",
3636                   __FILE__,VMaterial,group);
3637
3638   theCommands.Add("vunsetmaterial",
3639                   "vmaterial          : vmaterial  [name of shape]",
3640                   __FILE__,VMaterial,group);
3641
3642   theCommands.Add("vsetwidth",
3643                   "vsetwidth          : vwidth  [name of shape] width(0->10)",
3644                   __FILE__,VWidth,group);
3645
3646   theCommands.Add("vunsetwidth",
3647                   "vunsetwidth          : vwidth  [name of shape]",
3648                   __FILE__,VWidth,group);
3649
3650   theCommands.Add("vsetinteriorstyle",
3651                   "vsetinteriorstyle    : vsetinteriorstyle [name of shape] style",
3652                   __FILE__,VInteriorStyle,group);
3653
3654   theCommands.Add("vardis",
3655                   "vardis          : display activeareas",
3656                   __FILE__,VDispAreas,group);
3657
3658   theCommands.Add("varera",
3659                   "varera           : erase activeareas",
3660                   __FILE__,VClearAreas,group);
3661
3662   theCommands.Add("vsensdis",
3663                   "vardisp           : display active entities",
3664                   __FILE__,VDispSensi,group);
3665   theCommands.Add("vsensera",
3666                   "vardisp           : erase  active entities",
3667                   __FILE__,VClearSensi,group);
3668
3669   theCommands.Add("vselprecision",
3670                   "vselprecision : vselprecision [precision_mode [tolerance_value]]",
3671                   __FILE__,VSelPrecision,group);
3672
3673   theCommands.Add("vperf",
3674                   "vperf: vperf  ShapeName 1/0(Transfo/Location) 1/0(Primitives sensibles ON/OFF)",
3675                   __FILE__,VPerf,group);
3676
3677   theCommands.Add("vanimation",
3678                   "vanimation CrankArmFile CylinderHeadFile PropellerFile EngineBlockFile",
3679                   __FILE__,VAnimation,group);
3680
3681   theCommands.Add("vsetshading",
3682                   "vsetshading  : vsetshading name Quality(default=0.0008) ",
3683                   __FILE__,VShading,group);
3684
3685   theCommands.Add("vunsetshading",
3686                   "vunsetshading :vunsetshading name ",
3687                   __FILE__,VShading,group);
3688
3689   theCommands.Add("vtexture",
3690                   "'vtexture NameOfShape TextureFile' \n \
3691                   or 'vtexture NameOfShape' if you want to disable texture mapping \n \
3692                   or 'vtexture NameOfShape ?' to list available textures\n \
3693                   or 'vtexture NameOfShape IdOfTexture' (0<=IdOfTexture<=20)' to use predefined  textures\n ",
3694                   __FILE__,VTexture,group);
3695
3696   theCommands.Add("vtexscale",
3697                   "'vtexscale  NameOfShape ScaleU ScaleV' \n \
3698                    or 'vtexscale NameOfShape ScaleUV' \n \
3699                    or 'vtexscale NameOfShape' to disable scaling\n ",
3700                   __FILE__,VTexture,group);
3701
3702   theCommands.Add("vtexorigin",
3703                   "'vtexorigin NameOfShape UOrigin VOrigin' \n \
3704                    or 'vtexorigin NameOfShape UVOrigin' \n \
3705                    or 'vtexorigin NameOfShape' to disable origin positioning\n ",
3706                   __FILE__,VTexture,group);
3707
3708   theCommands.Add("vtexrepeat",
3709                   "'vtexrepeat  NameOfShape URepeat VRepeat' \n \
3710                    or 'vtexrepeat NameOfShape UVRepeat \n \
3711                    or 'vtexrepeat NameOfShape' to disable texture repeat \n ",
3712                   VTexture,group);
3713
3714   theCommands.Add("vtexdefault",
3715                   "'vtexdefault NameOfShape' to set texture mapping default parameters \n",
3716                   VTexture,group);
3717
3718   theCommands.Add("vsetam",
3719                   "vsetActivatedModes: vsetam mode(1->7)  ",
3720                   __FILE__,VActivatedMode,group);
3721
3722   theCommands.Add("vunsetam",
3723                   "vunsetActivatedModes:   vunsetam  ",
3724                   __FILE__,VActivatedMode,group);
3725
3726   theCommands.Add("vstate",   "vstate [Name1] ... [NameN] :No arg, select currents; no currrent select all  ",
3727                   __FILE__,VState,group);
3728
3729   theCommands.Add("vpickshapes",
3730                   "vpickshape subtype(VERTEX,EDGE,WIRE,FACE,SHELL,SOLID) [name1 or .] [name2 or .] [name n or .]",
3731                   __FILE__,VPickShape,group);
3732
3733   theCommands.Add("vtypes",
3734                   "vtypes : list of known types and signatures in AIS - To be Used in vpickobject command for selection with filters",
3735                   VIOTypes,group);
3736
3737   theCommands.Add("vsettransmode",
3738                   "vsettransmode   : vsettransmode shape flag1 [flag2] [flag3] [X Y Z]",
3739                   __FILE__,VSetTransMode,group);
3740
3741   theCommands.Add("vr", "vr : reading of the shape",
3742                   __FILE__,vr, group);
3743
3744   theCommands.Add("hlrtest"       , "Usage: hlrtest s1 s2 ...", __FILE__, hlrtest, group);
3745   theCommands.Add("phlrtest"       , "Usage: hlrtest s1 s2 ...", __FILE__, phlrtest, group);
3746
3747 }
3748
3749 //=====================================================================
3750 //========================= for testing Draft and Rib =================
3751 //=====================================================================
3752 #include <BRepOffsetAPI_MakeThickSolid.hxx>
3753 #include <DBRep.hxx>
3754 #include <TopoDS_Face.hxx>
3755 #include <gp_Pln.hxx>
3756 #include <AIS_KindOfSurface.hxx>
3757 #include <BRepOffsetAPI_DraftAngle.hxx>
3758 #include <Precision.hxx>
3759 #include <BRepAlgo.hxx>
3760 #include <OSD_Environment.hxx>
3761 #include <DrawTrSurf.hxx>
3762 //#include <DbgTools.hxx>
3763 //#include <FeatAlgo_MakeLinearForm.hxx>
3764
3765
3766
3767
3768 //=======================================================================
3769 //function : IsValid
3770 //purpose  :
3771 //=======================================================================
3772 static Standard_Boolean IsValid(const TopTools_ListOfShape& theArgs,
3773                                 const TopoDS_Shape& theResult,
3774                                 const Standard_Boolean closedSolid,
3775                                 const Standard_Boolean GeomCtrl)
3776 {
3777   OSD_Environment check ("DONT_SWITCH_IS_VALID") ;
3778   TCollection_AsciiString checkValid = check.Value();
3779   Standard_Boolean ToCheck = Standard_True;
3780   if (!checkValid.IsEmpty()) {
3781 #ifdef DEB
3782     cout <<"DONT_SWITCH_IS_VALID positionnee a :"<<checkValid.ToCString()<<"\n";
3783 #endif
3784     if ( checkValid=="true" || checkValid=="TRUE" ) {
3785       ToCheck= Standard_False;
3786     }
3787   } else {
3788 #ifdef DEB
3789     cout <<"DONT_SWITCH_IS_VALID non positionne"<<"\n";
3790 #endif
3791   }
3792   Standard_Boolean IsValid = Standard_True;
3793   if (ToCheck)
3794     IsValid = BRepAlgo::IsValid(theArgs,theResult,closedSolid,GeomCtrl) ;
3795   return IsValid;
3796
3797 }
3798
3799 //===============================================================================
3800 // TDraft : test draft, uses AIS Viewer
3801 // Solid Face Plane Angle  Reverse
3802 //===============================================================================
3803 static Standard_Integer TDraft(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
3804 {
3805   if (argc < 5) return 1;
3806 // argv[1] - TopoDS_Shape Solid
3807 // argv[2] - TopoDS_Shape Face
3808 // argv[3] - TopoDS_Shape Plane
3809 // argv[4] - Standard_Real Angle
3810 // argv[5] - Standard_Integer Reverse
3811
3812 //  sprintf(prefix, argv[1]);
3813   Standard_Real anAngle = 0;
3814   Standard_Boolean Rev = Standard_False;
3815   Standard_Integer rev = 0;
3816   TopoDS_Shape Solid  = GetShapeFromName(argv[1]);
3817   TopoDS_Shape face   = GetShapeFromName(argv[2]);
3818   TopoDS_Face Face    = TopoDS::Face(face);
3819   TopoDS_Shape Plane  = GetShapeFromName(argv[3]);
3820   if (Plane.IsNull ()) {
3821     di << "TEST : Plane is NULL" << "\n";
3822     return 1;
3823   }
3824   anAngle = atof(argv[4]);
3825   anAngle = 2*M_PI * anAngle / 360.0;
3826   gp_Pln aPln;
3827   Handle( Geom_Surface )aSurf;
3828   AIS_KindOfSurface aSurfType;
3829   Standard_Real Offset;
3830   gp_Dir aDir;
3831   if(argc > 4) { // == 5
3832     rev = atoi(argv[5]);
3833     Rev = (rev)? Standard_True : Standard_False;
3834   }
3835
3836   TopoDS_Face face2 = TopoDS::Face(Plane);
3837   if(!AIS::GetPlaneFromFace(face2, aPln, aSurf, aSurfType, Offset))
3838     {
3839       di << "TEST : Can't find plane" << "\n";
3840       return 1;
3841     }
3842
3843   aDir = aPln.Axis().Direction();
3844   if (!aPln.Direct())
3845     aDir.Reverse();
3846   if (Plane.Orientation() == TopAbs_REVERSED)
3847     aDir.Reverse();
3848   di << "TEST : gp::Resolution() = " << gp::Resolution() << "\n";
3849
3850   BRepOffsetAPI_DraftAngle Draft (Solid);
3851
3852   if(Abs(anAngle)< Precision::Angular()) {
3853     di << "TEST : NULL angle" << "\n";
3854     return 1;}
3855
3856   if(Rev) anAngle = - anAngle;
3857   Draft.Add (Face, aDir, anAngle, aPln);
3858   Draft.Build ();
3859   if (!Draft.IsDone())  {
3860     di << "TEST : Draft Not DONE " << "\n";
3861     return 1;
3862   }
3863   TopTools_ListOfShape Larg;
3864   Larg.Append(Solid);
3865   if (!IsValid(Larg,Draft.Shape(),Standard_True,Standard_False)) {
3866     di << "TEST : DesignAlgo returns Not valid" << "\n";
3867     return 1;
3868   }
3869
3870   Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
3871   Handle(AIS_Shape) ais = new AIS_Shape(Draft.Shape());
3872
3873   if ( !ais.IsNull() ) {
3874     ais->SetColor(DEFAULT_COLOR);
3875     ais->SetMaterial(DEFAULT_MATERIAL);
3876     // Display the AIS_Shape without redraw
3877     Ctx->Display(ais, Standard_False);
3878
3879     const char *Name = "draft1";
3880     Standard_Boolean IsBound = GetMapOfAIS().IsBound2(Name);
3881     if (IsBound) {
3882       Handle(AIS_InteractiveObject) an_object =
3883         Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(Name));
3884       if (!an_object.IsNull()) {
3885         Ctx->Remove(an_object,
3886                     Standard_True) ;
3887         GetMapOfAIS().UnBind2(Name) ;
3888       }
3889     }
3890     GetMapOfAIS().Bind(ais, Name);
3891 //  DBRep::Set("draft", ais->Shape());
3892   }
3893   Ctx->Display(ais, Standard_True);
3894   return 0;
3895 }
3896
3897
3898
3899 //============================================================================
3900 //  MyCommands
3901 //============================================================================
3902 void ViewerTest::MyCommands( Draw_Interpretor& theCommands)
3903 {
3904
3905   DrawTrSurf::BasicCommands(theCommands);
3906   const char* group = "Check Features Operations commands";
3907
3908   theCommands.Add("Draft","Draft    Solid Face Plane Angle Reverse",
3909                   __FILE__,
3910                   &TDraft,group); //Draft_Modification
3911 }
3912
3913 //==============================================================================
3914 // ViewerTest::Factory
3915 //==============================================================================
3916 void ViewerTest::Factory(Draw_Interpretor& theDI)
3917 {
3918   // definition of Viewer Command
3919       ViewerTest::Commands(theDI);
3920       ViewerTest::AviCommands(theDI);
3921       Viewer2dTest::Commands(theDI);
3922 #ifdef DEB
3923       theDI << "Draw Plugin : OCC V2d & V3d commands are loaded" << "\n";
3924 #endif
3925 }
3926
3927 // Declare entry point PLUGINFACTORY
3928 DPLUGIN(ViewerTest)