ViewerTest - do not require HAVE_OPENCL for ray-tracing commands
[occt.git] / src / ViewerTest / ViewerTest_ViewerCommands.cxx
1 // Created on: 1998-09-01
2 // Created by: Robert COUBLANC
3 // Copyright (c) 1998-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 #ifdef HAVE_CONFIG_H
22   #include <config.h>
23 #endif
24
25 #include <OpenGl_GlCore20.hxx>
26 #include <AIS_Shape.hxx>
27 #include <AIS_Drawer.hxx>
28 #include <AIS_InteractiveObject.hxx>
29 #include <AIS_ListOfInteractive.hxx>
30 #include <AIS_ListIteratorOfListOfInteractive.hxx>
31 #include <DBRep.hxx>
32 #include <Graphic3d_AspectMarker3d.hxx>
33 #include <Graphic3d_ExportFormat.hxx>
34 #include <Graphic3d_NameOfTextureEnv.hxx>
35 #include <Graphic3d_TextureEnv.hxx>
36 #include <Graphic3d_TextureParams.hxx>
37 #include <Graphic3d_TypeOfTextureFilter.hxx>
38 #include <Graphic3d_AspectFillArea3d.hxx>
39 #include <ViewerTest.hxx>
40 #include <ViewerTest_EventManager.hxx>
41 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
42 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
43 #include <Visual3d_View.hxx>
44 #include <Visual3d_ViewManager.hxx>
45 #include <V3d_LayerMgr.hxx>
46 #include <NCollection_DoubleMap.hxx>
47 #include <NCollection_List.hxx>
48 #include <NCollection_Vector.hxx>
49 #include <NIS_View.hxx>
50 #include <NIS_Triangulated.hxx>
51 #include <NIS_InteractiveContext.hxx>
52 #include <AIS_InteractiveContext.hxx>
53 #include <Draw_Interpretor.hxx>
54 #include <Draw.hxx>
55 #include <Draw_Appli.hxx>
56 #include <Aspect_PrintAlgo.hxx>
57 #include <Image_AlienPixMap.hxx>
58 #include <OpenGl_GraphicDriver.hxx>
59 #include <OSD_Timer.hxx>
60 #include <TColStd_SequenceOfInteger.hxx>
61 #include <TColStd_HSequenceOfReal.hxx>
62 #include <TColgp_Array1OfPnt2d.hxx>
63 #include <Visual3d_LayerItem.hxx>
64 #include <V3d_LayerMgr.hxx>
65 #include <V3d_LayerMgrPointer.hxx>
66 #include <Aspect_TypeOfLine.hxx>
67 #include <Image_Diff.hxx>
68 #include <Aspect_DisplayConnection.hxx>
69 #include <Graphic3d.hxx>
70 #include <gp_Pnt.hxx>
71 #include <gp_Dir.hxx>
72 #include <gp_Pln.hxx>
73 #include <PrsMgr_PresentableObject.hxx>
74 #include <Graphic3d_ClipPlane.hxx>
75 #include <NCollection_DataMap.hxx>
76 #include <Graphic3d_Texture2Dmanual.hxx>
77 #include <Prs3d_ShadingAspect.hxx>
78
79 #ifdef WNT
80 #undef DrawText
81 #endif
82
83 #include <Visual3d_Layer.hxx>
84 #include <cstdlib>
85
86 #if defined(_WIN32)
87   #include <WNT_WClass.hxx>
88   #include <WNT_Window.hxx>
89
90   #if defined(_MSC_VER)
91     #define _CRT_SECURE_NO_DEPRECATE
92     #pragma warning (disable:4996)
93   #endif
94 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
95   #include <Cocoa_Window.hxx>
96   #include <tk.h>
97 #else
98   #include <Xw_Window.hxx>
99   #include <X11/Xlib.h> /* contains some dangerous #defines such as Status, True etc. */
100   #include <X11/Xutil.h>
101   #include <tk.h>
102 #endif
103
104 // Auxiliary definitions
105 static const char THE_KEY_DELETE = 127;
106
107 //==============================================================================
108 //  VIEWER GLOBAL VARIABLES
109 //==============================================================================
110
111 Standard_IMPORT Standard_Boolean Draw_VirtualWindows;
112 Standard_IMPORT Standard_Boolean Draw_Interprete (const char* theCommand);
113
114 Standard_EXPORT int ViewerMainLoop(Standard_Integer , const char** argv);
115 extern const Handle(NIS_InteractiveContext)& TheNISContext();
116 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
117
118 extern int VErase (Draw_Interpretor& theDI,
119                    Standard_Integer  theArgNb,
120                    const char**      theArgVec);
121
122 #if defined(_WIN32)
123 static Handle(WNT_Window)& VT_GetWindow() {
124   static Handle(WNT_Window) WNTWin;
125   return WNTWin;
126 }
127 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
128 static Handle(Cocoa_Window)& VT_GetWindow()
129 {
130   static Handle(Cocoa_Window) aWindow;
131   return aWindow;
132 }
133 extern void ViewerTest_SetCocoaEventManagerView (const Handle(Cocoa_Window)& theWindow);
134 extern void SetCocoaWindowTitle (const Handle(Cocoa_Window)& theWindow, Standard_CString theTitle);
135 extern void GetCocoaScreenResolution (Standard_Integer& theWidth, Standard_Integer& theHeight);
136
137 #else
138 static Handle(Xw_Window)& VT_GetWindow(){
139   static Handle(Xw_Window) XWWin;
140   return XWWin;
141 }
142
143 static void VProcessEvents(ClientData,int);
144 #endif
145
146 static Handle(Aspect_DisplayConnection)& GetDisplayConnection()
147 {
148   static Handle(Aspect_DisplayConnection) aDisplayConnection;
149   return aDisplayConnection;
150 }
151
152 static void SetDisplayConnection (const Handle(Aspect_DisplayConnection)& theDisplayConnection)
153 {
154   GetDisplayConnection() = theDisplayConnection;
155 }
156
157 #if defined(_WIN32) || (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
158 Aspect_Handle GetWindowHandle(const Handle(Aspect_Window)& theWindow)
159 {
160   Aspect_Handle aWindowHandle = (Aspect_Handle)NULL;
161 #if defined(_WIN32)
162   const Handle (WNT_Window) aWindow = Handle(WNT_Window)::DownCast (theWindow);
163   if (!aWindow.IsNull())
164     return aWindow->HWindow();
165 #elif (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
166   const Handle (Xw_Window) aWindow = Handle(Xw_Window)::DownCast (theWindow);
167   if (!aWindow.IsNull())
168   return aWindow->XWindow();
169 #endif
170   return aWindowHandle;
171 }
172 #endif
173
174 static Standard_Boolean MyHLRIsOn = Standard_False;
175
176 NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)> ViewerTest_myViews;
177 static NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>  ViewerTest_myContexts;
178 static NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)> ViewerTest_myDrivers;
179 static OpenGl_Caps ViewerTest_myDefaultCaps;
180
181 #define ZCLIPWIDTH 1.
182
183 static void OSWindowSetup();
184
185 //==============================================================================
186 //  EVENT GLOBAL VARIABLES
187 //==============================================================================
188
189 static int Start_Rot = 0;
190 static int ZClipIsOn = 0;
191 int X_Motion = 0; // Current cursor position
192 int Y_Motion = 0;
193 int X_ButtonPress = 0; // Last ButtonPress position
194 int Y_ButtonPress = 0;
195 Standard_Boolean IsDragged = Standard_False;
196 Standard_Boolean DragFirst;
197
198 //==============================================================================
199
200 #ifdef WNT
201 static LRESULT WINAPI ViewerWindowProc(
202                                        HWND hwnd,
203                                        UINT uMsg,
204                                        WPARAM wParam,
205                                        LPARAM lParam );
206 static LRESULT WINAPI AdvViewerWindowProc(
207   HWND hwnd,
208   UINT uMsg,
209   WPARAM wParam,
210   LPARAM lParam );
211 #endif
212
213
214 //==============================================================================
215 //function : WClass
216 //purpose  :
217 //==============================================================================
218
219 const Handle(MMgt_TShared)& ViewerTest::WClass()
220 {
221   static Handle(MMgt_TShared) theWClass;
222 #if defined(_WIN32)
223   if (theWClass.IsNull())
224   {
225     theWClass = new WNT_WClass ("GW3D_Class", AdvViewerWindowProc,
226       CS_VREDRAW | CS_HREDRAW, 0, 0,
227       ::LoadCursor (NULL, IDC_ARROW));
228   }
229 #endif
230   return theWClass;
231 }
232
233 //==============================================================================
234 //function : CreateName
235 //purpose  : Create numerical name for new object in theMap
236 //==============================================================================
237 template <typename ObjectType>
238 TCollection_AsciiString CreateName (const NCollection_DoubleMap <TCollection_AsciiString, ObjectType>& theObjectMap,
239                                     const TCollection_AsciiString& theDefaultString)
240 {
241   if (theObjectMap.IsEmpty())
242     return theDefaultString + TCollection_AsciiString(1);
243
244   Standard_Integer aNextKey = 1;
245   Standard_Boolean isFound = Standard_False;
246   while (!isFound)
247   {
248     TCollection_AsciiString aStringKey = theDefaultString + TCollection_AsciiString(aNextKey);
249     // Look for objects with default names
250     if (theObjectMap.IsBound1(aStringKey))
251     {
252       aNextKey++;
253     }
254     else
255       isFound = Standard_True;
256   }
257
258   return theDefaultString + TCollection_AsciiString(aNextKey);
259 }
260
261 //==============================================================================
262 //structure : ViewerTest_Names
263 //purpose   : Allow to operate with full view name: driverName/viewerName/viewName
264 //==============================================================================
265 struct ViewerTest_Names
266 {
267 private:
268   TCollection_AsciiString myDriverName;
269   TCollection_AsciiString myViewerName;
270   TCollection_AsciiString myViewName;
271
272 public:
273
274   const TCollection_AsciiString& GetDriverName () const
275   {
276     return myDriverName;
277   }
278   void SetDriverName (const TCollection_AsciiString& theDriverName)
279   {
280     myDriverName = theDriverName;
281   }
282   const TCollection_AsciiString& GetViewerName () const
283   {
284     return myViewerName;
285   }
286   void SetViewerName (const TCollection_AsciiString& theViewerName)
287   {
288     myViewerName = theViewerName;
289   }
290   const TCollection_AsciiString& GetViewName () const
291   {
292     return myViewName;
293   }
294   void SetViewName (const TCollection_AsciiString& theViewName)
295   {
296     myViewName = theViewName;
297   }
298
299   //===========================================================================
300   //function : Constructor for ViewerTest_Names
301   //purpose  : Get view, viewer, driver names from custom string
302   //===========================================================================
303
304   ViewerTest_Names (const TCollection_AsciiString& theInputString)
305   {
306     TCollection_AsciiString aName(theInputString);
307     if (theInputString.IsEmpty())
308     {
309       // Get current configuration
310       if (ViewerTest_myDrivers.IsEmpty())
311         myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
312           (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
313       else
314         myDriverName = ViewerTest_myDrivers.Find2
315         (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
316
317       if(ViewerTest_myContexts.IsEmpty())
318       {
319         myViewerName = CreateName <Handle(AIS_InteractiveContext)>
320           (ViewerTest_myContexts, TCollection_AsciiString (myDriverName + "/Viewer"));
321       }
322       else
323         myViewerName = ViewerTest_myContexts.Find2 (ViewerTest::GetAISContext());
324
325         myViewName = CreateName <Handle(V3d_View)>
326           (ViewerTest_myViews, TCollection_AsciiString(myViewerName + "/View"));
327     }
328     else
329     {
330       // There is at least view name
331       Standard_Integer aParserNumber = 0;
332       for (Standard_Integer i = 0; i < 3; ++i)
333       {
334         Standard_Integer aParserPos = aName.SearchFromEnd("/");
335         if(aParserPos != -1)
336         {
337           aParserNumber++;
338           aName.Split(aParserPos-1);
339         }
340         else
341           break;
342       }
343       if (aParserNumber == 0)
344       {
345         // Only view name
346         if (!ViewerTest::GetAISContext().IsNull())
347         {
348           myDriverName = ViewerTest_myDrivers.Find2
349           (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
350           myViewerName = ViewerTest_myContexts.Find2
351           (ViewerTest::GetAISContext());
352         }
353         else
354         {
355           // There is no opened contexts here, need to create names for viewer and driver
356           myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
357             (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
358
359           myViewerName = CreateName <Handle(AIS_InteractiveContext)>
360             (ViewerTest_myContexts, TCollection_AsciiString (myDriverName + "/Viewer"));
361         }
362         myViewName = TCollection_AsciiString(myViewerName + "/" + theInputString);
363       }
364       else if (aParserNumber == 1)
365       {
366         // Here is viewerName/viewName
367         if (!ViewerTest::GetAISContext().IsNull())
368           myDriverName = ViewerTest_myDrivers.Find2
369           (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
370         else
371         {
372           // There is no opened contexts here, need to create name for driver
373           myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
374             (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
375         }
376         myViewerName = TCollection_AsciiString(myDriverName + "/" + aName);
377
378         myViewName = TCollection_AsciiString(myDriverName + "/" + theInputString);
379       }
380       else
381       {
382         //Here is driverName/viewerName/viewName
383         myDriverName = TCollection_AsciiString(aName);
384
385         TCollection_AsciiString aViewerName(theInputString);
386         aViewerName.Split(aViewerName.SearchFromEnd("/") - 1);
387         myViewerName = TCollection_AsciiString(aViewerName);
388
389         myViewName = TCollection_AsciiString(theInputString);
390       }
391     }
392   }
393 };
394
395 //==============================================================================
396 //function : FindContextByView
397 //purpose  : Find AIS_InteractiveContext by View
398 //==============================================================================
399
400 Handle(AIS_InteractiveContext) FindContextByView (const Handle(V3d_View)& theView)
401 {
402   Handle(AIS_InteractiveContext) anAISContext;
403
404   for (NCollection_DoubleMap<TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
405        anIter (ViewerTest_myContexts); anIter.More(); anIter.Next())
406   {
407     if (anIter.Value()->CurrentViewer() == theView->Viewer())
408        return anIter.Key2();
409   }
410   return anAISContext;
411 }
412
413
414 //==============================================================================
415 //function : SetWindowTitle
416 //purpose  : Set window title
417 //==============================================================================
418
419 void SetWindowTitle (const Handle(Aspect_Window)& theWindow,
420                      Standard_CString theTitle)
421 {
422 #if defined(_WIN32)
423   SetWindowText ((HWND)Handle(WNT_Window)::DownCast(theWindow)->HWindow(),
424     theTitle);
425 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
426   SetCocoaWindowTitle (Handle(Cocoa_Window)::DownCast(theWindow), theTitle);
427 #else
428   if(GetDisplayConnection()->GetDisplay())
429   {
430     Window aWindow =
431       Handle(Xw_Window)::DownCast(theWindow)->XWindow();
432     XStoreName (GetDisplayConnection()->GetDisplay(), aWindow , theTitle);
433   }
434 #endif
435 }
436
437 //==============================================================================
438 //function : IsWindowOverlapped
439 //purpose  : Check if theWindow overlapp another view
440 //==============================================================================
441
442 Standard_Boolean IsWindowOverlapped (const Standard_Integer thePxLeft,
443                                      const Standard_Integer thePxTop,
444                                      const Standard_Integer thePxRight,
445                                      const Standard_Integer thePxBottom,
446                                      TCollection_AsciiString& theViewId)
447 {
448   for(NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)>::Iterator
449       anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
450   {
451     Standard_Integer aTop = 0,
452       aLeft = 0,
453       aRight = 0,
454       aBottom = 0;
455     anIter.Value()->Window()->Position(aLeft, aTop, aRight, aBottom);
456     if ((thePxLeft >= aLeft && thePxLeft <= aRight && thePxTop >= aTop && thePxTop <= aBottom) ||
457         (thePxLeft >= aLeft && thePxLeft <= aRight && thePxBottom >= aTop && thePxBottom <= aBottom) ||
458         (thePxRight >= aLeft && thePxRight <= aRight && thePxTop >= aTop && thePxTop <= aBottom) ||
459         (thePxRight >= aLeft && thePxRight <= aRight && thePxBottom >= aTop && thePxBottom <= aBottom))
460     {
461       theViewId = anIter.Key1();
462       return Standard_True;
463     }
464   }
465   return Standard_False;
466 }
467
468 // Workaround: to create and delete non-orthographic views outside ViewerTest
469 void ViewerTest::RemoveViewName (const TCollection_AsciiString& theName)
470 {
471   ViewerTest_myViews.UnBind1 (theName);
472 }
473
474 void ViewerTest::InitViewName (const TCollection_AsciiString& theName,
475                                const Handle(V3d_View)& theView)
476 {
477   ViewerTest_myViews.Bind (theName, theView);
478 }
479
480 TCollection_AsciiString ViewerTest::GetCurrentViewName ()
481 {
482   return ViewerTest_myViews.Find2( ViewerTest::CurrentView());
483 }
484 //==============================================================================
485 //function : ViewerInit
486 //purpose  : Create the window viewer and initialize all the global variable
487 //==============================================================================
488
489 TCollection_AsciiString ViewerTest::ViewerInit (const Standard_Integer thePxLeft,
490                                                 const Standard_Integer thePxTop,
491                                                 const Standard_Integer thePxWidth,
492                                                 const Standard_Integer thePxHeight,
493                                                 Standard_CString theViewName,
494                                                 Standard_CString theDisplayName)
495 {
496   // Default position and dimension of the viewer window.
497   // Note that left top corner is set to be sufficiently small to have
498   // window fit in the small screens (actual for remote desktops, see #23003).
499   // The position corresponds to the window's client area, thus some
500   // gap is added for window frame to be visible.
501   Standard_Integer aPxLeft   = 20;
502   Standard_Integer aPxTop    = 40;
503   Standard_Integer aPxWidth  = 409;
504   Standard_Integer aPxHeight = 409;
505   Standard_Boolean toCreateViewer = Standard_False;
506
507   Handle(OpenGl_GraphicDriver) aGraphicDriver;
508   ViewerTest_Names aViewNames(theViewName);
509   if (ViewerTest_myViews.IsBound1 (aViewNames.GetViewName ()))
510     aViewNames.SetViewName (aViewNames.GetViewerName() + "/" + CreateName<Handle(V3d_View)>(ViewerTest_myViews, "View"));
511
512   if (thePxLeft != 0)
513     aPxLeft = thePxLeft;
514   if (thePxTop != 0)
515     aPxTop = thePxTop;
516   if (thePxWidth != 0)
517     aPxWidth = thePxWidth;
518   if (thePxHeight != 0)
519     aPxHeight = thePxHeight;
520
521   // Get graphic driver (create it or get from another view)
522   if (!ViewerTest_myDrivers.IsBound1 (aViewNames.GetDriverName()))
523   {
524     // Get connection string
525   #if !defined(_WIN32) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
526     TCollection_AsciiString aDisplayName(theDisplayName);
527     if (!aDisplayName.IsEmpty())
528       SetDisplayConnection (new Aspect_DisplayConnection ());
529     else
530       SetDisplayConnection (new Aspect_DisplayConnection (aDisplayName));
531   #else
532     (void)theDisplayName; // avoid warning on unused argument
533     SetDisplayConnection (new Aspect_DisplayConnection ());
534   #endif
535     aGraphicDriver = new OpenGl_GraphicDriver (GetDisplayConnection());
536     aGraphicDriver->ChangeOptions() = ViewerTest_myDefaultCaps;
537     ViewerTest_myDrivers.Bind (aViewNames.GetDriverName(), aGraphicDriver);
538     toCreateViewer = Standard_True;
539   }
540   else
541   {
542     aGraphicDriver = Handle(OpenGl_GraphicDriver)::DownCast (ViewerTest_myDrivers.Find1 (aViewNames.GetDriverName()));
543   }
544
545   //Dispose the window if input parameters are default
546   if (!ViewerTest_myViews.IsEmpty() && thePxLeft == 0 && thePxTop == 0)
547   {
548     Standard_Integer aTop = 0,
549                      aLeft = 0,
550                      aRight = 0,
551                      aBottom = 0,
552                      aScreenWidth = 0,
553                      aScreenHeight = 0;
554
555     // Get screen resolution
556 #if defined(_WIN32) || defined(__WIN32__)
557     RECT aWindowSize;
558     GetClientRect(GetDesktopWindow(), &aWindowSize);
559     aScreenHeight = aWindowSize.bottom;
560     aScreenWidth = aWindowSize.right;
561 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
562     GetCocoaScreenResolution (aScreenWidth, aScreenHeight);
563 #else
564     Screen *aScreen = DefaultScreenOfDisplay(GetDisplayConnection()->GetDisplay());
565     aScreenWidth = WidthOfScreen(aScreen);
566     aScreenHeight = HeightOfScreen(aScreen);
567 #endif
568
569     TCollection_AsciiString anOverlappedViewId("");
570
571     while (IsWindowOverlapped (aPxLeft, aPxTop, aPxLeft + aPxWidth, aPxTop + aPxHeight, anOverlappedViewId))
572     {
573       ViewerTest_myViews.Find1(anOverlappedViewId)->Window()->Position (aLeft, aTop, aRight, aBottom);
574
575       if (IsWindowOverlapped (aRight + 20, aPxTop, aRight + 20 + aPxWidth, aPxTop + aPxHeight, anOverlappedViewId)
576         && aRight + 2*aPxWidth + 40 > aScreenWidth)
577       {
578         if (aBottom + aPxHeight + 40 > aScreenHeight)
579         {
580           aPxLeft = 20;
581           aPxTop = 40;
582           break;
583         }
584         aPxLeft = 20;
585         aPxTop = aBottom + 40;
586       }
587       else
588         aPxLeft = aRight + 20;
589     }
590   }
591
592   // Get viewer name
593   TCollection_AsciiString aTitle("3D View - ");
594   aTitle = aTitle + aViewNames.GetViewName() + "(*)";
595
596   // Change name of current active window
597   if (!ViewerTest::CurrentView().IsNull())
598   {
599     TCollection_AsciiString aTitle("3D View - ");
600     aTitle = aTitle
601       + ViewerTest_myViews.Find2 (ViewerTest::CurrentView());
602     SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
603   }
604
605   // Create viewer
606   Handle(V3d_Viewer) a3DViewer;
607   // If it's the single view, we first look for empty context
608   if (ViewerTest_myViews.IsEmpty() && !ViewerTest_myContexts.IsEmpty())
609   {
610     NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
611       anIter(ViewerTest_myContexts);
612     if (anIter.More())
613       ViewerTest::SetAISContext (anIter.Value());
614     a3DViewer = ViewerTest::GetAISContext()->CurrentViewer();
615   }
616   else if (ViewerTest_myContexts.IsBound1(aViewNames.GetViewerName()))
617   {
618     ViewerTest::SetAISContext(ViewerTest_myContexts.Find1(aViewNames.GetViewerName()));
619     a3DViewer = ViewerTest::GetAISContext()->CurrentViewer();
620   }
621   else if (a3DViewer.IsNull())
622   {
623     toCreateViewer = Standard_True;
624     TCollection_ExtendedString NameOfWindow("Viewer3D");
625     a3DViewer = new V3d_Viewer(aGraphicDriver, NameOfWindow.ToExtString());
626
627     NameOfWindow = TCollection_ExtendedString("Collector");
628
629     a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
630   }
631
632   // AIS context setup
633   if (ViewerTest::GetAISContext().IsNull() ||
634       !(ViewerTest_myContexts.IsBound1(aViewNames.GetViewerName())))
635   {
636     Handle(AIS_InteractiveContext) aContext =
637       new AIS_InteractiveContext(a3DViewer);
638     ViewerTest::SetAISContext (aContext);
639     ViewerTest_myContexts.Bind (aViewNames.GetViewerName(), ViewerTest::GetAISContext());
640   }
641   else
642     ViewerTest::ResetEventManager();
643
644   // Create window
645 #if defined(_WIN32) || defined(__WIN32__)
646       VT_GetWindow() = new WNT_Window (aTitle.ToCString(),
647                                        Handle(WNT_WClass)::DownCast (WClass()),
648                                        Draw_VirtualWindows ? WS_POPUPWINDOW : WS_OVERLAPPEDWINDOW,
649                                        aPxLeft, aPxTop,
650                                        aPxWidth, aPxHeight,
651                                        Quantity_NOC_BLACK);
652 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
653       VT_GetWindow() = new Cocoa_Window (aTitle.ToCString(),
654                                          aPxLeft, aPxTop,
655                                          aPxWidth, aPxHeight);
656       ViewerTest_SetCocoaEventManagerView (VT_GetWindow());
657 #else
658       VT_GetWindow() = new Xw_Window (aGraphicDriver->GetDisplayConnection(),
659                                       aTitle.ToCString(),
660                                       aPxLeft, aPxTop,
661                                       aPxWidth, aPxHeight);
662 #endif
663   VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
664
665   // NIS setup
666   Handle(NIS_View) aView = new NIS_View (a3DViewer, VT_GetWindow());
667
668   ViewerTest::CurrentView(aView);
669   ViewerTest_myViews.Bind (aViewNames.GetViewName(), aView);
670   TheNISContext()->AttachView (aView);
671
672   // Setup for X11 or NT
673   OSWindowSetup();
674
675   // Set parameters for V3d_View and V3d_Viewer
676   const Handle (V3d_View) aV3dView = ViewerTest::CurrentView();
677   aV3dView->SetComputedMode(Standard_False);
678   MyHLRIsOn = aV3dView->ComputedMode();
679   aV3dView->SetZClippingDepth(0.5);
680   aV3dView->SetZClippingWidth(ZCLIPWIDTH/2.);
681
682   a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
683   if (toCreateViewer)
684   {
685     a3DViewer->SetDefaultLights();
686     a3DViewer->SetLightOn();
687   }
688
689   #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
690   #if TCL_MAJOR_VERSION  < 8
691   Tk_CreateFileHandler((void*)XConnectionNumber(GetDisplayConnection()->GetDisplay()),
692       TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
693   #else
694   Tk_CreateFileHandler(XConnectionNumber(GetDisplayConnection()->GetDisplay()),
695       TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
696   #endif
697   #endif
698
699   VT_GetWindow()->Map();
700
701   // Set the handle of created view in the event manager
702   ViewerTest::ResetEventManager();
703
704   ViewerTest::CurrentView()->Redraw();
705
706   aView.Nullify();
707   a3DViewer.Nullify();
708
709   return aViewNames.GetViewName();
710 }
711
712 //==============================================================================
713 //function : RedrawAllViews
714 //purpose  : Redraw all created views
715 //==============================================================================
716 void ViewerTest::RedrawAllViews()
717 {
718   NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator aViewIt(ViewerTest_myViews);
719   for (; aViewIt.More(); aViewIt.Next())
720   {
721     const Handle(V3d_View)& aView = aViewIt.Key2();
722     aView->Redraw();
723   }
724 }
725
726 //==============================================================================
727 //function : splitParameter
728 //purpose  : Split parameter string to parameter name an parameter value
729 //==============================================================================
730 Standard_Boolean splitParameter (const TCollection_AsciiString& theString,
731                                  TCollection_AsciiString&       theName,
732                                  TCollection_AsciiString&       theValue)
733 {
734   Standard_Integer aParamNameEnd = theString.FirstLocationInSet("=",1, theString.Length());
735   if (aParamNameEnd == 0)
736     return Standard_False;
737   TCollection_AsciiString aString(theString);
738   if (aParamNameEnd != 0)
739   {
740     theValue = aString.Split(aParamNameEnd);
741     aString.Split(aString.Length()-1);
742     theName = aString;
743   }
744   return Standard_True;
745 }
746
747 //==============================================================================
748 //function : Vinit
749 //purpose  : Create the window viewer and initialize all the global variable
750 //    Use Tk_CreateFileHandler on UNIX to cath the X11 Viewer event
751 //==============================================================================
752
753 static int VInit (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
754 {
755 if (theArgsNb > 9)
756   {
757     theDi << theArgVec[0] << ": incorrect number of command arguments.\n"
758       << "Type help for more information.\n";
759     return 1;
760   }
761   TCollection_AsciiString aViewName (""),
762                           aDisplayName ("");
763   Standard_Integer aPxLeft = 0,
764                   aPxTop = 0,
765                   aPxWidth = 0,
766                   aPxHeight = 0;
767
768   for (Standard_Integer i = 1; i < theArgsNb; ++i)
769   {
770     TCollection_AsciiString aName = "", aValue = "";
771     if(!splitParameter (TCollection_AsciiString(theArgVec[i]),aName,aValue) && theArgsNb == 2)
772     {
773       // In case of syntax: vinit ViewName
774       aViewName = theArgVec[1];
775     }
776     else
777     {
778       if (aName == "name")
779       {
780         aViewName = aValue;
781       }
782       else if (aName == "l" || aName == "left")
783         aPxLeft = aValue.IntegerValue();
784       else if (aName == "t" || aName == "top")
785         aPxTop = aValue.IntegerValue();
786 #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
787       else if (aName == "display")
788         aDisplayName = aValue;
789 #endif
790       else if (aName == "w" || aName == "width")
791         aPxWidth = aValue.IntegerValue();
792       else if (aName == "h" || aName == "height")
793         aPxHeight = aValue.IntegerValue();
794       else
795       {
796         theDi << theArgVec[0] << ": Warning: unknown parameter " << aName.ToCString() << ".\n";
797       }
798     }
799   }
800
801   ViewerTest_Names aViewNames (aViewName);
802   if (ViewerTest_myViews.IsBound1 (aViewNames.GetViewName ()))
803   {
804     TCollection_AsciiString aCommand("vactivate ");
805     aCommand = aCommand + aViewNames.GetViewName();
806     theDi.Eval(aCommand.ToCString());
807     return 0;
808   }
809
810   TCollection_AsciiString aViewId = ViewerTest::ViewerInit (aPxLeft, aPxTop, aPxWidth, aPxHeight,
811                                                             aViewName.ToCString(),
812                                                             aDisplayName.ToCString());
813   cout << theArgVec[0] << ": 3D View - " << aViewId << " was created.\n";
814   return 0;
815 }
816
817 //==============================================================================
818 //function : VHLR
819 //purpose  : hidden lines removal algorithm
820 //==============================================================================
821
822 static int VHLR (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
823 {
824   if (ViewerTest::CurrentView().IsNull())
825   {
826     di << argv[0] << ": Call vinit before this command, please.\n";
827     return 1;
828   }
829
830   if (argc != 2)
831   {
832     di << argv[0] << ": Wrong number of command arguments.\n"
833       << "Type help " << argv[0] << " for more information.\n";
834     return 1;
835   }
836
837   Standard_Boolean isHLROn =
838     (!strcasecmp (argv[1], "on")) ? Standard_True : Standard_False;
839
840   if (isHLROn == MyHLRIsOn)
841   {
842     return 0;
843   }
844
845   MyHLRIsOn = isHLROn;
846   ViewerTest::CurrentView()->SetComputedMode (MyHLRIsOn);
847
848   return 0;
849 }
850
851 //==============================================================================
852 //function : VHLRType
853 //purpose  : change type of using HLR algorithm
854 //==============================================================================
855
856 static int VHLRType (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
857 {
858   if (ViewerTest::CurrentView().IsNull())
859   {
860     di << argv[0] << ": Call vinit before this command, please.\n";
861     return 1;
862   }
863
864   if (argc < 2)
865   {
866     di << argv[0] << ": Wrong number of command arguments.\n"
867       << "Type help " << argv[0] << " for more information.\n";
868     return 1;
869   }
870
871   Prs3d_TypeOfHLR aTypeOfHLR =
872     (!strcasecmp (argv[1], "algo")) ? Prs3d_TOH_Algo : Prs3d_TOH_PolyAlgo;
873
874   if (argc == 2)
875   {
876     AIS_ListOfInteractive aListOfShapes;
877     ViewerTest::GetAISContext()->DisplayedObjects (aListOfShapes);
878     ViewerTest::GetAISContext()->DefaultDrawer()->SetTypeOfHLR(aTypeOfHLR);
879     for (AIS_ListIteratorOfListOfInteractive anIter(aListOfShapes);
880       anIter.More(); anIter.Next())
881     {
882       Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(anIter.Value());
883       if (aShape.IsNull())
884         continue;
885       if (aShape->TypeOfHLR() != aTypeOfHLR)
886         aShape->SetTypeOfHLR (aTypeOfHLR);
887       if (MyHLRIsOn)
888         aShape->Redisplay();
889     }
890     ViewerTest::CurrentView()->Update();
891     return 0;
892   }
893   else
894   {
895     for (Standard_Integer i = 2; i < argc; ++i)
896     {
897       ViewerTest_DoubleMapOfInteractiveAndName& aMap = GetMapOfAIS();
898       TCollection_AsciiString aName (argv[i]);
899
900       if (!aMap.IsBound2 (aName))
901       {
902         di << argv[0] << ":" << " Wrong shape name:" << aName.ToCString() << ".\n";
903         continue;
904       }
905       Handle(AIS_Shape) anAISObject =
906         Handle(AIS_Shape)::DownCast (aMap.Find2(aName));
907       if (anAISObject.IsNull())
908         continue;
909       anAISObject->SetTypeOfHLR (aTypeOfHLR);
910       if (MyHLRIsOn)
911         anAISObject->Redisplay();
912     }
913     ViewerTest::CurrentView()->Update();
914   }
915
916   return 0;
917 }
918
919 //==============================================================================
920 //function : FindViewIdByWindowHandle
921 //purpose  : Find theView Id in the map of views by window handle
922 //==============================================================================
923 #if defined(_WIN32) || defined(__WIN32__) || (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
924 TCollection_AsciiString FindViewIdByWindowHandle(const Aspect_Handle theWindowHandle)
925 {
926   for (NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator
927        anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
928   {
929     Aspect_Handle aWindowHandle = GetWindowHandle(anIter.Value()->Window());
930     if (aWindowHandle == theWindowHandle)
931       return anIter.Key1();
932   }
933   return TCollection_AsciiString("");
934 }
935 #endif
936
937 //==============================================================================
938 //function : ActivateView
939 //purpose  : Make the view active
940 //==============================================================================
941
942 void ActivateView (const TCollection_AsciiString& theViewName)
943 {
944   const Handle(V3d_View) aView = ViewerTest_myViews.Find1(theViewName);
945   if (!aView.IsNull())
946   {
947     Handle(AIS_InteractiveContext) anAISContext = FindContextByView(aView);
948     if (!anAISContext.IsNull())
949     {
950       if (!ViewerTest::CurrentView().IsNull())
951       {
952         TCollection_AsciiString aTitle("3D View - ");
953         aTitle = aTitle + ViewerTest_myViews.Find2 (ViewerTest::CurrentView());
954         SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
955       }
956
957       ViewerTest::CurrentView (aView);
958       // Update degenerate mode
959       MyHLRIsOn = ViewerTest::CurrentView()->ComputedMode();
960       ViewerTest::SetAISContext (anAISContext);
961       TCollection_AsciiString aTitle = TCollection_AsciiString("3D View - ");
962       aTitle = aTitle + theViewName + "(*)";
963       SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
964 #if defined(_WIN32) || defined(__WIN32__)
965       VT_GetWindow() = Handle(WNT_Window)::DownCast(ViewerTest::CurrentView()->Window());
966 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
967       VT_GetWindow() = Handle(Cocoa_Window)::DownCast(ViewerTest::CurrentView()->Window());
968 #else
969       VT_GetWindow() = Handle(Xw_Window)::DownCast(ViewerTest::CurrentView()->Window());
970 #endif
971       SetDisplayConnection(ViewerTest::CurrentView()->Viewer()->Driver()->GetDisplayConnection());
972       ViewerTest::CurrentView()->Redraw();
973     }
974   }
975 }
976
977 //==============================================================================
978 //function : RemoveView
979 //purpose  : Close and remove view from display, clear maps if neccessary
980 //==============================================================================
981 void ViewerTest::RemoveView (const TCollection_AsciiString& theViewName, const Standard_Boolean isContextRemoved)
982 {
983   if (!ViewerTest_myViews.IsBound1(theViewName))
984   {
985     cout << "Wrong view name\n";
986     return;
987   }
988
989   // Activate another view if it's active now
990   if (ViewerTest_myViews.Find1(theViewName) == ViewerTest::CurrentView())
991   {
992     if (ViewerTest_myViews.Extent() > 1)
993     {
994       TCollection_AsciiString aNewViewName;
995       for (NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)> :: Iterator
996            anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
997         if (anIter.Key1() != theViewName)
998         {
999           aNewViewName = anIter.Key1();
1000           break;
1001         }
1002         ActivateView (aNewViewName);
1003     }
1004     else
1005     {
1006       Handle(V3d_View) anEmptyView;
1007 #if defined(_WIN32) || defined(__WIN32__)
1008       Handle(WNT_Window) anEmptyWindow;
1009 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
1010       Handle(Cocoa_Window) anEmptyWindow;
1011 #else
1012       Handle(Xw_Window) anEmptyWindow;
1013 #endif
1014       VT_GetWindow() = anEmptyWindow;
1015       ViewerTest::CurrentView (anEmptyView);
1016       if (isContextRemoved)
1017       {
1018         Handle(AIS_InteractiveContext) anEmptyContext;
1019         ViewerTest::SetAISContext(anEmptyContext);
1020       }
1021     }
1022   }
1023
1024   // Delete view
1025   Handle(V3d_View) aView = ViewerTest_myViews.Find1(theViewName);
1026   Handle(AIS_InteractiveContext) aCurrentContext = FindContextByView(aView);
1027
1028   // Remove view resources
1029   TheNISContext()->DetachView(Handle(NIS_View)::DownCast(aView));
1030   ViewerTest_myViews.UnBind1(theViewName);
1031   aView->Remove();
1032
1033 #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
1034   XFlush (GetDisplayConnection()->GetDisplay());
1035 #endif
1036
1037   // Keep context opened only if the closed view is last to avoid
1038   // unused empty contexts
1039   if (!aCurrentContext.IsNull())
1040   {
1041     // Check if there are more difined views in the viewer
1042     aCurrentContext->CurrentViewer()->InitDefinedViews();
1043     if ((isContextRemoved || ViewerTest_myContexts.Size() != 1) && !aCurrentContext->CurrentViewer()->MoreDefinedViews())
1044     {
1045       // Remove driver if there is no viewers that use it
1046       Standard_Boolean isRemoveDriver = Standard_True;
1047       for(NCollection_DoubleMap<TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
1048           anIter(ViewerTest_myContexts); anIter.More(); anIter.Next())
1049       {
1050         if (aCurrentContext != anIter.Key2() &&
1051           aCurrentContext->CurrentViewer()->Driver() == anIter.Value()->CurrentViewer()->Driver())
1052         {
1053           isRemoveDriver = Standard_False;
1054           break;
1055         }
1056       }
1057       if(isRemoveDriver)
1058       {
1059         ViewerTest_myDrivers.UnBind2 (aCurrentContext->CurrentViewer()->Driver());
1060       #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
1061         #if TCL_MAJOR_VERSION  < 8
1062         Tk_DeleteFileHandler((void*)XConnectionNumber(aCurrentContext->CurrentViewer()->Driver()->GetDisplayConnection()->GetDisplay()));
1063         #else
1064         Tk_DeleteFileHandler(XConnectionNumber(aCurrentContext->CurrentViewer()->Driver()->GetDisplayConnection()->GetDisplay()));
1065         #endif
1066       #endif
1067       }
1068
1069       ViewerTest_myContexts.UnBind2(aCurrentContext);
1070     }
1071   }
1072   cout << "3D View - " << theViewName << " was deleted.\n";
1073
1074 }
1075
1076 //==============================================================================
1077 //function : VClose
1078 //purpose  : Remove the view defined by its name
1079 //==============================================================================
1080
1081 static int VClose (Draw_Interpretor& /*theDi*/,
1082                    Standard_Integer  theArgsNb,
1083                    const char**      theArgVec)
1084 {
1085   NCollection_List<TCollection_AsciiString> aViewList;
1086   if (theArgsNb > 1)
1087   {
1088     TCollection_AsciiString anArg (theArgVec[1]);
1089     anArg.UpperCase();
1090     if (anArg.IsEqual ("ALL")
1091      || anArg.IsEqual ("*"))
1092     {
1093       for (NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator anIter (ViewerTest_myViews);
1094            anIter.More(); anIter.Next())
1095       {
1096         aViewList.Append (anIter.Key1());
1097       }
1098       if (aViewList.IsEmpty())
1099       {
1100         std::cout << "No view to close\n";
1101         return 0;
1102       }
1103     }
1104     else
1105     {
1106       ViewerTest_Names aViewName (theArgVec[1]);
1107       if (!ViewerTest_myViews.IsBound1 (aViewName.GetViewName()))
1108       {
1109         std::cerr << "The view with name '" << theArgVec[1] << "' does not exist\n";
1110         return 1;
1111       }
1112       aViewList.Append (aViewName.GetViewName());
1113     }
1114   }
1115   else
1116   {
1117     // close active view
1118     if (ViewerTest::CurrentView().IsNull())
1119     {
1120       std::cerr << "No active view!\n";
1121       return 1;
1122     }
1123     aViewList.Append (ViewerTest_myViews.Find2 (ViewerTest::CurrentView()));
1124   }
1125
1126   Standard_Boolean toRemoveContext = (theArgsNb != 3 || Draw::Atoi (theArgVec[2]) != 1);
1127   for (NCollection_List<TCollection_AsciiString>::Iterator anIter(aViewList);
1128        anIter.More(); anIter.Next())
1129   {
1130     ViewerTest::RemoveView (anIter.Value(), toRemoveContext);
1131   }
1132
1133   return 0;
1134 }
1135
1136 //==============================================================================
1137 //function : VActivate
1138 //purpose  : Activate the view defined by its ID
1139 //==============================================================================
1140
1141 static int VActivate (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
1142 {
1143   if (theArgsNb > 2)
1144   {
1145     theDi << theArgVec[0] << ": wrong number of command arguments.\n"
1146     << "Usage: " << theArgVec[0] << " ViewID\n";
1147     return 1;
1148   }
1149   if(theArgsNb == 1)
1150   {
1151     theDi.Eval("vviewlist");
1152     return 0;
1153   }
1154
1155   TCollection_AsciiString aNameString(theArgVec[1]);
1156   if ( strcasecmp( aNameString.ToCString(), "NONE" ) == 0 )
1157   {
1158     TCollection_AsciiString aTitle("3D View - ");
1159     aTitle = aTitle + ViewerTest_myViews.Find2(ViewerTest::CurrentView());
1160     SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
1161     Handle(V3d_View) anEmptyView;
1162 #if defined(_WIN32) || defined(__WIN32__)
1163     Handle(WNT_Window) anEmptyWindow;
1164 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
1165     Handle(Cocoa_Window) anEmptyWindow;
1166 #else
1167     Handle(Xw_Window) anEmptyWindow;
1168 #endif
1169     VT_GetWindow() = anEmptyWindow;
1170     ViewerTest::CurrentView (anEmptyView);
1171     ViewerTest::ResetEventManager();
1172     theDi << theArgVec[0] << ": all views are inactive\n";
1173     return 0;
1174   }
1175
1176   ViewerTest_Names aViewNames(aNameString);
1177
1178   // Check if this view exists in the viewer with the driver
1179   if (!ViewerTest_myViews.IsBound1(aViewNames.GetViewName()))
1180   {
1181     theDi << "Wrong view name\n";
1182     return 1;
1183   }
1184
1185   // Check if it is active already
1186   if (ViewerTest::CurrentView() == ViewerTest_myViews.Find1(aViewNames.GetViewName()))
1187   {
1188     theDi << theArgVec[0] << ": the view is active already\n";
1189     return 0;
1190   }
1191
1192   ActivateView (aViewNames.GetViewName());
1193   return 0;
1194 }
1195
1196 //==============================================================================
1197 //function : VViewList
1198 //purpose  : Print current list of views per viewer and graphic driver ID
1199 //           shared between viewers
1200 //==============================================================================
1201
1202 static int VViewList (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
1203 {
1204   if (theArgsNb > 2)
1205   {
1206     theDi << theArgVec[0] << ": Wrong number of command arguments\n"
1207           << "Usage: " << theArgVec[0] << " name";
1208     return 1;
1209   }
1210   if (ViewerTest_myContexts.Size() < 1)
1211     return 0;
1212
1213   Standard_Boolean isTreeView =
1214     (( theArgsNb==1 ) || ( strcasecmp( theArgVec[1], "long" ) != 0 ));
1215
1216   if (isTreeView)
1217     theDi << theArgVec[0] <<":\n";
1218
1219     for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
1220       aDriverIter(ViewerTest_myDrivers); aDriverIter.More(); aDriverIter.Next())
1221     {
1222       if (isTreeView)
1223         theDi << aDriverIter.Key1() << ":\n";
1224
1225       for (NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
1226         aContextIter(ViewerTest_myContexts); aContextIter.More(); aContextIter.Next())
1227       {
1228         if (aContextIter.Key1().Search(aDriverIter.Key1()) != -1)
1229         {
1230           if (isTreeView)
1231           {
1232             TCollection_AsciiString aContextName(aContextIter.Key1());
1233             theDi << " " << aContextName.Split(aDriverIter.Key1().Length() + 1) << ":" << "\n";
1234           }
1235
1236           for (NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)>::Iterator
1237             aViewIter(ViewerTest_myViews); aViewIter.More(); aViewIter.Next())
1238           {
1239             if (aViewIter.Key1().Search(aContextIter.Key1()) != -1)
1240             {
1241               TCollection_AsciiString aViewName(aViewIter.Key1());
1242               if (isTreeView)
1243               {
1244                 if (aViewIter.Value() == ViewerTest::CurrentView())
1245                   theDi << "  " << aViewName.Split(aContextIter.Key1().Length() + 1) << "(*)" << "\n";
1246                 else
1247                   theDi << "  " << aViewName.Split(aContextIter.Key1().Length() + 1) << "\n";
1248               }
1249               else
1250               {
1251                 theDi << aViewName << " ";
1252               }
1253             }
1254           }
1255         }
1256       }
1257     }
1258   return 0;
1259 }
1260
1261 //==============================================================================
1262 //function : VT_ProcessKeyPress
1263 //purpose  : Handle KeyPress event from a CString
1264 //==============================================================================
1265 void VT_ProcessKeyPress (const char* buf_ret)
1266 {
1267   //cout << "KeyPress" << endl;
1268   const Handle(V3d_View) aView = ViewerTest::CurrentView();
1269   const Handle(NIS_View) aNisView = Handle(NIS_View)::DownCast (aView);
1270   // Letter in alphabetic order
1271
1272   if (!strcasecmp (buf_ret, "A"))
1273   {
1274     // AXO
1275     aView->SetProj(V3d_XposYnegZpos);
1276   }
1277   else if (!strcasecmp (buf_ret, "D"))
1278   {
1279     // Reset
1280     aView->Reset();
1281   }
1282   else if (!strcasecmp (buf_ret, "F"))
1283   {
1284     // FitAll
1285     if (aNisView.IsNull())
1286       aView->FitAll();
1287     else
1288       aNisView->FitAll3d();
1289   }
1290   else if (!strcasecmp (buf_ret, "H"))
1291   {
1292     // HLR
1293     cout << "HLR" << endl;
1294     aView->SetComputedMode (!aView->ComputedMode());
1295     MyHLRIsOn = aView->ComputedMode();
1296   }
1297   else if (!strcasecmp (buf_ret, "P"))
1298   {
1299     // Type of HLR
1300     Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
1301     if (aContext->DefaultDrawer()->TypeOfHLR() == Prs3d_TOH_Algo)
1302       aContext->DefaultDrawer()->SetTypeOfHLR(Prs3d_TOH_PolyAlgo);
1303     else
1304       aContext->DefaultDrawer()->SetTypeOfHLR(Prs3d_TOH_Algo);
1305     if (aContext->NbCurrents()==0 || aContext->NbSelected() == 0)
1306     {
1307       AIS_ListOfInteractive aListOfShapes;
1308       aContext->DisplayedObjects(aListOfShapes);
1309       for (AIS_ListIteratorOfListOfInteractive anIter(aListOfShapes);
1310         anIter.More(); anIter.Next())
1311       {
1312         Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(anIter.Value());
1313         if (aShape.IsNull())
1314           continue;
1315         if (aShape->TypeOfHLR() == Prs3d_TOH_PolyAlgo)
1316           aShape->SetTypeOfHLR (Prs3d_TOH_Algo);
1317         else
1318           aShape->SetTypeOfHLR (Prs3d_TOH_PolyAlgo);
1319         aShape->Redisplay();
1320       }
1321     }
1322     else
1323     {
1324       for (aContext->InitCurrent();aContext->MoreCurrent();aContext->NextCurrent())
1325       {
1326         Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(aContext->Current());
1327         if (aShape.IsNull())
1328           continue;
1329         if(aShape->TypeOfHLR() == Prs3d_TOH_PolyAlgo)
1330           aShape->SetTypeOfHLR (Prs3d_TOH_Algo);
1331         else
1332           aShape->SetTypeOfHLR (Prs3d_TOH_PolyAlgo);
1333         aShape->Redisplay();
1334       }
1335     }
1336
1337     aContext->UpdateCurrentViewer();
1338
1339   }
1340   else if (!strcasecmp (buf_ret, "S"))
1341   {
1342     std::cout << "setup Shaded display mode" << std::endl;
1343
1344     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
1345     if(Ctx->NbCurrents()==0 ||
1346       Ctx->NbSelected()==0)
1347       Ctx->SetDisplayMode(AIS_Shaded);
1348     else{
1349       if(Ctx->HasOpenedContext()){
1350         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
1351           Ctx->SetDisplayMode(Ctx->Interactive(),1,Standard_False);
1352       }
1353       else{
1354         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
1355           Ctx->SetDisplayMode(Ctx->Current(),1,Standard_False);
1356       }
1357       Ctx->UpdateCurrentViewer();
1358     }
1359   }
1360   else if (!strcasecmp (buf_ret, "U"))
1361   {
1362     // Unset display mode
1363     std::cout << "reset display mode to defaults" << std::endl;
1364
1365     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
1366     if(Ctx->NbCurrents()==0 ||
1367       Ctx->NbSelected()==0)
1368       Ctx->SetDisplayMode(AIS_WireFrame);
1369     else{
1370       if(Ctx->HasOpenedContext()){
1371         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
1372           Ctx->UnsetDisplayMode(Ctx->Interactive(),Standard_False);
1373       }
1374       else{
1375         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
1376           Ctx->UnsetDisplayMode(Ctx->Current(),Standard_False);
1377       }
1378       Ctx->UpdateCurrentViewer();
1379     }
1380
1381   }
1382   else if (!strcasecmp (buf_ret, "T"))
1383   {
1384     // Top
1385     aView->SetProj(V3d_Zpos);
1386   }
1387   else if (!strcasecmp (buf_ret, "B"))
1388   {
1389     // Bottom
1390     aView->SetProj(V3d_Zneg);
1391   }
1392   else if (!strcasecmp (buf_ret, "L"))
1393   {
1394     // Left
1395     aView->SetProj(V3d_Xneg);
1396   }
1397   else if (!strcasecmp (buf_ret, "R"))
1398   {
1399     // Right
1400     aView->SetProj(V3d_Xpos);
1401   }
1402   else if (!strcasecmp (buf_ret, "W"))
1403   {
1404     std::cout << "setup WireFrame display mode" << std::endl;
1405     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
1406     if(Ctx->NbCurrents()==0 ||
1407       Ctx->NbSelected()==0)
1408       Ctx->SetDisplayMode(AIS_WireFrame);
1409     else{
1410       if(Ctx->HasOpenedContext()){
1411         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
1412           Ctx->SetDisplayMode(Ctx->Interactive(),0,Standard_False);
1413       }
1414       else{
1415         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
1416           Ctx->SetDisplayMode(Ctx->Current(),0,Standard_False);
1417       }
1418       Ctx->UpdateCurrentViewer();
1419     }
1420   }
1421   else if (!strcasecmp (buf_ret, "Z"))
1422   {
1423     // ZCLIP
1424     if ( ZClipIsOn ) {
1425       cout << "ZClipping OFF" << endl;
1426       ZClipIsOn = 0;
1427
1428       aView->SetZClippingType(V3d_OFF);
1429       aView->Redraw();
1430     }
1431     else {
1432       cout << "ZClipping ON" << endl;
1433       ZClipIsOn = 1;
1434
1435       aView->SetZClippingType(V3d_FRONT);
1436       aView->Redraw();
1437     }
1438   }
1439   else if (!strcasecmp (buf_ret, ","))
1440   {
1441     ViewerTest::GetAISContext()->HilightNextDetected(ViewerTest::CurrentView());
1442   }
1443   else if (!strcasecmp (buf_ret, "."))
1444   {
1445     ViewerTest::GetAISContext()->HilightPreviousDetected(ViewerTest::CurrentView());
1446   }
1447   else if (*buf_ret == THE_KEY_DELETE)
1448   {
1449     Handle(AIS_InteractiveContext) aCtx = ViewerTest::GetAISContext();
1450     if (!aCtx.IsNull()
1451      && aCtx->NbCurrents() > 0
1452      && aCtx->NbSelected() > 0)
1453     {
1454       Draw_Interprete ("verase");
1455     }
1456   }
1457   else
1458   {
1459     // Number
1460     Standard_Integer Num = Draw::Atoi(buf_ret);
1461     if(Num>=0 && Num<=7)
1462       ViewerTest::StandardModeActivation(Num);
1463   }
1464 }
1465
1466 //==============================================================================
1467 //function : VT_ProcessExpose
1468 //purpose  : Redraw the View on an Expose Event
1469 //==============================================================================
1470 void VT_ProcessExpose()
1471 {
1472   Handle(V3d_View) aView3d = ViewerTest::CurrentView();
1473   if (!aView3d.IsNull())
1474   {
1475     aView3d->Redraw();
1476   }
1477 }
1478
1479 //==============================================================================
1480 //function : VT_ProcessConfigure
1481 //purpose  : Resize the View on an Configure Event
1482 //==============================================================================
1483 void VT_ProcessConfigure()
1484 {
1485   Handle(V3d_View) aView3d = ViewerTest::CurrentView();
1486   if (aView3d.IsNull())
1487   {
1488     return;
1489   }
1490
1491   aView3d->MustBeResized();
1492   aView3d->Update();
1493   aView3d->Redraw();
1494 }
1495
1496 //==============================================================================
1497 //function : VT_ProcessButton1Press
1498 //purpose  : Picking
1499 //==============================================================================
1500 Standard_Boolean VT_ProcessButton1Press(
1501   Standard_Integer ,
1502   const char**     argv,
1503   Standard_Boolean pick,
1504   Standard_Boolean shift)
1505 {
1506   Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
1507   if ( pick ) {
1508     Standard_Real X, Y, Z;
1509
1510     ViewerTest::CurrentView()->Convert(X_Motion, Y_Motion, X, Y, Z);
1511
1512     Draw::Set(argv[1], X);
1513     Draw::Set(argv[2], Y);
1514     Draw::Set(argv[3], Z);}
1515
1516   if(shift)
1517     EM->ShiftSelect();
1518   else
1519     EM->Select();
1520
1521   pick = 0;
1522   return pick;
1523 }
1524
1525 //==============================================================================
1526 //function : VT_ProcessButton1Release
1527 //purpose  : End selecting
1528 //==============================================================================
1529 void VT_ProcessButton1Release (Standard_Boolean theIsShift)
1530 {
1531   if (IsDragged)
1532   {
1533     IsDragged = Standard_False;
1534     Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
1535     if (theIsShift)
1536     {
1537       EM->ShiftSelect (Min (X_ButtonPress, X_Motion), Max (Y_ButtonPress, Y_Motion),
1538                        Max (X_ButtonPress, X_Motion), Min (Y_ButtonPress, Y_Motion));
1539     }
1540     else
1541     {
1542       EM->Select (Min (X_ButtonPress, X_Motion), Max (Y_ButtonPress, Y_Motion),
1543                   Max (X_ButtonPress, X_Motion), Min (Y_ButtonPress, Y_Motion));
1544     }
1545   }
1546 }
1547
1548 //==============================================================================
1549 //function : VT_ProcessButton3Press
1550 //purpose  : Start Rotation
1551 //==============================================================================
1552 void VT_ProcessButton3Press()
1553 {
1554   Start_Rot = 1;
1555   if (MyHLRIsOn)
1556   {
1557     ViewerTest::CurrentView()->SetComputedMode (Standard_False);
1558   }
1559   ViewerTest::CurrentView()->StartRotation( X_ButtonPress, Y_ButtonPress );
1560 }
1561
1562 //==============================================================================
1563 //function : VT_ProcessButton3Release
1564 //purpose  : End rotation
1565 //==============================================================================
1566 void VT_ProcessButton3Release()
1567 {
1568   if (Start_Rot)
1569   {
1570     Start_Rot = 0;
1571     if (MyHLRIsOn)
1572     {
1573       ViewerTest::CurrentView()->SetComputedMode (Standard_True);
1574     }
1575   }
1576 }
1577
1578 //==============================================================================
1579 //function : ProcessZClipMotion
1580 //purpose  : Zoom
1581 //==============================================================================
1582
1583 void ProcessZClipMotion()
1584 {
1585   Handle(V3d_View)  a3DView = ViewerTest::CurrentView();
1586   if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
1587     static Standard_Real CurZPos = 0.;
1588
1589     //Quantity_Length VDX, VDY;
1590     //a3DView->Size(VDX,VDY);
1591     //Standard_Real VDZ = a3DView->ZSize();
1592     //printf("View size (%lf,%lf,%lf)\n", VDX, VDY, VDZ);
1593
1594     Quantity_Length dx = a3DView->Convert(X_Motion - X_ButtonPress);
1595
1596     // Front = Depth + width/2.
1597     Standard_Real D = 0.5;
1598     Standard_Real W = 0.1;
1599
1600     CurZPos += (dx);
1601
1602     D += CurZPos;
1603
1604     //printf("dx %lf Depth %lf Width %lf\n", dx, D, W);
1605
1606     a3DView->SetZClippingType(V3d_OFF);
1607     a3DView->SetZClippingDepth(D);
1608     a3DView->SetZClippingWidth(W);
1609     a3DView->SetZClippingType(V3d_FRONT);
1610
1611     a3DView->Redraw();
1612
1613     X_ButtonPress = X_Motion;
1614     Y_ButtonPress = Y_Motion;
1615   }
1616 }
1617
1618 //==============================================================================
1619 //function : ProcessControlButton1Motion
1620 //purpose  : Zoom
1621 //==============================================================================
1622
1623 static void ProcessControlButton1Motion()
1624 {
1625   ViewerTest::CurrentView()->Zoom( X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion);
1626
1627   X_ButtonPress = X_Motion;
1628   Y_ButtonPress = Y_Motion;
1629 }
1630
1631 //==============================================================================
1632 //function : VT_ProcessControlButton2Motion
1633 //purpose  : Panning
1634 //==============================================================================
1635 void VT_ProcessControlButton2Motion()
1636 {
1637   Quantity_Length dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
1638   Quantity_Length dy = ViewerTest::CurrentView()->Convert(Y_Motion - Y_ButtonPress);
1639
1640   dy = -dy; // Xwindow Y axis is from top to Bottom
1641
1642   ViewerTest::CurrentView()->Panning( dx, dy );
1643
1644   X_ButtonPress = X_Motion;
1645   Y_ButtonPress = Y_Motion;
1646 }
1647
1648 //==============================================================================
1649 //function : VT_ProcessControlButton3Motion
1650 //purpose  : Rotation
1651 //==============================================================================
1652 void VT_ProcessControlButton3Motion()
1653 {
1654   if (Start_Rot)
1655   {
1656     ViewerTest::CurrentView()->Rotation (X_Motion, Y_Motion);
1657   }
1658 }
1659
1660 //==============================================================================
1661 //function : VT_ProcessMotion
1662 //purpose  :
1663 //==============================================================================
1664 void VT_ProcessMotion()
1665 {
1666   //pre-hilights detected objects at mouse position
1667
1668   Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
1669   EM->MoveTo(X_Motion, Y_Motion);
1670 }
1671
1672
1673 void ViewerTest::GetMousePosition(Standard_Integer& Xpix,Standard_Integer& Ypix)
1674 {
1675   Xpix = X_Motion;Ypix=Y_Motion;
1676 }
1677
1678 //==============================================================================
1679 //function : ViewProject: implements VAxo, VTop, VLeft, ...
1680 //purpose  : Switches to an axonometric, top, left and other views
1681 //==============================================================================
1682
1683 static int ViewProject(Draw_Interpretor& di, const V3d_TypeOfOrientation ori)
1684 {
1685   if ( ViewerTest::CurrentView().IsNull() )
1686   {
1687     di<<"Call vinit before this command, please"<<"\n";
1688     return 1;
1689   }
1690
1691   ViewerTest::CurrentView()->SetProj(ori);
1692   return 0;
1693 }
1694
1695 //==============================================================================
1696 //function : VAxo
1697 //purpose  : Switch to an Axonometric view
1698 //Draw arg : No args
1699 //==============================================================================
1700
1701 static int VAxo(Draw_Interpretor& di, Standard_Integer , const char** )
1702 {
1703   return ViewProject(di, V3d_XposYnegZpos);
1704 }
1705
1706 //==============================================================================
1707 //function : VTop
1708 //purpose  : Switch to a Top View
1709 //Draw arg : No args
1710 //==============================================================================
1711
1712 static int VTop(Draw_Interpretor& di, Standard_Integer , const char** )
1713 {
1714   return ViewProject(di, V3d_Zpos);
1715 }
1716
1717 //==============================================================================
1718 //function : VBottom
1719 //purpose  : Switch to a Bottom View
1720 //Draw arg : No args
1721 //==============================================================================
1722
1723 static int VBottom(Draw_Interpretor& di, Standard_Integer , const char** )
1724 {
1725   return ViewProject(di, V3d_Zneg);
1726 }
1727
1728 //==============================================================================
1729 //function : VLeft
1730 //purpose  : Switch to a Left View
1731 //Draw arg : No args
1732 //==============================================================================
1733
1734 static int VLeft(Draw_Interpretor& di, Standard_Integer , const char** )
1735 {
1736   return ViewProject(di, V3d_Ypos);
1737 }
1738
1739 //==============================================================================
1740 //function : VRight
1741 //purpose  : Switch to a Right View
1742 //Draw arg : No args
1743 //==============================================================================
1744
1745 static int VRight(Draw_Interpretor& di, Standard_Integer , const char** )
1746 {
1747   return ViewProject(di, V3d_Yneg);
1748 }
1749
1750 //==============================================================================
1751 //function : VFront
1752 //purpose  : Switch to a Front View
1753 //Draw arg : No args
1754 //==============================================================================
1755
1756 static int VFront(Draw_Interpretor& di, Standard_Integer , const char** )
1757 {
1758   return ViewProject(di, V3d_Xpos);
1759 }
1760
1761 //==============================================================================
1762 //function : VBack
1763 //purpose  : Switch to a Back View
1764 //Draw arg : No args
1765 //==============================================================================
1766
1767 static int VBack(Draw_Interpretor& di, Standard_Integer , const char** )
1768 {
1769   return ViewProject(di, V3d_Xneg);
1770 }
1771
1772 //==============================================================================
1773 //function : VHelp
1774 //purpose  : Dsiplay help on viewer Keyboead and mouse commands
1775 //Draw arg : No args
1776 //==============================================================================
1777
1778 static int VHelp(Draw_Interpretor& di, Standard_Integer , const char** )
1779 {
1780
1781   di << "Q : Quit the application" << "\n";
1782
1783   di << "========================="<<"\n";
1784   di << "F : FitAll" << "\n";
1785   di << "T : TopView" << "\n";
1786   di << "B : BottomView" << "\n";
1787   di << "R : RightView" << "\n";
1788   di << "L : LeftView" << "\n";
1789   di << "A : AxonometricView" << "\n";
1790   di << "D : ResetView" << "\n";
1791
1792   di << "========================="<<"\n";
1793   di << "S : Shading" << "\n";
1794   di << "W : Wireframe" << "\n";
1795   di << "H : HidelLineRemoval" << "\n";
1796   di << "U : Unset display mode" << "\n";
1797   di << "Delete : Remove selection from viewer" << "\n";
1798
1799   di << "========================="<<"\n";
1800   di << "Selection mode "<<"\n";
1801   di << "0 : Shape" <<"\n";
1802   di << "1 : Vertex" <<"\n";
1803   di << "2 : Edge" <<"\n";
1804   di << "3 : Wire" <<"\n";
1805   di << "4 : Face" <<"\n";
1806   di << "5 : Shell" <<"\n";
1807   di << "6 : Solid" <<"\n";
1808   di << "7 : Compound" <<"\n";
1809
1810   di << "========================="<<"\n";
1811   di << "Z : Switch Z clipping On/Off" << "\n";
1812   di << ", : Hilight next detected" << "\n";
1813   di << ". : Hilight previous detected" << "\n";
1814
1815   return 0;
1816 }
1817
1818 #ifdef WNT
1819
1820 static Standard_Boolean Ppick = 0;
1821 static Standard_Integer Pargc = 0;
1822 static const char**           Pargv = NULL;
1823
1824
1825 static LRESULT WINAPI AdvViewerWindowProc( HWND hwnd,
1826                                           UINT Msg,
1827                                           WPARAM wParam,
1828                                           LPARAM lParam )
1829 {
1830   if (!ViewerTest_myViews.IsEmpty()) {
1831
1832     WPARAM fwKeys = wParam;
1833
1834     switch( Msg ) {
1835     case WM_CLOSE:
1836        {
1837          // Delete view from map of views
1838          ViewerTest::RemoveView(FindViewIdByWindowHandle(hwnd));
1839          return 0;
1840        }
1841        break;
1842     case WM_ACTIVATE:
1843       if(LOWORD(wParam) == WA_CLICKACTIVE || LOWORD(wParam) == WA_ACTIVE
1844         || ViewerTest::CurrentView().IsNull())
1845       {
1846         // Activate inactive window
1847         if(GetWindowHandle(VT_GetWindow()) != hwnd)
1848         {
1849           ActivateView (FindViewIdByWindowHandle(hwnd));
1850         }
1851       }
1852       break;
1853     case WM_LBUTTONUP:
1854       IsDragged = Standard_False;
1855       if( !DragFirst )
1856       {
1857         HDC hdc = GetDC( hwnd );
1858         SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
1859         SetROP2( hdc, R2_NOT );
1860         Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
1861         ReleaseDC( hwnd, hdc );
1862
1863         const Handle(ViewerTest_EventManager) EM =
1864           ViewerTest::CurrentEventManager();
1865         if ( fwKeys & MK_SHIFT )
1866           EM->ShiftSelect( min( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
1867           max( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ));
1868         else
1869           EM->Select( min( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
1870           max( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ));
1871       }
1872       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
1873
1874     case WM_LBUTTONDOWN:
1875       if( fwKeys == MK_LBUTTON || fwKeys == ( MK_LBUTTON | MK_SHIFT ) )
1876       {
1877         IsDragged = Standard_True;
1878         DragFirst = Standard_True;
1879         X_ButtonPress = LOWORD(lParam);
1880         Y_ButtonPress = HIWORD(lParam);
1881       }
1882       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
1883
1884       break;
1885
1886     case WM_MOUSEMOVE:
1887       if( IsDragged )
1888       {
1889         HDC hdc = GetDC( hwnd );
1890
1891         HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
1892         SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
1893         SetROP2( hdc, R2_NOT );
1894
1895         if( !DragFirst )
1896           Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
1897
1898         DragFirst = Standard_False;
1899         X_Motion = LOWORD(lParam);
1900         Y_Motion = HIWORD(lParam);
1901
1902         Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
1903
1904         SelectObject( hdc, anObj );
1905
1906         ReleaseDC( hwnd, hdc );
1907       }
1908       else
1909         return ViewerWindowProc( hwnd, Msg, wParam, lParam );
1910       break;
1911
1912     default:
1913       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
1914     }
1915     return 0;
1916   }
1917   return ViewerWindowProc( hwnd, Msg, wParam, lParam );
1918 }
1919
1920
1921 static LRESULT WINAPI ViewerWindowProc( HWND hwnd,
1922                                        UINT Msg,
1923                                        WPARAM wParam,
1924                                        LPARAM lParam )
1925 {
1926   static int Up = 1;
1927
1928   if ( !ViewerTest::CurrentView().IsNull() ) {
1929     PAINTSTRUCT    ps;
1930
1931     switch( Msg ) {
1932     case WM_PAINT:
1933       BeginPaint(hwnd, &ps);
1934       EndPaint(hwnd, &ps);
1935       VT_ProcessExpose();
1936       break;
1937
1938     case WM_SIZE:
1939       VT_ProcessConfigure();
1940       break;
1941
1942     case WM_KEYDOWN:
1943       if ((wParam != VK_SHIFT) && (wParam != VK_CONTROL))
1944       {
1945         char c[2];
1946         c[0] = (char) wParam;
1947         c[1] = '\0';
1948         if (wParam == VK_DELETE)
1949         {
1950           c[0] = THE_KEY_DELETE;
1951         }
1952         VT_ProcessKeyPress (c);
1953       }
1954       break;
1955
1956     case WM_LBUTTONUP:
1957     case WM_MBUTTONUP:
1958     case WM_RBUTTONUP:
1959       Up = 1;
1960       VT_ProcessButton3Release();
1961       break;
1962
1963     case WM_LBUTTONDOWN:
1964     case WM_MBUTTONDOWN:
1965     case WM_RBUTTONDOWN:
1966       {
1967         WPARAM fwKeys = wParam;
1968
1969         Up = 0;
1970
1971         X_ButtonPress = LOWORD(lParam);
1972         Y_ButtonPress = HIWORD(lParam);
1973
1974         if (Msg == WM_LBUTTONDOWN)
1975         {
1976           if (fwKeys & MK_CONTROL)
1977           {
1978             Ppick = VT_ProcessButton1Press (Pargc, Pargv, Ppick, (fwKeys & MK_SHIFT));
1979           }
1980           else
1981           {
1982             VT_ProcessButton1Press (Pargc, Pargv, Ppick, (fwKeys & MK_SHIFT));
1983           }
1984         }
1985         else if (Msg == WM_RBUTTONDOWN)
1986         {
1987           // Start rotation
1988           VT_ProcessButton3Press();
1989         }
1990       }
1991       break;
1992
1993     case WM_MOUSEMOVE:
1994       {
1995         //cout << "\t WM_MOUSEMOVE" << endl;
1996         WPARAM fwKeys = wParam;
1997         X_Motion = LOWORD(lParam);
1998         Y_Motion = HIWORD(lParam);
1999
2000         if ( Up &&
2001           fwKeys & ( MK_LBUTTON|MK_MBUTTON|MK_RBUTTON ) ) {
2002             Up = 0;
2003             X_ButtonPress = LOWORD(lParam);
2004             Y_ButtonPress = HIWORD(lParam);
2005
2006             if ( fwKeys & MK_RBUTTON ) {
2007               // Start rotation
2008               VT_ProcessButton3Press();
2009             }
2010           }
2011
2012           if ( fwKeys & MK_CONTROL ) {
2013             if ( fwKeys & MK_LBUTTON ) {
2014               ProcessControlButton1Motion();
2015             }
2016             else if ( fwKeys & MK_MBUTTON ||
2017               ((fwKeys&MK_LBUTTON) &&
2018               (fwKeys&MK_RBUTTON) ) ){
2019                 VT_ProcessControlButton2Motion();
2020               }
2021             else if ( fwKeys & MK_RBUTTON ) {
2022               VT_ProcessControlButton3Motion();
2023             }
2024           }
2025 #ifdef BUG
2026           else if ( fwKeys & MK_SHIFT ) {
2027             if ( fwKeys & MK_MBUTTON ||
2028               ((fwKeys&MK_LBUTTON) &&
2029               (fwKeys&MK_RBUTTON) ) ) {
2030                 cout << "ProcessZClipMotion()" << endl;
2031                 ProcessZClipMotion();
2032               }
2033           }
2034 #endif
2035           else if (GetWindowHandle (VT_GetWindow()) == hwnd)
2036           {
2037             if ((fwKeys & MK_MBUTTON
2038             || ((fwKeys & MK_LBUTTON) && (fwKeys & MK_RBUTTON))))
2039             {
2040               ProcessZClipMotion();
2041             }
2042             else
2043             {
2044               VT_ProcessMotion();
2045             }
2046           }
2047       }
2048       break;
2049
2050     default:
2051       return( DefWindowProc( hwnd, Msg, wParam, lParam ));
2052     }
2053     return 0L;
2054   }
2055
2056   return DefWindowProc( hwnd, Msg, wParam, lParam );
2057 }
2058
2059
2060
2061
2062 //==============================================================================
2063 //function : ViewerMainLoop
2064 //purpose  : Get a Event on the view and dispatch it
2065 //==============================================================================
2066
2067
2068 int ViewerMainLoop(Standard_Integer argc, const char** argv)
2069 {
2070   Ppick = (argc > 0)? 1 : 0;
2071   Pargc = argc;
2072   Pargv = argv;
2073
2074   if ( Ppick ) {
2075     MSG msg;
2076     msg.wParam = 1;
2077
2078     cout << "Start picking" << endl;
2079
2080     while ( Ppick == 1 ) {
2081       // Wait for a VT_ProcessButton1Press() to toggle pick to 1 or 0
2082       if (GetMessage(&msg, NULL, 0, 0) ) {
2083         TranslateMessage(&msg);
2084         DispatchMessage(&msg);
2085       }
2086     }
2087
2088     cout << "Picking done" << endl;
2089   }
2090
2091   return Ppick;
2092 }
2093
2094 #elif !defined(__APPLE__) || defined(MACOSX_USE_GLX)
2095
2096 int min( int a, int b )
2097 {
2098   if( a<b )
2099     return a;
2100   else
2101     return b;
2102 }
2103
2104 int max( int a, int b )
2105 {
2106   if( a>b )
2107     return a;
2108   else
2109     return b;
2110 }
2111
2112 int ViewerMainLoop(Standard_Integer argc, const char** argv)
2113
2114 {
2115   static XEvent aReport;
2116   Standard_Boolean pick = argc > 0;
2117   Display *aDisplay = GetDisplayConnection()->GetDisplay();
2118   XNextEvent (aDisplay, &aReport);
2119
2120   // Handle event for the chosen display connection
2121   switch (aReport.type) {
2122       case ClientMessage:
2123         {
2124           if(aReport.xclient.data.l[0] == GetDisplayConnection()->GetAtom(Aspect_XA_DELETE_WINDOW))
2125           {
2126             // Close the window
2127             ViewerTest::RemoveView(FindViewIdByWindowHandle (aReport.xclient.window));
2128           }
2129         }
2130         return 0;
2131      case FocusIn:
2132       {
2133          // Activate inactive view
2134          Window aWindow = GetWindowHandle(VT_GetWindow());
2135          if(aWindow != aReport.xfocus.window)
2136          {
2137            ActivateView (FindViewIdByWindowHandle (aReport.xfocus.window));
2138          }
2139       }
2140       break;
2141       case Expose:
2142         {
2143           VT_ProcessExpose();
2144         }
2145         break;
2146       case ConfigureNotify:
2147         {
2148           VT_ProcessConfigure();
2149         }
2150         break;
2151       case KeyPress:
2152         {
2153
2154           KeySym ks_ret ;
2155           char buf_ret[11] ;
2156           int ret_len ;
2157           XComposeStatus status_in_out;
2158
2159           ret_len = XLookupString( ( XKeyEvent *)&aReport ,
2160             (char *) buf_ret , 10 ,
2161             &ks_ret , &status_in_out ) ;
2162
2163
2164           buf_ret[ret_len] = '\0' ;
2165
2166           if (ret_len)
2167           {
2168             VT_ProcessKeyPress (buf_ret);
2169           }
2170         }
2171         break;
2172       case ButtonPress:
2173         {
2174           X_ButtonPress = aReport.xbutton.x;
2175           Y_ButtonPress = aReport.xbutton.y;
2176
2177           if (aReport.xbutton.button == Button1)
2178           {
2179             if (aReport.xbutton.state & ControlMask)
2180             {
2181               pick = VT_ProcessButton1Press (argc, argv, pick, (aReport.xbutton.state & ShiftMask));
2182             }
2183             else
2184             {
2185               IsDragged = Standard_True;
2186               DragFirst = Standard_True;
2187             }
2188           }
2189           else if (aReport.xbutton.button == Button3)
2190           {
2191             // Start rotation
2192             VT_ProcessButton3Press();
2193           }
2194         }
2195         break;
2196       case ButtonRelease:
2197         {
2198           if( IsDragged )
2199           {
2200             if( !DragFirst )
2201             {
2202               Aspect_Handle aWindow = VT_GetWindow()->XWindow();
2203               GC gc = XCreateGC( aDisplay, aWindow, 0, 0 );
2204               XDrawRectangle( aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
2205             }
2206
2207             Handle( AIS_InteractiveContext ) aContext = ViewerTest::GetAISContext();
2208             if( aContext.IsNull() )
2209             {
2210               cout << "The context is null. Please use vinit before createmesh" << endl;
2211               return 0;
2212             }
2213
2214             Standard_Boolean ShiftPressed = ( aReport.xbutton.state & ShiftMask );
2215             if( aReport.xbutton.button==1 )
2216               if( DragFirst )
2217                 if( ShiftPressed )
2218                 {
2219                   aContext->ShiftSelect();
2220                 }
2221                 else
2222                 {
2223                   aContext->Select();
2224                 }
2225               else
2226                 if( ShiftPressed )
2227                 {
2228                   aContext->ShiftSelect( min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ),
2229                     max( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
2230                     ViewerTest::CurrentView());
2231                 }
2232                 else
2233                 {
2234                   aContext->Select( min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ),
2235                     max( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
2236                     ViewerTest::CurrentView() );
2237                 }
2238             else
2239               VT_ProcessButton3Release();
2240
2241             IsDragged = Standard_False;
2242           }
2243           else
2244             VT_ProcessButton3Release();
2245         }
2246         break;
2247       case MotionNotify:
2248         {
2249           if (GetWindowHandle (VT_GetWindow()) != aReport.xmotion.window)
2250           {
2251             break;
2252           }
2253           if( IsDragged )
2254           {
2255             Aspect_Handle aWindow = VT_GetWindow()->XWindow();
2256             GC gc = XCreateGC( aDisplay, aWindow, 0, 0 );
2257             XSetFunction( aDisplay, gc, GXinvert );
2258
2259             if( !DragFirst )
2260               XDrawRectangle(aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
2261
2262             X_Motion = aReport.xmotion.x;
2263             Y_Motion = aReport.xmotion.y;
2264             DragFirst = Standard_False;
2265
2266             XDrawRectangle( aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
2267           }
2268           else
2269           {
2270             X_Motion = aReport.xmotion.x;
2271             Y_Motion = aReport.xmotion.y;
2272
2273             // remove all the ButtonMotionMaskr
2274             while( XCheckMaskEvent( aDisplay, ButtonMotionMask, &aReport) ) ;
2275
2276             if ( ZClipIsOn && aReport.xmotion.state & ShiftMask ) {
2277               if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
2278
2279                 Quantity_Length VDX, VDY;
2280
2281                 ViewerTest::CurrentView()->Size(VDX,VDY);
2282                 Standard_Real VDZ =0 ;
2283                 VDZ = ViewerTest::CurrentView()->ZSize();
2284
2285                 printf("%f,%f,%f\n", VDX, VDY, VDZ);
2286
2287                 Quantity_Length dx = 0 ;
2288                 dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
2289
2290                 cout << dx << endl;
2291
2292                 dx = dx / VDX * VDZ;
2293
2294                 cout << dx << endl;
2295
2296                 ViewerTest::CurrentView()->Redraw();
2297               }
2298             }
2299
2300             if ( aReport.xmotion.state & ControlMask ) {
2301               if ( aReport.xmotion.state & Button1Mask ) {
2302                 ProcessControlButton1Motion();
2303               }
2304               else if ( aReport.xmotion.state & Button2Mask ) {
2305                 VT_ProcessControlButton2Motion();
2306               }
2307               else if ( aReport.xmotion.state & Button3Mask ) {
2308                 VT_ProcessControlButton3Motion();
2309               }
2310             }
2311             else
2312             {
2313               VT_ProcessMotion();
2314             }
2315           }
2316         }
2317         break;
2318 }
2319 return pick;
2320 }
2321
2322 //==============================================================================
2323 //function : VProcessEvents
2324 //purpose  : call by Tk_CreateFileHandler() to be able to manage the
2325 //       event in the Viewer window
2326 //==============================================================================
2327
2328 static void VProcessEvents(ClientData,int)
2329 {
2330   NCollection_Vector<int> anEventNumbers;
2331   // Get number of messages from every display
2332   for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
2333        anIter (ViewerTest_myDrivers); anIter.More(); anIter.Next())
2334   {
2335     anEventNumbers.Append(XPending (anIter.Key2()->GetDisplayConnection()->GetDisplay()));
2336   }
2337     // Handle events for every display
2338   int anEventIter = 0;
2339   for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
2340        anIter (ViewerTest_myDrivers); anIter.More(); anIter.Next(), anEventIter++)
2341   {
2342     for (int i = 0; i < anEventNumbers.Value(anEventIter) &&
2343          XPending (anIter.Key2()->GetDisplayConnection()->GetDisplay()) > 0; ++i)
2344     {
2345       SetDisplayConnection (anIter.Key2()->GetDisplayConnection());
2346       int anEventResult = ViewerMainLoop( 0, NULL);
2347       // If window is closed or context was not found finish current event processing loop
2348       if (!anEventResult)
2349         return;
2350     }
2351   }
2352
2353   SetDisplayConnection (ViewerTest::GetAISContext()->CurrentViewer()->Driver()->GetDisplayConnection());
2354
2355 }
2356 #endif
2357
2358 //==============================================================================
2359 //function : OSWindowSetup
2360 //purpose  : Setup for the X11 window to be able to cath the event
2361 //==============================================================================
2362
2363
2364 static void OSWindowSetup()
2365 {
2366 #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
2367   // X11
2368
2369   Window  window   = VT_GetWindow()->XWindow();
2370   SetDisplayConnection (ViewerTest::CurrentView()->Viewer()->Driver()->GetDisplayConnection());
2371   Display *aDisplay = GetDisplayConnection()->GetDisplay();
2372   XSynchronize(aDisplay, 1);
2373
2374   // X11 : For keyboard on SUN
2375   XWMHints wmhints;
2376   wmhints.flags = InputHint;
2377   wmhints.input = 1;
2378
2379   XSetWMHints( aDisplay, window, &wmhints);
2380
2381   XSelectInput( aDisplay, window,  ExposureMask | KeyPressMask |
2382     ButtonPressMask | ButtonReleaseMask |
2383     StructureNotifyMask |
2384     PointerMotionMask |
2385     Button1MotionMask | Button2MotionMask |
2386     Button3MotionMask | FocusChangeMask
2387     );
2388   Atom aDeleteWindowAtom = GetDisplayConnection()->GetAtom(Aspect_XA_DELETE_WINDOW);
2389   XSetWMProtocols(aDisplay, window, &aDeleteWindowAtom, 1);
2390
2391   XSynchronize(aDisplay, 0);
2392
2393 #else
2394   // WNT
2395 #endif
2396
2397 }
2398
2399
2400 //==============================================================================
2401 //function : VFit
2402
2403 //purpose  : Fitall, no DRAW arguments
2404 //Draw arg : No args
2405 //==============================================================================
2406
2407 static int VFit(Draw_Interpretor& , Standard_Integer , const char** )
2408 {
2409   const Handle(V3d_View) aView = ViewerTest::CurrentView();
2410   Handle(NIS_View) V = Handle(NIS_View)::DownCast(aView);
2411   if (V.IsNull() == Standard_False) {
2412     V->FitAll3d();
2413   } else if (aView.IsNull() == Standard_False) {
2414     aView->FitAll();
2415   }
2416   return 0;
2417 }
2418
2419 //==============================================================================
2420 //function : VZFit
2421 //purpose  : ZFitall, no DRAW arguments
2422 //Draw arg : No args
2423 //==============================================================================
2424
2425 static int VZFit(Draw_Interpretor& , Standard_Integer , const char** )
2426 {
2427   Handle(V3d_View) V = ViewerTest::CurrentView();
2428   if ( !V.IsNull() ) V->ZFitAll(); return 0; }
2429
2430
2431 static int VRepaint(Draw_Interpretor& , Standard_Integer , const char** )
2432 {
2433   Handle(V3d_View) V = ViewerTest::CurrentView();
2434   if ( !V.IsNull() ) V->Redraw(); return 0;
2435 }
2436
2437
2438 //==============================================================================
2439 //function : VClear
2440 //purpose  : Remove all the object from the viewer
2441 //Draw arg : No args
2442 //==============================================================================
2443
2444 static int VClear(Draw_Interpretor& , Standard_Integer , const char** )
2445 {
2446   Handle(V3d_View) V = ViewerTest::CurrentView();
2447   if(!V.IsNull())
2448     ViewerTest::Clear();
2449   return 0;
2450 }
2451
2452 //==============================================================================
2453 //function : VPick
2454 //purpose  :
2455 //==============================================================================
2456
2457 static int VPick(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2458 { if (ViewerTest::CurrentView().IsNull() ) return 1;
2459
2460 if ( argc < 4 ) {
2461   di << argv[0] << "Invalid number of arguments" << "\n";
2462   return 1;
2463 }
2464
2465 while (ViewerMainLoop( argc, argv)) {
2466 }
2467
2468 return 0;
2469 }
2470
2471 //==============================================================================
2472 //function : InitViewerTest
2473 //purpose  : initialisation de toutes les variables static de  ViewerTest (dp)
2474 //==============================================================================
2475
2476 void ViewerTest_InitViewerTest (const Handle(AIS_InteractiveContext)& theContext)
2477 {
2478   Handle(V3d_Viewer) aViewer = theContext->CurrentViewer();
2479   ViewerTest::SetAISContext(theContext);
2480   aViewer->InitActiveViews();
2481   Handle(V3d_View) aView = aViewer->ActiveView();
2482   if (aViewer->MoreActiveViews()) ViewerTest::CurrentView(aView);
2483   ViewerTest::ResetEventManager();
2484   Handle(Aspect_Window) aWindow = aView->Window();
2485 #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
2486   // X11
2487   VT_GetWindow() = Handle(Xw_Window)::DownCast(aWindow);
2488   OSWindowSetup();
2489   static int aFirst = 1;
2490   if ( aFirst ) {
2491 #if TCL_MAJOR_VERSION  < 8
2492     Tk_CreateFileHandler((void*)XConnectionNumber(GetDisplayConnection()->GetDisplay()),
2493       TK_READABLE, VProcessEvents, (ClientData) 0);
2494 #else
2495     Tk_CreateFileHandler(XConnectionNumber(GetDisplayConnection()->GetDisplay()),
2496       TK_READABLE, VProcessEvents, (ClientData) 0);
2497 #endif
2498     aFirst = 0;
2499   }
2500 #endif
2501 }
2502
2503 //==============================================================================
2504 //function : VSetBg
2505 //purpose  : Load image as background
2506 //==============================================================================
2507
2508 static int VSetBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2509 {
2510   if (argc < 2 || argc > 3)
2511   {
2512     di << "Usage : " << argv[0] << " imagefile [filltype] : Load image as background" << "\n";
2513     di << "filltype can be one of CENTERED, TILED, STRETCH, NONE" << "\n";
2514     return 1;
2515   }
2516
2517   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
2518   if(AISContext.IsNull())
2519   {
2520     di << "use 'vinit' command before " << argv[0] << "\n";
2521     return 1;
2522   }
2523
2524   Aspect_FillMethod aFillType = Aspect_FM_CENTERED;
2525   if (argc == 3)
2526   {
2527     const char* szType = argv[2];
2528     if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
2529     else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
2530     else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
2531     else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
2532     else
2533     {
2534       di << "Wrong fill type : " << szType << "\n";
2535       di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
2536       return 1;
2537     }
2538   }
2539
2540   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2541   V3dView->SetBackgroundImage(argv[1], aFillType, Standard_True);
2542
2543   return 0;
2544 }
2545
2546 //==============================================================================
2547 //function : VSetBgMode
2548 //purpose  : Change background image fill type
2549 //==============================================================================
2550
2551 static int VSetBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2552 {
2553   if (argc != 2)
2554   {
2555     di << "Usage : " << argv[0] << " filltype : Change background image mode" << "\n";
2556     di << "filltype must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
2557     return 1;
2558   }
2559
2560   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
2561   if(AISContext.IsNull())
2562   {
2563     di << "use 'vinit' command before " << argv[0] << "\n";
2564     return 1;
2565   }
2566   Aspect_FillMethod aFillType = Aspect_FM_NONE;
2567   const char* szType = argv[1];
2568   if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
2569   else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
2570   else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
2571   else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
2572   else
2573   {
2574     di << "Wrong fill type : " << szType << "\n";
2575     di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
2576     return 1;
2577   }
2578   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2579   V3dView->SetBgImageStyle(aFillType, Standard_True);
2580   return 0;
2581 }
2582
2583 //==============================================================================
2584 //function : VSetGradientBg
2585 //purpose  : Mount gradient background
2586 //==============================================================================
2587 static int VSetGradientBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2588 {
2589   if (argc != 8 )
2590   {
2591     di << "Usage : " << argv[0] << " R1 G1 B1 R2 G2 B2 Type : Mount gradient background" << "\n";
2592     di << "R1,G1,B1,R2,G2,B2 = [0..255]" << "\n";
2593     di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
2594     di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
2595     return 1;
2596   }
2597
2598   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
2599   if(AISContext.IsNull())
2600   {
2601     di << "use 'vinit' command before " << argv[0] << "\n";
2602     return 1;
2603   }
2604   if (argc == 8)
2605   {
2606
2607     Standard_Real R1 = Draw::Atof(argv[1])/255.;
2608     Standard_Real G1 = Draw::Atof(argv[2])/255.;
2609     Standard_Real B1 = Draw::Atof(argv[3])/255.;
2610     Quantity_Color aColor1(R1,G1,B1,Quantity_TOC_RGB);
2611
2612     Standard_Real R2 = Draw::Atof(argv[4])/255.;
2613     Standard_Real G2 = Draw::Atof(argv[5])/255.;
2614     Standard_Real B2 = Draw::Atof(argv[6])/255.;
2615
2616     Quantity_Color aColor2(R2,G2,B2,Quantity_TOC_RGB);
2617     int aType = Draw::Atoi(argv[7]);
2618     if( aType < 0 || aType > 8 )
2619     {
2620       di << "Wrong fill type " << "\n";
2621       di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
2622       di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
2623       return 1;
2624     }
2625
2626     Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
2627
2628     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2629     V3dView->SetBgGradientColors( aColor1, aColor2, aMethod, 1);
2630   }
2631
2632   return 0;
2633 }
2634
2635 //==============================================================================
2636 //function : VSetGradientBgMode
2637 //purpose  : Change gradient background fill style
2638 //==============================================================================
2639 static int VSetGradientBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2640 {
2641   if (argc != 2 )
2642   {
2643     di << "Usage : " << argv[0] << " Type : Change gradient background fill type" << "\n";
2644     di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
2645     di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
2646     return 1;
2647   }
2648
2649   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
2650   if(AISContext.IsNull())
2651   {
2652     di << "use 'vinit' command before " << argv[0] << "\n";
2653     return 1;
2654   }
2655   if (argc == 2)
2656   {
2657     int aType = Draw::Atoi(argv[1]);
2658     if( aType < 0 || aType > 8 )
2659     {
2660       di << "Wrong fill type " << "\n";
2661       di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
2662       di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
2663       return 1;
2664     }
2665
2666     Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
2667
2668     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2669     V3dView->SetBgGradientStyle( aMethod, 1 );
2670   }
2671
2672   return 0;
2673 }
2674
2675 //==============================================================================
2676 //function : VSetColorBg
2677 //purpose  : Set color background
2678 //==============================================================================
2679 static int VSetColorBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2680 {
2681   if (argc != 4 )
2682   {
2683     di << "Usage : " << argv[0] << " R G B : Set color background" << "\n";
2684     di << "R,G,B = [0..255]" << "\n";
2685     return 1;
2686   }
2687
2688   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
2689   if(AISContext.IsNull())
2690   {
2691     di << "use 'vinit' command before " << argv[0] << "\n";
2692     return 1;
2693   }
2694   if (argc == 4)
2695   {
2696
2697     Standard_Real R = Draw::Atof(argv[1])/255.;
2698     Standard_Real G = Draw::Atof(argv[2])/255.;
2699     Standard_Real B = Draw::Atof(argv[3])/255.;
2700     Quantity_Color aColor(R,G,B,Quantity_TOC_RGB);
2701
2702     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2703     V3dView->SetBackgroundColor( aColor );
2704     V3dView->Update();
2705   }
2706
2707   return 0;
2708 }
2709
2710 //==============================================================================
2711 //function : VScale
2712 //purpose  : View Scaling
2713 //==============================================================================
2714
2715 static int VScale(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2716 {
2717   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2718   if ( V3dView.IsNull() ) return 1;
2719
2720   if ( argc != 4 ) {
2721     di << argv[0] << "Invalid number of arguments" << "\n";
2722     return 1;
2723   }
2724   V3dView->SetAxialScale( Draw::Atof(argv[1]),  Draw::Atof(argv[2]),  Draw::Atof(argv[3]) );
2725   return 0;
2726 }
2727 //==============================================================================
2728 //function : VTestZBuffTrihedron
2729 //purpose  : Displays a V3d_ZBUFFER'ed or V3d_WIREFRAME'd trihedron
2730 //==============================================================================
2731
2732 static int VTestZBuffTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2733 {
2734   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2735   if ( V3dView.IsNull() ) return 1;
2736
2737   V3dView->ZBufferTriedronSetup();
2738
2739   if ( argc == 1 ) {
2740     // Set up default trihedron parameters
2741     V3dView->TriedronDisplay( Aspect_TOTP_LEFT_LOWER, Quantity_NOC_WHITE, 0.1, V3d_ZBUFFER );
2742   } else
2743   if ( argc == 7 )
2744   {
2745     Aspect_TypeOfTriedronPosition aPosition = Aspect_TOTP_LEFT_LOWER;
2746     const char* aPosType = argv[1];
2747
2748     if ( strcmp(aPosType, "center") == 0 )
2749     {
2750       aPosition = Aspect_TOTP_CENTER;
2751     } else
2752     if (strcmp(aPosType, "left_lower") == 0)
2753     {
2754       aPosition = Aspect_TOTP_LEFT_LOWER;
2755     } else
2756     if (strcmp(aPosType, "left_upper") == 0)
2757     {
2758       aPosition = Aspect_TOTP_LEFT_UPPER;
2759     } else
2760     if (strcmp(aPosType, "right_lower") == 0)
2761     {
2762       aPosition = Aspect_TOTP_RIGHT_LOWER;
2763     } else
2764     if (strcmp(aPosType, "right_upper") == 0)
2765     {
2766       aPosition = Aspect_TOTP_RIGHT_UPPER;
2767     } else
2768     {
2769       di << argv[1] << " Invalid type of alignment"  << "\n";
2770       di << "Must be one of [ center, left_lower,"   << "\n";
2771       di << "left_upper, right_lower, right_upper ]" << "\n";
2772       return 1;
2773     }
2774
2775     Standard_Real R = Draw::Atof(argv[2])/255.;
2776     Standard_Real G = Draw::Atof(argv[3])/255.;
2777     Standard_Real B = Draw::Atof(argv[4])/255.;
2778     Quantity_Color aColor(R, G, B, Quantity_TOC_RGB);
2779
2780     Standard_Real aScale = Draw::Atof(argv[5]);
2781
2782     if( aScale <= 0.0 )
2783     {
2784       di << argv[5] << " Invalid value. Must be > 0" << "\n";
2785       return 1;
2786     }
2787
2788     V3d_TypeOfVisualization aPresentation = V3d_ZBUFFER;
2789     const char* aPresType = argv[6];
2790
2791     if ( strcmp(aPresType, "wireframe") == 0 )
2792     {
2793       aPresentation = V3d_WIREFRAME;
2794     } else
2795     if (strcmp(aPresType, "zbuffer") == 0)
2796     {
2797       aPresentation = V3d_ZBUFFER;
2798     } else
2799     {
2800       di << argv[6] << " Invalid type of visualization" << "\n";
2801       di << "Must be one of [ wireframe, zbuffer ]"     << "\n";
2802       return 1;
2803     }
2804
2805     V3dView->TriedronDisplay( aPosition, aColor.Name(), aScale, aPresentation );
2806
2807   } else
2808   {
2809     di << argv[0] << " Invalid number of arguments" << "\n";
2810     return 1;
2811   }
2812
2813   V3dView->ZFitAll();
2814
2815   return 0;
2816 }
2817
2818 //==============================================================================
2819 //function : VRotate
2820 //purpose  : Camera Rotating
2821 //==============================================================================
2822
2823 static int VRotate( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
2824   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2825   if ( V3dView.IsNull() ) {
2826     return 1;
2827   }
2828
2829   if ( argc == 4 ) {
2830     V3dView->Rotate( Draw::Atof(argv[1]), Draw::Atof(argv[2]), Draw::Atof(argv[3]) );
2831     return 0;
2832   } else if ( argc == 7 ) {
2833     V3dView->Rotate( Draw::Atof(argv[1]), Draw::Atof(argv[2]), Draw::Atof(argv[3]), Draw::Atof(argv[4]), Draw::Atof(argv[5]), Draw::Atof(argv[6]) );
2834     return 0;
2835   } else {
2836     di << argv[0] << " Invalid number of arguments" << "\n";
2837     return 1;
2838   }
2839 }
2840
2841 //==============================================================================
2842 //function : VZoom
2843 //purpose  : View zoom in / out (relative to current zoom)
2844 //==============================================================================
2845
2846 static int VZoom( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
2847   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2848   if ( V3dView.IsNull() ) {
2849     return 1;
2850   }
2851
2852   if ( argc == 2 ) {
2853     Standard_Real coef = Draw::Atof(argv[1]);
2854     if ( coef <= 0.0 ) {
2855       di << argv[1] << "Invalid value" << "\n";
2856       return 1;
2857     }
2858     V3dView->SetZoom( Draw::Atof(argv[1]) );
2859     return 0;
2860   } else {
2861     di << argv[0] << " Invalid number of arguments" << "\n";
2862     return 1;
2863   }
2864 }
2865
2866 //==============================================================================
2867 //function : VPan
2868 //purpose  : View panning (in pixels)
2869 //==============================================================================
2870
2871 static int VPan( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
2872   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2873   if ( V3dView.IsNull() ) return 1;
2874
2875   if ( argc == 3 ) {
2876     V3dView->Pan( Draw::Atoi(argv[1]), Draw::Atoi(argv[2]) );
2877     return 0;
2878   } else {
2879     di << argv[0] << " Invalid number of arguments" << "\n";
2880     return 1;
2881   }
2882 }
2883
2884
2885 //==============================================================================
2886 //function : VExport
2887 //purpose  : Export the view to a vector graphic format (PS, EMF, PDF)
2888 //==============================================================================
2889
2890 static int VExport(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2891 {
2892   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
2893   if (V3dView.IsNull())
2894     return 1;
2895
2896   if (argc == 1)
2897   {
2898     std::cout << "Usage: " << argv[0] << " Filename [Format]\n";
2899     return 1;
2900   }
2901
2902   Graphic3d_ExportFormat anExpFormat = Graphic3d_EF_PDF;
2903   TCollection_AsciiString aFormatStr;
2904
2905   TCollection_AsciiString aFileName (argv[1]);
2906   Standard_Integer aLen = aFileName.Length();
2907
2908   if (argc > 2)
2909   {
2910     aFormatStr = TCollection_AsciiString (argv[2]);
2911   }
2912   else if (aLen >= 4)
2913   {
2914     if (aFileName.Value (aLen - 2) == '.')
2915     {
2916       aFormatStr = aFileName.SubString (aLen - 1, aLen);
2917     }
2918     else if (aFileName.Value (aLen - 3) == '.')
2919     {
2920       aFormatStr = aFileName.SubString (aLen - 2, aLen);
2921     }
2922     else
2923     {
2924       std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
2925       return 1;
2926     }
2927   }
2928   else
2929   {
2930     std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
2931     return 1;
2932   }
2933
2934   aFormatStr.UpperCase();
2935   if (aFormatStr == "PS")
2936     anExpFormat = Graphic3d_EF_PostScript;
2937   else if (aFormatStr == "EPS")
2938     anExpFormat = Graphic3d_EF_EnhPostScript;
2939   else if (aFormatStr == "TEX")
2940     anExpFormat = Graphic3d_EF_TEX;
2941   else if (aFormatStr == "PDF")
2942     anExpFormat = Graphic3d_EF_PDF;
2943   else if (aFormatStr == "SVG")
2944     anExpFormat = Graphic3d_EF_SVG;
2945   else if (aFormatStr == "PGF")
2946     anExpFormat = Graphic3d_EF_PGF;
2947   else if (aFormatStr == "EMF")
2948     anExpFormat = Graphic3d_EF_EMF;
2949   else
2950   {
2951     std::cout << "Invalid export format '" << aFormatStr << "'\n";
2952     return 1;
2953   }
2954
2955   try {
2956     if (!V3dView->View()->Export (argv[1], anExpFormat))
2957     {
2958       di << "Error: export of image to " << aFormatStr << " failed!\n";
2959     }
2960   }
2961   catch (Standard_Failure)
2962   {
2963     di << "Error: export of image to " << aFormatStr << " failed";
2964     di << " (exception: " << Standard_Failure::Caught()->GetMessageString() << ")";
2965   }
2966   return 0;
2967 }
2968
2969 //==============================================================================
2970 //function : VColorScale
2971 //purpose  : representation color scale
2972 //==============================================================================
2973 #include <V3d_ColorScale.hxx>
2974
2975 static int VColorScale (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
2976 {
2977   if ( argc != 1 && argc != 4 && argc != 5 && argc != 6 && argc != 8 )
2978   {
2979     di << "Usage : " << argv[0] << " [RangeMin = 0 RangeMax = 100 Intervals = 10 HeightFont = 16 Position = Right X = 0 Y = 0]  " << "\n";
2980     return 1;
2981   }
2982
2983   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
2984   if(aContext.IsNull()) {
2985     di << argv[0] << " ERROR : use 'vinit' command before " << "\n";
2986     return -1;
2987   }
2988
2989   Standard_Real minRange = 0. , maxRange = 100. ;
2990
2991   Standard_Integer numIntervals = 10 ;
2992   Standard_Integer textHeight = 16;
2993   Aspect_TypeOfColorScalePosition position = Aspect_TOCSP_RIGHT;
2994   Standard_Real X = 0., Y = 0. ;
2995
2996   if ( argc < 9 )
2997   {
2998      if( argc > 3 )
2999      {
3000        minRange = Draw::Atof( argv[1] );
3001        maxRange = Draw::Atof( argv[2] );
3002        numIntervals = Draw::Atoi( argv[3] );
3003      }
3004      if ( argc > 4 )
3005        textHeight = Draw::Atoi( argv[4] );
3006      if ( argc > 5 )
3007        position = (Aspect_TypeOfColorScalePosition)Draw::Atoi( argv[5] );
3008      if ( argc > 7 )
3009      {
3010        X = Draw::Atof( argv[6] );
3011        Y = Draw::Atof( argv[7] );
3012      }
3013   }
3014   Handle(V3d_View) curView = ViewerTest::CurrentView( );
3015   if ( curView.IsNull( ) )
3016     return 1;
3017   Handle(Aspect_ColorScale) aCSV = curView->ColorScale( );
3018   Handle(V3d_ColorScale) aCS = ( Handle( V3d_ColorScale )::DownCast( aCSV ) );
3019   if( ! aCS.IsNull( ) )
3020   {
3021     aCS->SetPosition( X , Y );
3022     aCS->SetHeight( 0.95) ;
3023     aCS->SetTextHeight( textHeight );
3024     aCS->SetRange( minRange , maxRange );
3025     aCS->SetNumberOfIntervals( numIntervals );
3026     aCS->SetLabelPosition( position );
3027     if( !curView->ColorScaleIsDisplayed() )
3028       curView->ColorScaleDisplay( );
3029   }
3030   return 0;
3031 }
3032
3033 //==============================================================================
3034 //function : VGraduatedTrihedron
3035 //purpose  : Displays a graduated trihedron
3036 //==============================================================================
3037
3038 static void AddMultibyteString (TCollection_ExtendedString &name, const char *arg)
3039 {
3040   const char *str = arg;
3041   while (*str)
3042   {
3043     unsigned short c1 = *str++;
3044     unsigned short c2 = *str++;
3045     if (!c1 || !c2) break;
3046     name += (Standard_ExtCharacter)((c1 << 8) | c2);
3047   }
3048 }
3049
3050 static int VGraduatedTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
3051 {
3052   // Check arguments
3053   if (argc != 2 && argc < 5)
3054   {
3055     di<<"Error: "<<argv[0]<<" - invalid number of arguments\n";
3056     di<<"Usage: type help "<<argv[0]<<"\n";
3057     return 1; //TCL_ERROR
3058   }
3059
3060   Handle(V3d_View) aV3dView = ViewerTest::CurrentView();
3061
3062   // Create 3D view if it doesn't exist
3063   if ( aV3dView.IsNull() )
3064   {
3065     ViewerTest::ViewerInit();
3066     aV3dView = ViewerTest::CurrentView();
3067     if( aV3dView.IsNull() )
3068     {
3069       di << "Error: Cannot create a 3D view\n";
3070       return 1; //TCL_ERROR
3071     }
3072   }
3073
3074   // Erase (==0) or display (!=0)
3075   const int display = Draw::Atoi(argv[1]);
3076
3077   if (display)
3078   {
3079     // Text font
3080     TCollection_AsciiString font;
3081     if (argc < 6)
3082       font.AssignCat("Courier");
3083     else
3084       font.AssignCat(argv[5]);
3085
3086     // Text is multibyte
3087     const Standard_Boolean isMultibyte = (argc < 7)? Standard_False : (Draw::Atoi(argv[6]) != 0);
3088
3089     // Set axis names
3090     TCollection_ExtendedString xname, yname, zname;
3091     if (argc >= 5)
3092     {
3093       if (isMultibyte)
3094       {
3095         AddMultibyteString(xname, argv[2]);
3096         AddMultibyteString(yname, argv[3]);
3097         AddMultibyteString(zname, argv[4]);
3098       }
3099       else
3100       {
3101         xname += argv[2];
3102         yname += argv[3];
3103         zname += argv[4];
3104       }
3105     }
3106     else
3107     {
3108       xname += "X (mm)";
3109       yname += "Y (mm)";
3110       zname += "Z (mm)";
3111     }
3112
3113     aV3dView->GraduatedTrihedronDisplay(xname, yname, zname,
3114                                         Standard_True/*xdrawname*/, Standard_True/*ydrawname*/, Standard_True/*zdrawname*/,
3115                                         Standard_True/*xdrawvalues*/, Standard_True/*ydrawvalues*/, Standard_True/*zdrawvalues*/,
3116                                         Standard_True/*drawgrid*/,
3117                                         Standard_True/*drawaxes*/,
3118                                         5/*nbx*/, 5/*nby*/, 5/*nbz*/,
3119                                         10/*xoffset*/, 10/*yoffset*/, 10/*zoffset*/,
3120                                         30/*xaxisoffset*/, 30/*yaxisoffset*/, 30/*zaxisoffset*/,
3121                                         Standard_True/*xdrawtickmarks*/, Standard_True/*ydrawtickmarks*/, Standard_True/*zdrawtickmarks*/,
3122                                         10/*xtickmarklength*/, 10/*ytickmarklength*/, 10/*ztickmarklength*/,
3123                                         Quantity_NOC_WHITE/*gridcolor*/,
3124                                         Quantity_NOC_RED/*xnamecolor*/,Quantity_NOC_GREEN/*ynamecolor*/,Quantity_NOC_BLUE1/*znamecolor*/,
3125                                         Quantity_NOC_RED/*xcolor*/,Quantity_NOC_GREEN/*ycolor*/,Quantity_NOC_BLUE1/*zcolor*/,font);
3126   }
3127   else
3128     aV3dView->GraduatedTrihedronErase();
3129
3130   ViewerTest::GetAISContext()->UpdateCurrentViewer();
3131   aV3dView->Redraw();
3132
3133   return 0;
3134 }
3135
3136 //==============================================================================
3137 //function : VPrintView
3138 //purpose  : Test printing algorithm, print the view to image file with given
3139 //           width and height. Printing implemented only for WNT.
3140 //==============================================================================
3141 static int VPrintView (Draw_Interpretor& di, Standard_Integer argc,
3142                        const char** argv)
3143 {
3144 #ifndef WNT
3145   di << "Printing implemented only for wnt!\n";
3146   return 1;
3147 #else
3148
3149   Handle(AIS_InteractiveContext) aContextAIS = NULL;
3150   Handle(V3d_View) aView = NULL;
3151   aContextAIS = ViewerTest::GetAISContext();
3152   if (!aContextAIS.IsNull())
3153   {
3154     const Handle(V3d_Viewer)& Vwr = aContextAIS->CurrentViewer();
3155     Vwr->InitActiveViews();
3156     if(Vwr->MoreActiveViews())
3157       aView = Vwr->ActiveView();
3158   }
3159
3160   // check for errors
3161   if (aView.IsNull())
3162   {
3163     di << "Call vinit before!\n";
3164     return 1;
3165   }
3166   else if (argc < 4)
3167   {
3168     di << "Use: " << argv[0];
3169     di << " width height filename [print algo=0]\n";
3170     di << "width, height of the intermediate buffer for operation\n";
3171     di << "algo : {0|1}\n";
3172     di << "        0 - stretch algorithm\n";
3173     di << "        1 - tile algorithm\n";
3174     di << "test printing algorithms into an intermediate buffer\n";
3175     di << "with saving output to an image file\n";
3176     return 1;
3177   }
3178
3179   // get the input params
3180   Standard_Integer aWidth  = Draw::Atoi (argv[1]);
3181   Standard_Integer aHeight = Draw::Atoi (argv[2]);
3182   Standard_Integer aMode   = 0;
3183   TCollection_AsciiString aFileName = TCollection_AsciiString (argv[3]);
3184   if (argc==5)
3185     aMode = Draw::Atoi (argv[4]);
3186
3187   // check the input parameters
3188   if (aWidth <= 0 || aHeight <= 0)
3189   {
3190     di << "Width and height must be positive values!\n";
3191     return 1;
3192   }
3193   if (aMode != 0 && aMode != 1)
3194     aMode = 0;
3195
3196   // define compatible bitmap
3197   HDC anDC = CreateCompatibleDC(0);
3198   BITMAPINFO aBitmapData;
3199   memset (&aBitmapData, 0, sizeof (BITMAPINFOHEADER));
3200   aBitmapData.bmiHeader.biSize          = sizeof (BITMAPINFOHEADER);
3201   aBitmapData.bmiHeader.biWidth         = aWidth ;
3202   aBitmapData.bmiHeader.biHeight        = aHeight;
3203   aBitmapData.bmiHeader.biPlanes        = 1;
3204   aBitmapData.bmiHeader.biBitCount      = 24;
3205   aBitmapData.bmiHeader.biXPelsPerMeter = 0;
3206   aBitmapData.bmiHeader.biYPelsPerMeter = 0;
3207   aBitmapData.bmiHeader.biClrUsed       = 0;
3208   aBitmapData.bmiHeader.biClrImportant  = 0;
3209   aBitmapData.bmiHeader.biCompression   = BI_RGB;
3210   aBitmapData.bmiHeader.biSizeImage     = 0;
3211
3212   // Create Device Independent Bitmap
3213   void* aBitsOut = NULL;
3214   HBITMAP aMemoryBitmap = CreateDIBSection (anDC, &aBitmapData, DIB_RGB_COLORS,
3215                                             &aBitsOut, NULL, 0);
3216   HGDIOBJ anOldBitmap   = SelectObject(anDC, aMemoryBitmap);
3217
3218   Standard_Boolean isSaved = Standard_False, isPrinted = Standard_False;
3219   if (aBitsOut != NULL)
3220   {
3221     if (aMode == 0)
3222       isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_STRETCH);
3223     else
3224       isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_TILE);
3225
3226     // succesfully printed into an intermediate buffer
3227     if (isPrinted)
3228     {
3229       Image_PixMap aWrapper;
3230       aWrapper.InitWrapper (Image_PixMap::ImgBGR, (Standard_Byte* )aBitsOut, aWidth, aHeight, aWidth * 3 + aWidth % 4);
3231       aWrapper.SetTopDown (false);
3232
3233       Image_AlienPixMap anImageBitmap;
3234       anImageBitmap.InitCopy (aWrapper);
3235       isSaved = anImageBitmap.Save (aFileName);
3236     }
3237     else
3238     {
3239       di << "Print operation failed due to printing errors or\n";
3240       di << "insufficient memory available\n";
3241       di << "Please, try to use smaller dimensions for this test\n";
3242       di << "command, as it allocates intermediate buffer for storing\n";
3243       di << "the result\n";
3244     }
3245   }
3246   else
3247   {
3248     di << "Can't allocate memory for intermediate buffer\n";
3249     di << "Please use smaller dimensions\n";
3250   }
3251
3252   if (aMemoryBitmap)
3253   {
3254     SelectObject (anDC, anOldBitmap);
3255     DeleteObject (aMemoryBitmap);
3256     DeleteDC(anDC);
3257   }
3258
3259   if (!isSaved)
3260   {
3261     di << "Save to file operation failed. This operation may fail\n";
3262     di << "if you don't have enough available memory, then you can\n";
3263     di << "use smaller dimensions for the output file\n";
3264     return 1;
3265   }
3266
3267   return 0;
3268
3269 #endif
3270 }
3271
3272 //==============================================================================
3273 //function : VZLayer
3274 //purpose  : Test z layer operations for v3d viewer
3275 //==============================================================================
3276 static int VZLayer (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
3277 {
3278   Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext ();
3279   if (aContextAIS.IsNull())
3280   {
3281     di << "Call vinit before!\n";
3282     return 1;
3283   }
3284   else if (argc < 2)
3285   {
3286     di << "Use: vzlayer " << argv[0];
3287     di << " add/del/get [id]\n";
3288     di << " add - add new z layer to viewer and print its id\n";
3289     di << " del - del z layer by its id\n";
3290     di << " get - print sequence of z layers in increasing order of their overlay level\n";
3291     di << "id - the layer identificator value defined when removing z layer\n";
3292     return 1;
3293   }
3294
3295   const Handle(V3d_Viewer)& aViewer = aContextAIS->CurrentViewer();
3296   if (aViewer.IsNull())
3297   {
3298     di << "No active viewer!\n";
3299     return 1;
3300   }
3301
3302   // perform operation
3303   TCollection_AsciiString anOp = TCollection_AsciiString (argv[1]);
3304   if (anOp == "add")
3305   {
3306     Standard_Integer aNewId;
3307     if (!aViewer->AddZLayer (aNewId))
3308     {
3309       di << "Impossible to add new z layer!\n";
3310       return 1;
3311     }
3312
3313     di << "New z layer added with index: " << aNewId << "\n";
3314   }
3315   else if (anOp == "del")
3316   {
3317     if (argc < 3)
3318     {
3319       di << "Please also provide as argument id of z layer to remove\n";
3320       return 1;
3321     }
3322
3323     Standard_Integer aDelId = Draw::Atoi (argv[2]);
3324     if (!aViewer->RemoveZLayer (aDelId))
3325     {
3326       di << "Impossible to remove the z layer or invalid id!\n";
3327       return 1;
3328     }
3329
3330     di << "Z layer " << aDelId << " has been removed\n";
3331   }
3332   else if (anOp == "get")
3333   {
3334     TColStd_SequenceOfInteger anIds;
3335     aViewer->GetAllZLayers (anIds);
3336     for (Standard_Integer aSeqIdx = 1; aSeqIdx <= anIds.Length(); aSeqIdx++)
3337     {
3338       di << anIds.Value (aSeqIdx) << " ";
3339     }
3340
3341     di << "\n";
3342   }
3343   else
3344   {
3345     di << "Invalid operation, please use { add / del / get }\n";
3346     return 1;
3347   }
3348
3349   return 0;
3350 }
3351
3352 DEFINE_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
3353
3354 // this class provides a presentation of text item in v3d view under-/overlayer
3355 class V3d_TextItem : public Visual3d_LayerItem
3356 {
3357 public:
3358
3359   // CASCADE RTTI
3360   DEFINE_STANDARD_RTTI(V3d_TextItem)
3361
3362   // constructor
3363   Standard_EXPORT V3d_TextItem(const TCollection_AsciiString& theText,
3364                                const Standard_Real theX1,
3365                                const Standard_Real theY1,
3366                                const Standard_Real theHeight,
3367                                const TCollection_AsciiString& theFontName,
3368                                const Quantity_Color& theColor,
3369                                const Quantity_Color& theSubtitleColor,
3370                                const Aspect_TypeOfDisplayText& theTypeOfDisplay,
3371                                const Handle(Visual3d_Layer)& theLayer);
3372
3373   // redraw method
3374   Standard_EXPORT void RedrawLayerPrs();
3375
3376 private:
3377
3378   Standard_Real            myX1;
3379   Standard_Real            myY1;
3380   TCollection_AsciiString  myText;
3381   Standard_Real            myHeight;
3382   Handle(Visual3d_Layer)   myLayer;
3383   Quantity_Color           myColor;
3384   Quantity_Color           mySubtitleColor;
3385   Aspect_TypeOfDisplayText myType;
3386   TCollection_AsciiString  myFontName;
3387 };
3388
3389 IMPLEMENT_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
3390 IMPLEMENT_STANDARD_RTTIEXT(V3d_TextItem, Visual3d_LayerItem)
3391
3392 // create and add to display the text item
3393 V3d_TextItem::V3d_TextItem (const TCollection_AsciiString& theText,
3394                             const Standard_Real theX1,
3395                             const Standard_Real theY1,
3396                             const Standard_Real theHeight,
3397                             const TCollection_AsciiString& theFontName,
3398                             const Quantity_Color& theColor,
3399                             const Quantity_Color& theSubtitleColor,
3400                             const Aspect_TypeOfDisplayText& theTypeOfDisplay,
3401                             const Handle(Visual3d_Layer)& theLayer)
3402  : myX1 (theX1), myY1 (theY1),
3403    myText (theText),
3404    myHeight (theHeight),
3405    myLayer (theLayer),
3406    myColor (theColor),
3407    mySubtitleColor (theSubtitleColor),
3408    myType (theTypeOfDisplay),
3409    myFontName (theFontName)
3410 {
3411   if (!myLayer.IsNull ())
3412     myLayer->AddLayerItem (this);
3413 }
3414
3415 // render item
3416 void V3d_TextItem::RedrawLayerPrs ()
3417 {
3418   if (myLayer.IsNull ())
3419     return;
3420
3421   myLayer->SetColor (myColor);
3422   myLayer->SetTextAttributes (myFontName.ToCString (), myType, mySubtitleColor);
3423   myLayer->DrawText (myText.ToCString (), myX1, myY1, myHeight);
3424 }
3425
3426 DEFINE_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
3427
3428 // The Visual3d_LayerItem line item for "vlayerline" command
3429 // it provides a presentation of line with user-defined
3430 // linewidth, linetype and transparency.
3431 class V3d_LineItem : public Visual3d_LayerItem
3432 {
3433 public:
3434   // CASCADE RTTI
3435   DEFINE_STANDARD_RTTI(V3d_LineItem)
3436
3437   // constructor
3438   Standard_EXPORT V3d_LineItem(Standard_Real X1, Standard_Real Y1,
3439                                Standard_Real X2, Standard_Real Y2,
3440                                V3d_LayerMgrPointer theLayerMgr,
3441                                Aspect_TypeOfLine theType = Aspect_TOL_SOLID,
3442                                Standard_Real theWidth    = 0.5,
3443                                Standard_Real theTransp   = 1.0);
3444
3445   // redraw method
3446   Standard_EXPORT   void RedrawLayerPrs();
3447
3448 private:
3449
3450   Standard_Real       myX1, myY1, myX2, myY2;
3451   V3d_LayerMgrPointer myLayerMgr;
3452   Aspect_TypeOfLine   myType;
3453   Standard_Real       myWidth;
3454   Standard_Real       myTransparency;
3455 };
3456
3457 IMPLEMENT_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
3458 IMPLEMENT_STANDARD_RTTIEXT(V3d_LineItem, Visual3d_LayerItem)
3459
3460 // default constructor for line item
3461 V3d_LineItem::V3d_LineItem(Standard_Real X1, Standard_Real Y1,
3462                            Standard_Real X2, Standard_Real Y2,
3463                            V3d_LayerMgrPointer theLayerMgr,
3464                            Aspect_TypeOfLine theType,
3465                            Standard_Real theWidth,
3466                            Standard_Real theTransp) :
3467   myX1(X1), myY1(Y1), myX2(X2), myY2(Y2), myLayerMgr(theLayerMgr),
3468   myType(theType), myWidth(theWidth), myTransparency(theTransp)
3469 {
3470   if (myLayerMgr && !myLayerMgr->Overlay().IsNull())
3471     myLayerMgr->Overlay()->AddLayerItem (this);
3472 }
3473
3474 // render line
3475 void V3d_LineItem::RedrawLayerPrs ()
3476 {
3477   Handle (Visual3d_Layer) aOverlay;
3478
3479   if (myLayerMgr)
3480     aOverlay = myLayerMgr->Overlay();
3481
3482   if (!aOverlay.IsNull())
3483   {
3484     Quantity_Color aColor(1.0, 0, 0, Quantity_TOC_RGB);
3485     aOverlay->SetColor(aCol