0025363: Visualization - add test command for V3d_View::FitAll by view area
[occt.git] / src / ViewerTest / ViewerTest_ViewerCommands.cxx
old mode 100755 (executable)
new mode 100644 (file)
index b5cd888..a17dd12
@@ -1,42 +1,49 @@
 // Created on: 1998-09-01
 // Created by: Robert COUBLANC
 // Copyright (c) 1998-1999 Matra Datavision
-// Copyright (c) 1999-2012 OPEN CASCADE SAS
+// Copyright (c) 1999-2014 OPEN CASCADE SAS
 //
-// The content of this file is subject to the Open CASCADE Technology Public
-// License Version 6.5 (the "License"). You may not use the content of this file
-// except in compliance with the License. Please obtain a copy of the License
-// at http://www.opencascade.org and read it completely before using this file.
+// This file is part of Open CASCADE Technology software library.
 //
-// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+// This library is free software; you can redistribute it and/or modify it under
+// the terms of the GNU Lesser General Public License version 2.1 as published
+// by the Free Software Foundation, with special exception defined in the file
+// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+// distribution for complete text of the license and disclaimer of any warranty.
 //
-// The Original Code and all software distributed under the License is
-// distributed on an "AS IS" basis, without warranty of any kind, and the
-// Initial Developer hereby disclaims all such warranties, including without
-// limitation, any warranties of merchantability, fitness for a particular
-// purpose or non-infringement. Please see the License for the specific terms
-// and conditions governing the rights and limitations under the License.
-
-
-// Robert Boehne 30 May 2000 : Dec Osf
-
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#ifdef WNT
-#include <windows.h>
-#endif
-
+// Alternatively, this file may be used under the terms of Open CASCADE
+// commercial license or contractual agreement.
+
+#include <OpenGl_GlCore20.hxx>
+#include <AIS_Shape.hxx>
+#include <AIS_Drawer.hxx>
+#include <AIS_InteractiveObject.hxx>
+#include <AIS_ListOfInteractive.hxx>
+#include <AIS_ListIteratorOfListOfInteractive.hxx>
+#include <DBRep.hxx>
 #include <Graphic3d_AspectMarker3d.hxx>
-#include <Graphic3d_GraphicDriver.hxx>
 #include <Graphic3d_ExportFormat.hxx>
+#include <Graphic3d_NameOfTextureEnv.hxx>
+#include <Graphic3d_TextureEnv.hxx>
+#include <Graphic3d_TextureParams.hxx>
+#include <Graphic3d_TypeOfTextureFilter.hxx>
+#include <Graphic3d_AspectFillArea3d.hxx>
 #include <ViewerTest.hxx>
+#include <ViewerTest_AutoUpdater.hxx>
 #include <ViewerTest_EventManager.hxx>
+#include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
+#include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
 #include <Visual3d_View.hxx>
 #include <Visual3d_ViewManager.hxx>
+#include <V3d_AmbientLight.hxx>
+#include <V3d_DirectionalLight.hxx>
 #include <V3d_LayerMgr.hxx>
+#include <V3d_LayerMgrPointer.hxx>
+#include <V3d_PositionalLight.hxx>
+#include <V3d_SpotLight.hxx>
+#include <NCollection_DoubleMap.hxx>
+#include <NCollection_List.hxx>
+#include <NCollection_Vector.hxx>
 #include <NIS_View.hxx>
 #include <NIS_Triangulated.hxx>
 #include <NIS_InteractiveContext.hxx>
 #include <Draw.hxx>
 #include <Draw_Appli.hxx>
 #include <Aspect_PrintAlgo.hxx>
-#include <Image_PixMap.hxx>
+#include <Image_AlienPixMap.hxx>
+#include <OpenGl_GraphicDriver.hxx>
 #include <OSD_Timer.hxx>
+#include <TColStd_HSequenceOfAsciiString.hxx>
 #include <TColStd_SequenceOfInteger.hxx>
+#include <TColStd_HSequenceOfReal.hxx>
+#include <TColgp_Array1OfPnt2d.hxx>
+#include <TColStd_MapOfAsciiString.hxx>
 #include <Visual3d_LayerItem.hxx>
-#include <V3d_LayerMgr.hxx>
-#include <V3d_LayerMgrPointer.hxx>
 #include <Aspect_TypeOfLine.hxx>
+#include <Image_Diff.hxx>
+#include <Aspect_DisplayConnection.hxx>
+#include <gp_Pnt.hxx>
+#include <gp_Dir.hxx>
+#include <gp_Pln.hxx>
+#include <PrsMgr_PresentableObject.hxx>
+#include <Graphic3d_ClipPlane.hxx>
+#include <NCollection_DataMap.hxx>
+#include <Graphic3d_Texture2Dmanual.hxx>
+#include <Prs3d_ShadingAspect.hxx>
 
 #ifdef WNT
 #undef DrawText
 #endif
 
 #include <Visual3d_Layer.hxx>
-
-#ifndef WNT
-#include <Graphic3d_GraphicDevice.hxx>
-#include <Xw_GraphicDevice.hxx>
-#include <Xw_WindowQuality.hxx>
-#include <Xw_Window.hxx>
-#include <X11/Xlib.h> /* contains some dangerous #defines such as Status, True etc. */
-#include <X11/Xutil.h>
-#include <tk.h>
-
+#include <cstdlib>
+
+#if defined(_WIN32)
+  #include <WNT_WClass.hxx>
+  #include <WNT_Window.hxx>
+
+  #if defined(_MSC_VER)
+    #define _CRT_SECURE_NO_DEPRECATE
+    #pragma warning (disable:4996)
+  #endif
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+  #include <Cocoa_Window.hxx>
 #else
-
-#include <Graphic3d_WNTGraphicDevice.hxx>
-#include <WNT_WClass.hxx>
-#include <WNT_Window.hxx>
-
-#define _CRT_SECURE_NO_DEPRECATE
-#pragma warning (disable:4996)
-
+  #include <Xw_Window.hxx>
+  #include <X11/Xlib.h> /* contains some dangerous #defines such as Status, True etc. */
+  #include <X11/Xutil.h>
+  #include <tk.h>
 #endif
 
-#define OCC120
+inline Standard_Boolean parseOnOff (Standard_CString  theArg,
+                                    Standard_Boolean& theIsOn)
+{
+  TCollection_AsciiString aFlag (theArg);
+  aFlag.LowerCase();
+  if (aFlag == "on"
+   || aFlag == "1")
+  {
+    theIsOn = Standard_True;
+    return Standard_True;
+  }
+  else if (aFlag == "off"
+        || aFlag == "0")
+  {
+    theIsOn = Standard_False;
+    return Standard_True;
+  }
+  return Standard_False;
+}
 
-//==============================================================================
+// Auxiliary definitions
+static const char THE_KEY_DELETE = 127;
 
 //==============================================================================
 //  VIEWER GLOBAL VARIABLES
 //==============================================================================
 
 Standard_IMPORT Standard_Boolean Draw_VirtualWindows;
+Standard_IMPORT Standard_Boolean Draw_Interprete (const char* theCommand);
 
 Standard_EXPORT int ViewerMainLoop(Standard_Integer , const char** argv);
 extern const Handle(NIS_InteractiveContext)& TheNISContext();
+extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
 
-#ifdef WNT
-static Handle(Graphic3d_WNTGraphicDevice)& GetG3dDevice(){
-  static Handle(Graphic3d_WNTGraphicDevice) GD;
-  return GD;
-}
+extern int VErase (Draw_Interpretor& theDI,
+                   Standard_Integer  theArgNb,
+                   const char**      theArgVec);
 
+#if defined(_WIN32)
 static Handle(WNT_Window)& VT_GetWindow() {
   static Handle(WNT_Window) WNTWin;
   return WNTWin;
 }
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+static Handle(Cocoa_Window)& VT_GetWindow()
+{
+  static Handle(Cocoa_Window) aWindow;
+  return aWindow;
+}
+extern void ViewerTest_SetCocoaEventManagerView (const Handle(Cocoa_Window)& theWindow);
+extern void SetCocoaWindowTitle (const Handle(Cocoa_Window)& theWindow, Standard_CString theTitle);
+extern void GetCocoaScreenResolution (Standard_Integer& theWidth, Standard_Integer& theHeight);
 
 #else
-static Handle(Graphic3d_GraphicDevice)& GetG3dDevice(){
-  static Handle(Graphic3d_GraphicDevice) GD;
-  return GD;
-}
 static Handle(Xw_Window)& VT_GetWindow(){
   static Handle(Xw_Window) XWWin;
   return XWWin;
 }
-static Display *display;
 
 static void VProcessEvents(ClientData,int);
 #endif
 
-#ifdef OCC120
-static Standard_Boolean DegenerateMode = Standard_True;
+static Handle(Aspect_DisplayConnection)& GetDisplayConnection()
+{
+  static Handle(Aspect_DisplayConnection) aDisplayConnection;
+  return aDisplayConnection;
+}
+
+static void SetDisplayConnection (const Handle(Aspect_DisplayConnection)& theDisplayConnection)
+{
+  GetDisplayConnection() = theDisplayConnection;
+}
+
+#if defined(_WIN32) || (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+Aspect_Handle GetWindowHandle(const Handle(Aspect_Window)& theWindow)
+{
+  Aspect_Handle aWindowHandle = (Aspect_Handle)NULL;
+#if defined(_WIN32)
+  const Handle (WNT_Window) aWindow = Handle(WNT_Window)::DownCast (theWindow);
+  if (!aWindow.IsNull())
+    return aWindow->HWindow();
+#elif (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+  const Handle (Xw_Window) aWindow = Handle(Xw_Window)::DownCast (theWindow);
+  if (!aWindow.IsNull())
+  return aWindow->XWindow();
 #endif
+  return aWindowHandle;
+}
+#endif
+
+static Standard_Boolean MyHLRIsOn = Standard_False;
+
+NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)> ViewerTest_myViews;
+static NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>  ViewerTest_myContexts;
+static NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)> ViewerTest_myDrivers;
+static OpenGl_Caps ViewerTest_myDefaultCaps;
 
 #define ZCLIPWIDTH 1.
 
@@ -131,9 +204,12 @@ static void OSWindowSetup();
 
 static int Start_Rot = 0;
 static int ZClipIsOn = 0;
-static int X_Motion= 0,Y_Motion=0; // Current cursor position
-static int X_ButtonPress = 0, Y_ButtonPress = 0; // Last ButtonPress position
-
+int X_Motion = 0; // Current cursor position
+int Y_Motion = 0;
+int X_ButtonPress = 0; // Last ButtonPress position
+int Y_ButtonPress = 0;
+Standard_Boolean IsDragged = Standard_False;
+Standard_Boolean DragFirst = Standard_False;
 
 //==============================================================================
 
@@ -159,8 +235,9 @@ static LRESULT WINAPI AdvViewerWindowProc(
 const Handle(MMgt_TShared)& ViewerTest::WClass()
 {
   static Handle(MMgt_TShared) theWClass;
-#ifdef WNT
-  if (theWClass.IsNull()) {
+#if defined(_WIN32)
+  if (theWClass.IsNull())
+  {
     theWClass = new WNT_WClass ("GW3D_Class", AdvViewerWindowProc,
       CS_VREDRAW | CS_HREDRAW, 0, 0,
       ::LoadCursor (NULL, IDC_ARROW));
@@ -170,2648 +247,6842 @@ const Handle(MMgt_TShared)& ViewerTest::WClass()
 }
 
 //==============================================================================
-//function : ViewerInit
-//purpose  : Create the window viewer and initialize all the global variable
+//function : CreateName
+//purpose  : Create numerical name for new object in theMap
 //==============================================================================
+template <typename ObjectType>
+TCollection_AsciiString CreateName (const NCollection_DoubleMap <TCollection_AsciiString, ObjectType>& theObjectMap,
+                                    const TCollection_AsciiString& theDefaultString)
+{
+  if (theObjectMap.IsEmpty())
+    return theDefaultString + TCollection_AsciiString(1);
+
+  Standard_Integer aNextKey = 1;
+  Standard_Boolean isFound = Standard_False;
+  while (!isFound)
+  {
+    TCollection_AsciiString aStringKey = theDefaultString + TCollection_AsciiString(aNextKey);
+    // Look for objects with default names
+    if (theObjectMap.IsBound1(aStringKey))
+    {
+      aNextKey++;
+    }
+    else
+      isFound = Standard_True;
+  }
+
+  return theDefaultString + TCollection_AsciiString(aNextKey);
+}
 
-void ViewerTest::ViewerInit (const Standard_Integer thePxLeft,  const Standard_Integer thePxTop,
-                             const Standard_Integer thePxWidth, const Standard_Integer thePxHeight)
+//==============================================================================
+//structure : ViewerTest_Names
+//purpose   : Allow to operate with full view name: driverName/viewerName/viewName
+//==============================================================================
+struct ViewerTest_Names
 {
-  static Standard_Boolean isFirst = Standard_True;
+private:
+  TCollection_AsciiString myDriverName;
+  TCollection_AsciiString myViewerName;
+  TCollection_AsciiString myViewName;
 
-  Standard_Integer aPxLeft   = 0;
-  Standard_Integer aPxTop    = 460;
-  Standard_Integer aPxWidth  = 409;
-  Standard_Integer aPxHeight = 409;
-  if (thePxWidth != 0 && thePxHeight != 0)
+public:
+
+  const TCollection_AsciiString& GetDriverName () const
   {
-    aPxLeft   = thePxLeft;
-    aPxTop    = thePxTop;
-    aPxWidth  = thePxWidth;
-    aPxHeight = thePxHeight;
+    return myDriverName;
+  }
+  void SetDriverName (const TCollection_AsciiString& theDriverName)
+  {
+    myDriverName = theDriverName;
+  }
+  const TCollection_AsciiString& GetViewerName () const
+  {
+    return myViewerName;
+  }
+  void SetViewerName (const TCollection_AsciiString& theViewerName)
+  {
+    myViewerName = theViewerName;
+  }
+  const TCollection_AsciiString& GetViewName () const
+  {
+    return myViewName;
+  }
+  void SetViewName (const TCollection_AsciiString& theViewName)
+  {
+    myViewName = theViewName;
   }
 
-  if (isFirst)
+  //===========================================================================
+  //function : Constructor for ViewerTest_Names
+  //purpose  : Get view, viewer, driver names from custom string
+  //===========================================================================
+
+  ViewerTest_Names (const TCollection_AsciiString& theInputString)
   {
-    // Create the Graphic device
-#ifdef WNT
-    if (GetG3dDevice().IsNull()) GetG3dDevice() = new Graphic3d_WNTGraphicDevice();
-    if (VT_GetWindow().IsNull())
+    TCollection_AsciiString aName(theInputString);
+    if (theInputString.IsEmpty())
     {
-      // Create the Graphic device and the window
-      Handle(WNT_GraphicDevice) g_Device = new WNT_GraphicDevice();
+      // Get current configuration
+      if (ViewerTest_myDrivers.IsEmpty())
+        myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
+          (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
+      else
+        myDriverName = ViewerTest_myDrivers.Find2
+        (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
 
-      VT_GetWindow() = new WNT_Window (g_Device, "Test3d",
-                                       Handle(WNT_WClass)::DownCast (WClass()),
-                                       WS_OVERLAPPEDWINDOW,
-                                       aPxLeft, aPxTop,
-                                       aPxWidth, aPxHeight,
-                                       Quantity_NOC_BLACK);
-      VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
-    }
-#else
-    if (GetG3dDevice().IsNull()) GetG3dDevice() =
-      new Graphic3d_GraphicDevice (getenv ("DISPLAY"), Xw_TOM_READONLY);
-    if (VT_GetWindow().IsNull())
-    {
-      VT_GetWindow() = new Xw_Window (GetG3dDevice(),
-                                      "Test3d",
-                                      aPxLeft, aPxTop,
-                                      aPxWidth, aPxHeight,
-                                      Xw_WQ_3DQUALITY,
-                                      Quantity_NOC_BLACK);
-      VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
+      if(ViewerTest_myContexts.IsEmpty())
+      {
+        myViewerName = CreateName <Handle(AIS_InteractiveContext)>
+          (ViewerTest_myContexts, TCollection_AsciiString (myDriverName + "/Viewer"));
+      }
+      else
+        myViewerName = ViewerTest_myContexts.Find2 (ViewerTest::GetAISContext());
+
+        myViewName = CreateName <Handle(V3d_View)>
+          (ViewerTest_myViews, TCollection_AsciiString(myViewerName + "/View"));
     }
-#endif
+    else
+    {
+      // There is at least view name
+      Standard_Integer aParserNumber = 0;
+      for (Standard_Integer i = 0; i < 3; ++i)
+      {
+        Standard_Integer aParserPos = aName.SearchFromEnd("/");
+        if(aParserPos != -1)
+        {
+          aParserNumber++;
+          aName.Split(aParserPos-1);
+        }
+        else
+          break;
+      }
+      if (aParserNumber == 0)
+      {
+        // Only view name
+        if (!ViewerTest::GetAISContext().IsNull())
+        {
+          myDriverName = ViewerTest_myDrivers.Find2
+          (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
+          myViewerName = ViewerTest_myContexts.Find2
+          (ViewerTest::GetAISContext());
+        }
+        else
+        {
+          // There is no opened contexts here, need to create names for viewer and driver
+          myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
+            (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
 
-    Handle(V3d_Viewer) a3DViewer, a3DCollector;
-    // Viewer and View creation
+          myViewerName = CreateName <Handle(AIS_InteractiveContext)>
+            (ViewerTest_myContexts, TCollection_AsciiString (myDriverName + "/Viewer"));
+        }
+        myViewName = TCollection_AsciiString(myViewerName + "/" + theInputString);
+      }
+      else if (aParserNumber == 1)
+      {
+        // Here is viewerName/viewName
+        if (!ViewerTest::GetAISContext().IsNull())
+          myDriverName = ViewerTest_myDrivers.Find2
+          (ViewerTest::GetAISContext()->CurrentViewer()->Driver());
+        else
+        {
+          // There is no opened contexts here, need to create name for driver
+          myDriverName = CreateName<Handle(Graphic3d_GraphicDriver)>
+            (ViewerTest_myDrivers, TCollection_AsciiString("Driver"));
+        }
+        myViewerName = TCollection_AsciiString(myDriverName + "/" + aName);
 
-    TCollection_ExtendedString NameOfWindow("Visu3D");
+        myViewName = TCollection_AsciiString(myDriverName + "/" + theInputString);
+      }
+      else
+      {
+        //Here is driverName/viewerName/viewName
+        myDriverName = TCollection_AsciiString(aName);
 
-    a3DViewer = new V3d_Viewer(GetG3dDevice(), NameOfWindow.ToExtString());
-    NameOfWindow = TCollection_ExtendedString("Collector");
-    a3DCollector = new V3d_Viewer(GetG3dDevice(), NameOfWindow.ToExtString());
-    a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
-    a3DCollector->SetDefaultBackgroundColor(Quantity_NOC_STEELBLUE);
-    Handle(NIS_View) aView =
-      Handle(NIS_View)::DownCast(ViewerTest::CurrentView());
-    if ( aView.IsNull() ) {
-      //       Handle (V3d_View) V = a3DViewer->CreateView();
-      aView = new NIS_View (a3DViewer, VT_GetWindow());
-      ViewerTest::CurrentView(aView);
-      TheNISContext()->AttachView (aView);
-    }
-    Handle(V3d_View) a3DViewCol;
-    if ( a3DViewCol.IsNull() ) a3DViewCol    = a3DViewer->CreateView();
+        TCollection_AsciiString aViewerName(theInputString);
+        aViewerName.Split(aViewerName.SearchFromEnd("/") - 1);
+        myViewerName = TCollection_AsciiString(aViewerName);
 
-    // AIS setup
-    if ( ViewerTest::GetAISContext().IsNull() ) {
-      Handle(AIS_InteractiveContext) C =
-        new AIS_InteractiveContext(a3DViewer,a3DCollector);
-      ViewerTest::SetAISContext(C);
+        myViewName = TCollection_AsciiString(theInputString);
+      }
     }
+  }
+};
 
-    // Setup for X11 or NT
-    OSWindowSetup();
-    // Viewer and View creation
+//==============================================================================
+//function : FindContextByView
+//purpose  : Find AIS_InteractiveContext by View
+//==============================================================================
 
-    a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
+Handle(AIS_InteractiveContext) FindContextByView (const Handle(V3d_View)& theView)
+{
+  Handle(AIS_InteractiveContext) anAISContext;
 
-    Handle (V3d_View) V = ViewerTest::CurrentView();
+  for (NCollection_DoubleMap<TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
+       anIter (ViewerTest_myContexts); anIter.More(); anIter.Next())
+  {
+    if (anIter.Value()->CurrentViewer() == theView->Viewer())
+       return anIter.Key2();
+  }
+  return anAISContext;
+}
 
-    V->SetDegenerateModeOn();
-#ifdef OCC120
-    DegenerateMode = V->DegenerateModeIsOn();
-#endif
-    //    V->SetWindow(VT_GetWindow(), NULL, MyViewProc, NULL);
 
-    V->SetZClippingDepth(0.5);
-    V->SetZClippingWidth(ZCLIPWIDTH/2.);
-    a3DViewer->SetDefaultLights();
-    a3DViewer->SetLightOn();
+//==============================================================================
+//function : SetWindowTitle
+//purpose  : Set window title
+//==============================================================================
 
-#ifndef WNT
-#if TCL_MAJOR_VERSION  < 8
-    Tk_CreateFileHandler((void*)ConnectionNumber(display),
-      TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
+void SetWindowTitle (const Handle(Aspect_Window)& theWindow,
+                     Standard_CString theTitle)
+{
+#if defined(_WIN32)
+  SetWindowText ((HWND)Handle(WNT_Window)::DownCast(theWindow)->HWindow(),
+    theTitle);
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+  SetCocoaWindowTitle (Handle(Cocoa_Window)::DownCast(theWindow), theTitle);
 #else
-    Tk_CreateFileHandler(ConnectionNumber(display),
-      TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
-#endif
-#endif
-
-    isFirst = Standard_False;
+  if(GetDisplayConnection()->GetDisplay())
+  {
+    Window aWindow =
+      Handle(Xw_Window)::DownCast(theWindow)->XWindow();
+    XStoreName (GetDisplayConnection()->GetDisplay(), aWindow , theTitle);
   }
-  VT_GetWindow()->Map();
+#endif
 }
 
 //==============================================================================
-//function : Vinit
-//purpose  : Create the window viewer and initialize all the global variable
-//    Use Tk_CreateFileHandler on UNIX to cath the X11 Viewer event
+//function : IsWindowOverlapped
+//purpose  : Check if theWindow overlapp another view
 //==============================================================================
 
-static int VInit (Draw_Interpretor& , Standard_Integer argc, const char** argv)
+Standard_Boolean IsWindowOverlapped (const Standard_Integer thePxLeft,
+                                     const Standard_Integer thePxTop,
+                                     const Standard_Integer thePxRight,
+                                     const Standard_Integer thePxBottom,
+                                     TCollection_AsciiString& theViewId)
 {
-  Standard_Integer aPxLeft   = (argc > 1) ? atoi (argv[1]) : 0;
-  Standard_Integer aPxTop    = (argc > 2) ? atoi (argv[2]) : 0;
-  Standard_Integer aPxWidth  = (argc > 3) ? atoi (argv[3]) : 0;
-  Standard_Integer aPxHeight = (argc > 4) ? atoi (argv[4]) : 0;
-  ViewerTest::ViewerInit (aPxLeft, aPxTop, aPxWidth, aPxHeight);
-  return 0;
+  for(NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)>::Iterator
+      anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
+  {
+    Standard_Integer aTop = 0,
+      aLeft = 0,
+      aRight = 0,
+      aBottom = 0;
+    anIter.Value()->Window()->Position(aLeft, aTop, aRight, aBottom);
+    if ((thePxLeft >= aLeft && thePxLeft <= aRight && thePxTop >= aTop && thePxTop <= aBottom) ||
+        (thePxLeft >= aLeft && thePxLeft <= aRight && thePxBottom >= aTop && thePxBottom <= aBottom) ||
+        (thePxRight >= aLeft && thePxRight <= aRight && thePxTop >= aTop && thePxTop <= aBottom) ||
+        (thePxRight >= aLeft && thePxRight <= aRight && thePxBottom >= aTop && thePxBottom <= aBottom))
+    {
+      theViewId = anIter.Key1();
+      return Standard_True;
+    }
+  }
+  return Standard_False;
+}
+
+// Workaround: to create and delete non-orthographic views outside ViewerTest
+void ViewerTest::RemoveViewName (const TCollection_AsciiString& theName)
+{
+  ViewerTest_myViews.UnBind1 (theName);
+}
+
+void ViewerTest::InitViewName (const TCollection_AsciiString& theName,
+                               const Handle(V3d_View)& theView)
+{
+  ViewerTest_myViews.Bind (theName, theView);
 }
 
+TCollection_AsciiString ViewerTest::GetCurrentViewName ()
+{
+  return ViewerTest_myViews.Find2( ViewerTest::CurrentView());
+}
 //==============================================================================
-//function : ProcessKeyPress
-//purpose  : Handle KeyPress event from a CString
+//function : ViewerInit
+//purpose  : Create the window viewer and initialize all the global variable
 //==============================================================================
 
-static void ProcessKeyPress( char *buf_ret )
+TCollection_AsciiString ViewerTest::ViewerInit (const Standard_Integer thePxLeft,
+                                                const Standard_Integer thePxTop,
+                                                const Standard_Integer thePxWidth,
+                                                const Standard_Integer thePxHeight,
+                                                Standard_CString theViewName,
+                                                Standard_CString theDisplayName)
 {
-  //cout << "KeyPress" << endl;
-  const Handle(V3d_View) aView = ViewerTest::CurrentView();
-  const Handle(NIS_View) aNisView = Handle(NIS_View)::DownCast (aView);
-  // Letter in alphabetic order
+  // Default position and dimension of the viewer window.
+  // Note that left top corner is set to be sufficiently small to have
+  // window fit in the small screens (actual for remote desktops, see #23003).
+  // The position corresponds to the window's client area, thus some
+  // gap is added for window frame to be visible.
+  Standard_Integer aPxLeft   = 20;
+  Standard_Integer aPxTop    = 40;
+  Standard_Integer aPxWidth  = 409;
+  Standard_Integer aPxHeight = 409;
+  Standard_Boolean toCreateViewer = Standard_False;
+
+  Handle(OpenGl_GraphicDriver) aGraphicDriver;
+  ViewerTest_Names aViewNames(theViewName);
+  if (ViewerTest_myViews.IsBound1 (aViewNames.GetViewName ()))
+    aViewNames.SetViewName (aViewNames.GetViewerName() + "/" + CreateName<Handle(V3d_View)>(ViewerTest_myViews, "View"));
+
+  if (thePxLeft != 0)
+    aPxLeft = thePxLeft;
+  if (thePxTop != 0)
+    aPxTop = thePxTop;
+  if (thePxWidth != 0)
+    aPxWidth = thePxWidth;
+  if (thePxHeight != 0)
+    aPxHeight = thePxHeight;
 
-  if ( !strcasecmp(buf_ret, "A") ) {
-    // AXO
-    aView->SetProj(V3d_XposYnegZpos);
-  }
-  else if ( !strcasecmp(buf_ret, "D") ) {
-    // Reset
-    aView->Reset();
-  }
-  else if ( !strcasecmp(buf_ret, "F") ) {
-    // FitAll
-    if (aNisView.IsNull())
-      aView->FitAll();
+  // Get graphic driver (create it or get from another view)
+  if (!ViewerTest_myDrivers.IsBound1 (aViewNames.GetDriverName()))
+  {
+    // Get connection string
+  #if !defined(_WIN32) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+    TCollection_AsciiString aDisplayName(theDisplayName);
+    if (!aDisplayName.IsEmpty())
+      SetDisplayConnection (new Aspect_DisplayConnection ());
     else
-      aNisView->FitAll3d();
+      SetDisplayConnection (new Aspect_DisplayConnection (aDisplayName));
+  #else
+    (void)theDisplayName; // avoid warning on unused argument
+    SetDisplayConnection (new Aspect_DisplayConnection ());
+  #endif
+    aGraphicDriver = new OpenGl_GraphicDriver (GetDisplayConnection());
+    aGraphicDriver->ChangeOptions() = ViewerTest_myDefaultCaps;
+    ViewerTest_myDrivers.Bind (aViewNames.GetDriverName(), aGraphicDriver);
+    toCreateViewer = Standard_True;
   }
-  else if ( !strcasecmp(buf_ret, "H") ) {
-    // HLR
-    cout << "HLR" << endl;
-#ifdef OCC120
-    if (aView->DegenerateModeIsOn()) ViewerTest::CurrentView()->SetDegenerateModeOff();
-    else aView->SetDegenerateModeOn();
-    DegenerateMode = aView->DegenerateModeIsOn();
-#else
-    ViewerTest::CurrentView()->SetDegenerateModeOff();
-#endif
-  }
-  else if ( !strcasecmp(buf_ret, "D") ) {
-    // Reset
-    aView->Reset();
+  else
+  {
+    aGraphicDriver = Handle(OpenGl_GraphicDriver)::DownCast (ViewerTest_myDrivers.Find1 (aViewNames.GetDriverName()));
   }
-  else if ( !strcasecmp(buf_ret, "S") ) {
-    // SHADING
-    cout << "passage en mode 1 (shading pour les shapes)" << endl;
-#ifndef OCC120
-    ViewerTest::CurrentView()->SetDegenerateModeOn();
+
+  //Dispose the window if input parameters are default
+  if (!ViewerTest_myViews.IsEmpty() && thePxLeft == 0 && thePxTop == 0)
+  {
+    Standard_Integer aTop = 0,
+                     aLeft = 0,
+                     aRight = 0,
+                     aBottom = 0,
+                     aScreenWidth = 0,
+                     aScreenHeight = 0;
+
+    // Get screen resolution
+#if defined(_WIN32) || defined(__WIN32__)
+    RECT aWindowSize;
+    GetClientRect(GetDesktopWindow(), &aWindowSize);
+    aScreenHeight = aWindowSize.bottom;
+    aScreenWidth = aWindowSize.right;
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+    GetCocoaScreenResolution (aScreenWidth, aScreenHeight);
+#else
+    Screen *aScreen = DefaultScreenOfDisplay(GetDisplayConnection()->GetDisplay());
+    aScreenWidth = WidthOfScreen(aScreen);
+    aScreenHeight = HeightOfScreen(aScreen);
 #endif
-    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
-    if(Ctx->NbCurrents()==0 ||
-      Ctx->NbSelected()==0)
-      Ctx->SetDisplayMode(AIS_Shaded);
-    else{
-      if(Ctx->HasOpenedContext()){
-        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
-          Ctx->SetDisplayMode(Ctx->Interactive(),1,Standard_False);
-      }
-      else{
-        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
-          Ctx->SetDisplayMode(Ctx->Current(),1,Standard_False);
+
+    TCollection_AsciiString anOverlappedViewId("");
+
+    while (IsWindowOverlapped (aPxLeft, aPxTop, aPxLeft + aPxWidth, aPxTop + aPxHeight, anOverlappedViewId))
+    {
+      ViewerTest_myViews.Find1(anOverlappedViewId)->Window()->Position (aLeft, aTop, aRight, aBottom);
+
+      if (IsWindowOverlapped (aRight + 20, aPxTop, aRight + 20 + aPxWidth, aPxTop + aPxHeight, anOverlappedViewId)
+        && aRight + 2*aPxWidth + 40 > aScreenWidth)
+      {
+        if (aBottom + aPxHeight + 40 > aScreenHeight)
+        {
+          aPxLeft = 20;
+          aPxTop = 40;
+          break;
+        }
+        aPxLeft = 20;
+        aPxTop = aBottom + 40;
       }
-      Ctx->UpdateCurrentViewer();
+      else
+        aPxLeft = aRight + 20;
     }
   }
-  else if ( !strcasecmp(buf_ret, "U") ) {
-    // SHADING
-    cout<<"passage au mode par defaut"<<endl;
-#ifndef OCC120
-    ViewerTest::CurrentView()->SetDegenerateModeOn();
-#endif
-    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
-    if(Ctx->NbCurrents()==0 ||
-      Ctx->NbSelected()==0)
-      Ctx->SetDisplayMode(AIS_WireFrame);
-    else{
-      if(Ctx->HasOpenedContext()){
-        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
-          Ctx->UnsetDisplayMode(Ctx->Interactive(),Standard_False);
-      }
-      else{
-        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
-          Ctx->UnsetDisplayMode(Ctx->Current(),Standard_False);
-      }
-      Ctx->UpdateCurrentViewer();
-    }
 
+  // Get viewer name
+  TCollection_AsciiString aTitle("3D View - ");
+  aTitle = aTitle + aViewNames.GetViewName() + "(*)";
+
+  // Change name of current active window
+  if (!ViewerTest::CurrentView().IsNull())
+  {
+    TCollection_AsciiString aTitle("3D View - ");
+    aTitle = aTitle
+      + ViewerTest_myViews.Find2 (ViewerTest::CurrentView());
+    SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
   }
-  else if ( !strcasecmp(buf_ret, "T") ) {
-    // Top
-    aView->SetProj(V3d_Zpos);
+
+  // Create viewer
+  Handle(V3d_Viewer) a3DViewer;
+  // If it's the single view, we first look for empty context
+  if (ViewerTest_myViews.IsEmpty() && !ViewerTest_myContexts.IsEmpty())
+  {
+    NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
+      anIter(ViewerTest_myContexts);
+    if (anIter.More())
+      ViewerTest::SetAISContext (anIter.Value());
+    a3DViewer = ViewerTest::GetAISContext()->CurrentViewer();
   }
-  else if ( !strcasecmp(buf_ret, "B") ) {
-    // Top
-    aView->SetProj(V3d_Zneg);
+  else if (ViewerTest_myContexts.IsBound1(aViewNames.GetViewerName()))
+  {
+    ViewerTest::SetAISContext(ViewerTest_myContexts.Find1(aViewNames.GetViewerName()));
+    a3DViewer = ViewerTest::GetAISContext()->CurrentViewer();
   }
-  else if ( !strcasecmp(buf_ret, "L") ) {
-    // Top
-    aView->SetProj(V3d_Xneg);
+  else if (a3DViewer.IsNull())
+  {
+    toCreateViewer = Standard_True;
+    TCollection_ExtendedString NameOfWindow("Viewer3D");
+    a3DViewer = new V3d_Viewer(aGraphicDriver, NameOfWindow.ToExtString());
+
+    NameOfWindow = TCollection_ExtendedString("Collector");
+
+    a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
   }
-  else if ( !strcasecmp(buf_ret, "R") ) {
-    // Top
-    aView->SetProj(V3d_Xpos);
+
+  // AIS context setup
+  if (ViewerTest::GetAISContext().IsNull() ||
+      !(ViewerTest_myContexts.IsBound1(aViewNames.GetViewerName())))
+  {
+    Handle(AIS_InteractiveContext) aContext = new AIS_InteractiveContext (a3DViewer);
+    ViewerTest::SetAISContext (aContext);
+    ViewerTest_myContexts.Bind (aViewNames.GetViewerName(), ViewerTest::GetAISContext());
+  }
+  else
+  {
+    ViewerTest::ResetEventManager();
   }
 
-  else if ( !strcasecmp(buf_ret, "W") ) {
-    // WIREFRAME
-#ifndef OCC120
-    ViewerTest::CurrentView()->SetDegenerateModeOn();
-#endif
-    cout << "passage en mode 0 (filaire pour les shapes)" << endl;
-#ifndef OCC120
-    ViewerTest::CurrentView()->SetDegenerateModeOn();
+  // Create window
+#if defined(_WIN32)
+  VT_GetWindow() = new WNT_Window (aTitle.ToCString(),
+                                    Handle(WNT_WClass)::DownCast (WClass()),
+                                    Draw_VirtualWindows ? WS_POPUPWINDOW : WS_OVERLAPPEDWINDOW,
+                                    aPxLeft, aPxTop,
+                                    aPxWidth, aPxHeight,
+                                    Quantity_NOC_BLACK);
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+  VT_GetWindow() = new Cocoa_Window (aTitle.ToCString(),
+                                     aPxLeft, aPxTop,
+                                     aPxWidth, aPxHeight);
+  ViewerTest_SetCocoaEventManagerView (VT_GetWindow());
+#else
+  VT_GetWindow() = new Xw_Window (aGraphicDriver->GetDisplayConnection(),
+                                  aTitle.ToCString(),
+                                  aPxLeft, aPxTop,
+                                  aPxWidth, aPxHeight);
 #endif
-    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
-    if(Ctx->NbCurrents()==0 ||
-      Ctx->NbSelected()==0)
-      Ctx->SetDisplayMode(AIS_WireFrame);
-    else{
-      if(Ctx->HasOpenedContext()){
-        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
-          Ctx->SetDisplayMode(Ctx->Interactive(),0,Standard_False);
-      }
-      else{
-        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
-          Ctx->SetDisplayMode(Ctx->Current(),0,Standard_False);
-      }
-      Ctx->UpdateCurrentViewer();
-    }
-  }
-  else if ( !strcasecmp(buf_ret, "Z") ) {
-    // ZCLIP
+  VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
 
-    if ( ZClipIsOn ) {
-      cout << "ZClipping OFF" << endl;
-      ZClipIsOn = 0;
+  // NIS setup
+  Handle(NIS_View) aView = new NIS_View (a3DViewer, VT_GetWindow());
 
-      aView->SetZClippingType(V3d_OFF);
-      aView->Redraw();
-    }
-    else {
-      cout << "ZClipping ON" << endl;
-      ZClipIsOn = 1;
+  ViewerTest::CurrentView(aView);
+  ViewerTest_myViews.Bind (aViewNames.GetViewName(), aView);
+  TheNISContext()->AttachView (aView);
 
-      aView->SetZClippingType(V3d_FRONT);
-      aView->Redraw();
-    }
-  }
-  else if ( !strcasecmp(buf_ret, ",") ) {
-    ViewerTest::GetAISContext()->HilightNextDetected(ViewerTest::CurrentView());
+  // Setup for X11 or NT
+  OSWindowSetup();
 
+  // Set parameters for V3d_View and V3d_Viewer
+  const Handle (V3d_View) aV3dView = ViewerTest::CurrentView();
+  aV3dView->SetComputedMode(Standard_False);
+  MyHLRIsOn = aV3dView->ComputedMode();
+  aV3dView->SetZClippingDepth(0.5);
+  aV3dView->SetZClippingWidth(ZCLIPWIDTH/2.);
 
+  a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
+  if (toCreateViewer)
+  {
+    a3DViewer->SetDefaultLights();
+    a3DViewer->SetLightOn();
   }
-  else if ( !strcasecmp(buf_ret, ".") ) {
-    ViewerTest::GetAISContext()->HilightPreviousDetected(ViewerTest::CurrentView());
-  }
-  // Number
-  else{
-    Standard_Integer Num = atoi(buf_ret);
-    if(Num>=0 && Num<=7)
-      ViewerTest::StandardModeActivation(Num);
-  }
-}
 
-//==============================================================================
-//function : ProcessExpose
-//purpose  : Redraw the View on an Expose Event
-//==============================================================================
+  #if !defined(_WIN32) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+  #if TCL_MAJOR_VERSION  < 8
+  Tk_CreateFileHandler((void*)XConnectionNumber(GetDisplayConnection()->GetDisplay()),
+      TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
+  #else
+  Tk_CreateFileHandler(XConnectionNumber(GetDisplayConnection()->GetDisplay()),
+      TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
+  #endif
+  #endif
+
+  VT_GetWindow()->Map();
+
+  // Set the handle of created view in the event manager
+  ViewerTest::ResetEventManager();
 
-static void ProcessExpose(  )
-{ //cout << "Expose" << endl;
   ViewerTest::CurrentView()->Redraw();
-}
 
-//==============================================================================
-//function : ProcessConfigure
-//purpose  : Resize the View on an Configure Event
-//==============================================================================
+  aView.Nullify();
+  a3DViewer.Nullify();
 
-static void ProcessConfigure()
-{
-  Handle(V3d_View) V = ViewerTest::CurrentView();
-  V->MustBeResized();
-  V->Update();
-  V->Redraw();
+  return aViewNames.GetViewName();
 }
 
 //==============================================================================
-//function : ProcessButton1Press
-//purpose  : Picking
+//function : RedrawAllViews
+//purpose  : Redraw all created views
 //==============================================================================
-
-static Standard_Boolean ProcessButton1Press(
-  Standard_Integer ,
-  const char** argv,
-  Standard_Boolean pick,
-  Standard_Boolean shift )
+void ViewerTest::RedrawAllViews()
 {
-  Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
-  if ( pick ) {
-    Standard_Real X, Y, Z;
-
-    ViewerTest::CurrentView()->Convert(X_Motion, Y_Motion, X, Y, Z);
-
-    Draw::Set(argv[1], X);
-    Draw::Set(argv[2], Y);
-    Draw::Set(argv[3], Z);}
-
-  if(shift)
-    EM->ShiftSelect();
-  else
-    EM->Select();
-
-  pick = 0;
-  return pick;
+  NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator aViewIt(ViewerTest_myViews);
+  for (; aViewIt.More(); aViewIt.Next())
+  {
+    const Handle(V3d_View)& aView = aViewIt.Key2();
+    aView->Redraw();
+  }
 }
 
 //==============================================================================
-//function : ProcessButton3Press
-//purpose  : Start Rotation
+//function : Vinit
+//purpose  : Create the window viewer and initialize all the global variable
+//    Use Tk_CreateFileHandler on UNIX to catch the X11 Viewer event
 //==============================================================================
 
-static void ProcessButton3Press()
-
-{ // Start rotation
-  Start_Rot = 1;
-  ViewerTest::CurrentView()->SetDegenerateModeOn();
-  ViewerTest::CurrentView()->StartRotation( X_ButtonPress, Y_ButtonPress );
-
-}
-//==============================================================================
-//function : ProcessButtonRelease
-//purpose  : Start Rotation
-//==============================================================================
+static int VInit (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
+{
+  if (theArgsNb > 9)
+  {
+    std::cerr << theArgVec[0] << ": incorrect number of command arguments.\n"
+              << "Type help for more information.\n";
+    return 1;
+  }
 
-static void ProcessButtonRelease()
+  TCollection_AsciiString aViewName, aDisplayName;
+  Standard_Integer aPxLeft = 0, aPxTop = 0, aPxWidth = 0, aPxHeight = 0;
+  TCollection_AsciiString aName, aValue;
+  for (Standard_Integer anArgIt = 1; anArgIt < theArgsNb; ++anArgIt)
+  {
+    const TCollection_AsciiString anArg = theArgVec[anArgIt];
+    TCollection_AsciiString anArgCase = anArg;
+    anArgCase.UpperCase();
+    if (ViewerTest::SplitParameter (anArg, aName, aValue))
+    {
+      aName.UpperCase();
+      if (aName.IsEqual ("NAME"))
+      {
+        aViewName = aValue;
+      }
+      else if (aName.IsEqual ("L")
+            || aName.IsEqual ("LEFT"))
+      {
+        aPxLeft = aValue.IntegerValue();
+      }
+      else if (aName.IsEqual ("T")
+            || aName.IsEqual ("TOP"))
+      {
+        aPxTop = aValue.IntegerValue();
+      }
+    #if !defined(_WIN32) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+      else if (aName.IsEqual ("DISP")
+            || aName.IsEqual ("DISPLAY"))
+      {
+        aDisplayName = aValue;
+      }
+    #endif
+      else if (aName.IsEqual ("W")
+            || aName.IsEqual ("WIDTH"))
+      {
+        aPxWidth = aValue.IntegerValue();
+      }
+      else if (aName.IsEqual ("H")
+            || aName.IsEqual ("HEIGHT"))
+      {
+        aPxHeight = aValue.IntegerValue();
+      }
+      else
+      {
+        std::cerr << theArgVec[0] << ": Warning: unknown argument " << anArg << ".\n";
+      }
+    }
+    else if (aViewName.IsEmpty())
+    {
+      aViewName = anArg;
+    }
+    else
+    {
+      std::cerr << theArgVec[0] << ": Warning: unknown argument " << anArg << ".\n";
+    }
+  }
 
-{ // End rotation
-#ifdef OCC120
-  if (Start_Rot) {
-    Start_Rot = 0;
-    if (!DegenerateMode) ViewerTest::CurrentView()->SetDegenerateModeOff();
+  ViewerTest_Names aViewNames (aViewName);
+  if (ViewerTest_myViews.IsBound1 (aViewNames.GetViewName()))
+  {
+    TCollection_AsciiString aCommand = TCollection_AsciiString ("vactivate ") + aViewNames.GetViewName();
+    theDi.Eval (aCommand.ToCString());
+    return 0;
   }
-#else
-  Start_Rot = 0;
-  ViewerTest::CurrentView()->SetDegenerateModeOff();
-#endif
+
+  TCollection_AsciiString aViewId = ViewerTest::ViewerInit (aPxLeft, aPxTop, aPxWidth, aPxHeight,
+                                                            aViewName.ToCString(),
+                                                            aDisplayName.ToCString());
+  theDi << aViewId;
+  return 0;
 }
 
 //==============================================================================
-//function : ProcessZClipMotion
-//purpose  : Zoom
+//function : VHLR
+//purpose  : hidden lines removal algorithm
+//draw args: vhlr is_enabled={on|off} [show_hidden={1|0}]
 //==============================================================================
 
-void ProcessZClipMotion()
+static int VHLR (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 {
-  Handle(V3d_View)  a3DView = ViewerTest::CurrentView();
-  if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
-    static Standard_Real CurZPos = 0.;
+  if (ViewerTest::CurrentView().IsNull())
+  {
+    di << argv[0] << ": Call vinit before this command, please.\n";
+    return 1;
+  }
 
-    //Quantity_Length VDX, VDY;
-    //a3DView->Size(VDX,VDY);
-    //Standard_Real VDZ = a3DView->ZSize();
-    //printf("View size (%lf,%lf,%lf)\n", VDX, VDY, VDZ);
+  if (argc < 2)
+  {
+    di << argv[0] << ": Wrong number of command arguments.\n"
+      << "Type help " << argv[0] << " for more information.\n";
+    return 1;
+  }
 
-    Quantity_Length dx = a3DView->Convert(X_Motion - X_ButtonPress);
+  // Enable or disable HLR mode.
+  Standard_Boolean isHLROn =
+    (!strcasecmp (argv[1], "on")) ? Standard_True : Standard_False;
 
-    // Front = Depth + width/2.
-    Standard_Real D = 0.5;
-    Standard_Real W = 0.1;
+  if (isHLROn != MyHLRIsOn)
+  {
+    MyHLRIsOn = isHLROn;
+    ViewerTest::CurrentView()->SetComputedMode (MyHLRIsOn);
+  }
 
-    CurZPos += (dx);
+  // Show or hide hidden lines in HLR mode.
+  Standard_Boolean isCurrentShowHidden
+    = ViewerTest::GetAISContext()->DefaultDrawer()->DrawHiddenLine();
 
-    D += CurZPos;
+  Standard_Boolean isShowHidden =
+    (argc == 3) ? (atoi(argv[2]) == 1 ? Standard_True : Standard_False)
+                : isCurrentShowHidden;
 
-    //printf("dx %lf Depth %lf Width %lf\n", dx, D, W);
 
-    a3DView->SetZClippingType(V3d_OFF);
-    a3DView->SetZClippingDepth(D);
-    a3DView->SetZClippingWidth(W);
-    a3DView->SetZClippingType(V3d_FRONT);
+  if (isShowHidden != isCurrentShowHidden)
+  {
+    if (isShowHidden)
+    {
+      ViewerTest::GetAISContext()->DefaultDrawer()->EnableDrawHiddenLine();
+    }
+    else
+    {
+      ViewerTest::GetAISContext()->DefaultDrawer()->DisableDrawHiddenLine();
+    }
 
-    a3DView->Redraw();
+    // Redisplay shapes.
+    if (MyHLRIsOn)
+    {
+      AIS_ListOfInteractive aListOfShapes;
+      ViewerTest::GetAISContext()->DisplayedObjects (aListOfShapes);
 
-    X_ButtonPress = X_Motion;
-    Y_ButtonPress = Y_Motion;
+      for (AIS_ListIteratorOfListOfInteractive anIter(aListOfShapes); anIter.More(); anIter.Next())
+      {
+        Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast (anIter.Value());
+        if (aShape.IsNull())
+        {
+          continue;
+        }
+        aShape->Redisplay();
+      }
+    }
   }
+
+  ViewerTest::CurrentView()->Update();
+  return 0;
 }
 
 //==============================================================================
-//function : ProcessControlButton1Motion
-//purpose  : Zoom
+//function : VHLRType
+//purpose  : change type of using HLR algorithm
 //==============================================================================
 
-static void ProcessControlButton1Motion()
+static int VHLRType (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 {
-  ViewerTest::CurrentView()->Zoom( X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion);
-
-  X_ButtonPress = X_Motion;
-  Y_ButtonPress = Y_Motion;
-}
+  if (ViewerTest::CurrentView().IsNull())
+  {
+    di << argv[0] << ": Call vinit before this command, please.\n";
+    return 1;
+  }
 
-//==============================================================================
-//function : ProcessControlButton2Motion
-//purpose  : Pann
-//==============================================================================
+  if (argc < 2)
+  {
+    di << argv[0] << ": Wrong number of command arguments.\n"
+      << "Type help " << argv[0] << " for more information.\n";
+    return 1;
+  }
 
-static void ProcessControlButton2Motion()
-{
-  Quantity_Length dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
-  Quantity_Length dy = ViewerTest::CurrentView()->Convert(Y_Motion - Y_ButtonPress);
+  Prs3d_TypeOfHLR aTypeOfHLR =
+    (!strcasecmp (argv[1], "algo")) ? Prs3d_TOH_Algo : Prs3d_TOH_PolyAlgo;
 
-  dy = -dy; // Xwindow Y axis is from top to Bottom
+  if (argc == 2)
+  {
+    AIS_ListOfInteractive aListOfShapes;
+    ViewerTest::GetAISContext()->DisplayedObjects (aListOfShapes);
+    ViewerTest::GetAISContext()->DefaultDrawer()->SetTypeOfHLR(aTypeOfHLR);
+    for (AIS_ListIteratorOfListOfInteractive anIter(aListOfShapes);
+      anIter.More(); anIter.Next())
+    {
+      Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(anIter.Value());
+      if (aShape.IsNull())
+        continue;
+      if (aShape->TypeOfHLR() != aTypeOfHLR)
+        aShape->SetTypeOfHLR (aTypeOfHLR);
+      if (MyHLRIsOn)
+        aShape->Redisplay();
+    }
+    ViewerTest::CurrentView()->Update();
+    return 0;
+  }
+  else
+  {
+    for (Standard_Integer i = 2; i < argc; ++i)
+    {
+      ViewerTest_DoubleMapOfInteractiveAndName& aMap = GetMapOfAIS();
+      TCollection_AsciiString aName (argv[i]);
 
-  ViewerTest::CurrentView()->Panning( dx, dy );
+      if (!aMap.IsBound2 (aName))
+      {
+        di << argv[0] << ":" << " Wrong shape name:" << aName.ToCString() << ".\n";
+        continue;
+      }
+      Handle(AIS_Shape) anAISObject =
+        Handle(AIS_Shape)::DownCast (aMap.Find2(aName));
+      if (anAISObject.IsNull())
+        continue;
+      anAISObject->SetTypeOfHLR (aTypeOfHLR);
+      if (MyHLRIsOn)
+        anAISObject->Redisplay();
+    }
+    ViewerTest::CurrentView()->Update();
+  }
 
-  X_ButtonPress = X_Motion;
-  Y_ButtonPress = Y_Motion;
+  return 0;
 }
 
 //==============================================================================
-//function : ProcessControlButton3Motion
-//purpose  : Rotation
+//function : FindViewIdByWindowHandle
+//purpose  : Find theView Id in the map of views by window handle
 //==============================================================================
-
-static void ProcessControlButton3Motion()
+#if defined(_WIN32) || defined(__WIN32__) || (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+TCollection_AsciiString FindViewIdByWindowHandle(const Aspect_Handle theWindowHandle)
 {
-  if ( Start_Rot ) ViewerTest::CurrentView()->Rotation( X_Motion, Y_Motion);
+  for (NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator
+       anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
+  {
+    Aspect_Handle aWindowHandle = GetWindowHandle(anIter.Value()->Window());
+    if (aWindowHandle == theWindowHandle)
+      return anIter.Key1();
+  }
+  return TCollection_AsciiString("");
 }
+#endif
 
 //==============================================================================
-//function : ProcessPointerMotion
-//purpose  : Rotation
+//function : ActivateView
+//purpose  : Make the view active
 //==============================================================================
 
-static void ProcessMotion()
+void ActivateView (const TCollection_AsciiString& theViewName)
 {
-  //pre-hilights detected objects at mouse position
+  const Handle(V3d_View) aView = ViewerTest_myViews.Find1(theViewName);
+  if (!aView.IsNull())
+  {
+    Handle(AIS_InteractiveContext) anAISContext = FindContextByView(aView);
+    if (!anAISContext.IsNull())
+    {
+      if (!ViewerTest::CurrentView().IsNull())
+      {
+        TCollection_AsciiString aTitle("3D View - ");
+        aTitle = aTitle + ViewerTest_myViews.Find2 (ViewerTest::CurrentView());
+        SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
+      }
 
-  Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
-  EM->MoveTo(X_Motion, Y_Motion);
+      ViewerTest::CurrentView (aView);
+      // Update degenerate mode
+      MyHLRIsOn = ViewerTest::CurrentView()->ComputedMode();
+      ViewerTest::SetAISContext (anAISContext);
+      TCollection_AsciiString aTitle = TCollection_AsciiString("3D View - ");
+      aTitle = aTitle + theViewName + "(*)";
+      SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
+#if defined(_WIN32) || defined(__WIN32__)
+      VT_GetWindow() = Handle(WNT_Window)::DownCast(ViewerTest::CurrentView()->Window());
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+      VT_GetWindow() = Handle(Cocoa_Window)::DownCast(ViewerTest::CurrentView()->Window());
+#else
+      VT_GetWindow() = Handle(Xw_Window)::DownCast(ViewerTest::CurrentView()->Window());
+#endif
+      SetDisplayConnection(ViewerTest::CurrentView()->Viewer()->Driver()->GetDisplayConnection());
+      ViewerTest::CurrentView()->Redraw();
+    }
+  }
 }
 
-
-void ViewerTest::GetMousePosition(Standard_Integer& Xpix,Standard_Integer& Ypix)
+//==============================================================================
+//function : RemoveView
+//purpose  :
+//==============================================================================
+void ViewerTest::RemoveView (const Handle(V3d_View)& theView,
+                             const Standard_Boolean  theToRemoveContext)
 {
-  Xpix = X_Motion;Ypix=Y_Motion;
+  if (!ViewerTest_myViews.IsBound2 (theView))
+  {
+    return;
+  }
+
+  const TCollection_AsciiString aViewName = ViewerTest_myViews.Find2 (theView);
+  RemoveView (aViewName, theToRemoveContext);
 }
 
 //==============================================================================
-//function : VAxo
-//purpose  : Switch to an Axonometric view
-//Draw arg : No args
+//function : RemoveView
+//purpose  : Close and remove view from display, clear maps if neccessary
 //==============================================================================
+void ViewerTest::RemoveView (const TCollection_AsciiString& theViewName, const Standard_Boolean isContextRemoved)
+{
+  if (!ViewerTest_myViews.IsBound1(theViewName))
+  {
+    cout << "Wrong view name\n";
+    return;
+  }
 
-static int VAxo(Draw_Interpretor& di, Standard_Integer , const char** )
-{ if ( ViewerTest::CurrentView().IsNull() ) {
-  di<<"La commande vinit n'a pas ete appele avant"<<"\n";
-  //  VInit(di, argc, argv);
-}
-
-ViewerTest::CurrentView()->SetProj(V3d_XposYnegZpos);
+  // Activate another view if it's active now
+  if (ViewerTest_myViews.Find1(theViewName) == ViewerTest::CurrentView())
+  {
+    if (ViewerTest_myViews.Extent() > 1)
+    {
+      TCollection_AsciiString aNewViewName;
+      for (NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)> :: Iterator
+           anIter(ViewerTest_myViews); anIter.More(); anIter.Next())
+        if (anIter.Key1() != theViewName)
+        {
+          aNewViewName = anIter.Key1();
+          break;
+        }
+        ActivateView (aNewViewName);
+    }
+    else
+    {
+      Handle(V3d_View) anEmptyView;
+#if defined(_WIN32) || defined(__WIN32__)
+      Handle(WNT_Window) anEmptyWindow;
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+      Handle(Cocoa_Window) anEmptyWindow;
+#else
+      Handle(Xw_Window) anEmptyWindow;
+#endif
+      VT_GetWindow() = anEmptyWindow;
+      ViewerTest::CurrentView (anEmptyView);
+      if (isContextRemoved)
+      {
+        Handle(AIS_InteractiveContext) anEmptyContext;
+        ViewerTest::SetAISContext(anEmptyContext);
+      }
+    }
+  }
 
-return 0;
-}
+  // Delete view
+  Handle(V3d_View) aView = ViewerTest_myViews.Find1(theViewName);
+  Handle(AIS_InteractiveContext) aCurrentContext = FindContextByView(aView);
 
-//==============================================================================
-//function : VTop
-//purpose  : Switch to a Top View
-//Draw arg : No args
-//==============================================================================
+  // Remove view resources
+  TheNISContext()->DetachView(Handle(NIS_View)::DownCast(aView));
+  ViewerTest_myViews.UnBind1(theViewName);
+  aView->Remove();
 
-static int VTop(Draw_Interpretor& di, Standard_Integer , const char** )
-{
+#if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+  XFlush (GetDisplayConnection()->GetDisplay());
+#endif
 
-  if ( ViewerTest::CurrentView().IsNull() ) {
-    di<<"La commande vinit n'a pas ete appele avant"<<"\n";
+  // Keep context opened only if the closed view is last to avoid
+  // unused empty contexts
+  if (!aCurrentContext.IsNull())
+  {
+    // Check if there are more difined views in the viewer
+    aCurrentContext->CurrentViewer()->InitDefinedViews();
+    if ((isContextRemoved || ViewerTest_myContexts.Size() != 1) && !aCurrentContext->CurrentViewer()->MoreDefinedViews())
+    {
+      // Remove driver if there is no viewers that use it
+      Standard_Boolean isRemoveDriver = Standard_True;
+      for(NCollection_DoubleMap<TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
+          anIter(ViewerTest_myContexts); anIter.More(); anIter.Next())
+      {
+        if (aCurrentContext != anIter.Key2() &&
+          aCurrentContext->CurrentViewer()->Driver() == anIter.Value()->CurrentViewer()->Driver())
+        {
+          isRemoveDriver = Standard_False;
+          break;
+        }
+      }
+      if(isRemoveDriver)
+      {
+        ViewerTest_myDrivers.UnBind2 (aCurrentContext->CurrentViewer()->Driver());
+      #if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+        #if TCL_MAJOR_VERSION  < 8
+        Tk_DeleteFileHandler((void*)XConnectionNumber(aCurrentContext->CurrentViewer()->Driver()->GetDisplayConnection()->GetDisplay()));
+        #else
+        Tk_DeleteFileHandler(XConnectionNumber(aCurrentContext->CurrentViewer()->Driver()->GetDisplayConnection()->GetDisplay()));
+        #endif
+      #endif
+      }
 
-    //  VInit(di, , argv);
+      ViewerTest_myContexts.UnBind2(aCurrentContext);
+    }
   }
-
-  ViewerTest::CurrentView()->SetProj(V3d_Zpos);
-  return 0;
+  cout << "3D View - " << theViewName << " was deleted.\n";
 
 }
 
 //==============================================================================
-//function : VHelp
-//purpose  : Dsiplay help on viewer Keyboead and mouse commands
-//Draw arg : No args
+//function : VClose
+//purpose  : Remove the view defined by its name
 //==============================================================================
 
-static int VHelp(Draw_Interpretor& di, Standard_Integer , const char** )
+static int VClose (Draw_Interpretor& /*theDi*/,
+                   Standard_Integer  theArgsNb,
+                   const char**      theArgVec)
 {
-
-  di << "Q : Quit the application" << "\n";
-
-  di << "========================="<<"\n";
-  di << "F : FitAll" << "\n";
-  di << "T : TopView" << "\n";
-  di << "A : AxonometricView" << "\n";
-  di << "R : ResetView" << "\n";
-
-  di << "========================="<<"\n";
-  di << "S : Shading" << "\n";
-  di << "W : Wireframe" << "\n";
-  di << "H : HidelLineRemoval" << "\n";
-
-  di << "========================="<<"\n";
-  di << "Selection mode "<<"\n";
-  di << "0 : Shape" <<"\n";
-  di << "1 : Vertex" <<"\n";
-  di << "2 : Edge" <<"\n";
-  di << "3 : Wire" <<"\n";
-  di << "4 : Face" <<"\n";
-  di << "5 : Shell" <<"\n";
-  di << "6 : Solid" <<"\n";
-  di << "7 : Compound" <<"\n";
-
-  di << "=========================="<<"\n";
-  di << "D : Remove Selected Object"<<"\n";
-  di << "=========================="<<"\n";
-
-  return 0;
-}
-
-Standard_Boolean IsDragged = Standard_False;
-
-Standard_Integer xx1, yy1, xx2, yy2;
-//the first and last point in viewer co-ordinates
-
-Standard_Boolean DragFirst;
-
-
-#ifdef WNT
-
-static Standard_Boolean Ppick = 0;
-static Standard_Integer Pargc = 0;
-static const char**           Pargv = NULL;
-
-
-static LRESULT WINAPI AdvViewerWindowProc( HWND hwnd,
-                                          UINT Msg,
-                                          WPARAM wParam,
-                                          LPARAM lParam )
-{
-  if ( !ViewerTest::CurrentView().IsNull() ) {
-
-    WPARAM fwKeys = wParam;
-
-    switch( Msg ) {
-
-    case WM_LBUTTONUP:
-      IsDragged = Standard_False;
-      if( !DragFirst )
+  NCollection_List<TCollection_AsciiString> aViewList;
+  if (theArgsNb > 1)
+  {
+    TCollection_AsciiString anArg (theArgVec[1]);
+    anArg.UpperCase();
+    if (anArg.IsEqual ("ALL")
+     || anArg.IsEqual ("*"))
+    {
+      for (NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator anIter (ViewerTest_myViews);
+           anIter.More(); anIter.Next())
       {
-        HDC hdc = GetDC( hwnd );
-        HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
-        SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
-        SetROP2( hdc, R2_NOT );
-        Rectangle( hdc, xx1, yy1, xx2, yy2 );
-        ReleaseDC( hwnd, hdc );
-
-        const Handle(ViewerTest_EventManager) EM =
-          ViewerTest::CurrentEventManager();
-        if ( fwKeys & MK_SHIFT )
-          EM->ShiftSelect( min( xx1, xx2 ), max( yy1, yy2 ),
-          max( xx1, xx2 ), min( yy1, yy2 ));
-        else
-          EM->Select( min( xx1, xx2 ), max( yy1, yy2 ),
-          max( xx1, xx2 ), min( yy1, yy2 ));
+        aViewList.Append (anIter.Key1());
       }
-      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
-
-    case WM_LBUTTONDOWN:
-      if( fwKeys == MK_LBUTTON || fwKeys == ( MK_LBUTTON | MK_SHIFT ) )
+      if (aViewList.IsEmpty())
       {
-        IsDragged = Standard_True;
-        DragFirst = Standard_True;
-        xx1 = LOWORD(lParam);
-        yy1 = HIWORD(lParam);
+        std::cout << "No view to close\n";
+        return 0;
       }
-      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
-
-      break;
-
-    case WM_MOUSEMOVE:
-      if( IsDragged )
+    }
+    else
+    {
+      ViewerTest_Names aViewName (theArgVec[1]);
+      if (!ViewerTest_myViews.IsBound1 (aViewName.GetViewName()))
       {
-        HDC hdc = GetDC( hwnd );
-
-        HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
-        SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
-        SetROP2( hdc, R2_NOT );
-
-        if( !DragFirst )
-          Rectangle( hdc, xx1, yy1, xx2, yy2 );
-
-        DragFirst = Standard_False;
-        xx2 = LOWORD(lParam);
-        yy2 = HIWORD(lParam);
-
-        Rectangle( hdc, xx1, yy1, xx2, yy2 );
-
-        SelectObject( hdc, anObj );
-
-        ReleaseDC( hwnd, hdc );
+        std::cerr << "The view with name '" << theArgVec[1] << "' does not exist\n";
+        return 1;
       }
-      else
-        return ViewerWindowProc( hwnd, Msg, wParam, lParam );
-      break;
-
-    default:
-      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+      aViewList.Append (aViewName.GetViewName());
     }
-    return 0;
   }
-  return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+  else
+  {
+    // close active view
+    if (ViewerTest::CurrentView().IsNull())
+    {
+      std::cerr << "No active view!\n";
+      return 1;
+    }
+    aViewList.Append (ViewerTest_myViews.Find2 (ViewerTest::CurrentView()));
+  }
+
+  Standard_Boolean toRemoveContext = (theArgsNb != 3 || Draw::Atoi (theArgVec[2]) != 1);
+  for (NCollection_List<TCollection_AsciiString>::Iterator anIter(aViewList);
+       anIter.More(); anIter.Next())
+  {
+    ViewerTest::RemoveView (anIter.Value(), toRemoveContext);
+  }
+
+  return 0;
 }
 
+//==============================================================================
+//function : VActivate
+//purpose  : Activate the view defined by its ID
+//==============================================================================
 
-static LRESULT WINAPI ViewerWindowProc( HWND hwnd,
-                                       UINT Msg,
-                                       WPARAM wParam,
-                                       LPARAM lParam )
+static int VActivate (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-  /*static Standard_Boolean Ppick = 0;
-  static Standard_Integer Pargc = 0;
-  static char**           Pargv = NULL;*/
-
-  static int Up = 1;
+  if (theArgsNb > 2)
+  {
+    theDi << theArgVec[0] << ": wrong number of command arguments.\n"
+    << "Usage: " << theArgVec[0] << " ViewID\n";
+    return 1;
+  }
+  if(theArgsNb == 1)
+  {
+    theDi.Eval("vviewlist");
+    return 0;
+  }
 
-  if ( !ViewerTest::CurrentView().IsNull() ) {
-    PAINTSTRUCT    ps;
+  TCollection_AsciiString aNameString(theArgVec[1]);
+  if ( strcasecmp( aNameString.ToCString(), "NONE" ) == 0 )
+  {
+    TCollection_AsciiString aTitle("3D View - ");
+    aTitle = aTitle + ViewerTest_myViews.Find2(ViewerTest::CurrentView());
+    SetWindowTitle (ViewerTest::CurrentView()->Window(), aTitle.ToCString());
+    Handle(V3d_View) anEmptyView;
+#if defined(_WIN32) || defined(__WIN32__)
+    Handle(WNT_Window) anEmptyWindow;
+#elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
+    Handle(Cocoa_Window) anEmptyWindow;
+#else
+    Handle(Xw_Window) anEmptyWindow;
+#endif
+    VT_GetWindow() = anEmptyWindow;
+    ViewerTest::CurrentView (anEmptyView);
+    ViewerTest::ResetEventManager();
+    theDi << theArgVec[0] << ": all views are inactive\n";
+    return 0;
+  }
 
-    switch( Msg ) {
-    case WM_CLOSE:
-      // do not destroy the window - just hide it!
-      VT_GetWindow()->Unmap();
-      return 0;
-    case WM_PAINT:
-      //cout << "\t WM_PAINT" << endl;
-      BeginPaint(hwnd, &ps);
-      EndPaint(hwnd, &ps);
-      ProcessExpose();
-      break;
+  ViewerTest_Names aViewNames(aNameString);
 
-    case WM_SIZE:
-      //cout << "\t WM_SIZE" << endl;
-      ProcessConfigure();
-      break;
+  // Check if this view exists in the viewer with the driver
+  if (!ViewerTest_myViews.IsBound1(aViewNames.GetViewName()))
+  {
+    theDi << "Wrong view name\n";
+    return 1;
+  }
 
-    case WM_KEYDOWN:
-      //cout << "\t WM_KEYDOWN " << (int) wParam << endl;
+  // Check if it is active already
+  if (ViewerTest::CurrentView() == ViewerTest_myViews.Find1(aViewNames.GetViewName()))
+  {
+    theDi << theArgVec[0] << ": the view is active already\n";
+    return 0;
+  }
 
-      if ( (wParam != VK_SHIFT) && (wParam != VK_CONTROL) ) {
-        char c[2];
-        c[0] = (char) wParam;
-        c[1] = '\0';
-        ProcessKeyPress( c);
-      }
-      break;
+  ActivateView (aViewNames.GetViewName());
+  return 0;
+}
 
-    case WM_LBUTTONUP:
-    case WM_MBUTTONUP:
-    case WM_RBUTTONUP:
-      //cout << "\t WM_xBUTTONUP" << endl;
-      Up = 1;
-      ProcessButtonRelease();
-      break;
+//==============================================================================
+//function : VViewList
+//purpose  : Print current list of views per viewer and graphic driver ID
+//           shared between viewers
+//==============================================================================
 
-    case WM_LBUTTONDOWN:
-    case WM_MBUTTONDOWN:
-    case WM_RBUTTONDOWN:
-      {
-        //cout << "\t WM_xBUTTONDOWN" << endl;
-        WPARAM fwKeys = wParam;
+static int VViewList (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
+{
+  if (theArgsNb > 2)
+  {
+    theDi << theArgVec[0] << ": Wrong number of command arguments\n"
+          << "Usage: " << theArgVec[0] << " name";
+    return 1;
+  }
+  if (ViewerTest_myContexts.Size() < 1)
+    return 0;
 
-        Up = 0;
+  Standard_Boolean isTreeView =
+    (( theArgsNb==1 ) || ( strcasecmp( theArgVec[1], "long" ) != 0 ));
 
-        X_ButtonPress = LOWORD(lParam);
-        Y_ButtonPress = HIWORD(lParam);
+  if (isTreeView)
+    theDi << theArgVec[0] <<":\n";
 
-        if ( Msg == WM_LBUTTONDOWN) {
-          if(fwKeys & MK_CONTROL) {
-            Ppick = ProcessButton1Press( Pargc, Pargv, Ppick,  (fwKeys & MK_SHIFT) );
-          } else
-            ProcessButton1Press( Pargc, Pargv, Ppick,  (fwKeys & MK_SHIFT) );
-        }
-        else if ( Msg == WM_RBUTTONDOWN ) {
-          // Start rotation
-          ProcessButton3Press( );
-        }
-      }
-      break;
+    for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
+      aDriverIter(ViewerTest_myDrivers); aDriverIter.More(); aDriverIter.Next())
+    {
+      if (isTreeView)
+        theDi << aDriverIter.Key1() << ":\n";
 
-    case WM_MOUSEMOVE:
+      for (NCollection_DoubleMap <TCollection_AsciiString, Handle(AIS_InteractiveContext)>::Iterator
+        aContextIter(ViewerTest_myContexts); aContextIter.More(); aContextIter.Next())
       {
-        //cout << "\t WM_MOUSEMOVE" << endl;
-        WPARAM fwKeys = wParam;
-        X_Motion = LOWORD(lParam);
-        Y_Motion = HIWORD(lParam);
-
-        if ( Up &&
-          fwKeys & ( MK_LBUTTON|MK_MBUTTON|MK_RBUTTON ) ) {
-            Up = 0;
-            X_ButtonPress = LOWORD(lParam);
-            Y_ButtonPress = HIWORD(lParam);
-
-            if ( fwKeys & MK_RBUTTON ) {
-              // Start rotation
-              ProcessButton3Press();
-            }
+        if (aContextIter.Key1().Search(aDriverIter.Key1()) != -1)
+        {
+          if (isTreeView)
+          {
+            TCollection_AsciiString aContextName(aContextIter.Key1());
+            theDi << " " << aContextName.Split(aDriverIter.Key1().Length() + 1) << ":" << "\n";
           }
 
-          if ( fwKeys & MK_CONTROL ) {
-            if ( fwKeys & MK_LBUTTON ) {
-              ProcessControlButton1Motion();
-            }
-            else if ( fwKeys & MK_MBUTTON ||
-              ((fwKeys&MK_LBUTTON) &&
-              (fwKeys&MK_RBUTTON) ) ){
-                ProcessControlButton2Motion();
+          for (NCollection_DoubleMap <TCollection_AsciiString, Handle(V3d_View)>::Iterator
+            aViewIter(ViewerTest_myViews); aViewIter.More(); aViewIter.Next())
+          {
+            if (aViewIter.Key1().Search(aContextIter.Key1()) != -1)
+            {
+              TCollection_AsciiString aViewName(aViewIter.Key1());
+              if (isTreeView)
+              {
+                if (aViewIter.Value() == ViewerTest::CurrentView())
+                  theDi << "  " << aViewName.Split(aContextIter.Key1().Length() + 1) << "(*)" << "\n";
+                else
+                  theDi << "  " << aViewName.Split(aContextIter.Key1().Length() + 1) << "\n";
               }
-            else if ( fwKeys & MK_RBUTTON ) {
-              ProcessControlButton3Motion();
-            }
-          }
-#ifdef BUG
-          else if ( fwKeys & MK_SHIFT ) {
-            if ( fwKeys & MK_MBUTTON ||
-              ((fwKeys&MK_LBUTTON) &&
-              (fwKeys&MK_RBUTTON) ) ) {
-                cout << "ProcessZClipMotion()" << endl;
-                ProcessZClipMotion();
+              else
+              {
+                theDi << aViewName << " ";
               }
-          }
-#endif
-          else
-            if (( fwKeys & MK_MBUTTON || ((fwKeys&MK_LBUTTON) && (fwKeys&MK_RBUTTON) ) )){
-              ProcessZClipMotion();
-            }
-            else {
-              ProcessMotion();
             }
+          }
+        }
       }
-      break;
-
-    default:
-      return( DefWindowProc( hwnd, Msg, wParam, lParam ));
     }
-    return 0L;
-  }
-
-  return DefWindowProc( hwnd, Msg, wParam, lParam );
+  return 0;
 }
 
-
-
-
 //==============================================================================
-//function : ViewerMainLoop
-//purpose  : Get a Event on the view and dispatch it
+//function : VT_ProcessKeyPress
+//purpose  : Handle KeyPress event from a CString
 //==============================================================================
-
-
-static int ViewerMainLoop(Standard_Integer argc, const char** argv)
+void VT_ProcessKeyPress (const char* buf_ret)
 {
+  //cout << "KeyPress" << endl;
+  const Handle(V3d_View) aView = ViewerTest::CurrentView();
+  const Handle(NIS_View) aNisView = Handle(NIS_View)::DownCast (aView);
+  // Letter in alphabetic order
 
-  //cout << "No yet implemented on WNT" << endl;
-  /*static Standard_Boolean Ppick = 0;
-  static Standard_Integer Pargc = 0;
-  static char**           Pargv = NULL;*/
-
-  //Ppick = (argc > 0)? -1 : 0;
-  Ppick = (argc > 0)? 1 : 0;
-  Pargc = argc;
-  Pargv = argv;
-
-  if ( Ppick ) {
-    MSG msg;
-    msg.wParam = 1;
-
-    cout << "Start picking" << endl;
-
-    //while ( Ppick == -1 ) {
-    while ( Ppick == 1 ) {
-      // Wait for a ProcessButton1Press() to toggle pick to 1 or 0
-      if (GetMessage(&msg, NULL, 0, 0) ) {
-        TranslateMessage(&msg);
-        DispatchMessage(&msg);
+  if (!strcasecmp (buf_ret, "A"))
+  {
+    // AXO
+    aView->SetProj(V3d_XposYnegZpos);
+  }
+  else if (!strcasecmp (buf_ret, "D"))
+  {
+    // Reset
+    aView->Reset();
+  }
+  else if (!strcasecmp (buf_ret, "F"))
+  {
+    // FitAll
+    if (aNisView.IsNull())
+      aView->FitAll();
+    else
+      aNisView->FitAll3d();
+  }
+  else if (!strcasecmp (buf_ret, "H"))
+  {
+    // HLR
+    cout << "HLR" << endl;
+    aView->SetComputedMode (!aView->ComputedMode());
+    MyHLRIsOn = aView->ComputedMode();
+  }
+  else if (!strcasecmp (buf_ret, "P"))
+  {
+    // Type of HLR
+    Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+    if (aContext->DefaultDrawer()->TypeOfHLR() == Prs3d_TOH_Algo)
+      aContext->DefaultDrawer()->SetTypeOfHLR(Prs3d_TOH_PolyAlgo);
+    else
+      aContext->DefaultDrawer()->SetTypeOfHLR(Prs3d_TOH_Algo);
+    if (aContext->NbCurrents()==0 || aContext->NbSelected() == 0)
+    {
+      AIS_ListOfInteractive aListOfShapes;
+      aContext->DisplayedObjects(aListOfShapes);
+      for (AIS_ListIteratorOfListOfInteractive anIter(aListOfShapes);
+        anIter.More(); anIter.Next())
+      {
+        Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(anIter.Value());
+        if (aShape.IsNull())
+          continue;
+        if (aShape->TypeOfHLR() == Prs3d_TOH_PolyAlgo)
+          aShape->SetTypeOfHLR (Prs3d_TOH_Algo);
+        else
+          aShape->SetTypeOfHLR (Prs3d_TOH_PolyAlgo);
+        aShape->Redisplay();
+      }
+    }
+    else
+    {
+      for (aContext->InitCurrent();aContext->MoreCurrent();aContext->NextCurrent())
+      {
+        Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(aContext->Current());
+        if (aShape.IsNull())
+          continue;
+        if(aShape->TypeOfHLR() == Prs3d_TOH_PolyAlgo)
+          aShape->SetTypeOfHLR (Prs3d_TOH_Algo);
+        else
+          aShape->SetTypeOfHLR (Prs3d_TOH_PolyAlgo);
+        aShape->Redisplay();
       }
     }
 
-    cout << "Picking done" << endl;
+    aContext->UpdateCurrentViewer();
+
   }
+  else if (!strcasecmp (buf_ret, "S"))
+  {
+    std::cout << "setup Shaded display mode" << std::endl;
 
-  return Ppick;
+    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
+    if(Ctx->NbCurrents()==0 ||
+      Ctx->NbSelected()==0)
+      Ctx->SetDisplayMode(AIS_Shaded);
+    else{
+      if(Ctx->HasOpenedContext()){
+        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
+          Ctx->SetDisplayMode(Ctx->Interactive(),1,Standard_False);
+      }
+      else{
+        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
+          Ctx->SetDisplayMode(Ctx->Current(),1,Standard_False);
+      }
+      Ctx->UpdateCurrentViewer();
+    }
+  }
+  else if (!strcasecmp (buf_ret, "U"))
+  {
+    // Unset display mode
+    std::cout << "reset display mode to defaults" << std::endl;
+
+    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
+    if(Ctx->NbCurrents()==0 ||
+      Ctx->NbSelected()==0)
+      Ctx->SetDisplayMode(AIS_WireFrame);
+    else{
+      if(Ctx->HasOpenedContext()){
+        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
+          Ctx->UnsetDisplayMode(Ctx->Interactive(),Standard_False);
+      }
+      else{
+        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
+          Ctx->UnsetDisplayMode(Ctx->Current(),Standard_False);
+      }
+      Ctx->UpdateCurrentViewer();
+    }
+
+  }
+  else if (!strcasecmp (buf_ret, "T"))
+  {
+    // Top
+    aView->SetProj(V3d_Zpos);
+  }
+  else if (!strcasecmp (buf_ret, "B"))
+  {
+    // Bottom
+    aView->SetProj(V3d_Zneg);
+  }
+  else if (!strcasecmp (buf_ret, "L"))
+  {
+    // Left
+    aView->SetProj(V3d_Xneg);
+  }
+  else if (!strcasecmp (buf_ret, "R"))
+  {
+    // Right
+    aView->SetProj(V3d_Xpos);
+  }
+  else if (!strcasecmp (buf_ret, "W"))
+  {
+    std::cout << "setup WireFrame display mode" << std::endl;
+    Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
+    if(Ctx->NbCurrents()==0 ||
+      Ctx->NbSelected()==0)
+      Ctx->SetDisplayMode(AIS_WireFrame);
+    else{
+      if(Ctx->HasOpenedContext()){
+        for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
+          Ctx->SetDisplayMode(Ctx->Interactive(),0,Standard_False);
+      }
+      else{
+        for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
+          Ctx->SetDisplayMode(Ctx->Current(),0,Standard_False);
+      }
+      Ctx->UpdateCurrentViewer();
+    }
+  }
+  else if (!strcasecmp (buf_ret, "Z"))
+  {
+    // ZCLIP
+    if ( ZClipIsOn ) {
+      cout << "ZClipping OFF" << endl;
+      ZClipIsOn = 0;
+
+      aView->SetZClippingType(V3d_OFF);
+      aView->Redraw();
+    }
+    else {
+      cout << "ZClipping ON" << endl;
+      ZClipIsOn = 1;
+
+      aView->SetZClippingType(V3d_FRONT);
+      aView->Redraw();
+    }
+  }
+  else if (!strcasecmp (buf_ret, ","))
+  {
+    ViewerTest::GetAISContext()->HilightNextDetected(ViewerTest::CurrentView());
+  }
+  else if (!strcasecmp (buf_ret, "."))
+  {
+    ViewerTest::GetAISContext()->HilightPreviousDetected(ViewerTest::CurrentView());
+  }
+  else if (*buf_ret == THE_KEY_DELETE)
+  {
+    Handle(AIS_InteractiveContext) aCtx = ViewerTest::GetAISContext();
+    if (!aCtx.IsNull()
+     && aCtx->NbCurrents() > 0
+     && aCtx->NbSelected() > 0)
+    {
+      Draw_Interprete ("verase");
+    }
+  }
+  else
+  {
+    // Number
+    Standard_Integer Num = Draw::Atoi(buf_ret);
+    if(Num>=0 && Num<=7)
+      ViewerTest::StandardModeActivation(Num);
+  }
 }
 
+//==============================================================================
+//function : VT_ProcessExpose
+//purpose  : Redraw the View on an Expose Event
+//==============================================================================
+void VT_ProcessExpose()
+{
+  Handle(V3d_View) aView3d = ViewerTest::CurrentView();
+  if (!aView3d.IsNull())
+  {
+    aView3d->Redraw();
+  }
+}
 
-#else
+//==============================================================================
+//function : VT_ProcessConfigure
+//purpose  : Resize the View on an Configure Event
+//==============================================================================
+void VT_ProcessConfigure()
+{
+  Handle(V3d_View) aView3d = ViewerTest::CurrentView();
+  if (aView3d.IsNull())
+  {
+    return;
+  }
 
-int min( int a, int b )
+  aView3d->MustBeResized();
+  aView3d->Update();
+  aView3d->Redraw();
+}
+
+//==============================================================================
+//function : VT_ProcessButton1Press
+//purpose  : Picking
+//==============================================================================
+Standard_Boolean VT_ProcessButton1Press (Standard_Integer ,
+                                         const char**     theArgVec,
+                                         Standard_Boolean theToPick,
+                                         Standard_Boolean theIsShift)
 {
-  if( a<b )
-    return a;
+  if (theToPick)
+  {
+    Standard_Real X, Y, Z;
+    ViewerTest::CurrentView()->Convert (X_Motion, Y_Motion, X, Y, Z);
+
+    Draw::Set (theArgVec[1], X);
+    Draw::Set (theArgVec[2], Y);
+    Draw::Set (theArgVec[3], Z);
+  }
+
+  if (theIsShift)
+  {
+    ViewerTest::CurrentEventManager()->ShiftSelect();
+  }
   else
-    return b;
+  {
+    ViewerTest::CurrentEventManager()->Select();
+  }
+
+  return Standard_False;
 }
 
-int max( int a, int b )
+//==============================================================================
+//function : VT_ProcessButton1Release
+//purpose  : End selecting
+//==============================================================================
+void VT_ProcessButton1Release (Standard_Boolean theIsShift)
 {
-  if( a>b )
-    return a;
-  else
-    return b;
+  if (IsDragged)
+  {
+    IsDragged = Standard_False;
+    Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
+    if (theIsShift)
+    {
+      EM->ShiftSelect (Min (X_ButtonPress, X_Motion), Max (Y_ButtonPress, Y_Motion),
+                       Max (X_ButtonPress, X_Motion), Min (Y_ButtonPress, Y_Motion));
+    }
+    else
+    {
+      EM->Select (Min (X_ButtonPress, X_Motion), Max (Y_ButtonPress, Y_Motion),
+                  Max (X_ButtonPress, X_Motion), Min (Y_ButtonPress, Y_Motion));
+    }
+  }
 }
 
-int ViewerMainLoop(Standard_Integer argc, const char** argv)
+//==============================================================================
+//function : VT_ProcessButton3Press
+//purpose  : Start Rotation
+//==============================================================================
+void VT_ProcessButton3Press()
+{
+  Start_Rot = 1;
+  if (MyHLRIsOn)
+  {
+    ViewerTest::CurrentView()->SetComputedMode (Standard_False);
+  }
+  ViewerTest::CurrentView()->StartRotation( X_ButtonPress, Y_ButtonPress );
+}
 
-{ Standard_Boolean pick = argc > 0;
+//==============================================================================
+//function : VT_ProcessButton3Release
+//purpose  : End rotation
+//==============================================================================
+void VT_ProcessButton3Release()
+{
+  if (Start_Rot)
+  {
+    Start_Rot = 0;
+    if (MyHLRIsOn)
+    {
+      ViewerTest::CurrentView()->SetComputedMode (Standard_True);
+    }
+  }
+}
 
-// X11 Event loop
+//==============================================================================
+//function : ProcessZClipMotion
+//purpose  : Zoom
+//==============================================================================
 
-static XEvent report;
+void ProcessZClipMotion()
+{
+  Handle(V3d_View)  a3DView = ViewerTest::CurrentView();
+  if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
+    static Standard_Real CurZPos = 0.;
 
-XNextEvent( display, &report );
-//    cout << "rep type = " << report.type << endl;
-//    cout << "rep button = " << report.xbutton.button << endl;
+    //Quantity_Length VDX, VDY;
+    //a3DView->Size(VDX,VDY);
+    //Standard_Real VDZ = a3DView->ZSize();
+    //printf("View size (%lf,%lf,%lf)\n", VDX, VDY, VDZ);
 
-switch ( report.type ) {
-      case Expose:
-        {
-          ProcessExpose();
-        }
-        break;
-      case ConfigureNotify:
-        {
-          ProcessConfigure();
-        }
-        break;
-      case KeyPress:
-        {
+    Quantity_Length dx = a3DView->Convert(X_Motion - X_ButtonPress);
+
+    // Front = Depth + width/2.
+    Standard_Real D = 0.5;
+    Standard_Real W = 0.1;
+
+    CurZPos += (dx);
+
+    D += CurZPos;
+
+    //printf("dx %lf Depth %lf Width %lf\n", dx, D, W);
+
+    a3DView->SetZClippingType(V3d_OFF);
+    a3DView->SetZClippingDepth(D);
+    a3DView->SetZClippingWidth(W);
+    a3DView->SetZClippingType(V3d_FRONT);
+
+    a3DView->Redraw();
+
+    X_ButtonPress = X_Motion;
+    Y_ButtonPress = Y_Motion;
+  }
+}
+
+//==============================================================================
+//function : ProcessControlButton1Motion
+//purpose  : Zoom
+//==============================================================================
+
+#if defined(_WIN32) || ! defined(__APPLE__) || defined(MACOSX_USE_GLX)
+static void ProcessControlButton1Motion()
+{
+  ViewerTest::CurrentView()->Zoom( X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion);
+
+  X_ButtonPress = X_Motion;
+  Y_ButtonPress = Y_Motion;
+}
+#endif
+
+//==============================================================================
+//function : VT_ProcessControlButton2Motion
+//purpose  : Panning
+//==============================================================================
+void VT_ProcessControlButton2Motion()
+{
+  Standard_Integer aDx = X_Motion - X_ButtonPress;
+  Standard_Integer aDy = Y_Motion - Y_ButtonPress;
+
+  aDy = -aDy; // Xwindow Y axis is from top to Bottom
+
+  ViewerTest::CurrentView()->Pan (aDx, aDy);
+
+  X_ButtonPress = X_Motion;
+  Y_ButtonPress = Y_Motion;
+}
+
+//==============================================================================
+//function : VT_ProcessControlButton3Motion
+//purpose  : Rotation
+//==============================================================================
+void VT_ProcessControlButton3Motion()
+{
+  if (Start_Rot)
+  {
+    ViewerTest::CurrentView()->Rotation (X_Motion, Y_Motion);
+  }
+}
+
+//==============================================================================
+//function : VT_ProcessMotion
+//purpose  :
+//==============================================================================
+void VT_ProcessMotion()
+{
+  //pre-hilights detected objects at mouse position
+
+  Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
+  EM->MoveTo(X_Motion, Y_Motion);
+}
+
+
+void ViewerTest::GetMousePosition(Standard_Integer& Xpix,Standard_Integer& Ypix)
+{
+  Xpix = X_Motion;Ypix=Y_Motion;
+}
+
+//==============================================================================
+//function : ViewProject: implements VAxo, VTop, VLeft, ...
+//purpose  : Switches to an axonometric, top, left and other views
+//==============================================================================
+
+static int ViewProject(Draw_Interpretor& di, const V3d_TypeOfOrientation ori)
+{
+  if ( ViewerTest::CurrentView().IsNull() )
+  {
+    di<<"Call vinit before this command, please"<<"\n";
+    return 1;
+  }
+
+  ViewerTest::CurrentView()->SetProj(ori);
+  return 0;
+}
+
+//==============================================================================
+//function : VAxo
+//purpose  : Switch to an Axonometric view
+//Draw arg : No args
+//==============================================================================
+
+static int VAxo(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_XposYnegZpos);
+}
+
+//==============================================================================
+//function : VTop
+//purpose  : Switch to a Top View
+//Draw arg : No args
+//==============================================================================
+
+static int VTop(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Zpos);
+}
+
+//==============================================================================
+//function : VBottom
+//purpose  : Switch to a Bottom View
+//Draw arg : No args
+//==============================================================================
+
+static int VBottom(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Zneg);
+}
+
+//==============================================================================
+//function : VLeft
+//purpose  : Switch to a Left View
+//Draw arg : No args
+//==============================================================================
+
+static int VLeft(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Ypos);
+}
+
+//==============================================================================
+//function : VRight
+//purpose  : Switch to a Right View
+//Draw arg : No args
+//==============================================================================
+
+static int VRight(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Yneg);
+}
+
+//==============================================================================
+//function : VFront
+//purpose  : Switch to a Front View
+//Draw arg : No args
+//==============================================================================
+
+static int VFront(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Xpos);
+}
+
+//==============================================================================
+//function : VBack
+//purpose  : Switch to a Back View
+//Draw arg : No args
+//==============================================================================
+
+static int VBack(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+  return ViewProject(di, V3d_Xneg);
+}
+
+//==============================================================================
+//function : VHelp
+//purpose  : Dsiplay help on viewer Keyboead and mouse commands
+//Draw arg : No args
+//==============================================================================
+
+static int VHelp(Draw_Interpretor& di, Standard_Integer , const char** )
+{
+
+  di << "Q : Quit the application" << "\n";
+
+  di << "========================="<<"\n";
+  di << "F : FitAll" << "\n";
+  di << "T : TopView" << "\n";
+  di << "B : BottomView" << "\n";
+  di << "R : RightView" << "\n";
+  di << "L : LeftView" << "\n";
+  di << "A : AxonometricView" << "\n";
+  di << "D : ResetView" << "\n";
+
+  di << "========================="<<"\n";
+  di << "S : Shading" << "\n";
+  di << "W : Wireframe" << "\n";
+  di << "H : HidelLineRemoval" << "\n";
+  di << "U : Unset display mode" << "\n";
+  di << "Delete : Remove selection from viewer" << "\n";
+
+  di << "========================="<<"\n";
+  di << "Selection mode "<<"\n";
+  di << "0 : Shape" <<"\n";
+  di << "1 : Vertex" <<"\n";
+  di << "2 : Edge" <<"\n";
+  di << "3 : Wire" <<"\n";
+  di << "4 : Face" <<"\n";
+  di << "5 : Shell" <<"\n";
+  di << "6 : Solid" <<"\n";
+  di << "7 : Compound" <<"\n";
+
+  di << "========================="<<"\n";
+  di << "Z : Switch Z clipping On/Off" << "\n";
+  di << ", : Hilight next detected" << "\n";
+  di << ". : Hilight previous detected" << "\n";
+
+  return 0;
+}
+
+#ifdef WNT
+
+static Standard_Boolean Ppick = 0;
+static Standard_Integer Pargc = 0;
+static const char**           Pargv = NULL;
+
+
+static LRESULT WINAPI AdvViewerWindowProc( HWND hwnd,
+                                          UINT Msg,
+                                          WPARAM wParam,
+                                          LPARAM lParam )
+{
+  if (!ViewerTest_myViews.IsEmpty()) {
+
+    WPARAM fwKeys = wParam;
+
+    switch( Msg ) {
+    case WM_CLOSE:
+       {
+         // Delete view from map of views
+         ViewerTest::RemoveView(FindViewIdByWindowHandle(hwnd));
+         return 0;
+       }
+       break;
+    case WM_ACTIVATE:
+      if(LOWORD(wParam) == WA_CLICKACTIVE || LOWORD(wParam) == WA_ACTIVE
+        || ViewerTest::CurrentView().IsNull())
+      {
+        // Activate inactive window
+        if(GetWindowHandle(VT_GetWindow()) != hwnd)
+        {
+          ActivateView (FindViewIdByWindowHandle(hwnd));
+        }
+      }
+      break;
+    case WM_LBUTTONUP:
+      if (!DragFirst)
+      {
+        HDC hdc = GetDC( hwnd );
+        SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
+        SetROP2( hdc, R2_NOT );
+        Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
+        ReleaseDC( hwnd, hdc );
+        VT_ProcessButton1Release (fwKeys & MK_SHIFT);
+      }
+      IsDragged = Standard_False;
+      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+
+    case WM_LBUTTONDOWN:
+      if( fwKeys == MK_LBUTTON || fwKeys == ( MK_LBUTTON | MK_SHIFT ) )
+      {
+        IsDragged = Standard_True;
+        DragFirst = Standard_True;
+        X_ButtonPress = LOWORD(lParam);
+        Y_ButtonPress = HIWORD(lParam);
+      }
+      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+
+      break;
+
+    case WM_MOUSEMOVE:
+      if( IsDragged )
+      {
+        HDC hdc = GetDC( hwnd );
+
+        HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
+        SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
+        SetROP2( hdc, R2_NOT );
+
+        if( !DragFirst )
+          Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
+
+        DragFirst = Standard_False;
+        X_Motion = LOWORD(lParam);
+        Y_Motion = HIWORD(lParam);
+
+        Rectangle( hdc, X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion );
+
+        SelectObject( hdc, anObj );
+
+        ReleaseDC( hwnd, hdc );
+      }
+      else
+        return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+      break;
+
+    default:
+      return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+    }
+    return 0;
+  }
+  return ViewerWindowProc( hwnd, Msg, wParam, lParam );
+}
+
+
+static LRESULT WINAPI ViewerWindowProc( HWND hwnd,
+                                       UINT Msg,
+                                       WPARAM wParam,
+                                       LPARAM lParam )
+{
+  static int Up = 1;
+
+  if ( !ViewerTest::CurrentView().IsNull() ) {
+    PAINTSTRUCT    ps;
+
+    switch( Msg ) {
+    case WM_PAINT:
+      BeginPaint(hwnd, &ps);
+      EndPaint(hwnd, &ps);
+      VT_ProcessExpose();
+      break;
+
+    case WM_SIZE:
+      VT_ProcessConfigure();
+      break;
+
+    case WM_KEYDOWN:
+      if ((wParam != VK_SHIFT) && (wParam != VK_CONTROL))
+      {
+        char c[2];
+        c[0] = (char) wParam;
+        c[1] = '\0';
+        if (wParam == VK_DELETE)
+        {
+          c[0] = THE_KEY_DELETE;
+        }
+        VT_ProcessKeyPress (c);
+      }
+      break;
+
+    case WM_LBUTTONUP:
+    case WM_MBUTTONUP:
+    case WM_RBUTTONUP:
+      Up = 1;
+      VT_ProcessButton3Release();
+      break;
+
+    case WM_LBUTTONDOWN:
+    case WM_MBUTTONDOWN:
+    case WM_RBUTTONDOWN:
+      {
+        WPARAM fwKeys = wParam;
+
+        Up = 0;
+
+        X_ButtonPress = LOWORD(lParam);
+        Y_ButtonPress = HIWORD(lParam);
+
+        if (Msg == WM_LBUTTONDOWN)
+        {
+          if (fwKeys & MK_CONTROL)
+          {
+            Ppick = VT_ProcessButton1Press (Pargc, Pargv, Ppick, (fwKeys & MK_SHIFT));
+          }
+          else
+          {
+            VT_ProcessButton1Press (Pargc, Pargv, Ppick, (fwKeys & MK_SHIFT));
+          }
+        }
+        else if (Msg == WM_RBUTTONDOWN)
+        {
+          // Start rotation
+          VT_ProcessButton3Press();
+        }
+      }
+      break;
+
+    case WM_MOUSEMOVE:
+      {
+        //cout << "\t WM_MOUSEMOVE" << endl;
+        WPARAM fwKeys = wParam;
+        X_Motion = LOWORD(lParam);
+        Y_Motion = HIWORD(lParam);
+
+        if ( Up &&
+          fwKeys & ( MK_LBUTTON|MK_MBUTTON|MK_RBUTTON ) ) {
+            Up = 0;
+            X_ButtonPress = LOWORD(lParam);
+            Y_ButtonPress = HIWORD(lParam);
+
+            if ( fwKeys & MK_RBUTTON ) {
+              // Start rotation
+              VT_ProcessButton3Press();
+            }
+          }
+
+          if ( fwKeys & MK_CONTROL ) {
+            if ( fwKeys & MK_LBUTTON ) {
+              ProcessControlButton1Motion();
+            }
+            else if ( fwKeys & MK_MBUTTON ||
+              ((fwKeys&MK_LBUTTON) &&
+              (fwKeys&MK_RBUTTON) ) ){
+                VT_ProcessControlButton2Motion();
+              }
+            else if ( fwKeys & MK_RBUTTON ) {
+              VT_ProcessControlButton3Motion();
+            }
+          }
+#ifdef BUG
+          else if ( fwKeys & MK_SHIFT ) {
+            if ( fwKeys & MK_MBUTTON ||
+              ((fwKeys&MK_LBUTTON) &&
+              (fwKeys&MK_RBUTTON) ) ) {
+                cout << "ProcessZClipMotion()" << endl;
+                ProcessZClipMotion();
+              }
+          }
+#endif
+          else if (GetWindowHandle (VT_GetWindow()) == hwnd)
+          {
+            if ((fwKeys & MK_MBUTTON
+            || ((fwKeys & MK_LBUTTON) && (fwKeys & MK_RBUTTON))))
+            {
+              ProcessZClipMotion();
+            }
+            else
+            {
+              VT_ProcessMotion();
+            }
+          }
+      }
+      break;
+
+    default:
+      return( DefWindowProc( hwnd, Msg, wParam, lParam ));
+    }
+    return 0L;
+  }
+
+  return DefWindowProc( hwnd, Msg, wParam, lParam );
+}
+
+
+
+
+//==============================================================================
+//function : ViewerMainLoop
+//purpose  : Get a Event on the view and dispatch it
+//==============================================================================
+
+
+int ViewerMainLoop(Standard_Integer argc, const char** argv)
+{
+  Ppick = (argc > 0)? 1 : 0;
+  Pargc = argc;
+  Pargv = argv;
+
+  if ( Ppick ) {
+    MSG msg;
+    msg.wParam = 1;
+
+    cout << "Start picking" << endl;
+
+    while ( Ppick == 1 ) {
+      // Wait for a VT_ProcessButton1Press() to toggle pick to 1 or 0
+      if (GetMessage(&msg, NULL, 0, 0) ) {
+        TranslateMessage(&msg);
+        DispatchMessage(&msg);
+      }
+    }
+
+    cout << "Picking done" << endl;
+  }
+
+  return Ppick;
+}
+
+#elif !defined(__APPLE__) || defined(MACOSX_USE_GLX)
+
+int min( int a, int b )
+{
+  if( a<b )
+    return a;
+  else
+    return b;
+}
+
+int max( int a, int b )
+{
+  if( a>b )
+    return a;
+  else
+    return b;
+}
+
+int ViewerMainLoop(Standard_Integer argc, const char** argv)
+
+{
+  static XEvent aReport;
+  Standard_Boolean pick = argc > 0;
+  Display *aDisplay = GetDisplayConnection()->GetDisplay();
+  XNextEvent (aDisplay, &aReport);
+
+  // Handle event for the chosen display connection
+  switch (aReport.type) {
+      case ClientMessage:
+        {
+          if((Atom)aReport.xclient.data.l[0] == GetDisplayConnection()->GetAtom(Aspect_XA_DELETE_WINDOW))
+          {
+            // Close the window
+            ViewerTest::RemoveView(FindViewIdByWindowHandle (aReport.xclient.window));
+          }
+        }
+        return 0;
+     case FocusIn:
+      {
+         // Activate inactive view
+         Window aWindow = GetWindowHandle(VT_GetWindow());
+         if(aWindow != aReport.xfocus.window)
+         {
+           ActivateView (FindViewIdByWindowHandle (aReport.xfocus.window));
+         }
+      }
+      break;
+      case Expose:
+        {
+          VT_ProcessExpose();
+        }
+        break;
+      case ConfigureNotify:
+        {
+          VT_ProcessConfigure();
+        }
+        break;
+      case KeyPress:
+        {
+
+          KeySym ks_ret ;
+          char buf_ret[11] ;
+          int ret_len ;
+          XComposeStatus status_in_out;
+
+          ret_len = XLookupString( ( XKeyEvent *)&aReport ,
+            (char *) buf_ret , 10 ,
+            &ks_ret , &status_in_out ) ;
+
+
+          buf_ret[ret_len] = '\0' ;
+
+          if (ret_len)
+          {
+            VT_ProcessKeyPress (buf_ret);
+          }
+        }
+        break;
+      case ButtonPress:
+        {
+          X_ButtonPress = aReport.xbutton.x;
+          Y_ButtonPress = aReport.xbutton.y;
+
+          if (aReport.xbutton.button == Button1)
+          {
+            if (aReport.xbutton.state & ControlMask)
+            {
+              pick = VT_ProcessButton1Press (argc, argv, pick, (aReport.xbutton.state & ShiftMask));
+            }
+            else
+            {
+              IsDragged = Standard_True;
+              DragFirst = Standard_True;
+            }
+          }
+          else if (aReport.xbutton.button == Button3)
+          {
+            // Start rotation
+            VT_ProcessButton3Press();
+          }
+        }
+        break;
+      case ButtonRelease:
+        {
+          if( IsDragged )
+          {
+            if( !DragFirst )
+            {
+              Aspect_Handle aWindow = VT_GetWindow()->XWindow();
+              GC gc = XCreateGC( aDisplay, aWindow, 0, 0 );
+              XDrawRectangle( aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
+            }
+
+            Handle( AIS_InteractiveContext ) aContext = ViewerTest::GetAISContext();
+            if( aContext.IsNull() )
+            {
+              cout << "The context is null. Please use vinit before createmesh" << endl;
+              return 0;
+            }
+
+            Standard_Boolean ShiftPressed = ( aReport.xbutton.state & ShiftMask );
+            if( aReport.xbutton.button==1 )
+              if( DragFirst )
+                if( ShiftPressed )
+                {
+                  aContext->ShiftSelect();
+                }
+                else
+                {
+                  aContext->Select();
+                }
+              else
+                if( ShiftPressed )
+                {
+                  aContext->ShiftSelect( min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ),
+                    max( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
+                    ViewerTest::CurrentView());
+                }
+                else
+                {
+                  aContext->Select( min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ),
+                    max( X_ButtonPress, X_Motion ), max( Y_ButtonPress, Y_Motion ),
+                    ViewerTest::CurrentView() );
+                }
+            else
+              VT_ProcessButton3Release();
+
+            IsDragged = Standard_False;
+          }
+          else
+            VT_ProcessButton3Release();
+        }
+        break;
+      case MotionNotify:
+        {
+          if (GetWindowHandle (VT_GetWindow()) != aReport.xmotion.window)
+          {
+            break;
+          }
+          if( IsDragged )
+          {
+            Aspect_Handle aWindow = VT_GetWindow()->XWindow();
+            GC gc = XCreateGC( aDisplay, aWindow, 0, 0 );
+            XSetFunction( aDisplay, gc, GXinvert );
+
+            if( !DragFirst )
+              XDrawRectangle(aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
+
+            X_Motion = aReport.xmotion.x;
+            Y_Motion = aReport.xmotion.y;
+            DragFirst = Standard_False;
+
+            XDrawRectangle( aDisplay, aWindow, gc, min( X_ButtonPress, X_Motion ), min( Y_ButtonPress, Y_Motion ), abs( X_Motion-X_ButtonPress ), abs( Y_Motion-Y_ButtonPress ) );
+          }
+          else
+          {
+            X_Motion = aReport.xmotion.x;
+            Y_Motion = aReport.xmotion.y;
+
+            // remove all the ButtonMotionMaskr
+            while( XCheckMaskEvent( aDisplay, ButtonMotionMask, &aReport) ) ;
+
+            if ( ZClipIsOn && aReport.xmotion.state & ShiftMask ) {
+              if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
+
+                Quantity_Length VDX, VDY;
+
+                ViewerTest::CurrentView()->Size(VDX,VDY);
+                Standard_Real VDZ =0 ;
+                VDZ = ViewerTest::CurrentView()->ZSize();
+
+                printf("%f,%f,%f\n", VDX, VDY, VDZ);
+
+                Quantity_Length dx = 0 ;
+                dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
+
+                cout << dx << endl;
+
+                dx = dx / VDX * VDZ;
+
+                cout << dx << endl;
+
+                ViewerTest::CurrentView()->Redraw();
+              }
+            }
+
+            if ( aReport.xmotion.state & ControlMask ) {
+              if ( aReport.xmotion.state & Button1Mask ) {
+                ProcessControlButton1Motion();
+              }
+              else if ( aReport.xmotion.state & Button2Mask ) {
+                VT_ProcessControlButton2Motion();
+              }
+              else if ( aReport.xmotion.state & Button3Mask ) {
+                VT_ProcessControlButton3Motion();
+              }
+            }
+            else
+            {
+              VT_ProcessMotion();
+            }
+          }
+        }
+        break;
+}
+return pick;
+}
+
+//==============================================================================
+//function : VProcessEvents
+//purpose  : call by Tk_CreateFileHandler() to be able to manage the
+//       event in the Viewer window
+//==============================================================================
+
+static void VProcessEvents(ClientData,int)
+{
+  NCollection_Vector<int> anEventNumbers;
+  // Get number of messages from every display
+  for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
+       anIter (ViewerTest_myDrivers); anIter.More(); anIter.Next())
+  {
+    anEventNumbers.Append(XPending (anIter.Key2()->GetDisplayConnection()->GetDisplay()));
+  }
+    // Handle events for every display
+  int anEventIter = 0;
+  for (NCollection_DoubleMap <TCollection_AsciiString, Handle(Graphic3d_GraphicDriver)>::Iterator
+       anIter (ViewerTest_myDrivers); anIter.More(); anIter.Next(), anEventIter++)
+  {
+    for (int i = 0; i < anEventNumbers.Value(anEventIter) &&
+         XPending (anIter.Key2()->GetDisplayConnection()->GetDisplay()) > 0; ++i)
+    {
+      SetDisplayConnection (anIter.Key2()->GetDisplayConnection());
+      int anEventResult = ViewerMainLoop( 0, NULL);
+      // If window is closed or context was not found finish current event processing loop
+      if (!anEventResult)
+       return;
+    }
+  }
+
+  SetDisplayConnection (ViewerTest::GetAISContext()->CurrentViewer()->Driver()->GetDisplayConnection());
+
+}
+#endif
+
+//==============================================================================
+//function : OSWindowSetup
+//purpose  : Setup for the X11 window to be able to cath the event
+//==============================================================================
+
+
+static void OSWindowSetup()
+{
+#if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+  // X11
+
+  Window  window   = VT_GetWindow()->XWindow();
+  SetDisplayConnection (ViewerTest::CurrentView()->Viewer()->Driver()->GetDisplayConnection());
+  Display *aDisplay = GetDisplayConnection()->GetDisplay();
+  XSynchronize(aDisplay, 1);
+
+  // X11 : For keyboard on SUN
+  XWMHints wmhints;
+  wmhints.flags = InputHint;
+  wmhints.input = 1;
+
+  XSetWMHints( aDisplay, window, &wmhints);
+
+  XSelectInput( aDisplay, window,  ExposureMask | KeyPressMask |
+    ButtonPressMask | ButtonReleaseMask |
+    StructureNotifyMask |
+    PointerMotionMask |
+    Button1MotionMask | Button2MotionMask |
+    Button3MotionMask | FocusChangeMask
+    );
+  Atom aDeleteWindowAtom = GetDisplayConnection()->GetAtom(Aspect_XA_DELETE_WINDOW);
+  XSetWMProtocols(aDisplay, window, &aDeleteWindowAtom, 1);
+
+  XSynchronize(aDisplay, 0);
+
+#else
+  // WNT
+#endif
+
+}
+
+
+//==============================================================================
+//function : VFit
+
+//purpose  : Fitall, no DRAW arguments
+//Draw arg : No args
+//==============================================================================
+
+static int VFit(Draw_Interpretor& , Standard_Integer , const char** )
+{
+  const Handle(V3d_View) aView = ViewerTest::CurrentView();
+  Handle(NIS_View) V = Handle(NIS_View)::DownCast(aView);
+  if (V.IsNull() == Standard_False) {
+    V->FitAll3d();
+  } else if (aView.IsNull() == Standard_False) {
+    aView->FitAll();
+  }
+  return 0;
+}
+
+//=======================================================================
+//function : VFitArea
+//purpose  : Fit view to show area located between two points
+//         : given in world 2D or 3D coordinates.
+//=======================================================================
+static int VFitArea (Draw_Interpretor& theDI, Standard_Integer  theArgNb, const char** theArgVec)
+{
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    std::cerr << theArgVec[0] << "Error: No active view.\n";
+    return 1;
+  }
+
+  // Parse arguments.
+  gp_Pnt aWorldPnt1 (0.0, 0.0, 0.0);
+  gp_Pnt aWorldPnt2 (0.0, 0.0, 0.0);
+
+  if (theArgNb == 5)
+  {
+    aWorldPnt1.SetX (Draw::Atof (theArgVec[1]));
+    aWorldPnt1.SetY (Draw::Atof (theArgVec[2]));
+    aWorldPnt2.SetX (Draw::Atof (theArgVec[3]));
+    aWorldPnt2.SetY (Draw::Atof (theArgVec[4]));
+  }
+  else if (theArgNb == 7)
+  {
+    aWorldPnt1.SetX (Draw::Atof (theArgVec[1]));
+    aWorldPnt1.SetY (Draw::Atof (theArgVec[2]));
+    aWorldPnt1.SetZ (Draw::Atof (theArgVec[3]));
+    aWorldPnt2.SetX (Draw::Atof (theArgVec[4]));
+    aWorldPnt2.SetY (Draw::Atof (theArgVec[5]));
+    aWorldPnt2.SetZ (Draw::Atof (theArgVec[6]));
+  }
+  else
+  {
+    std::cerr << theArgVec[0] << "Error: Invalid number of arguments.\n";
+    theDI.PrintHelp(theArgVec[0]);
+    return 1;
+  }
+
+  // Convert model coordinates to view space
+  Handle(Graphic3d_Camera) aCamera = aView->Camera();
+  gp_Pnt aViewPnt1 = aCamera->ConvertWorld2View (aWorldPnt1);
+  gp_Pnt aViewPnt2 = aCamera->ConvertWorld2View (aWorldPnt2);
+
+  // Determine fit area
+  gp_Pnt2d aMinCorner (Min (aViewPnt1.X(), aViewPnt2.X()), Min (aViewPnt1.Y(), aViewPnt2.Y()));
+  gp_Pnt2d aMaxCorner (Max (aViewPnt1.X(), aViewPnt2.X()), Max (aViewPnt1.Y(), aViewPnt2.Y()));
+
+  Standard_Real aDiagonal = aMinCorner.Distance (aMaxCorner);
+
+  if (aDiagonal < Precision::Confusion())
+  {
+    std::cerr << theArgVec[0] << "Error: view area is too small.\n";
+    return 1;
+  }
+
+  aView->FitAll (aMinCorner.X(), aMinCorner.Y(), aMaxCorner.X(), aMaxCorner.Y());
+  return 0;
+}
+
+//==============================================================================
+//function : VZFit
+//purpose  : ZFitall, no DRAW arguments
+//Draw arg : No args
+//==============================================================================
+static int VZFit (Draw_Interpretor& /*theDi*/, Standard_Integer theArgsNb, const char** theArgVec)
+{
+  const Handle(V3d_View)& aCurrentView = ViewerTest::CurrentView();
+
+  if (aCurrentView.IsNull())
+  {
+    std::cout << theArgVec[0] << ": Call vinit before this command, please.\n";
+    return 1;
+  }
+
+  if (theArgsNb == 1)
+  {
+    aCurrentView->View()->ZFitAll();
+    aCurrentView->Redraw();
+    return 0;
+  }
+
+  Standard_Real aScale = 1.0;
+
+  if (theArgsNb >= 2)
+  {
+    aScale = Draw::Atoi (theArgVec[1]);
+  }
+
+  aCurrentView->View()->ZFitAll (aScale);
+  aCurrentView->Redraw();
+
+  return 0;
+}
+
+//==============================================================================
+//function : VRepaint
+//purpose  :
+//==============================================================================
+static int VRepaint (Draw_Interpretor& , Standard_Integer , const char** )
+{
+  Handle(V3d_View) V = ViewerTest::CurrentView();
+  if ( !V.IsNull() ) V->Redraw(); return 0;
+}
+
+//==============================================================================
+//function : VClear
+//purpose  : Remove all the object from the viewer
+//Draw arg : No args
+//==============================================================================
+
+static int VClear(Draw_Interpretor& , Standard_Integer , const char** )
+{
+  Handle(V3d_View) V = ViewerTest::CurrentView();
+  if(!V.IsNull())
+    ViewerTest::Clear();
+  return 0;
+}
+
+//==============================================================================
+//function : VPick
+//purpose  :
+//==============================================================================
+
+static int VPick(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{ if (ViewerTest::CurrentView().IsNull() ) return 1;
+
+if ( argc < 4 ) {
+  di << argv[0] << "Invalid number of arguments" << "\n";
+  return 1;
+}
+
+while (ViewerMainLoop( argc, argv)) {
+}
+
+return 0;
+}
+
+//==============================================================================
+//function : VSetBg
+//purpose  : Load image as background
+//==============================================================================
+
+static int VSetBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  if (argc < 2 || argc > 3)
+  {
+    di << "Usage : " << argv[0] << " imagefile [filltype] : Load image as background" << "\n";
+    di << "filltype can be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
+  if(AISContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+
+  Aspect_FillMethod aFillType = Aspect_FM_CENTERED;
+  if (argc == 3)
+  {
+    const char* szType = argv[2];
+    if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
+    else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
+    else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
+    else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
+    else
+    {
+      di << "Wrong fill type : " << szType << "\n";
+      di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+      return 1;
+    }
+  }
+
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  V3dView->SetBackgroundImage(argv[1], aFillType, Standard_True);
+
+  return 0;
+}
+
+//==============================================================================
+//function : VSetBgMode
+//purpose  : Change background image fill type
+//==============================================================================
+
+static int VSetBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  if (argc != 2)
+  {
+    di << "Usage : " << argv[0] << " filltype : Change background image mode" << "\n";
+    di << "filltype must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
+  if(AISContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  Aspect_FillMethod aFillType = Aspect_FM_NONE;
+  const char* szType = argv[1];
+  if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
+  else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
+  else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
+  else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
+  else
+  {
+    di << "Wrong fill type : " << szType << "\n";
+    di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+    return 1;
+  }
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  V3dView->SetBgImageStyle(aFillType, Standard_True);
+  return 0;
+}
+
+//==============================================================================
+//function : VSetGradientBg
+//purpose  : Mount gradient background
+//==============================================================================
+static int VSetGradientBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  if (argc != 8 )
+  {
+    di << "Usage : " << argv[0] << " R1 G1 B1 R2 G2 B2 Type : Mount gradient background" << "\n";
+    di << "R1,G1,B1,R2,G2,B2 = [0..255]" << "\n";
+    di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
+    di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
+  if(AISContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  if (argc == 8)
+  {
+
+    Standard_Real R1 = Draw::Atof(argv[1])/255.;
+    Standard_Real G1 = Draw::Atof(argv[2])/255.;
+    Standard_Real B1 = Draw::Atof(argv[3])/255.;
+    Quantity_Color aColor1(R1,G1,B1,Quantity_TOC_RGB);
+
+    Standard_Real R2 = Draw::Atof(argv[4])/255.;
+    Standard_Real G2 = Draw::Atof(argv[5])/255.;
+    Standard_Real B2 = Draw::Atof(argv[6])/255.;
+
+    Quantity_Color aColor2(R2,G2,B2,Quantity_TOC_RGB);
+    int aType = Draw::Atoi(argv[7]);
+    if( aType < 0 || aType > 8 )
+    {
+      di << "Wrong fill type " << "\n";
+      di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
+      di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+      return 1;
+    }
+
+    Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
+
+    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+    V3dView->SetBgGradientColors( aColor1, aColor2, aMethod, 1);
+  }
+
+  return 0;
+}
+
+//==============================================================================
+//function : VSetGradientBgMode
+//purpose  : Change gradient background fill style
+//==============================================================================
+static int VSetGradientBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  if (argc != 2 )
+  {
+    di << "Usage : " << argv[0] << " Type : Change gradient background fill type" << "\n";
+    di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
+    di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
+  if(AISContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  if (argc == 2)
+  {
+    int aType = Draw::Atoi(argv[1]);
+    if( aType < 0 || aType > 8 )
+    {
+      di << "Wrong fill type " << "\n";
+      di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
+      di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+      return 1;
+    }
+
+    Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
+
+    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+    V3dView->SetBgGradientStyle( aMethod, 1 );
+  }
+
+  return 0;
+}
+
+//==============================================================================
+//function : VSetColorBg
+//purpose  : Set color background
+//==============================================================================
+static int VSetColorBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  if (argc != 4 )
+  {
+    di << "Usage : " << argv[0] << " R G B : Set color background" << "\n";
+    di << "R,G,B = [0..255]" << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
+  if(AISContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  if (argc == 4)
+  {
+
+    Standard_Real R = Draw::Atof(argv[1])/255.;
+    Standard_Real G = Draw::Atof(argv[2])/255.;
+    Standard_Real B = Draw::Atof(argv[3])/255.;
+    Quantity_Color aColor(R,G,B,Quantity_TOC_RGB);
+
+    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+    V3dView->SetBackgroundColor( aColor );
+    V3dView->Update();
+  }
+
+  return 0;
+}
+
+//==============================================================================
+//function : VScale
+//purpose  : View Scaling
+//==============================================================================
+
+static int VScale(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if ( V3dView.IsNull() ) return 1;
+
+  if ( argc != 4 ) {
+    di << argv[0] << "Invalid number of arguments" << "\n";
+    return 1;
+  }
+  V3dView->SetAxialScale( Draw::Atof(argv[1]),  Draw::Atof(argv[2]),  Draw::Atof(argv[3]) );
+  return 0;
+}
+//==============================================================================
+//function : VTestZBuffTrihedron
+//purpose  : Displays a V3d_ZBUFFER'ed or V3d_WIREFRAME'd trihedron
+//==============================================================================
+
+static int VTestZBuffTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if ( V3dView.IsNull() ) return 1;
+
+  V3dView->ZBufferTriedronSetup();
+
+  if ( argc == 1 ) {
+    // Set up default trihedron parameters
+    V3dView->TriedronDisplay( Aspect_TOTP_LEFT_LOWER, Quantity_NOC_WHITE, 0.1, V3d_ZBUFFER );
+  } else
+  if ( argc == 7 )
+  {
+    Aspect_TypeOfTriedronPosition aPosition = Aspect_TOTP_LEFT_LOWER;
+    const char* aPosType = argv[1];
+
+    if ( strcmp(aPosType, "center") == 0 )
+    {
+      aPosition = Aspect_TOTP_CENTER;
+    } else
+    if (strcmp(aPosType, "left_lower") == 0)
+    {
+      aPosition = Aspect_TOTP_LEFT_LOWER;
+    } else
+    if (strcmp(aPosType, "left_upper") == 0)
+    {
+      aPosition = Aspect_TOTP_LEFT_UPPER;
+    } else
+    if (strcmp(aPosType, "right_lower") == 0)
+    {
+      aPosition = Aspect_TOTP_RIGHT_LOWER;
+    } else
+    if (strcmp(aPosType, "right_upper") == 0)
+    {
+      aPosition = Aspect_TOTP_RIGHT_UPPER;
+    } else
+    {
+      di << argv[1] << " Invalid type of alignment"  << "\n";
+      di << "Must be one of [ center, left_lower,"   << "\n";
+      di << "left_upper, right_lower, right_upper ]" << "\n";
+      return 1;
+    }
+
+    Standard_Real R = Draw::Atof(argv[2])/255.;
+    Standard_Real G = Draw::Atof(argv[3])/255.;
+    Standard_Real B = Draw::Atof(argv[4])/255.;
+    Quantity_Color aColor(R, G, B, Quantity_TOC_RGB);
+
+    Standard_Real aScale = Draw::Atof(argv[5]);
+
+    if( aScale <= 0.0 )
+    {
+      di << argv[5] << " Invalid value. Must be > 0" << "\n";
+      return 1;
+    }
+
+    V3d_TypeOfVisualization aPresentation = V3d_ZBUFFER;
+    const char* aPresType = argv[6];
+
+    if ( strcmp(aPresType, "wireframe") == 0 )
+    {
+      aPresentation = V3d_WIREFRAME;
+    } else
+    if (strcmp(aPresType, "zbuffer") == 0)
+    {
+      aPresentation = V3d_ZBUFFER;
+    } else
+    {
+      di << argv[6] << " Invalid type of visualization" << "\n";
+      di << "Must be one of [ wireframe, zbuffer ]"     << "\n";
+      return 1;
+    }
+
+    V3dView->TriedronDisplay( aPosition, aColor.Name(), aScale, aPresentation );
+
+  } else
+  {
+    di << argv[0] << " Invalid number of arguments" << "\n";
+    return 1;
+  }
+
+  V3dView->View()->ZFitAll();
+
+  return 0;
+}
+
+//==============================================================================
+//function : VRotate
+//purpose  : Camera Rotating
+//==============================================================================
+
+static int VRotate( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if ( V3dView.IsNull() ) {
+    return 1;
+  }
+
+  if ( argc == 4 ) {
+    V3dView->Rotate( Draw::Atof(argv[1]), Draw::Atof(argv[2]), Draw::Atof(argv[3]) );
+    return 0;
+  } else if ( argc == 7 ) {
+    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]) );
+    return 0;
+  } else {
+    di << argv[0] << " Invalid number of arguments" << "\n";
+    return 1;
+  }
+}
+
+//==============================================================================
+//function : VZoom
+//purpose  : View zoom in / out (relative to current zoom)
+//==============================================================================
+
+static int VZoom( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if ( V3dView.IsNull() ) {
+    return 1;
+  }
+
+  if ( argc == 2 ) {
+    Standard_Real coef = Draw::Atof(argv[1]);
+    if ( coef <= 0.0 ) {
+      di << argv[1] << "Invalid value" << "\n";
+      return 1;
+    }
+    V3dView->SetZoom( Draw::Atof(argv[1]) );
+    return 0;
+  } else {
+    di << argv[0] << " Invalid number of arguments" << "\n";
+    return 1;
+  }
+}
+
+//==============================================================================
+//function : VPan
+//purpose  : View panning (in pixels)
+//==============================================================================
+
+static int VPan( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if ( V3dView.IsNull() ) return 1;
+
+  if ( argc == 3 ) {
+    V3dView->Pan( Draw::Atoi(argv[1]), Draw::Atoi(argv[2]) );
+    return 0;
+  } else {
+    di << argv[0] << " Invalid number of arguments" << "\n";
+    return 1;
+  }
+}
+
+
+//==============================================================================
+//function : VExport
+//purpose  : Export the view to a vector graphic format (PS, EMF, PDF)
+//==============================================================================
+
+static int VExport(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
+  if (V3dView.IsNull())
+    return 1;
+
+  if (argc == 1)
+  {
+    std::cout << "Usage: " << argv[0] << " Filename [Format]\n";
+    return 1;
+  }
+
+  Graphic3d_ExportFormat anExpFormat = Graphic3d_EF_PDF;
+  TCollection_AsciiString aFormatStr;
+
+  TCollection_AsciiString aFileName (argv[1]);
+  Standard_Integer aLen = aFileName.Length();
+
+  if (argc > 2)
+  {
+    aFormatStr = TCollection_AsciiString (argv[2]);
+  }
+  else if (aLen >= 4)
+  {
+    if (aFileName.Value (aLen - 2) == '.')
+    {
+      aFormatStr = aFileName.SubString (aLen - 1, aLen);
+    }
+    else if (aFileName.Value (aLen - 3) == '.')
+    {
+      aFormatStr = aFileName.SubString (aLen - 2, aLen);
+    }
+    else
+    {
+      std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
+      return 1;
+    }
+  }
+  else
+  {
+    std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
+    return 1;
+  }
+
+  aFormatStr.UpperCase();
+  if (aFormatStr == "PS")
+    anExpFormat = Graphic3d_EF_PostScript;
+  else if (aFormatStr == "EPS")
+    anExpFormat = Graphic3d_EF_EnhPostScript;
+  else if (aFormatStr == "TEX")
+    anExpFormat = Graphic3d_EF_TEX;
+  else if (aFormatStr == "PDF")
+    anExpFormat = Graphic3d_EF_PDF;
+  else if (aFormatStr == "SVG")
+    anExpFormat = Graphic3d_EF_SVG;
+  else if (aFormatStr == "PGF")
+    anExpFormat = Graphic3d_EF_PGF;
+  else if (aFormatStr == "EMF")
+    anExpFormat = Graphic3d_EF_EMF;
+  else
+  {
+    std::cout << "Invalid export format '" << aFormatStr << "'\n";
+    return 1;
+  }
+
+  try {
+    if (!V3dView->View()->Export (argv[1], anExpFormat))
+    {
+      di << "Error: export of image to " << aFormatStr << " failed!\n";
+    }
+  }
+  catch (Standard_Failure)
+  {
+    di << "Error: export of image to " << aFormatStr << " failed";
+    di << " (exception: " << Standard_Failure::Caught()->GetMessageString() << ")";
+  }
+  return 0;
+}
+
+//==============================================================================
+//function : VColorScale
+//purpose  : representation color scale
+//==============================================================================
+#include <V3d_ColorScale.hxx>
+
+static int VColorScale (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
+{
+  if ( argc != 1 && argc != 4 && argc != 5 && argc != 6 && argc != 8 )
+  {
+    di << "Usage : " << argv[0] << " [RangeMin = 0 RangeMax = 100 Intervals = 10 HeightFont = 16 Position = Right X = 0 Y = 0]  " << "\n";
+    return 1;
+  }
+
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull()) {
+    di << argv[0] << " ERROR : use 'vinit' command before " << "\n";
+    return -1;
+  }
+
+  Standard_Real minRange = 0. , maxRange = 100. ;
+
+  Standard_Integer numIntervals = 10 ;
+  Standard_Integer textHeight = 16;
+  Aspect_TypeOfColorScalePosition position = Aspect_TOCSP_RIGHT;
+  Standard_Real X = 0., Y = 0. ;
+
+  if ( argc < 9 )
+  {
+     if( argc > 3 )
+     {
+       minRange = Draw::Atof( argv[1] );
+       maxRange = Draw::Atof( argv[2] );
+       numIntervals = Draw::Atoi( argv[3] );
+     }
+     if ( argc > 4 )
+       textHeight = Draw::Atoi( argv[4] );
+     if ( argc > 5 )
+       position = (Aspect_TypeOfColorScalePosition)Draw::Atoi( argv[5] );
+     if ( argc > 7 )
+     {
+       X = Draw::Atof( argv[6] );
+       Y = Draw::Atof( argv[7] );
+     }
+  }
+  Handle(V3d_View) curView = ViewerTest::CurrentView( );
+  if ( curView.IsNull( ) )
+    return 1;
+  Handle(Aspect_ColorScale) aCSV = curView->ColorScale( );
+  Handle(V3d_ColorScale) aCS = ( Handle( V3d_ColorScale )::DownCast( aCSV ) );
+  if( ! aCS.IsNull( ) )
+  {
+    aCS->SetPosition( X , Y );
+    aCS->SetHeight( 0.95) ;
+    aCS->SetTextHeight( textHeight );
+    aCS->SetRange( minRange , maxRange );
+    aCS->SetNumberOfIntervals( numIntervals );
+    aCS->SetLabelPosition( position );
+    if( !curView->ColorScaleIsDisplayed() )
+      curView->ColorScaleDisplay( );
+  }
+  return 0;
+}
+
+//==============================================================================
+//function : VGraduatedTrihedron
+//purpose  : Displays a graduated trihedron
+//==============================================================================
+
+static void AddMultibyteString (TCollection_ExtendedString &name, const char *arg)
+{
+  const char *str = arg;
+  while (*str)
+  {
+    unsigned short c1 = *str++;
+    unsigned short c2 = *str++;
+    if (!c1 || !c2) break;
+    name += (Standard_ExtCharacter)((c1 << 8) | c2);
+  }
+}
+
+static int VGraduatedTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  // Check arguments
+  if (argc != 2 && argc < 5)
+  {
+    di<<"Error: "<<argv[0]<<" - invalid number of arguments\n";
+    di<<"Usage: type help "<<argv[0]<<"\n";
+    return 1; //TCL_ERROR
+  }
+
+  Handle(V3d_View) aV3dView = ViewerTest::CurrentView();
+
+  // Create 3D view if it doesn't exist
+  if ( aV3dView.IsNull() )
+  {
+    ViewerTest::ViewerInit();
+    aV3dView = ViewerTest::CurrentView();
+    if( aV3dView.IsNull() )
+    {
+      di << "Error: Cannot create a 3D view\n";
+      return 1; //TCL_ERROR
+    }
+  }
+
+  // Erase (==0) or display (!=0)
+  const int display = Draw::Atoi(argv[1]);
+
+  if (display)
+  {
+    // Text font
+    TCollection_AsciiString font;
+    if (argc < 6)
+      font.AssignCat("Courier");
+    else
+      font.AssignCat(argv[5]);
+
+    // Text is multibyte
+    const Standard_Boolean isMultibyte = (argc < 7)? Standard_False : (Draw::Atoi(argv[6]) != 0);
+
+    // Set axis names
+    TCollection_ExtendedString xname, yname, zname;
+    if (argc >= 5)
+    {
+      if (isMultibyte)
+      {
+        AddMultibyteString(xname, argv[2]);
+        AddMultibyteString(yname, argv[3]);
+        AddMultibyteString(zname, argv[4]);
+      }
+      else
+      {
+        xname += argv[2];
+        yname += argv[3];
+        zname += argv[4];
+      }
+    }
+    else
+    {
+      xname += "X (mm)";
+      yname += "Y (mm)";
+      zname += "Z (mm)";
+    }
+
+    aV3dView->GraduatedTrihedronDisplay(xname, yname, zname,
+                                        Standard_True/*xdrawname*/, Standard_True/*ydrawname*/, Standard_True/*zdrawname*/,
+                                        Standard_True/*xdrawvalues*/, Standard_True/*ydrawvalues*/, Standard_True/*zdrawvalues*/,
+                                        Standard_True/*drawgrid*/,
+                                        Standard_True/*drawaxes*/,
+                                        5/*nbx*/, 5/*nby*/, 5/*nbz*/,
+                                        10/*xoffset*/, 10/*yoffset*/, 10/*zoffset*/,
+                                        30/*xaxisoffset*/, 30/*yaxisoffset*/, 30/*zaxisoffset*/,
+                                        Standard_True/*xdrawtickmarks*/, Standard_True/*ydrawtickmarks*/, Standard_True/*zdrawtickmarks*/,
+                                        10/*xtickmarklength*/, 10/*ytickmarklength*/, 10/*ztickmarklength*/,
+                                        Quantity_NOC_WHITE/*gridcolor*/,
+                                        Quantity_NOC_RED/*xnamecolor*/,Quantity_NOC_GREEN/*ynamecolor*/,Quantity_NOC_BLUE1/*znamecolor*/,
+                                        Quantity_NOC_RED/*xcolor*/,Quantity_NOC_GREEN/*ycolor*/,Quantity_NOC_BLUE1/*zcolor*/,font);
+  }
+  else
+    aV3dView->GraduatedTrihedronErase();
+
+  ViewerTest::GetAISContext()->UpdateCurrentViewer();
+  aV3dView->Redraw();
+
+  return 0;
+}
+
+//==============================================================================
+//function : VPrintView
+//purpose  : Test printing algorithm, print the view to image file with given
+//           width and height. Printing implemented only for WNT.
+//==============================================================================
+static int VPrintView (Draw_Interpretor& di, Standard_Integer argc,
+                       const char** argv)
+{
+#ifndef WNT
+  di << "Printing implemented only for wnt!\n";
+  return 0;
+#else
+
+  Handle(AIS_InteractiveContext) aContextAIS = NULL;
+  Handle(V3d_View) aView = NULL;
+  aContextAIS = ViewerTest::GetAISContext();
+  if (!aContextAIS.IsNull())
+  {
+    const Handle(V3d_Viewer)& Vwr = aContextAIS->CurrentViewer();
+    Vwr->InitActiveViews();
+    if(Vwr->MoreActiveViews())
+      aView = Vwr->ActiveView();
+  }
+
+  // check for errors
+  if (aView.IsNull())
+  {
+    di << "Call vinit before!\n";
+    return 1;
+  }
+  else if (argc < 4)
+  {
+    di << "Use: " << argv[0];
+    di << " width height filename [print algo=0] [tile_width tile_height]\n";
+    di << "width, height of the intermediate buffer for operation\n";
+    di << "algo : {0|1}\n";
+    di << "        0 - stretch algorithm\n";
+    di << "        1 - tile algorithm\n";
+    di << "test printing algorithms into an intermediate buffer\n";
+    di << "using specific tile size if provided\n";
+    di << "with saving output to an image file\n";
+    return 1;
+  }
+
+  // get the input params
+  Standard_Integer aWidth  = Draw::Atoi (argv[1]);
+  Standard_Integer aHeight = Draw::Atoi (argv[2]);
+  Standard_Integer aMode   = 0;
+  TCollection_AsciiString aFileName = TCollection_AsciiString (argv[3]);
+  if (argc >= 5)
+    aMode = Draw::Atoi (argv[4]);
+
+  Standard_Integer aTileWidth  = 0;
+  Standard_Integer aTileHeight = 0;
+  Standard_Boolean isTileSizeProvided = Standard_False;
+  if (argc == 7)
+  {
+    isTileSizeProvided = Standard_True;
+    aTileWidth  = Draw::Atoi (argv[5]);
+    aTileHeight = Draw::Atoi (argv[6]);
+  }
+
+  // check the input parameters
+  if (aWidth <= 0 || aHeight <= 0)
+  {
+    di << "Width and height must be positive values!\n";
+    return 1;
+  }
+  if (aMode != 0 && aMode != 1)
+    aMode = 0;
+
+  // define compatible bitmap
+  HDC anDC = CreateCompatibleDC(0);
+  BITMAPINFO aBitmapData;
+  memset (&aBitmapData, 0, sizeof (BITMAPINFOHEADER));
+  aBitmapData.bmiHeader.biSize          = sizeof (BITMAPINFOHEADER);
+  aBitmapData.bmiHeader.biWidth         = aWidth ;
+  aBitmapData.bmiHeader.biHeight        = aHeight;
+  aBitmapData.bmiHeader.biPlanes        = 1;
+  aBitmapData.bmiHeader.biBitCount      = 24;
+  aBitmapData.bmiHeader.biXPelsPerMeter = 0;
+  aBitmapData.bmiHeader.biYPelsPerMeter = 0;
+  aBitmapData.bmiHeader.biClrUsed       = 0;
+  aBitmapData.bmiHeader.biClrImportant  = 0;
+  aBitmapData.bmiHeader.biCompression   = BI_RGB;
+  aBitmapData.bmiHeader.biSizeImage     = 0;
+
+  // Create Device Independent Bitmap
+  void* aBitsOut = NULL;
+  HBITMAP aMemoryBitmap = CreateDIBSection (anDC, &aBitmapData, DIB_RGB_COLORS,
+                                            &aBitsOut, NULL, 0);
+  HGDIOBJ anOldBitmap   = SelectObject(anDC, aMemoryBitmap);
+
+  Standard_Boolean isSaved = Standard_False, isPrinted = Standard_False;
+  if (aBitsOut != NULL)
+  {
+    if (aMode == 0)
+      isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_STRETCH);
+    else
+    {
+      if (isTileSizeProvided)
+      {
+        Graphic3d_CView* aCView = static_cast<Graphic3d_CView*> (ViewerTest::CurrentView()->View()->CView());
+        Graphic3d_PtrFrameBuffer anOldBuffer = static_cast<Graphic3d_PtrFrameBuffer> (aCView->ptrFBO);
+        aCView->ptrFBO = aView->View()->FBOCreate (aTileWidth, aTileHeight);
+
+        isPrinted = aView->Print (anDC, 1, 1, 0, Aspect_PA_TILE);
+
+        Graphic3d_PtrFrameBuffer aNewBuffer = static_cast<Graphic3d_PtrFrameBuffer> (aCView->ptrFBO);
+        aView->View()->FBORelease (aNewBuffer);
+        aCView->ptrFBO = anOldBuffer;
+      }
+      else
+      {
+        isPrinted = aView->Print (anDC, 1, 1, 0, Aspect_PA_TILE);
+      }
+    }
+
+    // succesfully printed into an intermediate buffer
+    if (isPrinted)
+    {
+      Image_PixMap aWrapper;
+      aWrapper.InitWrapper (Image_PixMap::ImgBGR, (Standard_Byte* )aBitsOut, aWidth, aHeight, aWidth * 3 + aWidth % 4);
+      aWrapper.SetTopDown (false);
+
+      Image_AlienPixMap anImageBitmap;
+      anImageBitmap.InitCopy (aWrapper);
+      isSaved = anImageBitmap.Save (aFileName);
+    }
+    else
+    {
+      di << "Print operation failed due to printing errors or\n";
+      di << "insufficient memory available\n";
+      di << "Please, try to use smaller dimensions for this test\n";
+      di << "command, as it allocates intermediate buffer for storing\n";
+      di << "the result\n";
+    }
+  }
+  else
+  {
+    di << "Can't allocate memory for intermediate buffer\n";
+    di << "Please use smaller dimensions\n";
+  }
+
+  if (aMemoryBitmap)
+  {
+    SelectObject (anDC, anOldBitmap);
+    DeleteObject (aMemoryBitmap);
+    DeleteDC(anDC);
+  }
+
+  if (!isSaved)
+  {
+    di << "Save to file operation failed. This operation may fail\n";
+    di << "if you don't have enough available memory, then you can\n";
+    di << "use smaller dimensions for the output file\n";
+    return 1;
+  }
+
+  return 0;
+
+#endif
+}
+
+//==============================================================================
+//function : VZLayer
+//purpose  : Test z layer operations for v3d viewer
+//==============================================================================
+static int VZLayer (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext ();
+  if (aContextAIS.IsNull())
+  {
+    di << "Call vinit before!\n";
+    return 1;
+  }
+  else if (argc < 2)
+  {
+    di << "Use: vzlayer ";
+    di << " add/del/get/settings/enable/disable [id]\n";
+    di << " add - add new z layer to viewer and print its id\n";
+    di << " del - del z layer by its id\n";
+    di << " get - print sequence of z layers in increasing order of their overlay level\n";
+    di << " settings - print status of z layer settings\n";
+    di << " enable ([depth]test/[depth]write/[depth]clear/[depth]offset) \n    enables given setting for the z layer\n";
+    di << " enable (p[ositive]offset/n[egative]offset) \n    enables given setting for the z layer\n";
+    di << " disable ([depth]test/[depth]write/[depth]clear/[depth]offset) \n    disables given setting for the z layer\n";
+    di << "\nWhere id is the layer identificator\n";
+    di << "\nExamples:\n";
+    di << "   vzlayer add\n";
+    di << "   vzlayer enable poffset 1\n";
+    di << "   vzlayer disable depthtest 1\n";
+    di << "   vzlayer del 1\n";
+    return 1;
+  }
+
+  const Handle(V3d_Viewer)& aViewer = aContextAIS->CurrentViewer();
+  if (aViewer.IsNull())
+  {
+    di << "No active viewer!\n";
+    return 1;
+  }
+
+  // perform operation
+  TCollection_AsciiString anOp = TCollection_AsciiString (argv[1]);
+  if (anOp == "add")
+  {
+    Standard_Integer aNewId;
+    if (!aViewer->AddZLayer (aNewId))
+    {
+      di << "Impossible to add new z layer!\n";
+      return 1;
+    }
+
+    di << "New z layer added with index: " << aNewId << "\n";
+  }
+  else if (anOp == "del")
+  {
+    if (argc < 3)
+    {
+      di << "Please also provide as argument id of z layer to remove\n";
+      return 1;
+    }
+
+    Standard_Integer aDelId = Draw::Atoi (argv[2]);
+    if (!aViewer->RemoveZLayer (aDelId))
+    {
+      di << "Impossible to remove the z layer or invalid id!\n";
+      return 1;
+    }
+
+    di << "Z layer " << aDelId << " has been removed\n";
+  }
+  else if (anOp == "get")
+  {
+    TColStd_SequenceOfInteger anIds;
+    aViewer->GetAllZLayers (anIds);
+    for (Standard_Integer aSeqIdx = 1; aSeqIdx <= anIds.Length(); aSeqIdx++)
+    {
+      di << anIds.Value (aSeqIdx) << " ";
+    }
+
+    di << "\n";
+  }
+  else if (anOp == "settings")
+  {
+    if (argc < 3)
+    {
+      di << "Please also provide an id\n";
+      return 1;
+    }
+
+    Standard_Integer anId = Draw::Atoi (argv[2]);
+    Graphic3d_ZLayerSettings aSettings = aViewer->ZLayerSettings (anId);
+
+    di << "Depth test - " << (aSettings.IsSettingEnabled (Graphic3d_ZLayerDepthTest) ? "enabled" : "disabled") << "\n";
+    di << "Depth write - " << (aSettings.IsSettingEnabled (Graphic3d_ZLayerDepthWrite) ? "enabled" : "disabled") << "\n";
+    di << "Depth buffer clearing - " << (aSettings.IsSettingEnabled (Graphic3d_ZLayerDepthClear) ? "enabled" : "disabled") << "\n";
+    di << "Depth offset - " << (aSettings.IsSettingEnabled (Graphic3d_ZLayerDepthOffset) ? "enabled" : "disabled") << "\n";
+
+  }
+  else if (anOp == "enable")
+  {
+    if (argc < 3)
+    {
+      di << "Please also provide an option to enable\n";
+      return 1;
+    }
+
+    if (argc < 4)
+    {
+      di << "Please also provide a layer id\n";
+      return 1;
+    }
+
+    TCollection_AsciiString aSubOp = TCollection_AsciiString (argv[2]);
+    Standard_Integer anId = Draw::Atoi (argv[3]);
+    Graphic3d_ZLayerSettings aSettings = aViewer->ZLayerSettings (anId);
+
+    if (aSubOp == "depthtest" || aSubOp == "test")
+    {
+      aSettings.EnableSetting (Graphic3d_ZLayerDepthTest);
+    }
+    else if (aSubOp == "depthwrite" || aSubOp == "write")
+    {
+      aSettings.EnableSetting (Graphic3d_ZLayerDepthWrite);
+    }
+    else if (aSubOp == "depthclear" || aSubOp == "clear")
+    {
+      aSettings.EnableSetting (Graphic3d_ZLayerDepthClear);
+    }
+    else if (aSubOp == "depthoffset" || aSubOp == "offset")
+    {
+      if (argc < 6)
+      {
+        di << "Please also provide a factor and units values for depth offset\n";
+        di << "Format is: vzlayer enable offset [factor] [units] [layerId]\n";
+        return 1;
+      }
+
+      Standard_ShortReal aFactor = static_cast<Standard_ShortReal> (Draw::Atof (argv[3]));
+      Standard_ShortReal aUnits  = static_cast<Standard_ShortReal> (Draw::Atof (argv[4]));
+      anId = Draw::Atoi (argv[5]);
+      aSettings = aViewer->ZLayerSettings (anId);
+
+      aSettings.DepthOffsetFactor = aFactor;
+      aSettings.DepthOffsetUnits  = aUnits;
+
+      aSettings.EnableSetting (Graphic3d_ZLayerDepthOffset);
+    }
+    else if (aSubOp == "positiveoffset" || aSubOp == "poffset")
+    {
+      aSettings.SetDepthOffsetPositive();
+    }
+    else if (aSubOp == "negativeoffset" || aSubOp == "noffset")
+    {
+      aSettings.SetDepthOffsetNegative();
+    }
+
+    aViewer->SetZLayerSettings (anId, aSettings);
+  }
+  else if (anOp == "disable")
+  {
+    if (argc < 3)
+    {
+      di << "Please also provide an option to disable\n";
+      return 1;
+    }
+
+    if (argc < 4)
+    {
+      di << "Please also provide a layer id\n";
+      return 1;
+    }
+
+    TCollection_AsciiString aSubOp = TCollection_AsciiString (argv[2]);
+    Standard_Integer anId = Draw::Atoi (argv[3]);
+    Graphic3d_ZLayerSettings aSettings = aViewer->ZLayerSettings (anId);
+
+    if (aSubOp == "depthtest" || aSubOp == "test")
+    {
+      aSettings.DisableSetting (Graphic3d_ZLayerDepthTest);
+    }
+    else if (aSubOp == "depthwrite" || aSubOp == "write")
+    {
+      aSettings.DisableSetting (Graphic3d_ZLayerDepthWrite);
+    }
+    else if (aSubOp == "depthclear" || aSubOp == "clear")
+    {
+      aSettings.DisableSetting (Graphic3d_ZLayerDepthClear);
+    }
+    else if (aSubOp == "depthoffset" || aSubOp == "offset")
+    {
+      aSettings.DisableSetting (Graphic3d_ZLayerDepthOffset);
+    }
+
+    aViewer->SetZLayerSettings (anId, aSettings);
+  }
+  else
+  {
+    di << "Invalid operation, please use { add / del / get / settings / enable / disable}\n";
+    return 1;
+  }
+
+  return 0;
+}
+
+DEFINE_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
+
+// this class provides a presentation of text item in v3d view under-/overlayer
+class V3d_TextItem : public Visual3d_LayerItem
+{
+public:
+
+  // CASCADE RTTI
+  DEFINE_STANDARD_RTTI(V3d_TextItem)
+
+  // constructor
+  Standard_EXPORT V3d_TextItem(const TCollection_AsciiString& theText,
+                               const Standard_Real theX1,
+                               const Standard_Real theY1,
+                               const Standard_Real theHeight,
+                               const TCollection_AsciiString& theFontName,
+                               const Quantity_Color& theColor,
+                               const Quantity_Color& theSubtitleColor,
+                               const Aspect_TypeOfDisplayText& theTypeOfDisplay,
+                               const Handle(Visual3d_Layer)& theLayer);
+
+  // redraw method
+  Standard_EXPORT void RedrawLayerPrs();
+
+private:
+
+  Standard_Real            myX1;
+  Standard_Real            myY1;
+  TCollection_AsciiString  myText;
+  Standard_Real            myHeight;
+  Handle(Visual3d_Layer)   myLayer;
+  Quantity_Color           myColor;
+  Quantity_Color           mySubtitleColor;
+  Aspect_TypeOfDisplayText myType;
+  TCollection_AsciiString  myFontName;
+};
+
+IMPLEMENT_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
+IMPLEMENT_STANDARD_RTTIEXT(V3d_TextItem, Visual3d_LayerItem)
+
+// create and add to display the text item
+V3d_TextItem::V3d_TextItem (const TCollection_AsciiString& theText,
+                            const Standard_Real theX1,
+                            const Standard_Real theY1,
+                            const Standard_Real theHeight,
+                            const TCollection_AsciiString& theFontName,
+                            const Quantity_Color& theColor,
+                            const Quantity_Color& theSubtitleColor,
+                            const Aspect_TypeOfDisplayText& theTypeOfDisplay,
+                            const Handle(Visual3d_Layer)& theLayer)
+ : myX1 (theX1), myY1 (theY1),
+   myText (theText),
+   myHeight (theHeight),
+   myLayer (theLayer),
+   myColor (theColor),
+   mySubtitleColor (theSubtitleColor),
+   myType (theTypeOfDisplay),
+   myFontName (theFontName)
+{
+  if (!myLayer.IsNull ())
+    myLayer->AddLayerItem (this);
+}
+
+// render item
+void V3d_TextItem::RedrawLayerPrs ()
+{
+  if (myLayer.IsNull ())
+    return;
+
+  myLayer->SetColor (myColor);
+  myLayer->SetTextAttributes (myFontName.ToCString (), myType, mySubtitleColor);
+  myLayer->DrawText (myText.ToCString (), myX1, myY1, myHeight);
+}
+
+DEFINE_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
+
+// The Visual3d_LayerItem line item for "vlayerline" command
+// it provides a presentation of line with user-defined
+// linewidth, linetype and transparency.
+class V3d_LineItem : public Visual3d_LayerItem
+{
+public:
+  // CASCADE RTTI
+  DEFINE_STANDARD_RTTI(V3d_LineItem)
+
+  // constructor
+  Standard_EXPORT V3d_LineItem(Standard_Real X1, Standard_Real Y1,
+                               Standard_Real X2, Standard_Real Y2,
+                               V3d_LayerMgrPointer theLayerMgr,
+                               Aspect_TypeOfLine theType = Aspect_TOL_SOLID,
+                               Standard_Real theWidth    = 0.5,
+                               Standard_Real theTransp   = 1.0);
+
+  // redraw method
+  Standard_EXPORT   void RedrawLayerPrs();
+
+private:
+
+  Standard_Real       myX1, myY1, myX2, myY2;
+  V3d_LayerMgrPointer myLayerMgr;
+  Aspect_TypeOfLine   myType;
+  Standard_Real       myWidth;
+  Standard_Real       myTransparency;
+};
+
+IMPLEMENT_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
+IMPLEMENT_STANDARD_RTTIEXT(V3d_LineItem, Visual3d_LayerItem)
+
+// default constructor for line item
+V3d_LineItem::V3d_LineItem(Standard_Real X1, Standard_Real Y1,
+                           Standard_Real X2, Standard_Real Y2,
+                           V3d_LayerMgrPointer theLayerMgr,
+                           Aspect_TypeOfLine theType,
+                           Standard_Real theWidth,
+                           Standard_Real theTransp) :
+  myX1(X1), myY1(Y1), myX2(X2), myY2(Y2), myLayerMgr(theLayerMgr),
+  myType(theType), myWidth(theWidth), myTransparency(theTransp)
+{
+  if (myLayerMgr && !myLayerMgr->Overlay().IsNull())
+    myLayerMgr->Overlay()->AddLayerItem (this);
+}
+
+// render line
+void V3d_LineItem::RedrawLayerPrs ()
+{
+  Handle (Visual3d_Layer) aOverlay;
+
+  if (myLayerMgr)
+    aOverlay = myLayerMgr->Overlay();
+
+  if (!aOverlay.IsNull())
+  {
+    Quantity_Color aColor(1.0, 0, 0, Quantity_TOC_RGB);
+    aOverlay->SetColor(aColor);
+    aOverlay->SetTransparency((Standard_ShortReal)myTransparency);
+    aOverlay->SetLineAttributes((Aspect_TypeOfLine)myType, myWidth);
+    aOverlay->BeginPolyline();
+    aOverlay->AddVertex(myX1, myY1);
+    aOverlay->AddVertex(myX2, myY2);
+    aOverlay->ClosePrimitive();
+  }
+}
+
+//=============================================================================
+//function : VLayerLine
+//purpose  : Draws line in the v3d view layer with given attributes: linetype,
+//         : linewidth, transparency coefficient
+//============================================================================
+static int VLayerLine(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+{
+  // get the active view
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    di << "Call vinit before!\n";
+    return 1;
+  }
+  else if (argc < 5)
+  {
+    di << "Use: " << argv[0];
+    di << " x1 y1 x2 y2 [linewidth = 0.5] [linetype = 0] [transparency = 1]\n";
+    di << " linetype : { 0 | 1 | 2 | 3 } \n";
+    di << "              0 - solid  \n";
+    di << "              1 - dashed \n";
+    di << "              2 - dot    \n";
+    di << "              3 - dashdot\n";
+    di << " transparency : { 0.0 - 1.0 } \n";
+    di << "                  0.0 - transparent\n";
+    di << "                  1.0 - visible    \n";
+    return 1;
+  }
+
+  // get the input params
+  Standard_Real X1 = Draw::Atof(argv[1]);
+  Standard_Real Y1 = Draw::Atof(argv[2]);
+  Standard_Real X2 = Draw::Atof(argv[3]);
+  Standard_Real Y2 = Draw::Atof(argv[4]);
+
+  Standard_Real    aWidth = 0.5;
+  Standard_Integer aType  = 0;
+  Standard_Real    aTransparency = 1.0;
+
+  // has width
+  if (argc > 5)
+    aWidth = Draw::Atof(argv[5]);
+
+  // has type
+  if (argc > 6)
+     aType = (Standard_Integer) Draw::Atoi(argv[6]);
+
+  // has transparency
+  if (argc > 7)
+  {
+    aTransparency = Draw::Atof(argv[7]);
+    if (aTransparency < 0 || aTransparency > 1.0)
+      aTransparency = 1.0;
+  }
+
+  // select appropriate line type
+  Aspect_TypeOfLine aLineType;
+  switch (aType)
+  {
+    case 1:
+      aLineType = Aspect_TOL_DASH;
+    break;
+
+    case 2:
+      aLineType = Aspect_TOL_DOT;
+    break;
+
+    case 3:
+      aLineType = Aspect_TOL_DOTDASH;
+    break;
+
+    default:
+      aLineType = Aspect_TOL_SOLID;
+  }
+
+  // replace layer manager
+  Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr(aView);
+  aView->SetLayerMgr(aMgr);
+
+  // add line item
+  Handle (V3d_LineItem) anItem = new V3d_LineItem(X1, Y1, X2, Y2,
+                                                  aMgr.operator->(),
+                                                  aLineType, aWidth,
+                                                  aTransparency);
+
+  // update view
+  aView->MustBeResized();
+  aView->Redraw();
+
+  return 0;
+}
+
+//=======================================================================
+//function : VOverlayText
+//purpose  : Test text displaying in view overlay
+//=======================================================================
+static int VOverlayText (Draw_Interpretor& di, Standard_Integer argc, const char**argv)
+{
+  // get the active view
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    di << "No active view. Please call vinit.\n";
+    return 1;
+  }
+  else if (argc < 4 || argc > 13)
+  {
+    di << "Use: " << argv[0];
+    di << " text x y [height] [font_name] [text_color: R G B] [displayType]\n";
+    di << "[background_color: R G B]\n";
+    di << "  height - pixel height of the text (default=10.0)\n";
+    di << "  font_name - name of font (default=courier)\n";
+    di << "  text_color - R G B values of text color (default=255.0 255.0 255.0)\n";
+    di << "  display_type = {normal/subtitle/decal/blend/dimension}, (default=normal)\n";
+    di << "  background_color- R G B values used for subtitle and decal text\n";
+    di << "(default=255.0 255.0 255.0)\n";
+    return 1;
+  }
+
+  TCollection_AsciiString aText (argv[1]);
+  Standard_Real aPosX = Draw::Atof(argv[2]);
+  Standard_Real aPosY = Draw::Atof(argv[3]);
+  Standard_Real aHeight = (argc >= 5) ? Draw::Atof (argv[4]) : 10.0;
+
+  // font name
+  TCollection_AsciiString aFontName = "Courier";
+  if (argc >= 6)
+    aFontName = TCollection_AsciiString (argv[5]);
+
+  // text colors
+  Quantity_Parameter aColorRed   = 1.0;
+  Quantity_Parameter aColorGreen = 1.0;
+  Quantity_Parameter aColorBlue  = 1.0;
+  if (argc >= 9)
+  {
+    aColorRed   = Draw::Atof (argv[6])/255.;
+    aColorGreen = Draw::Atof (argv[7])/255.;
+    aColorBlue  = Draw::Atof (argv[8])/255.;
+  }
+
+  // display type
+  TCollection_AsciiString aDispStr;
+  if (argc >= 10)
+    aDispStr = TCollection_AsciiString (argv[9]);
+
+  Aspect_TypeOfDisplayText aTextType = Aspect_TODT_NORMAL;
+  if (aDispStr.IsEqual ("subtitle"))
+    aTextType = Aspect_TODT_SUBTITLE;
+  else if (aDispStr.IsEqual ("decal"))
+    aTextType = Aspect_TODT_DEKALE;
+  else if (aDispStr.IsEqual ("blend"))
+    aTextType = Aspect_TODT_BLEND;
+  else if (aDispStr.IsEqual ("dimension"))
+    aTextType = Aspect_TODT_DIMENSION;
+
+  // subtitle color
+  Quantity_Parameter aSubRed   = 1.0;
+  Quantity_Parameter aSubGreen = 1.0;
+  Quantity_Parameter aSubBlue  = 1.0;
+  if (argc == 13)
+  {
+    aSubRed   = Draw::Atof (argv[10])/255.;
+    aSubGreen = Draw::Atof (argv[11])/255.;
+    aSubBlue  = Draw::Atof (argv[12])/255.;
+  }
+
+  // check fo current overlay
+  Handle(Visual3d_Layer) anOverlay = aView->Viewer()->Viewer()->OverLayer ();
+  if (anOverlay.IsNull ())
+  {
+    Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr (aView);
+    anOverlay = aMgr->Overlay ();
+    aView->SetLayerMgr (aMgr);
+  }
+
+  Quantity_Color aTextColor (aColorRed, aColorGreen,
+    aColorBlue, Quantity_TOC_RGB);
+  Quantity_Color aSubtColor (aSubRed, aSubGreen,
+    aSubBlue, Quantity_TOC_RGB);
+
+  // add text item
+  Handle(V3d_TextItem) anItem = new V3d_TextItem (aText, aPosX, aPosY,
+    aHeight, aFontName, aTextColor, aSubtColor, aTextType, anOverlay);
+
+  // update view
+  aView->MustBeResized();
+  aView->Redraw();
+
+  return 0;
+}
+
+//==============================================================================
+//function : VGrid
+//purpose  :
+//==============================================================================
+
+static int VGrid (Draw_Interpretor& /*theDI*/,
+                  Standard_Integer  theArgNb,
+                  const char**      theArgVec)
+{
+  // get the active view
+  Handle(V3d_View)   aView   = ViewerTest::CurrentView();
+  Handle(V3d_Viewer) aViewer = ViewerTest::GetViewerFromContext();
+  if (aView.IsNull() || aViewer.IsNull())
+  {
+    std::cerr << "No active view. Please call vinit.\n";
+    return 1;
+  }
+
+  Aspect_GridType     aType = aViewer->GridType();
+  Aspect_GridDrawMode aMode = aViewer->GridDrawMode();
+
+  Standard_Integer anIter = 1;
+  for (; anIter < theArgNb; ++anIter)
+  {
+    const char* aValue = theArgVec[anIter];
+    if (*aValue == 'r')
+    {
+      aType = Aspect_GT_Rectangular;
+    }
+    else if (*aValue == 'c')
+    {
+      aType = Aspect_GT_Circular;
+    }
+    else if (*aValue == 'l')
+    {
+      aMode = Aspect_GDM_Lines;
+    }
+    else if (*aValue == 'p')
+    {
+      aMode = Aspect_GDM_Points;
+    }
+    else if (strcmp (aValue, "off" ) == 0)
+    {
+      aViewer->DeactivateGrid();
+      return 0;
+    }
+    else
+    {
+      break;
+    }
+  }
+
+  Standard_Integer aTail = (theArgNb - anIter);
+  if (aTail == 0)
+  {
+    aViewer->ActivateGrid (aType, aMode);
+    return 0;
+  }
+  else if (aTail != 2 && aTail != 5)
+  {
+    std::cerr << "Incorrect arguments number! Usage:\n"
+              << "vgrid [off] [Mode={r|c}] [Type={l|p}] [OriginX OriginY [StepX/StepRadius StepY/DivNb RotAngle]]\n";
+    return 1;
+  }
+
+  Quantity_Length anOriginX, anOriginY;
+  Quantity_PlaneAngle aRotAngle;
+  if (aType == Aspect_GT_Rectangular)
+  {
+    Quantity_Length aRStepX, aRStepY;
+    aViewer->RectangularGridValues (anOriginX, anOriginY, aRStepX, aRStepY, aRotAngle);
+
+    anOriginX = Draw::Atof (theArgVec[anIter++]);
+    anOriginY = Draw::Atof (theArgVec[anIter++]);
+    if (aTail == 5)
+    {
+      aRStepX   = Draw::Atof (theArgVec[anIter++]);
+      aRStepY   = Draw::Atof (theArgVec[anIter++]);
+      aRotAngle = Draw::Atof (theArgVec[anIter++]);
+    }
+    aViewer->SetRectangularGridValues (anOriginX, anOriginY, aRStepX, aRStepY, aRotAngle);
+    aViewer->ActivateGrid (aType, aMode);
+  }
+  else if (aType == Aspect_GT_Circular)
+  {
+    Quantity_Length aRadiusStep;
+    Standard_Integer aDivisionNumber;
+    aViewer->CircularGridValues (anOriginX, anOriginY, aRadiusStep, aDivisionNumber, aRotAngle);
+
+    anOriginX = Draw::Atof (theArgVec[anIter++]);
+    anOriginY = Draw::Atof (theArgVec[anIter++]);
+    if (aTail == 5)
+    {
+      aRadiusStep     = Draw::Atof (theArgVec[anIter++]);
+      aDivisionNumber = Draw::Atoi (theArgVec[anIter++]);
+      aRotAngle       = Draw::Atof (theArgVec[anIter++]);
+    }
+
+    aViewer->SetCircularGridValues (anOriginX, anOriginY, aRadiusStep, aDivisionNumber, aRotAngle);
+    aViewer->ActivateGrid (aType, aMode);
+  }
+
+  return 0;
+}
+
+//==============================================================================
+//function : VFps
+//purpose  :
+//==============================================================================
+
+static int VFps (Draw_Interpretor& theDI,
+                 Standard_Integer  theArgNb,
+                 const char**      theArgVec)
+{
+  // get the active view
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    std::cerr << "No active view. Please call vinit.\n";
+    return 1;
+  }
+
+  Standard_Integer aFramesNb = (theArgNb > 1) ? Draw::Atoi(theArgVec[1]) : 100;
+  if (aFramesNb <= 0)
+  {
+    std::cerr << "Incorrect arguments!\n";
+    return 1;
+  }
+
+  // the time is meaningless for first call
+  // due to async OpenGl rendering
+  aView->Redraw();
+
+  // redraw view in loop to estimate average values
+  OSD_Timer aTimer;
+  aTimer.Start();
+  for (Standard_Integer anInter = 0; anInter < aFramesNb; ++anInter)
+  {
+    aView->Redraw();
+  }
+  aTimer.Stop();
+  Standard_Real aCpu;
+  const Standard_Real aTime = aTimer.ElapsedTime();
+  aTimer.OSD_Chronometer::Show (aCpu);
+
+  const Standard_Real aFpsAver = Standard_Real(aFramesNb) / aTime;
+  const Standard_Real aCpuAver = aCpu / Standard_Real(aFramesNb);
+
+  // return statistics
+  theDI << "FPS: " << aFpsAver << "\n"
+        << "CPU: " << (1000.0 * aCpuAver) << " msec\n";
+
+  return 0;
+}
+
+//==============================================================================
+//function : VGlDebug
+//purpose  :
+//==============================================================================
+
+static int VGlDebug (Draw_Interpretor& theDI,
+                     Standard_Integer  theArgNb,
+                     const char**      theArgVec)
+{
+  Handle(OpenGl_GraphicDriver) aDriver;
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (!aView.IsNull())
+  {
+    aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aView->Viewer()->Driver());
+  }
+  if (theArgNb < 2)
+  {
+    if (aDriver.IsNull())
+    {
+      std::cerr << "No active view. Please call vinit.\n";
+      return 0;
+    }
+
+    Standard_Boolean isActive = OpenGl_Context::CheckExtension ((const char* )glGetString (GL_EXTENSIONS),
+                                                                "GL_ARB_debug_output");
+    std::cout << "Active graphic driver: debug " << (isActive ? "ON" : "OFF") << "\n";
+    theDI << (isActive ? "1" : "0");
+    return 0;
+  }
+
+  const Standard_Boolean toEnableDebug = Draw::Atoi (theArgVec[1]) != 0;
+  ViewerTest_myDefaultCaps.contextDebug = toEnableDebug;
+  ViewerTest_myDefaultCaps.glslWarnings = toEnableDebug;
+  if (aDriver.IsNull())
+  {
+    return 0;
+  }
+
+  aDriver->ChangeOptions().glslWarnings = toEnableDebug;
+  return 0;
+}
+
+//==============================================================================
+//function : VVbo
+//purpose  :
+//==============================================================================
+
+static int VVbo (Draw_Interpretor& theDI,
+                 Standard_Integer  theArgNb,
+                 const char**      theArgVec)
+{
+  const Standard_Boolean toSet    = (theArgNb > 1);
+  const Standard_Boolean toUseVbo = toSet ? (Draw::Atoi (theArgVec[1]) == 0) : 1;
+  if (toSet)
+  {
+    ViewerTest_myDefaultCaps.vboDisable = toUseVbo;
+  }
+
+  // get the context
+  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
+  if (aContextAIS.IsNull())
+  {
+    if (!toSet)
+    {
+      std::cerr << "No active view!\n";
+    }
+    return 1;
+  }
+  Handle(OpenGl_GraphicDriver) aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aContextAIS->CurrentViewer()->Driver());
+  if (!aDriver.IsNull())
+  {
+    if (!toSet)
+    {
+      theDI << (aDriver->Options().vboDisable ? "0" : "1") << "\n";
+    }
+    else
+    {
+      aDriver->ChangeOptions().vboDisable = toUseVbo;
+    }
+  }
+
+  return 0;
+}
+
+//==============================================================================
+//function : VCaps
+//purpose  :
+//==============================================================================
+
+static int VCaps (Draw_Interpretor& theDI,
+                  Standard_Integer  theArgNb,
+                  const char**      theArgVec)
+{
+  OpenGl_Caps* aCaps = &ViewerTest_myDefaultCaps;
+  Handle(OpenGl_GraphicDriver)   aDriver;
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if (!aContext.IsNull())
+  {
+    aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aContext->CurrentViewer()->Driver());
+    aCaps   = &aDriver->ChangeOptions();
+  }
+
+  if (theArgNb < 2)
+  {
+    theDI << "VBO:     " << (aCaps->vboDisable        ? "0" : "1") << "\n";
+    theDI << "Sprites: " << (aCaps->pntSpritesDisable ? "0" : "1") << "\n";
+    theDI << "SoftMode:" << (aCaps->contextNoAccel    ? "1" : "0") << "\n";
+    theDI << "FFP:     " << (aCaps->ffpEnable         ? "1" : "0") << "\n";
+    return 0;
+  }
+
+  ViewerTest_AutoUpdater anUpdateTool (aContext, ViewerTest::CurrentView());
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
+  {
+    Standard_CString        anArg     = theArgVec[anArgIter];
+    TCollection_AsciiString anArgCase (anArg);
+    anArgCase.LowerCase();
+    if (anUpdateTool.parseRedrawMode (anArg))
+    {
+      continue;
+    }
+    else if (anArgCase == "-ffp")
+    {
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aCaps->ffpEnable = toEnable;
+    }
+    else if (anArgCase == "-vbo")
+    {
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aCaps->vboDisable = !toEnable;
+    }
+    else if (anArgCase == "-sprite"
+          || anArgCase == "-sprites")
+    {
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aCaps->pntSpritesDisable = !toEnable;
+    }
+    else if (anArgCase == "-softmode")
+    {
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aCaps->contextNoAccel = toEnable;
+    }
+    else if (anArgCase == "-accel"
+          || anArgCase == "-acceleration")
+    {
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aCaps->contextNoAccel = !toEnable;
+    }
+    else
+    {
+      std::cout << "Error: unknown argument '" << anArg << "'\n";
+      return 1;
+    }
+  }
+  if (aCaps != &ViewerTest_myDefaultCaps)
+  {
+    ViewerTest_myDefaultCaps = *aCaps;
+  }
+  return 0;
+}
+
+//==============================================================================
+//function : VMemGpu
+//purpose  :
+//==============================================================================
+
+static int VMemGpu (Draw_Interpretor& theDI,
+                    Standard_Integer  theArgNb,
+                    const char**      theArgVec)
+{
+  // get the context
+  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
+  if (aContextAIS.IsNull())
+  {
+    std::cerr << "No active view. Please call vinit.\n";
+    return 1;
+  }
+
+  Handle(Graphic3d_GraphicDriver) aDriver = aContextAIS->CurrentViewer()->Driver();
+  if (aDriver.IsNull())
+  {
+    std::cerr << "Graphic driver not available.\n";
+    return 1;
+  }
+
+  Standard_Size aFreeBytes = 0;
+  TCollection_AsciiString anInfo;
+  if (!aDriver->MemoryInfo (aFreeBytes, anInfo))
+  {
+    std::cerr << "Information not available.\n";
+    return 1;
+  }
+
+  if (theArgNb > 1 && *theArgVec[1] == 'f')
+  {
+    theDI << Standard_Real (aFreeBytes);
+  }
+  else
+  {
+    theDI << anInfo;
+  }
+
+  return 0;
+}
+
+// ==============================================================================
+// function : VReadPixel
+// purpose  :
+// ==============================================================================
+static int VReadPixel (Draw_Interpretor& theDI,
+                       Standard_Integer  theArgNb,
+                       const char**      theArgVec)
+{
+  // get the active view
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    std::cerr << "No active view. Please call vinit.\n";
+    return 1;
+  }
+  else if (theArgNb < 3)
+  {
+    std::cerr << "Usage : " << theArgVec[0] << " xPixel yPixel [{rgb|rgba|depth|hls|rgbf|rgbaf}=rgba] [name]\n";
+    return 1;
+  }
 
-          KeySym ks_ret ;
-          char buf_ret[11] ;
-          int ret_len ;
-          XComposeStatus status_in_out;
+  Image_PixMap::ImgFormat aFormat     = Image_PixMap::IsBigEndianHost() ? Image_PixMap::ImgRGBA : Image_PixMap::ImgBGRA;
+  Graphic3d_BufferType    aBufferType = Graphic3d_BT_RGBA;
 
-          ret_len = XLookupString( ( XKeyEvent *)&report ,
-            (char *) buf_ret , 10 ,
-            &ks_ret , &status_in_out ) ;
+  Standard_Integer aWidth, aHeight;
+  aView->Window()->Size (aWidth, aHeight);
+  const Standard_Integer anX = Draw::Atoi (theArgVec[1]);
+  const Standard_Integer anY = Draw::Atoi (theArgVec[2]);
+  if (anX < 0 || anX >= aWidth || anY < 0 || anY > aHeight)
+  {
+    std::cerr << "Pixel coordinates (" << anX << "; " << anY << ") are out of view (" << aWidth << " x " << aHeight << ")\n";
+    return 1;
+  }
 
+  Standard_Boolean toShowName = Standard_False;
+  Standard_Boolean toShowHls  = Standard_False;
+  for (Standard_Integer anIter = 3; anIter < theArgNb; ++anIter)
+  {
+    const char* aParam = theArgVec[anIter];
+    if ( strcasecmp( aParam, "rgb" ) == 0 )
+    {
+      aFormat     = Image_PixMap::IsBigEndianHost() ? Image_PixMap::ImgRGB : Image_PixMap::ImgBGR;
+      aBufferType = Graphic3d_BT_RGB;
+    }
+    else if ( strcasecmp( aParam, "hls" ) == 0 )
+    {
+      aFormat     = Image_PixMap::IsBigEndianHost() ? Image_PixMap::ImgRGB : Image_PixMap::ImgBGR;
+      aBufferType = Graphic3d_BT_RGB;
+      toShowHls   = Standard_True;
+    }
+    else if ( strcasecmp( aParam, "rgbf" ) == 0 )
+    {
+      aFormat     = Image_PixMap::ImgRGBF;
+      aBufferType = Graphic3d_BT_RGB;
+    }
+    else if ( strcasecmp( aParam, "rgba" ) == 0 )
+    {
+      aFormat     = Image_PixMap::IsBigEndianHost() ? Image_PixMap::ImgRGBA : Image_PixMap::ImgBGRA;
+      aBufferType = Graphic3d_BT_RGBA;
+    }
+    else if ( strcasecmp( aParam, "rgbaf" ) == 0 )
+    {
+      aFormat     = Image_PixMap::ImgRGBAF;
+      aBufferType = Graphic3d_BT_RGBA;
+    }
+    else if ( strcasecmp( aParam, "depth" ) == 0 )
+    {
+      aFormat     = Image_PixMap::ImgGrayF;
+      aBufferType = Graphic3d_BT_Depth;
+    }
+    else if ( strcasecmp( aParam, "name" ) == 0 )
+    {
+      toShowName = Standard_True;
+    }
+  }
 
-          buf_ret[ret_len] = '\0' ;
+  Image_PixMap anImage;
+  if (!anImage.InitTrash (aFormat, aWidth, aHeight))
+  {
+    std::cerr << "Image allocation failed\n";
+    return 1;
+  }
+  else if (!aView->ToPixMap (anImage, aWidth, aHeight, aBufferType))
+  {
+    std::cerr << "Image dump failed\n";
+    return 1;
+  }
 
-          if ( ret_len ) {
-            ProcessKeyPress( buf_ret);
-          }
-        }
-        break;
-      case ButtonPress:
-        //  cout << "ButtonPress" << endl;
+  Quantity_Parameter anAlpha;
+  Quantity_Color aColor = anImage.PixelColor (anX, anY, anAlpha);
+  if (toShowName)
+  {
+    if (aBufferType == Graphic3d_BT_RGBA)
+    {
+      theDI << Quantity_Color::StringName (aColor.Name()) << " " << anAlpha;
+    }
+    else
+    {
+      theDI << Quantity_Color::StringName (aColor.Name());
+    }
+  }
+  else
+  {
+    switch (aBufferType)
+    {
+      default:
+      case Graphic3d_BT_RGB:
+      {
+        if (toShowHls)
         {
-          X_ButtonPress = report.xbutton.x;
-          Y_ButtonPress = report.xbutton.y;
-
-          if ( report.xbutton.button == Button1 )
-            if(  report.xbutton.state & ControlMask )
-              pick = ProcessButton1Press( argc, argv, pick,
-              ( report.xbutton.state & ShiftMask) );
-            else
-            {
-              IsDragged = Standard_True;
-              xx1 = X_ButtonPress;
-              yy1 = Y_ButtonPress;
-              DragFirst = Standard_True;
-            }
-          else if ( report.xbutton.button == Button3 )
-            // Start rotation
-            ProcessButton3Press();
+          theDI << aColor.Hue() << " " << aColor.Light() << " " << aColor.Saturation();
         }
-        break;
-      case ButtonRelease:
+        else
         {
-          //    cout<<"relachement du bouton "<<(report.xbutton.button==3 ? "3": "on s'en fout") <<endl;
-          //    cout << IsDragged << endl;
-          //    cout << DragFirst << endl;
-
-          if( IsDragged )
-          {
-            if( !DragFirst )
-            {
-              Aspect_Handle aWindow = VT_GetWindow()->XWindow();
-              GC gc = XCreateGC( display, aWindow, 0, 0 );
-              //  XSetFunction( display, gc, GXinvert );
-              XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
-            }
-
-            Handle( AIS_InteractiveContext ) aContext = ViewerTest::GetAISContext();
-            if( aContext.IsNull() )
-            {
-              cout << "The context is null. Please use vinit before createmesh" << endl;
-              return 0;
-            }
-
-            Standard_Boolean ShiftPressed = ( report.xbutton.state & ShiftMask );
-            if( report.xbutton.button==1 )
-              if( DragFirst )
-                if( ShiftPressed )
-                {
-                  aContext->ShiftSelect();
-                  //                   cout << "shift select" << endl;
-                }
-                else
-                {
-                  aContext->Select();
-                  //                   cout << "select" << endl;
-                }
-              else
-                if( ShiftPressed )
-                {
-                  aContext->ShiftSelect( min( xx1, xx2 ), min( yy1, yy2 ),
-                    max( xx1, xx2 ), max( yy1, yy2 ),
-                    ViewerTest::CurrentView());
-                  //                   cout << "shift select" << endl;
-                }
-                else
-                {
-                  aContext->Select( min( xx1, xx2 ), min( yy1, yy2 ),
-                    max( xx1, xx2 ), max( yy1, yy2 ),
-                    ViewerTest::CurrentView() );
-                  //                   cout << "select" << endl;
-                }
-            else
-              ProcessButtonRelease();
-
-            IsDragged = Standard_False;
-          }
-          else
-            ProcessButtonRelease();
+          theDI << aColor.Red() << " " << aColor.Green() << " " << aColor.Blue();
         }
         break;
-      case MotionNotify:
-        {
-          //    XEvent dummy;
-
-          X_Motion = report.xmotion.x;
-          Y_Motion = report.xmotion.y;
-
-          if( IsDragged )
-          {
-            Aspect_Handle aWindow = VT_GetWindow()->XWindow();
-            GC gc = XCreateGC( display, aWindow, 0, 0 );
-            XSetFunction( display, gc, GXinvert );
-
-            if( !DragFirst )
-              XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
-
-            xx2 = X_Motion;
-            yy2 = Y_Motion;
-            DragFirst = Standard_False;
+      }
+      case Graphic3d_BT_RGBA:
+      {
+        theDI << aColor.Red() << " " << aColor.Green() << " " << aColor.Blue() << " " << anAlpha;
+        break;
+      }
+      case Graphic3d_BT_Depth:
+      {
+        theDI << aColor.Red();
+        break;
+      }
+    }
+  }
 
-            //cout << "draw rect : " << xx2 << ", " << yy2 << endl;
-            XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
-          }
-          else
-          {
+  return 0;
+}
 
-            //cout << "MotionNotify " << X_Motion << "," << Y_Motion << endl;
+//==============================================================================
+//function : VDiffImage
+//purpose  : The draw-command compares two images.
+//==============================================================================
 
-            // remove all the ButtonMotionMask
-            while( XCheckMaskEvent( display, ButtonMotionMask, &report) ) ;
+static int VDiffImage (Draw_Interpretor& theDI, Standard_Integer theArgNb, const char** theArgVec)
+{
+  if (theArgNb < 6)
+  {
+    theDI << "Not enough arguments.\n";
+    return 1;
+  }
 
-            if ( ZClipIsOn && report.xmotion.state & ShiftMask ) {
-              if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
+  // image file names
+  const char* anImgPathRef = theArgVec[1];
+  const char* anImgPathNew = theArgVec[2];
 
-                Quantity_Length VDX, VDY;
+  // get string tolerance and check its validity
+  Standard_Real aTolColor = Draw::Atof (theArgVec[3]);
+  if (aTolColor < 0.0)
+    aTolColor = 0.0;
+  if (aTolColor > 1.0)
+    aTolColor = 1.0;
 
-                ViewerTest::CurrentView()->Size(VDX,VDY);
-                Standard_Real VDZ =0 ;
-                VDZ = ViewerTest::CurrentView()->ZSize();
+  Standard_Boolean toBlackWhite     = (Draw::Atoi (theArgVec[4]) == 1);
+  Standard_Boolean isBorderFilterOn = (Draw::Atoi (theArgVec[5]) == 1);
 
-                //          printf("%lf,%lf,%lf\n", VDX, VDY, VDZ);
-                printf("%f,%f,%f\n", VDX, VDY, VDZ);
+  // image file of difference
+  const char* aDiffImagePath = (theArgNb >= 7) ? theArgVec[6] : NULL;
 
-                Quantity_Length dx = 0 ;
-                dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
+  // compare the images
+  Image_Diff aComparer;
+  if (!aComparer.Init (anImgPathRef, anImgPathNew, toBlackWhite))
+  {
+    return 1;
+  }
 
-                cout << dx << endl;
+  aComparer.SetColorTolerance (aTolColor);
+  aComparer.SetBorderFilterOn (isBorderFilterOn);
+  Standard_Integer aDiffColorsNb = aComparer.Compare();
+  theDI << aDiffColorsNb << "\n";
 
-                dx = dx / VDX * VDZ;
+  // save image of difference
+  if (aDiffImagePath != NULL)
+  {
+    aComparer.SaveDiffImage (aDiffImagePath);
+  }
 
-                cout << dx << endl;
+  return 0;
+}
 
-                // Front = Depth + width/2.
-                //ViewerTest::CurrentView()->SetZClippingDepth(dx);
-                //ViewerTest::CurrentView()->SetZClippingWidth(0.);
+//=======================================================================
+//function : VSelect
+//purpose  : Emulates different types of selection by mouse:
+//           1) single click selection
+//           2) selection with rectangle having corners at pixel positions (x1,y1) and (x2,y2)
+//           3) selection with polygon having corners at
+//           pixel positions (x1,y1),...,(xn,yn)
+//           4) any of these selections with shift button pressed
+//=======================================================================
+static Standard_Integer VSelect (Draw_Interpretor& di,
+                                 Standard_Integer argc,
+                                 const char ** argv)
+{
+  if(argc < 3)
+  {
+    di << "Usage : " << argv[0] << " x1 y1 [x2 y2 [... xn yn]] [shift_selection = 1|0]" << "\n";
+    return 1;
+  }
 
-                ViewerTest::CurrentView()->Redraw();
-              }
-            }
+  Handle(AIS_InteractiveContext) myAIScontext = ViewerTest::GetAISContext();
+  if(myAIScontext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  const Standard_Boolean isShiftSelection = (argc>3 && !(argc%2) && (atoi(argv[argc-1])==1));
+  Handle(ViewerTest_EventManager) aCurrentEventManager = ViewerTest::CurrentEventManager();
+  aCurrentEventManager->MoveTo(atoi(argv[1]),atoi(argv[2]));
+  if(argc <= 4)
+  {
+    if(isShiftSelection)
+      aCurrentEventManager->ShiftSelect();
+    else
+      aCurrentEventManager->Select();
+  }
+  else if(argc <= 6)
+  {
+    if(isShiftSelection)
+      aCurrentEventManager->ShiftSelect(atoi(argv[1]),atoi(argv[2]),atoi(argv[3]),atoi(argv[4]));
+    else
+      aCurrentEventManager->Select(atoi(argv[1]),atoi(argv[2]),atoi(argv[3]),atoi(argv[4]));
+  }
+  else
+  {
+    Standard_Integer anUpper = 0;
 
-            if ( report.xmotion.state & ControlMask ) {
-              if ( report.xmotion.state & Button1Mask ) {
-                ProcessControlButton1Motion();
-              }
-              else if ( report.xmotion.state & Button2Mask ) {
-                ProcessControlButton2Motion();
-              }
-              else if ( report.xmotion.state & Button3Mask ) {
-                ProcessControlButton3Motion();
-              }
-            }
-            else {
-              ProcessMotion();
-            }
-          }
-        }
-        break;
-}
+    if(isShiftSelection)
+      anUpper = (argc-1)/2;
+    else
+      anUpper = argc/2;
+    TColgp_Array1OfPnt2d aPolyline(1,anUpper);
 
+    for(Standard_Integer i=1;i<=anUpper;++i)
+      aPolyline.SetValue(i,gp_Pnt2d(atoi(argv[2*i-1]),atoi(argv[2*i])));
 
-return pick;
+    if(isShiftSelection)
+      aCurrentEventManager->ShiftSelect(aPolyline);
+    else
+      aCurrentEventManager->Select(aPolyline);
+  }
+  return 0;
 }
 
-//==============================================================================
-//function : VProcessEvents
-//purpose  : call by Tk_CreateFileHandler() to be able to manage the
-//       event in the Viewer window
-//==============================================================================
-
-static void VProcessEvents(ClientData,int)
+//=======================================================================
+//function : VMoveTo
+//purpose  : Emulates cursor movement to defined pixel position
+//=======================================================================
+static Standard_Integer VMoveTo (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  //cout << "VProcessEvents" << endl;
+  if(argc != 3)
+  {
+    di << "Usage : " << argv[0] << " x y" << "\n";
+    return 1;
+  }
 
-  // test for X Event
-  while (XPending(display)) {
-    ViewerMainLoop( 0, NULL);
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
   }
+  ViewerTest::CurrentEventManager()->MoveTo(atoi(argv[1]),atoi(argv[2]));
+  return 0;
 }
-#endif
-
-//==============================================================================
-//function : OSWindowSetup
-//purpose  : Setup for the X11 window to be able to cath the event
-//==============================================================================
-
 
-static void OSWindowSetup()
+//=================================================================================================
+//function : VViewParams
+//purpose  : Gets or sets AIS View characteristics
+//=================================================================================================
+static int VViewParams (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-#ifndef WNT
-  // X11
+  Handle(V3d_View) anAISView = ViewerTest::CurrentView();
+  if (anAISView.IsNull())
+  {
+    std::cout << theArgVec[0] << ": please initialize or activate view.\n";
+    return 1;
+  }
 
-  Window  window   = VT_GetWindow()->XWindow();
+  if (theArgsNb == 1)
+  {
+    // print all of the available view parameters
+    Quantity_Factor anAISViewScale = anAISView->Scale();
+
+    Standard_Real anAISViewProjX = 0.0;
+    Standard_Real anAISViewProjY = 0.0;
+    Standard_Real anAISViewProjZ = 0.0;
+    anAISView->Proj (anAISViewProjX, anAISViewProjY, anAISViewProjZ);
+
+    Standard_Real anAISViewUpX = 0.0;
+    Standard_Real anAISViewUpY = 0.0;
+    Standard_Real anAISViewUpZ = 0.0;
+    anAISView->Up (anAISViewUpX, anAISViewUpY, anAISViewUpZ);
+
+    Standard_Real anAISViewAtX = 0.0;
+    Standard_Real anAISViewAtY = 0.0;
+    Standard_Real anAISViewAtZ = 0.0;
+    anAISView->At (anAISViewAtX, anAISViewAtY, anAISViewAtZ);
+
+    Standard_Real anAISViewEyeX = 0.0;
+    Standard_Real anAISViewEyeY = 0.0;
+    Standard_Real anAISViewEyeZ = 0.0;
+    anAISView->Eye (anAISViewEyeX, anAISViewEyeY, anAISViewEyeZ);
+
+    theDi << "Scale of current view: " << anAISViewScale << "\n";
+    theDi << "Proj on X : " << anAISViewProjX << "; on Y: " << anAISViewProjY << "; on Z: " << anAISViewProjZ << "\n";
+    theDi << "Up on X : " << anAISViewUpX << "; on Y: " << anAISViewUpY << "; on Z: " << anAISViewUpZ << "\n";
+    theDi << "At on X : " << anAISViewAtX << "; on Y: " << anAISViewAtY << "; on Z: " << anAISViewAtZ << "\n";
+    theDi << "Eye on X : " << anAISViewEyeX << "; on Y: " << anAISViewEyeY << "; on Z: " << anAISViewEyeZ << "\n";
+    return 0;
+  }
 
-  Standard_Address theDisplay = GetG3dDevice()->XDisplay();
-  display = (Display * ) theDisplay;
-  //  display = (Display *)GetG3dDevice()->XDisplay();
+  // -------------------------
+  //  Parse options and values
+  // -------------------------
 
-  XSynchronize(display, 1);
+  NCollection_DataMap<TCollection_AsciiString, Handle(TColStd_HSequenceOfAsciiString)> aMapOfKeysByValues;
+  TCollection_AsciiString aParseKey;
+  for (Standard_Integer anArgIt = 1; anArgIt < theArgsNb; ++anArgIt)
+  {
+    TCollection_AsciiString anArg (theArgVec [anArgIt]);
 
-  VT_GetWindow()->Map();
+    if (anArg.Value (1) == '-' && !anArg.IsRealValue())
+    {
+      aParseKey = anArg;
+      aParseKey.Remove (1);
+      aParseKey.UpperCase();
+      aMapOfKeysByValues.Bind (aParseKey, new TColStd_HSequenceOfAsciiString);
+      continue;
+    }
 
-  // X11 : For keyboard on SUN
-  XWMHints wmhints;
-  wmhints.flags = InputHint;
-  wmhints.input = 1;
+    if (aParseKey.IsEmpty())
+    {
+      std::cout << theArgVec[0] << ": values should be passed with key.\n";
+      std::cout << "Type help for more information.\n";
+      return 1;
+    }
 
-  XSetWMHints( display, window, &wmhints);
+    aMapOfKeysByValues(aParseKey)->Append (anArg);
+  }
 
-  XSelectInput( display, window,  ExposureMask | KeyPressMask |
-    ButtonPressMask | ButtonReleaseMask |
-    StructureNotifyMask |
-    PointerMotionMask |
-    Button1MotionMask | Button2MotionMask |
-    Button3MotionMask
-    );
+  // ---------------------------------------------
+  //  Change or print parameters, order plays role
+  // ---------------------------------------------
+
+  // Check arguments for validity
+  NCollection_DataMap<TCollection_AsciiString, Handle(TColStd_HSequenceOfAsciiString)>::Iterator aMapIt (aMapOfKeysByValues);
+  for (; aMapIt.More(); aMapIt.Next())
+  {
+    const TCollection_AsciiString& aKey = aMapIt.Key();
+    const Handle(TColStd_HSequenceOfAsciiString)& aValues = aMapIt.Value();
+
+    if (!(aKey.IsEqual ("SCALE")  && (aValues->Length() == 1 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("SIZE")   && (aValues->Length() == 1 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("EYE")    && (aValues->Length() == 3 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("AT")     && (aValues->Length() == 3 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("UP")     && (aValues->Length() == 3 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("PROJ")   && (aValues->Length() == 3 || aValues->IsEmpty()))
+     && !(aKey.IsEqual ("CENTER") &&  aValues->Length() == 2))
+    {
+      TCollection_AsciiString aLowerKey;
+      aLowerKey  = "-";
+      aLowerKey += aKey;
+      aLowerKey.LowerCase();
+      std::cout << theArgVec[0] << ": " << aLowerKey << " is unknown option, or number of arguments is invalid.\n";
+      std::cout << "Type help for more information.\n";
+      return 1;
+    }
+  }
 
-  XSynchronize(display, 0);
+  Handle(TColStd_HSequenceOfAsciiString) aValues;
 
-#else
-  // WNT
-#endif
+  // Change view parameters in proper order
+  if (aMapOfKeysByValues.Find ("SCALE", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      theDi << "Scale: " << anAISView->Scale() << "\n";
+    }
+    else
+    {
+      anAISView->SetScale (aValues->Value(1).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("SIZE", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      Standard_Real aSizeX = 0.0;
+      Standard_Real aSizeY = 0.0;
+      anAISView->Size (aSizeX, aSizeY);
+      theDi << "Size X: " << aSizeX << " Y: " << aSizeY << "\n";
+    }
+    else
+    {
+      anAISView->SetSize (aValues->Value(1).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("EYE", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      Standard_Real anEyeX = 0.0;
+      Standard_Real anEyeY = 0.0;
+      Standard_Real anEyeZ = 0.0;
+      anAISView->Eye (anEyeX, anEyeY, anEyeZ);
+      theDi << "Eye X: " << anEyeX << " Y: " << anEyeY << " Z: " << anEyeZ << "\n";
+    }
+    else
+    {
+      anAISView->SetEye (aValues->Value(1).RealValue(), aValues->Value(2).RealValue(), aValues->Value(3).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("AT", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      Standard_Real anAtX = 0.0;
+      Standard_Real anAtY = 0.0;
+      Standard_Real anAtZ = 0.0;
+      anAISView->At (anAtX, anAtY, anAtZ);
+      theDi << "At X: " << anAtX << " Y: " << anAtY << " Z: " << anAtZ << "\n";
+    }
+    else
+    {
+      anAISView->SetAt (aValues->Value(1).RealValue(), aValues->Value(2).RealValue(), aValues->Value(3).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("PROJ", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      Standard_Real aProjX = 0.0;
+      Standard_Real aProjY = 0.0;
+      Standard_Real aProjZ = 0.0;
+      anAISView->Proj (aProjX, aProjY, aProjZ);
+      theDi << "Proj X: " << aProjX << " Y: " << aProjY << " Z: " << aProjZ << "\n";
+    }
+    else
+    {
+      anAISView->SetProj (aValues->Value(1).RealValue(), aValues->Value(2).RealValue(), aValues->Value(3).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("UP", aValues))
+  {
+    if (aValues->IsEmpty())
+    {
+      Standard_Real anUpX = 0.0;
+      Standard_Real anUpY = 0.0;
+      Standard_Real anUpZ = 0.0;
+      anAISView->Up (anUpX, anUpY, anUpZ);
+      theDi << "Up X: " << anUpX << " Y: " << anUpY << " Z: " << anUpZ << "\n";
+    }
+    else
+    {
+      anAISView->SetUp (aValues->Value(1).RealValue(), aValues->Value(2).RealValue(), aValues->Value(3).RealValue());
+    }
+  }
+  if (aMapOfKeysByValues.Find ("CENTER", aValues))
+  {
+    anAISView->SetCenter (aValues->Value(1).IntegerValue(), aValues->Value(2).IntegerValue());
+  }
 
+  return 0;
 }
 
+//=======================================================================
+//function : VChangeSelected
+//purpose  : Adds the shape to selection or remove one from it
+//=======================================================================
+static Standard_Integer VChangeSelected (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
+{
+  if(argc != 2)
+  {
+    di<<"Usage : " << argv[0] << " shape \n";
+    return 1;
+  }
+  //get AIS_Shape:
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  ViewerTest_DoubleMapOfInteractiveAndName& aMap = GetMapOfAIS();
+  TCollection_AsciiString aName(argv[1]);
+  Handle(AIS_InteractiveObject) anAISObject;
 
-//==============================================================================
-//function : VFit
-
-//purpose  : Fitall, no DRAW arguments
-//Draw arg : No args
-//==============================================================================
+  if(!aMap.IsBound2(aName))
+  {
+    di<<"Use 'vdisplay' before";
+    return 1;
+  }
+  else
+  {
+    anAISObject = Handle(AIS_InteractiveObject)::DownCast(aMap.Find2(aName));
+    if(anAISObject.IsNull()){
+      di<<"No interactive object \n";
+      return 1;
+    }
 
-static int VFit(Draw_Interpretor& , Standard_Integer , const char** )
-{
-  const Handle(V3d_View) aView = ViewerTest::CurrentView();
-  Handle(NIS_View) V = Handle(NIS_View)::DownCast(aView);
-  if (V.IsNull() == Standard_False) {
-    V->FitAll3d();
-  } else if (aView.IsNull() == Standard_False) {
-    aView->FitAll();
+    if(aContext->HasOpenedContext())
+    {
+      aContext->AddOrRemoveSelected(anAISObject);
+    }
+    else
+    {
+      aContext->AddOrRemoveCurrentObject(anAISObject);
+    }
   }
   return 0;
 }
 
-//==============================================================================
-//function : VZFit
-//purpose  : ZFitall, no DRAW arguments
-//Draw arg : No args
-//==============================================================================
-
-static int VZFit(Draw_Interpretor& , Standard_Integer , const char** )
+//=======================================================================
+//function : VZClipping
+//purpose  : Gets or sets ZClipping mode, width and depth
+//=======================================================================
+static Standard_Integer VZClipping (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  Handle(V3d_View) V = ViewerTest::CurrentView();
-  if ( !V.IsNull() ) V->ZFitAll(); return 0; }
+  if(argc>4)
+  {
+    di << "Usage : " << argv[0] << " [mode] [depth  width]" << "\n"
+      <<"mode = OFF|BACK|FRONT|SLICE depth = [0..1] width = [0..1]" << "\n";
+    return -1;
+  }
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  V3d_TypeOfZclipping aZClippingMode = V3d_OFF;
+  if(argc==1)
+  {
+    TCollection_AsciiString aZClippingModeString;
+    Quantity_Length aDepth, aWidth;
+    aZClippingMode = aView->ZClipping(aDepth, aWidth);
+    switch (aZClippingMode)
+    {
+    case V3d_OFF:
+      aZClippingModeString.Copy("OFF");
+      break;
+    case V3d_BACK:
+      aZClippingModeString.Copy("BACK");
+      break;
+    case V3d_FRONT:
+      aZClippingModeString.Copy("FRONT");
+      break;
+    case V3d_SLICE:
+      aZClippingModeString.Copy("SLICE");
+      break;
+    default:
+      aZClippingModeString.Copy(TCollection_AsciiString(aZClippingMode));
+      break;
+    }
+    di << "ZClippingMode = " << aZClippingModeString.ToCString() << "\n"
+      << "ZClipping depth = " << aDepth << "\n"
+      << "ZClipping width = " << aWidth << "\n";
+  }
+  else
+  {
+    if(argc !=3)
+    {
+      Standard_Integer aStatus = 0;
+      if ( strcmp (argv [1], "OFF") == 0 ) {
+        aStatus = 1;
+        aZClippingMode = V3d_OFF;
+      }
+      if ( strcmp (argv [1], "BACK") == 0 ) {
+        aStatus = 1;
+        aZClippingMode = V3d_BACK;
+      }
+      if ( strcmp (argv [1], "FRONT") == 0 ) {
+        aStatus = 1;
+        aZClippingMode = V3d_FRONT;
+      }
+      if ( strcmp (argv [1], "SLICE") == 0 ) {
+        aStatus = 1;
+        aZClippingMode = V3d_SLICE;
+      }
+      if (aStatus != 1)
+      {
+        di << "Bad mode; Usage : " << argv[0] << " [mode] [depth width]" << "\n"
+          << "mode = OFF|BACK|FRONT|SLICE depth = [0..1] width = [0..1]" << "\n";
+        return 1;
+      }
+      aView->SetZClippingType(aZClippingMode);
+    }
+    if(argc >2)
+    {
+      Quantity_Length aDepth = 0., aWidth = 1.;
+      if(argc == 3)
+      {
+        aDepth = Draw::Atof (argv[1]);
+        aWidth = Draw::Atof (argv[2]);
+      }
+      else if(argc == 4)
+      {
+        aDepth = Draw::Atof (argv[2]);
+        aWidth = Draw::Atof (argv[3]);
+      }
 
+      if(aDepth<0. || aDepth>1.)
+      {
+        di << "Bad depth; Usage : " << argv[0] << " [mode] [depth width]" << "\n"
+        << "mode = OFF|BACK|FRONT|SLICE depth = [0..1] width = [0..1]" << "\n";
+        return 1;
+      }
+      if(aWidth<0. || aWidth>1.)
+      {
+        di << "Bad width; Usage : " << argv[0] << " [mode] [depth width]" << "\n"
+        << "mode = OFF|BACK|FRONT|SLICE depth = [0..1] width = [0..1]" << "\n";
+        return 1;
+      }
 
-static int VRepaint(Draw_Interpretor& , Standard_Integer , const char** )
-{
-  Handle(V3d_View) V = ViewerTest::CurrentView();
-  if ( !V.IsNull() ) V->Redraw(); return 0;
+      aView->SetZClippingDepth(aDepth);
+      aView->SetZClippingWidth(aWidth);
+    }
+    aView->Redraw();
+  }
+  return 0;
 }
 
-
-//==============================================================================
-//function : VClear
-//purpose  : Remove all the object from the viewer
-//Draw arg : No args
-//==============================================================================
-
-static int VClear(Draw_Interpretor& , Standard_Integer , const char** )
+//=======================================================================
+//function : VNbSelected
+//purpose  : Returns number of selected objects
+//=======================================================================
+static Standard_Integer VNbSelected (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  Handle(V3d_View) V = ViewerTest::CurrentView();
-  if(!V.IsNull())
-    ViewerTest::Clear();
+  if(argc != 1)
+  {
+    di << "Usage : " << argv[0] << "\n";
+    return 1;
+  }
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  di << aContext->NbSelected() << "\n";
   return 0;
 }
 
-//==============================================================================
-//function : VPick
-//purpose  :
-//==============================================================================
-
-static int VPick(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
-{ if (ViewerTest::CurrentView().IsNull() ) return 1;
+//=======================================================================
+//function : VAntialiasing
+//purpose  : Switches altialiasing on or off
+//=======================================================================
+static Standard_Integer VAntialiasing (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
+{
+  if(argc > 2)
+  {
+    di << "Usage : " << argv[0] << " [1|0]" << "\n";
+    return 1;
+  }
 
-if ( argc < 4 ) {
-  di << argv[0] << "Invalid number of arguments" << "\n";
-  return 1;
-}
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
 
-while (ViewerMainLoop( argc, argv)) {
-}
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
 
-return 0;
+  if((argc == 2) && (atof(argv[1]) == 0))
+    aView->SetAntialiasingOff();
+  else
+    aView->SetAntialiasingOn();
+  aView->Update();
+  return 0;
 }
 
-
-
-//==============================================================================
-//function : InitViewerTest
-//purpose  : initialisation de toutes les variables static de  ViewerTest (dp)
-//==============================================================================
-
-void ViewerTest_InitViewerTest (const Handle(AIS_InteractiveContext)& context)
+//=======================================================================
+//function : VPurgeDisplay
+//purpose  : Switches altialiasing on or off
+//=======================================================================
+static Standard_Integer VPurgeDisplay (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  Handle(V3d_Viewer) viewer = context->CurrentViewer();
-  ViewerTest::SetAISContext(context);
-  viewer->InitActiveViews();
-  Handle(V3d_View) view = viewer->ActiveView();
-  if (viewer->MoreActiveViews()) ViewerTest::CurrentView(view);
-  ViewerTest::ResetEventManager();
-  Handle(Aspect_GraphicDevice) device = viewer->Device();
-  Handle(Aspect_Window) window = view->Window();
-#ifndef WNT
-  // X11
-  VT_GetWindow() = Handle(Xw_Window)::DownCast(window);
-  GetG3dDevice() = Handle(Graphic3d_GraphicDevice)::DownCast(device);
-  OSWindowSetup();
-  static int first = 1;
-  if ( first ) {
-#if TCL_MAJOR_VERSION  < 8
-    Tk_CreateFileHandler((void*)ConnectionNumber(display),
-      TK_READABLE, VProcessEvents, (ClientData) 0);
-#else
-    Tk_CreateFileHandler(ConnectionNumber(display),
-      TK_READABLE, VProcessEvents, (ClientData) 0);
-#endif
-    first = 0;
+  if (argc > 1)
+  {
+    di << "Usage : " << argv[0] << "\n";
+    return 1;
   }
-#endif
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if (aContext.IsNull())
+  {
+    di << "use 'vinit' command before " << argv[0] << "\n";
+    return 1;
+  }
+  aContext->CloseAllContexts(Standard_False);
+  di << aContext->PurgeDisplay() << "\n";
+  return 0;
 }
 
-
-//==============================================================================
-//function : VSetBg
-//purpose  : Load image as background
-//==============================================================================
-
-static int VSetBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//=======================================================================
+//function : VSetViewSize
+//purpose  :
+//=======================================================================
+static Standard_Integer VSetViewSize (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  if (argc < 2 || argc > 3)
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
   {
-    di << "Usage : " << argv[0] << " imagefile [filltype] : Load image as background" << "\n";
-    di << "filltype can be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+    di << "use 'vinit' command before " << argv[0] << "\n";
     return 1;
   }
-
-  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
-  if(AISContext.IsNull())
+  if(argc != 2)
   {
-    di << "use 'vinit' command before " << argv[0] << "\n";
+    di<<"Usage : " << argv[0] << " Size\n";
     return 1;
   }
-
-  Aspect_FillMethod aFillType = Aspect_FM_CENTERED;
-  if (argc == 3)
+  Standard_Real aSize = Draw::Atof (argv[1]);
+  if (aSize <= 0.)
   {
-    const char* szType = argv[2];
-    if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
-    else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
-    else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
-    else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
-    else
-    {
-      di << "Wrong fill type : " << szType << "\n";
-      di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
-      return 1;
-    }
+    di<<"Bad Size value  : " << aSize << "\n";
+    return 1;
   }
 
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  V3dView->SetBackgroundImage(argv[1], aFillType, Standard_True);
-
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  aView->SetSize(aSize);
   return 0;
 }
 
-//==============================================================================
-//function : VSetBgMode
-//purpose  : Change background image fill type
-//==============================================================================
-
-static int VSetBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//=======================================================================
+//function : VMoveView
+//purpose  :
+//=======================================================================
+static Standard_Integer VMoveView (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  if (argc != 2)
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
   {
-    di << "Usage : " << argv[0] << " filltype : Change background image mode" << "\n";
-    di << "filltype must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
+    di << "use 'vinit' command before " << argv[0] << "\n";
     return 1;
   }
-
-  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
-  if(AISContext.IsNull())
+  if(argc < 4 || argc > 5)
   {
-    di << "use 'vinit' command before " << argv[0] << "\n";
+    di<<"Usage : " << argv[0] << " Dx Dy Dz [Start = 1|0]\n";
     return 1;
   }
-
-  Aspect_FillMethod aFillType;
-  if (argc == 2)
-  {
-    const char* szType = argv[1];
-    if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
-    else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
-    else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
-    else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
-    else
-    {
-      di << "Wrong fill type : " << szType << "\n";
-      di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
-      return 1;
-    }
+  Standard_Real Dx = Draw::Atof (argv[1]);
+  Standard_Real Dy = Draw::Atof (argv[2]);
+  Standard_Real Dz = Draw::Atof (argv[3]);
+  Standard_Boolean aStart = Standard_True;
+  if (argc == 5)
+  {
+      aStart = (Draw::Atoi (argv[4]) > 0);
   }
 
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  V3dView->SetBgImageStyle(aFillType, Standard_True);
-
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  aView->Move(Dx,Dy,Dz,aStart);
   return 0;
 }
 
-//==============================================================================
-//function : VSetGradientBg
-//purpose  : Mount gradient background
-//==============================================================================
-static int VSetGradientBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//=======================================================================
+//function : VTranslateView
+//purpose  :
+//=======================================================================
+static Standard_Integer VTranslateView (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  if (argc != 8 )
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull())
   {
-    di << "Usage : " << argv[0] << " R1 G1 B1 R2 G2 B2 Type : Mount gradient background" << "\n";
-    di << "R1,G1,B1,R2,G2,B2 = [0..255]" << "\n";
-    di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
-    di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+    di << "use 'vinit' command before " << argv[0] << "\n";
     return 1;
   }
-
-  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
-  if(AISContext.IsNull())
+  if(argc < 4 || argc > 5)
   {
-    di << "use 'vinit' command before " << argv[0] << "\n";
+    di<<"Usage : " << argv[0] << " Dx Dy Dz [Start = 1|0]\n";
     return 1;
   }
-  if (argc == 8)
+  Standard_Real Dx = Draw::Atof (argv[1]);
+  Standard_Real Dy = Draw::Atof (argv[2]);
+  Standard_Real Dz = Draw::Atof (argv[3]);
+  Standard_Boolean aStart = Standard_True;
+  if (argc == 5)
   {
-
-    Standard_Real R1 = atof(argv[1])/255.;
-    Standard_Real G1 = atof(argv[2])/255.;
-    Standard_Real B1 = atof(argv[3])/255.;
-    Quantity_Color aColor1(R1,G1,B1,Quantity_TOC_RGB);
-
-    Standard_Real R2 = atof(argv[4])/255.;
-    Standard_Real G2 = atof(argv[5])/255.;
-    Standard_Real B2 = atof(argv[6])/255.;
-
-    Quantity_Color aColor2(R2,G2,B2,Quantity_TOC_RGB);
-    int aType = atoi(argv[7]);
-    if( aType < 0 || aType > 8 )
-    {
-      di << "Wrong fill type " << "\n";
-      di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
-      di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
-      return 1;
-    }
-
-    Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
-
-    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-    V3dView->SetBgGradientColors( aColor1, aColor2, aMethod, 1);
+      aStart = (Draw::Atoi (argv[4]) > 0);
   }
 
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  aView->Translate(Dx,Dy,Dz,aStart);
   return 0;
 }
 
-//==============================================================================
-//function : VSetGradientBgMode
-//purpose  : Change gradient background fill style
-//==============================================================================
-static int VSetGradientBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//=======================================================================
+//function : VTurnView
+//purpose  :
+//=======================================================================
+static Standard_Integer VTurnView (Draw_Interpretor& di,
+                                Standard_Integer argc,
+                                const char ** argv)
 {
-  if (argc != 2 )
-  {
-    di << "Usage : " << argv[0] << " Type : Change gradient background fill type" << "\n";
-    di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
-    di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if(aContext.IsNull()) {
+    di << "use 'vinit' command before " << argv[0] << "\n";
     return 1;
   }
-
-  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
-  if(AISContext.IsNull())
-  {
-    di << "use 'vinit' command before " << argv[0] << "\n";
+  if(argc < 4 || argc > 5){
+    di<<"Usage : " << argv[0] << " Ax Ay Az [Start = 1|0]\n";
     return 1;
   }
-  if (argc == 2)
+  Standard_Real Ax = Draw::Atof (argv[1]);
+  Standard_Real Ay = Draw::Atof (argv[2]);
+  Standard_Real Az = Draw::Atof (argv[3]);
+  Standard_Boolean aStart = Standard_True;
+  if (argc == 5)
   {
-    int aType = atoi(argv[1]);
-    if( aType < 0 || aType > 8 )
-    {
-      di << "Wrong fill type " << "\n";
-      di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
-      di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
-      return 1;
-    }
-
-    Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
-
-    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-    V3dView->SetBgGradientStyle( aMethod, 1 );
+      aStart = (Draw::Atoi (argv[4]) > 0);
   }
 
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  aView->Turn(Ax,Ay,Az,aStart);
   return 0;
 }
 
 //==============================================================================
-//function : VSetColorBg
-//purpose  : Set color background
+//function : VTextureEnv
+//purpose  : ENables or disables environment mapping
 //==============================================================================
-static int VSetColorBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+class OCC_TextureEnv : public Graphic3d_TextureEnv
 {
-  if (argc != 4 )
+public:
+  OCC_TextureEnv(const Standard_CString FileName);
+  OCC_TextureEnv(const Graphic3d_NameOfTextureEnv aName);
+  void SetTextureParameters(const Standard_Boolean theRepeatFlag,
+                            const Standard_Boolean theModulateFlag,
+                            const Graphic3d_TypeOfTextureFilter theFilter,
+                            const Standard_ShortReal theXScale,
+                            const Standard_ShortReal theYScale,
+                            const Standard_ShortReal theXShift,
+                            const Standard_ShortReal theYShift,
+                            const Standard_ShortReal theAngle);
+  DEFINE_STANDARD_RTTI(OCC_TextureEnv);
+};
+DEFINE_STANDARD_HANDLE(OCC_TextureEnv, Graphic3d_TextureEnv);
+IMPLEMENT_STANDARD_HANDLE(OCC_TextureEnv, Graphic3d_TextureEnv);
+IMPLEMENT_STANDARD_RTTIEXT(OCC_TextureEnv, Graphic3d_TextureEnv);
+
+OCC_TextureEnv::OCC_TextureEnv(const Standard_CString theFileName)
+  : Graphic3d_TextureEnv(theFileName)
+{
+}
+
+OCC_TextureEnv::OCC_TextureEnv(const Graphic3d_NameOfTextureEnv theTexId)
+  : Graphic3d_TextureEnv(theTexId)
+{
+}
+
+void OCC_TextureEnv::SetTextureParameters(const Standard_Boolean theRepeatFlag,
+                                          const Standard_Boolean theModulateFlag,
+                                          const Graphic3d_TypeOfTextureFilter theFilter,
+                                          const Standard_ShortReal theXScale,
+                                          const Standard_ShortReal theYScale,
+                                          const Standard_ShortReal theXShift,
+                                          const Standard_ShortReal theYShift,
+                                          const Standard_ShortReal theAngle)
+{
+  myParams->SetRepeat     (theRepeatFlag);
+  myParams->SetModulate   (theModulateFlag);
+  myParams->SetFilter     (theFilter);
+  myParams->SetScale      (Graphic3d_Vec2(theXScale, theYScale));
+  myParams->SetTranslation(Graphic3d_Vec2(theXShift, theYShift));
+  myParams->SetRotation   (theAngle);
+}
+
+static int VTextureEnv (Draw_Interpretor& /*theDI*/, Standard_Integer theArgNb, const char** theArgVec)
+{
+  // get the active view
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
   {
-    di << "Usage : " << argv[0] << " R G B : Set color background" << "\n";
-    di << "R,G,B = [0..255]" << "\n";
+    std::cerr << "No active view. Please call vinit.\n";
     return 1;
   }
 
-  Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
-  if(AISContext.IsNull())
+  // Checking the input arguments
+  Standard_Boolean anEnableFlag = Standard_False;
+  Standard_Boolean isOk         = theArgNb >= 2;
+  if (isOk)
   {
-    di << "use 'vinit' command before " << argv[0] << "\n";
-    return 1;
+    TCollection_AsciiString anEnableOpt(theArgVec[1]);
+    anEnableFlag = anEnableOpt.IsEqual("on");
+    isOk         = anEnableFlag || anEnableOpt.IsEqual("off");
   }
-  if (argc == 4)
+  if (anEnableFlag)
   {
+    isOk = (theArgNb == 3 || theArgNb == 11);
+    if (isOk)
+    {
+      TCollection_AsciiString aTextureOpt(theArgVec[2]);
+      isOk = (!aTextureOpt.IsIntegerValue() ||
+             (aTextureOpt.IntegerValue() >= 0 && aTextureOpt.IntegerValue() < Graphic3d_NOT_ENV_UNKNOWN));
 
-    Standard_Real R = atof(argv[1])/255.;
-    Standard_Real G = atof(argv[2])/255.;
-    Standard_Real B = atof(argv[3])/255.;
-    Quantity_Color aColor(R,G,B,Quantity_TOC_RGB);
+      if (isOk && theArgNb == 11)
+      {
+        TCollection_AsciiString aRepeatOpt  (theArgVec[3]),
+                                aModulateOpt(theArgVec[4]),
+                                aFilterOpt  (theArgVec[5]),
+                                aSScaleOpt  (theArgVec[6]),
+                                aTScaleOpt  (theArgVec[7]),
+                                aSTransOpt  (theArgVec[8]),
+                                aTTransOpt  (theArgVec[9]),
+                                anAngleOpt  (theArgVec[10]);
+        isOk = ((aRepeatOpt.  IsEqual("repeat")   || aRepeatOpt.  IsEqual("clamp")) &&
+                (aModulateOpt.IsEqual("modulate") || aModulateOpt.IsEqual("decal")) &&
+                (aFilterOpt.  IsEqual("nearest")  || aFilterOpt.  IsEqual("bilinear") || aFilterOpt.IsEqual("trilinear")) &&
+                aSScaleOpt.IsRealValue() && aTScaleOpt.IsRealValue() &&
+                aSTransOpt.IsRealValue() && aTTransOpt.IsRealValue() &&
+                anAngleOpt.IsRealValue());
+      }
+    }
+  }
 
-    Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-    V3dView->SetBackgroundColor( aColor );
-    V3dView->Update();
+  if (!isOk)
+  {
+    std::cerr << "Usage :" << std::endl;
+    std::cerr << theArgVec[0] << " off" << std::endl;
+    std::cerr << theArgVec[0] << " on {index_of_std_texture(0..7)|texture_file_name} [{clamp|repeat} {decal|modulate} {nearest|bilinear|trilinear} scale_s scale_t translation_s translation_t rotation_degrees]" << std::endl;
+    return 1;
+  }
+
+  if (anEnableFlag)
+  {
+    TCollection_AsciiString aTextureOpt(theArgVec[2]);
+    Handle(OCC_TextureEnv) aTexEnv = aTextureOpt.IsIntegerValue() ?
+                                     new OCC_TextureEnv((Graphic3d_NameOfTextureEnv)aTextureOpt.IntegerValue()) :
+                                     new OCC_TextureEnv(theArgVec[2]);
+
+    if (theArgNb == 11)
+    {
+      TCollection_AsciiString aRepeatOpt(theArgVec[3]), aModulateOpt(theArgVec[4]), aFilterOpt(theArgVec[5]);
+      aTexEnv->SetTextureParameters(
+        aRepeatOpt.  IsEqual("repeat"),
+        aModulateOpt.IsEqual("modulate"),
+        aFilterOpt.  IsEqual("nearest") ? Graphic3d_TOTF_NEAREST :
+                                          aFilterOpt.IsEqual("bilinear") ? Graphic3d_TOTF_BILINEAR :
+                                                                           Graphic3d_TOTF_TRILINEAR,
+        (Standard_ShortReal)Draw::Atof(theArgVec[6]),
+        (Standard_ShortReal)Draw::Atof(theArgVec[7]),
+        (Standard_ShortReal)Draw::Atof(theArgVec[8]),
+        (Standard_ShortReal)Draw::Atof(theArgVec[9]),
+        (Standard_ShortReal)Draw::Atof(theArgVec[10])
+        );
+    }
+    aView->SetTextureEnv(aTexEnv);
+    aView->SetSurfaceDetail(V3d_TEX_ENVIRONMENT);
+  }
+  else // Disabling environment mapping
+  {
+    aView->SetSurfaceDetail(V3d_TEX_NONE);
+    Handle(Graphic3d_TextureEnv) aTexture;
+    aView->SetTextureEnv(aTexture); // Passing null handle to clear the texture data
   }
 
+  aView->Redraw();
   return 0;
 }
 
-//==============================================================================
-//function : VScale
-//purpose  : View Scaling
-//==============================================================================
-
-static int VScale(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//===============================================================================================
+//function : VClipPlane
+//purpose  :
+//===============================================================================================
+static int VClipPlane (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if ( V3dView.IsNull() ) return 1;
+  // use short-cut for created clip planes map of created (or "registered by name") clip planes
+  typedef NCollection_DataMap<TCollection_AsciiString, Handle(Graphic3d_ClipPlane)> MapOfPlanes;
+  static MapOfPlanes aRegPlanes;
 
-  if ( argc != 4 ) {
-    di << argv[0] << "Invalid number of arguments" << "\n";
+  if (theArgsNb < 2)
+  {
+    theDi << theArgVec[0] << ": command argument is required. Type help for more information.\n";
     return 1;
   }
-  V3dView->SetAxialScale( atof(argv[1]),  atof(argv[2]),  atof(argv[3]) );
-  return 0;
-}
-//==============================================================================
-//function : VTestZBuffTrihedron
-//purpose  : Displays a V3d_ZBUFFER'ed or V3d_WIREFRAME'd trihedron
-//==============================================================================
 
-static int VTestZBuffTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
-{
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if ( V3dView.IsNull() ) return 1;
+  TCollection_AsciiString aCommand (theArgVec[1]);
 
-  V3dView->ZBufferTriedronSetup();
+  // print maximum number of planes for current viewer
+  if (aCommand == "maxplanes")
+  {
+    if (theArgsNb < 3)
+    {
+      theDi << theArgVec[0] << ": view name is required. Type help for more information.\n";
+      return 1;
+    }
 
-  if ( argc == 1 ) {
-    // Set up default trihedron parameters
-    V3dView->TriedronDisplay( Aspect_TOTP_LEFT_LOWER, Quantity_NOC_WHITE, 0.1, V3d_ZBUFFER );
-  } else
-  if ( argc == 7 )
+    TCollection_AsciiString aViewName (theArgVec[2]);
+
+    if (!ViewerTest_myViews.IsBound1 (aViewName))
+    {
+      theDi << theArgVec[0] << ": view is not found.\n";
+      return 1;
+    }
+
+    const Handle(V3d_View)& aView = ViewerTest_myViews.Find1 (aViewName);
+
+    theDi << theArgVec[0] << ": "
+                          << aView->Viewer()->Driver()->InquirePlaneLimit()
+                          << " plane slots provided by driver."
+                          << " Note that 2 more planes might be used (reserved for z-clipping).\n";
+
+    return 0;
+  }
+
+  // create / delete plane instance
+  if (aCommand == "create" || aCommand == "delete" || aCommand == "clone")
   {
-    Aspect_TypeOfTriedronPosition aPosition = Aspect_TOTP_LEFT_LOWER;
-    const char* aPosType = argv[1];
+    if (theArgsNb < 3)
+    {
+      theDi << theArgVec[0] << ": plane name is required. Type help for more information.\n";
+      return 1;
+    }
 
-    if ( strcmp(aPosType, "center") == 0 )
+    Standard_Boolean toCreate = (aCommand == "create");
+    Standard_Boolean toClone  = (aCommand == "clone");
+    TCollection_AsciiString aPlane (theArgVec[2]);
+
+    if (toCreate)
     {
-      aPosition = Aspect_TOTP_CENTER;
-    } else
-    if (strcmp(aPosType, "left_lower") == 0)
+      if (aRegPlanes.IsBound (aPlane))
+      {
+        theDi << theArgVec[0] << ": plane name is in use.\n";
+        return 1;
+      }
+
+      aRegPlanes.Bind (aPlane, new Graphic3d_ClipPlane());
+    }
+    else if (toClone) // toClone
     {
-      aPosition = Aspect_TOTP_LEFT_LOWER;
-    } else
-    if (strcmp(aPosType, "left_upper") == 0)
+      if (!aRegPlanes.IsBound (aPlane))
+      {
+        theDi << theArgVec[0] << ": no such plane.\n";
+        return 1;
+      }
+
+      if (theArgsNb < 4)
+      {
+        theDi << theArgVec[0] << ": enter name for new plane. Type help for more information.\n";
+        return 1;
+      }
+
+      TCollection_AsciiString aClone (theArgVec[3]);
+      if (aRegPlanes.IsBound (aClone))
+      {
+        theDi << theArgVec[0] << ": plane name is in use.\n";
+        return 1;
+      }
+
+      const Handle(Graphic3d_ClipPlane)& aClipPlane = aRegPlanes.Find (aPlane);
+
+      aRegPlanes.Bind (aClone, aClipPlane->Clone());
+    }
+    else// toDelete
     {
-      aPosition = Aspect_TOTP_LEFT_UPPER;
-    } else
-    if (strcmp(aPosType, "right_lower") == 0)
+      if (!aRegPlanes.IsBound (aPlane))
+      {
+        theDi << theArgVec[0] << ": no such plane.\n";
+        return 1;
+      }
+
+      Handle(Graphic3d_ClipPlane) aClipPlane = aRegPlanes.Find (aPlane);
+      aRegPlanes.UnBind (aPlane);
+
+      ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName anIObjIt (GetMapOfAIS());
+      for (; anIObjIt.More(); anIObjIt.Next())
+      {
+        Handle(PrsMgr_PresentableObject) aPrs = Handle(PrsMgr_PresentableObject)::DownCast (anIObjIt.Key1());
+        aPrs->RemoveClipPlane(aClipPlane);
+      }
+
+      NCollection_DoubleMap<TCollection_AsciiString, Handle(V3d_View)>::Iterator aViewIt(ViewerTest_myViews);
+      for (; aViewIt.More(); aViewIt.Next())
+      {
+        const Handle(V3d_View)& aView = aViewIt.Key2();
+        aView->RemoveClipPlane(aClipPlane);
+      }
+
+      ViewerTest::RedrawAllViews();
+    }
+
+    return 0;
+  }
+
+  // set / unset plane command
+  if (aCommand == "set" || aCommand == "unset")
+  {
+    if (theArgsNb < 4)
     {
-      aPosition = Aspect_TOTP_RIGHT_LOWER;
-    } else
-    if (strcmp(aPosType, "right_upper") == 0)
+      theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+      return 1;
+    }
+
+    Standard_Boolean toSet = (aCommand == "set");
+    TCollection_AsciiString aPlane (theArgVec [2]);
+    if (!aRegPlanes.IsBound (aPlane))
     {
-      aPosition = Aspect_TOTP_RIGHT_UPPER;
-    } else
+      theDi << theArgVec[0] << ": no such plane.\n";
+      return 1;
+    }
+
+    const Handle(Graphic3d_ClipPlane)& aClipPlane = aRegPlanes.Find (aPlane);
+
+    TCollection_AsciiString aTarget (theArgVec [3]);
+    if (aTarget != "object" && aTarget != "view")
     {
-      di << argv[1] << " Invalid type of alignment"  << "\n";
-      di << "Must be one of [ center, left_lower,"   << "\n";
-      di << "left_upper, right_lower, right_upper ]" << "\n";
+      theDi << theArgVec[0] << ": invalid target.\n";
       return 1;
     }
 
-    Standard_Real R = atof(argv[2])/255.;
-    Standard_Real G = atof(argv[3])/255.;
-    Standard_Real B = atof(argv[4])/255.;
-    Quantity_Color aColor(R, G, B, Quantity_TOC_RGB);
+    if (aTarget == "object" || aTarget == "view")
+    {
+      if (theArgsNb < 5)
+      {
+        theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+        return 1;
+      }
 
-    Standard_Real aScale = atof(argv[5]);
+      Standard_Boolean isObject = (aTarget == "object");
 
-    if( aScale <= 0.0 )
+      for (Standard_Integer anIt = 4; anIt < theArgsNb; ++anIt)
+      {
+        TCollection_AsciiString anEntityName (theArgVec[anIt]);
+        if (isObject) // to object
+        {
+          if (!GetMapOfAIS().IsBound2 (anEntityName))
+          {
+            theDi << theArgVec[0] << ": can not find IO with name " << anEntityName << ".\n";
+            continue;
+          }
+
+          Handle(AIS_InteractiveObject) aIObj =
+            Handle(AIS_InteractiveObject)::DownCast (GetMapOfAIS().Find2 (anEntityName));
+
+          if (toSet)
+            aIObj->AddClipPlane (aClipPlane);
+          else
+            aIObj->RemoveClipPlane (aClipPlane);
+        }
+        else // to view
+        {
+          if (!ViewerTest_myViews.IsBound1 (anEntityName))
+          {
+            theDi << theArgVec[0] << ": can not find View with name " << anEntityName << ".\n";
+            continue;
+          }
+
+          Handle(V3d_View) aView = ViewerTest_myViews.Find1(anEntityName);
+          if (toSet)
+            aView->AddClipPlane (aClipPlane);
+          else
+            aView->RemoveClipPlane (aClipPlane);
+        }
+      }
+
+      ViewerTest::RedrawAllViews();
+    }
+
+    return 0;
+  }
+
+  // change plane command
+  if (aCommand == "change")
+  {
+    if (theArgsNb < 4)
     {
-      di << argv[5] << " Invalid value. Must be > 0" << "\n";
+      theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
       return 1;
     }
 
-    V3d_TypeOfVisualization aPresentation = V3d_ZBUFFER;
-    const char* aPresType = argv[6];
-
-    if ( strcmp(aPresType, "wireframe") == 0 )
-    {
-      aPresentation = V3d_WIREFRAME;
-    } else
-    if (strcmp(aPresType, "zbuffer") == 0)
-    {
-      aPresentation = V3d_ZBUFFER;
-    } else
+    TCollection_AsciiString aPlane (theArgVec [2]);
+    if (!aRegPlanes.IsBound (aPlane))
     {
-      di << argv[6] << " Invalid type of visualization" << "\n";
-      di << "Must be one of [ wireframe, zbuffer ]"     << "\n";
+      theDi << theArgVec[0] << ": no such plane.\n";
       return 1;
     }
 
-    V3dView->TriedronDisplay( aPosition, aColor.Name(), aScale, aPresentation );
+    const Handle(Graphic3d_ClipPlane)& aClipPlane = aRegPlanes.Find (aPlane);
 
-  } else
-  {
-    di << argv[0] << " Invalid number of arguments" << "\n";
-    return 1;
-  }
+    TCollection_AsciiString aChangeArg (theArgVec [3]);
+    if (aChangeArg != "on" && aChangeArg != "off" && aChangeArg != "capping" && aChangeArg != "equation")
+    {
+      theDi << theArgVec[0] << ": invalid arguments. Type help for more information.\n";
+      return 1;
+    }
 
-  V3dView->ZFitAll();
+    if (aChangeArg == "on" || aChangeArg == "off") // on / off
+    {
+      aClipPlane->SetOn (aChangeArg == "on");
+    }
+    else if (aChangeArg == "equation") // change equation
+    {
+      if (theArgsNb < 8)
+      {
+        theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+        return 1;
+      }
 
-  return 0;
-}
+      Standard_Real aCoeffA = Draw::Atof (theArgVec [4]);
+      Standard_Real aCoeffB = Draw::Atof (theArgVec [5]);
+      Standard_Real aCoeffC = Draw::Atof (theArgVec [6]);
+      Standard_Real aCoeffD = Draw::Atof (theArgVec [7]);
+      aClipPlane->SetEquation (gp_Pln (aCoeffA, aCoeffB, aCoeffC, aCoeffD));
+    }
+    else if (aChangeArg == "capping") // change capping aspects
+    {
+      if (theArgsNb < 5)
+      {
+        theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+        return 1;
+      }
 
-//==============================================================================
-//function : VRotate
-//purpose  : Camera Rotating
-//==============================================================================
+      TCollection_AsciiString aCappingArg (theArgVec [4]);
+      if (aCappingArg != "on" && aCappingArg != "off" &&
+          aCappingArg != "color" && aCappingArg != "texname" &&
+          aCappingArg != "texscale" && aCappingArg != "texorigin" &&
+          aCappingArg != "texrotate" && aCappingArg != "hatch")
+      {
+        theDi << theArgVec[0] << ": invalid arguments. Type help for more information.\n";
+        return 1;
+      }
 
-static int VRotate( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if ( V3dView.IsNull() ) {
-    return 1;
-  }
+      if (aCappingArg == "on" || aCappingArg == "off") // on / off capping
+      {
+        aClipPlane->SetCapping (aCappingArg == "on");
+      }
+      else if (aCappingArg == "color") // color aspect for capping
+      {
+        if (theArgsNb < 8)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-  if ( argc == 4 ) {
-    V3dView->Rotate( atof(argv[1]), atof(argv[2]), atof(argv[3]) );
-    return 0;
-  } else if ( argc == 7 ) {
-    V3dView->Rotate( atof(argv[1]), atof(argv[2]), atof(argv[3]), atof(argv[4]), atof(argv[5]), atof(argv[6]) );
-    return 0;
-  } else {
-    di << argv[0] << " Invalid number of arguments" << "\n";
-    return 1;
-  }
-}
+        Standard_Real aRed = Draw::Atof (theArgVec [5]);
+        Standard_Real aGrn = Draw::Atof (theArgVec [6]);
+        Standard_Real aBlu = Draw::Atof (theArgVec [7]);
 
-//==============================================================================
-//function : VZoom
-//purpose  : View zoom in / out (relative to current zoom)
-//==============================================================================
+        Graphic3d_MaterialAspect aMat = aClipPlane->CappingMaterial();
+        Quantity_Color aColor (aRed, aGrn, aBlu, Quantity_TOC_RGB);
+        aMat.SetAmbientColor (aColor);
+        aMat.SetDiffuseColor (aColor);
+        aClipPlane->SetCappingMaterial (aMat);
+      }
+      else if (aCappingArg == "texname") // texture name
+      {
+        if (theArgsNb < 6)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-static int VZoom( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if ( V3dView.IsNull() ) {
-    return 1;
-  }
+        TCollection_AsciiString aTextureName (theArgVec [5]);
 
-  if ( argc == 2 ) {
-    Standard_Real coef = atof(argv[1]);
-    if ( coef <= 0.0 ) {
-      di << argv[1] << "Invalid value" << "\n";
-      return 1;
-    }
-    V3dView->SetZoom( atof(argv[1]) );
-    return 0;
-  } else {
-    di << argv[0] << " Invalid number of arguments" << "\n";
-    return 1;
-  }
-}
+        Handle(Graphic3d_Texture2Dmanual) aTexture = new Graphic3d_Texture2Dmanual(aTextureName);
+        if (!aTexture->IsDone ())
+        {
+          aClipPlane->SetCappingTexture (NULL);
+        }
+        else
+        {
+          aTexture->EnableModulate();
+          aTexture->EnableRepeat();
+          aClipPlane->SetCappingTexture (aTexture);
+        }
+      }
+      else if (aCappingArg == "texscale") // texture scale
+      {
+        if (aClipPlane->CappingTexture().IsNull())
+        {
+          theDi << theArgVec[0] << ": no texture is set.\n";
+          return 1;
+        }
 
-//==============================================================================
-//function : VPan
-//purpose  : View panning (in pixels)
-//==============================================================================
+        if (theArgsNb < 7)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-static int VPan( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if ( V3dView.IsNull() ) return 1;
+        Standard_ShortReal aSx = (Standard_ShortReal)atof (theArgVec [5]);
+        Standard_ShortReal aSy = (Standard_ShortReal)atof (theArgVec [6]);
 
-  if ( argc == 3 ) {
-    V3dView->Pan( atoi(argv[1]), atoi(argv[2]) );
-    return 0;
-  } else {
-    di << argv[0] << " Invalid number of arguments" << "\n";
-    return 1;
-  }
-}
+        aClipPlane->CappingTexture()->GetParams()->SetScale (Graphic3d_Vec2 (aSx, aSy));
+      }
+      else if (aCappingArg == "texorigin") // texture origin
+      {
+        if (aClipPlane->CappingTexture().IsNull())
+        {
+          theDi << theArgVec[0] << ": no texture is set.\n";
+          return 1;
+        }
 
+        if (theArgsNb < 7)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-//==============================================================================
-//function : VExport
-//purpose  : Export the view to a vector graphic format (PS, EMF, PDF)
-//==============================================================================
+        Standard_ShortReal aTx = (Standard_ShortReal)atof (theArgVec [5]);
+        Standard_ShortReal aTy = (Standard_ShortReal)atof (theArgVec [6]);
 
-static int VExport(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
-{
-  Handle(V3d_View) V3dView = ViewerTest::CurrentView();
-  if (V3dView.IsNull())
-    return 1;
+        aClipPlane->CappingTexture()->GetParams()->SetTranslation (Graphic3d_Vec2 (aTx, aTy));
+      }
+      else if (aCappingArg == "texrotate") // texture rotation
+      {
+        if (aClipPlane->CappingTexture().IsNull())
+        {
+          theDi << theArgVec[0] << ": no texture is set.\n";
+          return 1;
+        }
 
-  if (argc == 1)
-  {
-    std::cout << "Usage: " << argv[0] << " Filename [Format]\n";
-    return 1;
-  }
+        if (theArgsNb < 6)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-  Graphic3d_ExportFormat anExpFormat = Graphic3d_EF_PDF;
-  TCollection_AsciiString aFormatStr;
+        Standard_ShortReal aRot = (Standard_ShortReal)atof (theArgVec[5]);
 
-  TCollection_AsciiString aFileName (argv[1]);
-  Standard_Integer aLen = aFileName.Length();
+        aClipPlane->CappingTexture()->GetParams()->SetRotation (aRot);
+      }
+      else if (aCappingArg == "hatch") // hatch style
+      {
+        if (theArgsNb < 6)
+        {
+          theDi << theArgVec[0] << ": need more arguments. Type help for more information.\n";
+          return 1;
+        }
 
-  if (argc > 2)
-  {
-    aFormatStr = TCollection_AsciiString (argv[2]);
-  }
-  else if (aLen >= 4)
-  {
-    if (aFileName.Value (aLen - 2) == '.')
-    {
-      aFormatStr = aFileName.SubString (aLen - 1, aLen);
-    }
-    else if (aFileName.Value (aLen - 3) == '.')
-    {
-      aFormatStr = aFileName.SubString (aLen - 2, aLen);
-    }
-    else
-    {
-      std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
-      return 1;
+        TCollection_AsciiString aHatchStr (theArgVec [5]);
+        if (aHatchStr == "on")
+        {
+          aClipPlane->SetCappingHatchOn();
+        }
+        else if (aHatchStr == "off")
+        {
+          aClipPlane->SetCappingHatchOff();
+        }
+        else
+        {
+          aClipPlane->SetCappingHatch ((Aspect_HatchStyle)atoi (theArgVec[5]));
+        }
+      }
     }
-  }
-  else
-  {
-    std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
-    return 1;
-  }
 
-  aFormatStr.UpperCase();
-  if (aFormatStr == "PS")
-    anExpFormat = Graphic3d_EF_PostScript;
-  else if (aFormatStr == "EPS")
-    anExpFormat = Graphic3d_EF_EnhPostScript;
-  else if (aFormatStr == "TEX")
-    anExpFormat = Graphic3d_EF_TEX;
-  else if (aFormatStr == "PDF")
-    anExpFormat = Graphic3d_EF_PDF;
-  else if (aFormatStr == "SVG")
-    anExpFormat = Graphic3d_EF_SVG;
-  else if (aFormatStr == "PGF")
-    anExpFormat = Graphic3d_EF_PGF;
-  else if (aFormatStr == "EMF")
-    anExpFormat = Graphic3d_EF_EMF;
-  else
-  {
-    std::cout << "Invalid export format '" << aFormatStr << "'\n";
-    return 1;
-  }
+    ViewerTest::RedrawAllViews();
 
-  if (!V3dView->View()->Export (argv[1], anExpFormat))
-  {
-    std::cout << "Export failed!\n";
-    return 1;
+    return 0;
   }
-  return 0;
-}
 
-//==============================================================================
-//function : VColorScale
-//purpose  : representation color scale
-//==============================================================================
-#include <V3d_ColorScale.hxx>
+  theDi << theArgVec[0] << ": invalid command. Type help for more information.\n";
+  return 1;
+}
 
-static int VColorScale (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
+//===============================================================================================
+//function : VSetTextureMode
+//purpose  :
+//===============================================================================================
+static int VSetTextureMode (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-  if ( argc != 1 && argc != 4 && argc != 5 && argc != 6 && argc != 8 )
+  if (theArgsNb < 3)
   {
-    di << "Usage : " << argv[0] << " [RangeMin = 0 RangeMax = 100 Intervals = 10 HeightFont = 16 Position = Right X = 0 Y = 0]  " << "\n";
+    theDi << theArgVec[0] << ": insufficient command arguments. Type help for more information.\n";
     return 1;
   }
 
-  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
-  if(aContext.IsNull()) {
-    di << argv[0] << " ERROR : use 'vinit' command before " << "\n";
-    return -1;
-  }
-
-  Standard_Real minRange = 0. , maxRange = 100. ;
-
-  Standard_Integer numIntervals = 10 ;
-  Standard_Integer textHeight = 16;
-  Aspect_TypeOfColorScalePosition position = Aspect_TOCSP_RIGHT;
-  Standard_Real X = 0., Y = 0. ;
-
-  if ( argc < 9 )
+  TCollection_AsciiString aViewName (theArgVec[1]);
+  if (!ViewerTest_myViews.IsBound1 (aViewName))
   {
-     if( argc > 3 )
-     {
-       minRange = atof( argv[1] );
-       maxRange = atof( argv[2] );
-       numIntervals = atoi( argv[3] );
-     }
-     if ( argc > 4 )
-       textHeight = atoi( argv[4] );
-     if ( argc > 5 )
-       position = (Aspect_TypeOfColorScalePosition)atoi( argv[5] );
-     if ( argc > 7 )
-     {
-       X = atof( argv[6] );
-       Y = atof( argv[7] );
-     }
-  }
-  Handle(V3d_View) curView = ViewerTest::CurrentView( );
-  if ( curView.IsNull( ) )
+    theDi << theArgVec[0] << ": view is not found.\n";
     return 1;
-  Handle(Aspect_ColorScale) aCSV = curView->ColorScale( );
-  Handle(V3d_ColorScale) aCS = ( Handle( V3d_ColorScale )::DownCast( aCSV ) );
-  if( ! aCS.IsNull( ) )
-  {
-    aCS->SetPosition( X , Y );
-    aCS->SetHeight( 0.95) ;
-    aCS->SetTextHeight( textHeight );
-    aCS->SetRange( minRange , maxRange );
-    aCS->SetNumberOfIntervals( numIntervals );
-    aCS->SetLabelPosition( position );
-    if( !curView->ColorScaleIsDisplayed() )
-      curView->ColorScaleDisplay( );
-  }
-  return 0;
-}
-
-//==============================================================================
-//function : VGraduatedTrihedron
-//purpose  : Displays a graduated trihedron
-//==============================================================================
+  }
 
-static void AddMultibyteString (TCollection_ExtendedString &name, const char *arg)
-{
-  const char *str = arg;
-  while (*str)
+  const Handle(V3d_View)& aView = ViewerTest_myViews.Find1 (aViewName);
+  switch (atoi (theArgVec[2]))
   {
-    unsigned short c1 = *str++;
-    unsigned short c2 = *str++;
-    if (!c1 || !c2) break;
-    name += (Standard_ExtCharacter)((c1 << 8) | c2);
+    case 0: aView->SetSurfaceDetail (V3d_TEX_NONE); break;
+    case 1: aView->SetSurfaceDetail (V3d_TEX_ENVIRONMENT); break;
+    case 2: aView->SetSurfaceDetail (V3d_TEX_ALL); break;
+    default:
+      theDi << theArgVec[0] << ": invalid mode.\n";
+      return 1;
   }
+
+  aView->Redraw();
+  return 0;
 }
 
-static int VGraduatedTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//===============================================================================================
+//function : VZRange
+//purpose  :
+//===============================================================================================
+static int VZRange (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-  // Check arguments
-  if (argc != 2 && argc < 5)
+  const Handle(V3d_View)& aCurrentView = ViewerTest::CurrentView();
+
+  if (aCurrentView.IsNull())
   {
-    di<<"Error: "<<argv[0]<<" - invalid number of arguments\n";
-    di<<"Usage: type help "<<argv[0]<<"\n";
-    return 1; //TCL_ERROR
+    std::cout << theArgVec[0] << ": Call vinit before this command, please.\n";
+    return 1;
   }
 
-  Handle(V3d_View) aV3dView = ViewerTest::CurrentView();
+  Handle(Graphic3d_Camera) aCamera = aCurrentView->Camera();
 
-  // Create 3D view if it doesn't exist
-  if ( aV3dView.IsNull() )
+  if (theArgsNb < 2)
   {
-    ViewerTest::ViewerInit(); 
-    aV3dView = ViewerTest::CurrentView();
-    if( aV3dView.IsNull() )
-    {
-      di << "Error: Cannot create a 3D view\n";
-      return 1; //TCL_ERROR
-    }
+    theDi << "ZNear: " << aCamera->ZNear() << "\n";
+    theDi << "ZFar: " << aCamera->ZFar() << "\n";
+    return 0;
   }
 
-  // Erase (==0) or display (!=0)
-  const int display = atoi(argv[1]);
-
-  if (display)
+  if (theArgsNb == 3)
   {
-    // Text font
-    TCollection_AsciiString font;
-    if (argc < 6)
-      font.AssignCat("Courier");
-    else
-      font.AssignCat(argv[5]);
-
-    // Text is multibyte
-    const Standard_Boolean isMultibyte = (argc < 7)? Standard_False : (atoi(argv[6]) != 0);
+    Standard_Real aNewZNear = Draw::Atof (theArgVec[1]);
+    Standard_Real aNewZFar  = Draw::Atof (theArgVec[2]);
 
-    // Set axis names
-    TCollection_ExtendedString xname, yname, zname;
-    if (argc >= 5)
+    if (aNewZNear >= aNewZFar)
     {
-      if (isMultibyte)
-      {
-        AddMultibyteString(xname, argv[2]);
-        AddMultibyteString(yname, argv[3]);
-        AddMultibyteString(zname, argv[4]);
-      }
-      else
-      {
-        xname += argv[2];
-        yname += argv[3];
-        zname += argv[4];
-      }
+      std::cout << theArgVec[0] << ": invalid arguments: znear should be less than zfar.\n";
+      return 1;
     }
-    else
+
+    if (!aCamera->IsOrthographic() && (aNewZNear <= 0.0 || aNewZFar <= 0.0))
     {
-      xname += "X (mm)";
-      yname += "Y (mm)";
-      zname += "Z (mm)";
+      std::cout << theArgVec[0] << ": invalid arguments: ";
+      std::cout << "znear, zfar should be positive for perspective camera.\n";
+      return 1;
     }
 
-    aV3dView->GraduatedTrihedronDisplay(xname, yname, zname,
-                                        Standard_True/*xdrawname*/, Standard_True/*ydrawname*/, Standard_True/*zdrawname*/,
-                                        Standard_True/*xdrawvalues*/, Standard_True/*ydrawvalues*/, Standard_True/*zdrawvalues*/,
-                                        Standard_True/*drawgrid*/,
-                                        Standard_True/*drawaxes*/,
-                                        5/*nbx*/, 5/*nby*/, 5/*nbz*/,
-                                        10/*xoffset*/, 10/*yoffset*/, 10/*zoffset*/,
-                                        30/*xaxisoffset*/, 30/*yaxisoffset*/, 30/*zaxisoffset*/,
-                                        Standard_True/*xdrawtickmarks*/, Standard_True/*ydrawtickmarks*/, Standard_True/*zdrawtickmarks*/,
-                                        10/*xtickmarklength*/, 10/*ytickmarklength*/, 10/*ztickmarklength*/,
-                                        Quantity_NOC_WHITE/*gridcolor*/,
-                                        Quantity_NOC_RED/*xnamecolor*/,Quantity_NOC_GREEN/*ynamecolor*/,Quantity_NOC_BLUE1/*znamecolor*/,
-                                        Quantity_NOC_RED/*xcolor*/,Quantity_NOC_GREEN/*ycolor*/,Quantity_NOC_BLUE1/*zcolor*/,font);
+    aCamera->SetZRange (aNewZNear, aNewZFar);
   }
   else
-    aV3dView->GraduatedTrihedronErase();
+  {
+    std::cout << theArgVec[0] << ": wrong command arguments. Type help for more information.\n";
+    return 1;
+  }
 
-  ViewerTest::GetAISContext()->UpdateCurrentViewer();
-  aV3dView->Redraw();
+  aCurrentView->Redraw();
 
   return 0;
 }
 
-//==============================================================================
-//function : VPrintView
-//purpose  : Test printing algorithm, print the view to image file with given
-//           width and height. Printing implemented only for WNT.
-//==============================================================================
-static int VPrintView (Draw_Interpretor& di, Standard_Integer argc, 
-                       const char** argv)
+//===============================================================================================
+//function : VAutoZFit
+//purpose  :
+//===============================================================================================
+static int VAutoZFit (Draw_Interpretor& theDi, Standard_Integer theArgsNb, const char** theArgVec)
 {
-#ifndef WNT
-  di << "Printing implemented only for wnt!\n";
-  return 1;
-#else
+  const Handle(V3d_View)& aCurrentView = ViewerTest::CurrentView();
 
-  Handle(AIS_InteractiveContext) aContextAIS = NULL;
-  Handle(V3d_View) aView = NULL;
-  aContextAIS = ViewerTest::GetAISContext();
-  if (!aContextAIS.IsNull())
+  if (aCurrentView.IsNull())
   {
-    const Handle(V3d_Viewer)& Vwr = aContextAIS->CurrentViewer();
-    Vwr->InitActiveViews();
-    if(Vwr->MoreActiveViews())
-      aView = Vwr->ActiveView();
+    std::cout << theArgVec[0] << ": Call vinit before this command, please.\n";
+    return 1;
   }
 
-  // check for errors
-  if (aView.IsNull())
+  Standard_Real aScale = aCurrentView->View()->AutoZFitScaleFactor();
+
+  if (theArgsNb > 3)
   {
-    di << "Call vinit before!\n";
+    std::cout << theArgVec[0] << ": wrong command arguments. Type help for more information.\n";
     return 1;
   }
-  else if (argc < 4)
+
+  if (theArgsNb < 2)
   {
-    di << "Use: " << argv[0];
-    di << " width height filename [print algo=0]\n";
-    di << "width, height of the intermediate buffer for operation\n";
-    di << "algo : {0|1}\n";
-    di << "        0 - stretch algorithm\n";
-    di << "        1 - tile algorithm\n";
-    di << "test printing algorithms into an intermediate buffer\n";
-    di << "with saving output to an image file\n";
-    return 1;
+    theDi << "Auto z-fit mode: " << "\n"
+          << "On: " << (aCurrentView->View()->AutoZFitMode() ? "enabled" : "disabled") << "\n"
+          << "Scale: " << aScale << "\n";
+    return 0;
   }
 
-  // get the input params
-  Standard_Integer aWidth  = atoi (argv[1]);
-  Standard_Integer aHeight = atoi (argv[2]);
-  Standard_Integer aMode   = 0;
-  TCollection_AsciiString aFileName = TCollection_AsciiString (argv[3]);
-  if (argc==5)
-    aMode = atoi (argv[4]);
+  Standard_Boolean isOn = Draw::Atoi (theArgVec[1]) == 1;
 
-  // check the input parameters
-  if (aWidth <= 0 || aHeight <= 0)
+  if (theArgsNb >= 3)
   {
-    di << "Width and height must be positive values!\n";
-    return 1;
+    aScale = Draw::Atoi (theArgVec[2]);
   }
-  if (aMode != 0 && aMode != 1)
-    aMode = 0;
 
-  Image_CRawBufferData aRawBuffer;
-  HDC anDC = CreateCompatibleDC(0);
+  aCurrentView->View()->SetAutoZFitMode (isOn, aScale);
+  aCurrentView->View()->AutoZFit();
+  aCurrentView->Redraw();
 
-  // define compatible bitmap
-  BITMAPINFO aBitmapData;
-  memset (&aBitmapData, 0, sizeof (BITMAPINFOHEADER));
-  aBitmapData.bmiHeader.biSize          = sizeof (BITMAPINFOHEADER);
-  aBitmapData.bmiHeader.biWidth         = aWidth ;
-  aBitmapData.bmiHeader.biHeight        = aHeight;
-  aBitmapData.bmiHeader.biPlanes        = 1;
-  aBitmapData.bmiHeader.biBitCount      = 24;
-  aBitmapData.bmiHeader.biXPelsPerMeter = 0;
-  aBitmapData.bmiHeader.biYPelsPerMeter = 0;
-  aBitmapData.bmiHeader.biClrUsed       = 0;
-  aBitmapData.bmiHeader.biClrImportant  = 0;
-  aBitmapData.bmiHeader.biCompression   = BI_RGB;
-  aBitmapData.bmiHeader.biSizeImage     = 0;
+  return 0;
+}
 
-  // Create Device Independent Bitmap
-  HBITMAP aMemoryBitmap = CreateDIBSection (anDC, &aBitmapData, DIB_RGB_COLORS,
-                                            &aRawBuffer.dataPtr, NULL, 0);
-  HGDIOBJ anOldBitmap   = SelectObject(anDC, aMemoryBitmap);
+//! Auxiliary function to print projection type
+inline const char* projTypeName (Graphic3d_Camera::Projection theProjType)
+{
+  switch (theProjType)
+  {
+    case Graphic3d_Camera::Projection_Orthographic: return "orthographic";
+    case Graphic3d_Camera::Projection_Perspective:  return "perspective";
+    case Graphic3d_Camera::Projection_Stereo:       return "stereoscopic";
+    case Graphic3d_Camera::Projection_MonoLeftEye:  return "monoLeftEye";
+    case Graphic3d_Camera::Projection_MonoRightEye: return "monoRightEye";
+  }
+  return "UNKNOWN";
+}
 
-  Standard_Boolean isSaved = Standard_False, isPrinted = Standard_False;
-  if (aRawBuffer.dataPtr != 0)
-  {    
-    if (aMode == 0)
-      isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_STRETCH);
-    else
-      isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_TILE);
+//===============================================================================================
+//function : VCamera
+//purpose  :
+//===============================================================================================
+static int VCamera (Draw_Interpretor& theDI,
+                    Standard_Integer  theArgsNb,
+                    const char**      theArgVec)
+{
+  Handle(V3d_View) aView = ViewerTest::CurrentView();
+  if (aView.IsNull())
+  {
+    std::cout << "Error: no active view.\n";
+    return 1;
+  }
 
-    // succesfully printed into an intermediate buffer
-    if (isPrinted)
+  Handle(Graphic3d_Camera) aCamera = aView->Camera();
+  if (theArgsNb < 2)
+  {
+    theDI << "ProjType:   " << projTypeName (aCamera->ProjectionType()) << "\n";
+    theDI << "FOVy:       " << aCamera->FOVy() << "\n";
+    theDI << "Distance:   " << aCamera->Distance() << "\n";
+    theDI << "IOD:        " << aCamera->IOD() << "\n";
+    theDI << "IODType:    " << (aCamera->GetIODType() == Graphic3d_Camera::IODType_Absolute   ? "absolute" : "relative") << "\n";
+    theDI << "ZFocus:     " << aCamera->ZFocus() << "\n";
+    theDI << "ZFocusType: " << (aCamera->ZFocusType() == Graphic3d_Camera::FocusType_Absolute ? "absolute" : "relative") << "\n";
+    return 0;
+  }
+
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgsNb; ++anArgIter)
+  {
+    Standard_CString        anArg = theArgVec[anArgIter];
+    TCollection_AsciiString anArgCase (anArg);
+    anArgCase.LowerCase();
+    if (anArgCase == "-proj"
+     || anArgCase == "-projection"
+     || anArgCase == "-projtype"
+     || anArgCase == "-projectiontype")
+    {
+      theDI << projTypeName (aCamera->ProjectionType()) << " ";
+    }
+    else if (anArgCase == "-ortho"
+          || anArgCase == "-orthographic")
+    {
+      aCamera->SetProjectionType (Graphic3d_Camera::Projection_Orthographic);
+    }
+    else if (anArgCase == "-persp"
+          || anArgCase == "-perspective"
+          || anArgCase == "-perspmono"
+          || anArgCase == "-perspectivemono"
+          || anArgCase == "-mono")
+    {
+      aCamera->SetProjectionType (Graphic3d_Camera::Projection_Perspective);
+    }
+    else if (anArgCase == "-stereo"
+          || anArgCase == "-stereoscopic"
+          || anArgCase == "-perspstereo"
+          || anArgCase == "-perspectivestereo")
+    {
+      aCamera->SetProjectionType (Graphic3d_Camera::Projection_Stereo);
+    }
+    else if (anArgCase == "-left"
+          || anArgCase == "-lefteye"
+          || anArgCase == "-monoleft"
+          || anArgCase == "-monolefteye"
+          || anArgCase == "-perpsleft"
+          || anArgCase == "-perpslefteye")
+    {
+      aCamera->SetProjectionType (Graphic3d_Camera::Projection_MonoLeftEye);
+    }
+    else if (anArgCase == "-right"
+          || anArgCase == "-righteye"
+          || anArgCase == "-monoright"
+          || anArgCase == "-monorighteye"
+          || anArgCase == "-perpsright")
+    {
+      aCamera->SetProjectionType (Graphic3d_Camera::Projection_MonoRightEye);
+    }
+    else if (anArgCase == "-dist"
+          || anArgCase == "-distance")
+    {
+      Standard_CString anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : NULL;
+      if (anArgValue != NULL
+      && *anArgValue != '-')
+      {
+        ++anArgIter;
+        aCamera->SetDistance (Draw::Atof (anArgValue));
+        continue;
+      }
+      theDI << aCamera->Distance() << " ";
+    }
+    else if (anArgCase == "-iod")
+    {
+      Standard_CString anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : NULL;
+      if (anArgValue != NULL
+      && *anArgValue != '-')
+      {
+        ++anArgIter;
+        aCamera->SetIOD (aCamera->GetIODType(), Draw::Atof (anArgValue));
+        continue;
+      }
+      theDI << aCamera->IOD() << " ";
+    }
+    else if (anArgCase == "-iodtype")
     {
-      Handle(Image_PixMap) anImageBitmap =
-                         new Image_PixMap ((Standard_PByte)aRawBuffer.dataPtr,
-                                           aWidth, aHeight,
-                                           aWidth*3 + aWidth%4, 24, 0);
-      isSaved = anImageBitmap->Dump(aFileName.ToCString());
+      Standard_CString        anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : "";
+      TCollection_AsciiString anValueCase (anArgValue);
+      anValueCase.LowerCase();
+      if (anValueCase == "abs"
+       || anValueCase == "absolute")
+      {
+        ++anArgIter;
+        aCamera->SetIOD (Graphic3d_Camera::IODType_Absolute, aCamera->IOD());
+        continue;
+      }
+      else if (anValueCase == "rel"
+            || anValueCase == "relative")
+      {
+        ++anArgIter;
+        aCamera->SetIOD (Graphic3d_Camera::IODType_Relative, aCamera->IOD());
+        continue;
+      }
+      else if (*anArgValue != '-')
+      {
+        std::cout << "Error: unknown IOD type '" << anArgValue << "'\n";
+        return 1;
+      }
+      switch (aCamera->GetIODType())
+      {
+        case Graphic3d_Camera::IODType_Absolute: theDI << "absolute "; break;
+        case Graphic3d_Camera::IODType_Relative: theDI << "relative "; break;
+      }
+    }
+    else if (anArgCase == "-zfocus")
+    {
+      Standard_CString anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : NULL;
+      if (anArgValue != NULL
+      && *anArgValue != '-')
+      {
+        ++anArgIter;
+        aCamera->SetZFocus (aCamera->ZFocusType(), Draw::Atof (anArgValue));
+        continue;
+      }
+      theDI << aCamera->ZFocus() << " ";
+    }
+    else if (anArgCase == "-zfocustype")
+    {
+      Standard_CString        anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : "";
+      TCollection_AsciiString anValueCase (anArgValue);
+      anValueCase.LowerCase();
+      if (anValueCase == "abs"
+       || anValueCase == "absolute")
+      {
+        ++anArgIter;
+        aCamera->SetZFocus (Graphic3d_Camera::FocusType_Absolute, aCamera->ZFocus());
+        continue;
+      }
+      else if (anValueCase == "rel"
+            || anValueCase == "relative")
+      {
+        ++anArgIter;
+        aCamera->SetZFocus (Graphic3d_Camera::FocusType_Relative, aCamera->ZFocus());
+        continue;
+      }
+      else if (*anArgValue != '-')
+      {
+        std::cout << "Error: unknown ZFocus type '" << anArgValue << "'\n";
+        return 1;
+      }
+      switch (aCamera->ZFocusType())
+      {
+        case Graphic3d_Camera::FocusType_Absolute: theDI << "absolute "; break;
+        case Graphic3d_Camera::FocusType_Relative: theDI << "relative "; break;
+      }
+    }
+    else if (anArgCase == "-fov"
+          || anArgCase == "-fovy")
+    {
+      Standard_CString anArgValue = (anArgIter + 1 < theArgsNb) ? theArgVec[anArgIter + 1] : NULL;
+      if (anArgValue != NULL
+      && *anArgValue != '-')
+      {
+        ++anArgIter;
+        aCamera->SetFOVy (Draw::Atof (anArgValue));
+        continue;
+      }
+      theDI << aCamera->FOVy() << " ";
     }
     else
     {
-      di << "Print operation failed due to printing errors or\n";
-      di << "insufficient memory available\n";
-      di << "Please, try to use smaller dimensions for this test\n";
-      di << "command, as it allocates intermediate buffer for storing\n";
-      di << "the result\n";
+      std::cout << "Error: unknown argument '" << anArg << "'\n";
+      return 1;
     }
   }
-  else
-  {
-    di << "Can't allocate memory for intermediate buffer\n";
-    di << "Please use smaller dimensions\n";
-  }
 
-  if (aMemoryBitmap)
-  {
-    SelectObject (anDC, anOldBitmap);
-    DeleteObject (aMemoryBitmap);
-    DeleteDC(anDC);
-  }
+  aView->View()->AutoZFit();
+  aView->Redraw();
 
-  if (!isSaved)
+  return 0;
+}
+
+//==============================================================================
+//function : VStereo
+//purpose  :
+//==============================================================================
+
+static int VStereo (Draw_Interpretor& theDI,
+                    Standard_Integer  theArgNb,
+                    const char**      theArgVec)
+{
+  if (theArgNb < 2)
   {
-    di << "Save to file operation failed. This operation may fail\n";
-    di << "if you don't have enough available memory, then you can\n";
-    di << "use smaller dimensions for the output file\n";
-    return 1;
+    Handle(V3d_View) aView = ViewerTest::CurrentView();
+    if (aView.IsNull())
+    {
+      std::cerr << "No active view. Please call vinit.\n";
+      return 0;
+    }
+
+    Standard_Boolean isActive = ViewerTest_myDefaultCaps.contextStereo;
+    theDI << "Stereo " << (isActive ? "ON" : "OFF") << "\n";
+    return 0;
   }
 
+  ViewerTest_myDefaultCaps.contextStereo = Draw::Atoi (theArgVec[1]) != 0;
   return 0;
-
-#endif
 }
 
-//==============================================================================
-//function : VZLayer
-//purpose  : Test z layer operations for v3d viewer
-//==============================================================================
-static int VZLayer (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
+//===============================================================================================
+//function : VDefaults
+//purpose  :
+//===============================================================================================
+static int VDefaults (Draw_Interpretor& theDi,
+                      Standard_Integer  theArgsNb,
+                      const char**      theArgVec)
 {
-  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext ();
-  if (aContextAIS.IsNull())
-  {
-    di << "Call vinit before!\n";
-    return 1;
-  }
-  else if (argc < 2)
+  const Handle(AIS_InteractiveContext)& aCtx = ViewerTest::GetAISContext();
+  if (aCtx.IsNull())
   {
-    di << "Use: vzlayer " << argv[0];
-    di << " add/del/get [id]\n";
-    di << " add - add new z layer to viewer and print its id\n";
-    di << " del - del z layer by its id\n";
-    di << " get - print sequence of z layers in increasing order of their overlay level\n";
-    di << "id - the layer identificator value defined when removing z layer\n";
+    std::cerr << "No active viewer!\n";
     return 1;
   }
 
-  const Handle(V3d_Viewer)& aViewer = aContextAIS->CurrentViewer();
-  if (aViewer.IsNull())
+  Handle(Prs3d_Drawer) aDefParams = aCtx->DefaultDrawer();
+  if (theArgsNb < 2)
   {
-    di << "No active viewer!\n";
-    return 1;
+    if (aDefParams->TypeOfDeflection() == Aspect_TOD_RELATIVE)
+    {
+      theDi << "DeflType:           relative\n"
+            << "DeviationCoeff:     " << aDefParams->DeviationCoefficient() << "\n";
+    }
+    else
+    {
+      theDi << "DeflType:           absolute\n"
+            << "AbsoluteDeflection: " << aDefParams->MaximalChordialDeviation() << "\n";
+    }
+    theDi << "AngularDeflection:  " << (180.0 * aDefParams->HLRAngle() / M_PI) << "\n";
+    return 0;
   }
 
-  // perform operation
-  TCollection_AsciiString anOp = TCollection_AsciiString (argv[1]);
-  if (anOp == "add")
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgsNb; ++anArgIter)
   {
-    Standard_Integer aNewId;
-    if (!aViewer->AddZLayer (aNewId))
+    TCollection_AsciiString anArg (theArgVec[anArgIter]);
+    TCollection_AsciiString aKey, aValue;
+    if (!ViewerTest::SplitParameter (anArg, aKey, aValue)
+     || aValue.IsEmpty())
     {
-      di << "Impossible to add new z layer!\n";
+      std::cerr << "Error, wrong syntax at: '" << anArg.ToCString() << "'!\n";
       return 1;
     }
 
-    di << "New z layer added with index: " << aNewId << "\n";
-  }
-  else if (anOp == "del")
-  {
-    if (argc < 3)
+    aKey.UpperCase();
+    if (aKey == "ABSDEFL"
+     || aKey == "ABSOLUTEDEFLECTION"
+     || aKey == "DEFL"
+     || aKey == "DEFLECTION")
     {
-      di << "Please also provide as argument id of z layer to remove\n";
-      return 1;
+      aDefParams->SetTypeOfDeflection         (Aspect_TOD_ABSOLUTE);
+      aDefParams->SetMaximalChordialDeviation (aValue.RealValue());
     }
-
-    Standard_Integer aDelId = atoi (argv[2]);
-    if (!aViewer->RemoveZLayer (aDelId))
+    else if (aKey == "RELDEFL"
+          || aKey == "RELATIVEDEFLECTION"
+          || aKey == "DEVCOEFF"
+          || aKey == "DEVIATIONCOEFF"
+          || aKey == "DEVIATIONCOEFFICIENT")
     {
-      di << "Impossible to remove the z layer or invalid id!\n";
-      return 1;
+      aDefParams->SetTypeOfDeflection     (Aspect_TOD_RELATIVE);
+      aDefParams->SetDeviationCoefficient (aValue.RealValue());
     }
-
-    di << "Z layer " << aDelId << " has been removed\n";
-  }
-  else if (anOp == "get")
-  {
-    TColStd_SequenceOfInteger anIds;
-    aViewer->GetAllZLayers (anIds);
-    for (Standard_Integer aSeqIdx = 1; aSeqIdx <= anIds.Length(); aSeqIdx++)
+    else if (aKey == "ANGDEFL"
+          || aKey == "ANGULARDEFL"
+          || aKey == "ANGULARDEFLECTION")
     {
-      di << anIds.Value (aSeqIdx) << " ";
+      // currently HLRDeviationAngle is used instead of DeviationAngle in most places
+      aDefParams->SetHLRAngle (M_PI * aValue.RealValue() / 180.0);
+    }
+    else
+    {
+      std::cerr << "Warning, unknown argument '" << anArg.ToCString() << "'\n";
     }
-
-    di << "\n";
-  }
-  else
-  {
-    di << "Invalid operation, please use { add / del / get }\n";
-    return 1;
   }
 
   return 0;
 }
 
-DEFINE_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
-
-// this class provides a presentation of text item in v3d view under-/overlayer
-class V3d_TextItem : public Visual3d_LayerItem
-{
-public:
-
-  // CASCADE RTTI
-  DEFINE_STANDARD_RTTI(V3d_TextItem)
-
-  // constructor
-  Standard_EXPORT V3d_TextItem(const TCollection_AsciiString& theText,
-                               const Standard_Real theX1,
-                               const Standard_Real theY1,
-                               const Standard_Real theHeight,
-                               const TCollection_AsciiString& theFontName,
-                               const Quantity_Color& theColor,
-                               const Quantity_Color& theSubtitleColor,
-                               const Aspect_TypeOfDisplayText& theTypeOfDisplay,
-                               const Handle(Visual3d_Layer)& theLayer);
-
-  // redraw method
-  Standard_EXPORT void RedrawLayerPrs();
-
-private:
-
-  Standard_Real            myX1;
-  Standard_Real            myY1;
-  Standard_Real            myHeight;
-  TCollection_AsciiString  myText;
-  TCollection_AsciiString  myFontName;
-  Quantity_Color           myColor;
-  Quantity_Color           mySubtitleColor;
-  Aspect_TypeOfDisplayText myType;
-  Handle(Visual3d_Layer)   myLayer;
-
-};
-
-IMPLEMENT_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
-IMPLEMENT_STANDARD_RTTIEXT(V3d_TextItem, Visual3d_LayerItem)
-
-// create and add to display the text item
-V3d_TextItem::V3d_TextItem (const TCollection_AsciiString& theText,
-                            const Standard_Real theX1,
-                            const Standard_Real theY1,
-                            const Standard_Real theHeight,
-                            const TCollection_AsciiString& theFontName,
-                            const Quantity_Color& theColor,
-                            const Quantity_Color& theSubtitleColor,
-                            const Aspect_TypeOfDisplayText& theTypeOfDisplay,
-                            const Handle(Visual3d_Layer)& theLayer)
- : myX1 (theX1), myY1 (theY1),
-   myText (theText),
-   myHeight (theHeight),
-   myLayer (theLayer),
-   myColor (theColor),
-   mySubtitleColor (theSubtitleColor),
-   myType (theTypeOfDisplay),
-   myFontName (theFontName)
+//! Auxiliary method
+inline void addLight (const Handle(V3d_Light)& theLightNew,
+                      const Standard_Boolean   theIsGlobal)
 {
-  if (!myLayer.IsNull ())
-    myLayer->AddLayerItem (this);
-}
-
-// render item
-void V3d_TextItem::RedrawLayerPrs ()
-{ 
-  if (myLayer.IsNull ())
+  if (theLightNew.IsNull())
+  {
     return;
+  }
 
-  myLayer->SetColor (myColor);
-  myLayer->SetTextAttributes (myFontName.ToCString (), myType, mySubtitleColor);
-  myLayer->DrawText (myText.ToCString (), myX1, myY1, myHeight);
+  if (theIsGlobal)
+  {
+    ViewerTest::GetViewerFromContext()->SetLightOn (theLightNew);
+  }
+  else
+  {
+    ViewerTest::CurrentView()->SetLightOn (theLightNew);
+  }
 }
 
-DEFINE_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
-
-// The Visual3d_LayerItem line item for "vlayerline" command
-// it provides a presentation of line with user-defined 
-// linewidth, linetype and transparency.
-class V3d_LineItem : public Visual3d_LayerItem 
-{
-public:
-  // CASCADE RTTI
-  DEFINE_STANDARD_RTTI(V3d_LineItem) 
-  
-  // constructor
-  Standard_EXPORT V3d_LineItem(Standard_Real X1, Standard_Real Y1,
-                               Standard_Real X2, Standard_Real Y2,
-                               V3d_LayerMgrPointer theLayerMgr,
-                               Aspect_TypeOfLine theType = Aspect_TOL_SOLID,
-                               Standard_Real theWidth    = 0.5,
-                               Standard_Real theTransp   = 1.0);
-
-  // redraw method
-  Standard_EXPORT   void RedrawLayerPrs();
-
-private:
-
-  Standard_Real       myX1, myY1, myX2, myY2;
-  Standard_Real       myWidth;
-  Standard_Real       myTransparency;
-  Aspect_TypeOfLine   myType;
-  V3d_LayerMgrPointer myLayerMgr;
-};
-
-IMPLEMENT_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
-IMPLEMENT_STANDARD_RTTIEXT(V3d_LineItem, Visual3d_LayerItem)
-
-// default constructor for line item
-V3d_LineItem::V3d_LineItem(Standard_Real X1, Standard_Real Y1, 
-                           Standard_Real X2, Standard_Real Y2,
-                           V3d_LayerMgrPointer theLayerMgr,
-                           Aspect_TypeOfLine theType,
-                           Standard_Real theWidth,
-                           Standard_Real theTransp) :
-  myX1(X1), myY1(Y1), myX2(X2), myY2(Y2), myLayerMgr(theLayerMgr),
-  myType(theType), myWidth(theWidth), myTransparency(theTransp)
+//! Auxiliary method
+inline Standard_Integer getLightId (const TCollection_AsciiString& theArgNext)
 {
-  if (myLayerMgr && myLayerMgr->Overlay())
-    myLayerMgr->Overlay()->AddLayerItem (this);
+  TCollection_AsciiString anArgNextCase (theArgNext);
+  anArgNextCase.UpperCase();
+  if (anArgNextCase.Length() > 5
+   && anArgNextCase.SubString (1, 5).IsEqual ("LIGHT"))
+  {
+    return theArgNext.SubString (6, theArgNext.Length()).IntegerValue();
+  }
+  else
+  {
+    return theArgNext.IntegerValue();
+  }
 }
 
-// render line
-void V3d_LineItem::RedrawLayerPrs ()
+//===============================================================================================
+//function : VLight
+//purpose  :
+//===============================================================================================
+static int VLight (Draw_Interpretor& theDi,
+                   Standard_Integer  theArgsNb,
+                   const char**      theArgVec)
 {
-  Handle (Visual3d_Layer) aOverlay;
-  if (myLayerMgr)
-    aOverlay = myLayerMgr->Overlay();
+  Handle(V3d_View)   aView   = ViewerTest::CurrentView();
+  Handle(V3d_Viewer) aViewer = ViewerTest::GetViewerFromContext();
+  if (aView.IsNull()
+   || aViewer.IsNull())
+  {
+    std::cerr << "No active viewer!\n";
+    return 1;
+  }
 
-  if (!aOverlay.IsNull())
+  Standard_Real        anXYZ[3];
+  Quantity_Coefficient anAtten[2];
+  if (theArgsNb < 2)
   {
-    Quantity_Color aColor(1.0, 0, 0, Quantity_TOC_RGB);
-    aOverlay->SetColor(aColor);
-    aOverlay->SetTransparency((Standard_ShortReal)myTransparency);
-    aOverlay->SetLineAttributes((Aspect_TypeOfLine)myType, myWidth);
-    aOverlay->BeginPolyline();
-    aOverlay->AddVertex(myX1, myY1);
-    aOverlay->AddVertex(myX2, myY2);
-    aOverlay->ClosePrimitive();
+    // print lights info
+    Standard_Integer aLightId = 0;
+    for (aView->InitActiveLights(); aView->MoreActiveLights(); aView->NextActiveLights(), ++aLightId)
+    {
+      Handle(V3d_Light) aLight = aView->ActiveLight();
+      const Quantity_Color aColor = aLight->Color();
+      theDi << "Light" << aLightId << "\n";
+      switch (aLight->Type())
+      {
+        case V3d_AMBIENT:
+        {
+          theDi << "  Type:      Ambient\n";
+          break;
+        }
+        case V3d_DIRECTIONAL:
+        {
+          Handle(V3d_DirectionalLight) aLightDir = Handle(V3d_DirectionalLight)::DownCast (aLight);
+          theDi << "  Type:      Directional\n";
+          theDi << "  Headlight: " << (aLight->Headlight() ? "TRUE" : "FALSE") << "\n";
+          if (!aLightDir.IsNull())
+          {
+            aLightDir->Position  (anXYZ[0], anXYZ[1], anXYZ[2]);
+            theDi << "  Position:  " << anXYZ[0] << ", " << anXYZ[1] << ", " << anXYZ[2] << "\n";
+            aLightDir->Direction (anXYZ[0], anXYZ[1], anXYZ[2]);
+            theDi << "  Direction: " << anXYZ[0] << ", " << anXYZ[1] << ", " << anXYZ[2] << "\n";
+          }
+          break;
+        }
+        case V3d_POSITIONAL:
+        {
+          Handle(V3d_PositionalLight) aLightPos = Handle(V3d_PositionalLight)::DownCast (aLight);
+          theDi << "  Type:      Positional\n";
+          theDi << "  Headlight: " << (aLight->Headlight() ? "TRUE" : "FALSE") << "\n";
+          if (!aLightPos.IsNull())
+          {
+            aLightPos->Position  (anXYZ[0], anXYZ[1], anXYZ[2]);
+            theDi << "  Position:  " << anXYZ[0] << ", " << anXYZ[1] << ", " << anXYZ[2] << "\n";
+            aLightPos->Attenuation (anAtten[0], anAtten[1]);
+            theDi << "  Atten.:    " << anAtten[0] << " " << anAtten[1] << "\n";
+          }
+          break;
+        }
+        case V3d_SPOT:
+        {
+          Handle(V3d_SpotLight) aLightSpot = Handle(V3d_SpotLight)::DownCast (aLight);
+          theDi << "  Type:      Spot\n";
+          theDi << "  Headlight: " << (aLight->Headlight() ? "TRUE" : "FALSE") << "\n";
+          if (!aLightSpot.IsNull())
+          {
+            aLightSpot->Position  (anXYZ[0], anXYZ[1], anXYZ[2]);
+            theDi << "  Position:  " << anXYZ[0] << ", " << anXYZ[1] << ", " << anXYZ[2] << "\n";
+            aLightSpot->Direction (anXYZ[0], anXYZ[1], anXYZ[2]);
+            theDi << "  Direction: " << anXYZ[0] << ", " << anXYZ[1] << ", " << anXYZ[2] << "\n";
+            aLightSpot->Attenuation (anAtten[0], anAtten[1]);
+            theDi << "  Atten.:    " << anAtten[0] << " " << anAtten[1] << "\n";
+            theDi << "  Angle:     " << (aLightSpot->Angle() * 180.0 / M_PI) << "\n";
+            theDi << "  Exponent:  " << aLightSpot->Concentration() << "\n";
+          }
+          break;
+        }
+        default:
+        {
+          theDi << "  Type:      UNKNOWN\n";
+          break;
+        }
+      }
+      theDi << "  Color:     " << aColor.Red() << ", " << aColor.Green() << ", " << aColor.Blue() << "\n";
+    }
   }
-}
 
-//=============================================================================
-//function : VLayerLine
-//purpose  : Draws line in the v3d view layer with given attributes: linetype,
-//         : linewidth, transparency coefficient
-//============================================================================
-static int VLayerLine(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
-{
-  // get the active view
-  Handle(V3d_View) aView = ViewerTest::CurrentView();
-  if (aView.IsNull())
-  {
-    di << "Call vinit before!\n";
-    return 1;
-  }
-  else if (argc < 5)
-  {
-    di << "Use: " << argv[0];
-    di << " x1 y1 x2 y2 [linewidth = 0.5] [linetype = 0] [transparency = 1]\n";
-    di << " linetype : { 0 | 1 | 2 | 3 } \n";
-    di << "              0 - solid  \n";
-    di << "              1 - dashed \n";
-    di << "              2 - dot    \n";
-    di << "              3 - dashdot\n";
-    di << " transparency : { 0.0 - 1.0 } \n";
-    di << "                  0.0 - transparent\n";
-    di << "                  1.0 - visible    \n";
-    return 1;
-  }
+  Handle(V3d_Light) aLightNew;
+  Handle(V3d_Light) aLightOld;
+  Standard_Boolean  isGlobal = Standard_True;
+  Standard_Boolean  toCreate = Standard_False;
+  for (Standard_Integer anArgIt = 1; anArgIt < theArgsNb; ++anArgIt)
+  {
+    Handle(V3d_Light)            aLightCurr = aLightNew.IsNull() ? aLightOld : aLightNew;
+    Handle(V3d_AmbientLight)     aLightAmb  = Handle(V3d_AmbientLight)    ::DownCast (aLightCurr);
+    Handle(V3d_DirectionalLight) aLightDir  = Handle(V3d_DirectionalLight)::DownCast (aLightCurr);
+    Handle(V3d_PositionalLight)  aLightPos  = Handle(V3d_PositionalLight) ::DownCast (aLightCurr);
+    Handle(V3d_SpotLight)        aLightSpot = Handle(V3d_SpotLight)       ::DownCast (aLightCurr);
+
+    TCollection_AsciiString aName, aValue;
+    const TCollection_AsciiString anArg (theArgVec[anArgIt]);
+    TCollection_AsciiString anArgCase (anArg);
+    anArgCase.UpperCase();
+    if (anArgCase.IsEqual ("NEW")
+     || anArgCase.IsEqual ("ADD")
+     || anArgCase.IsEqual ("CREATE"))
+    {
+      toCreate = Standard_True;
+    }
+    else if (anArgCase.IsEqual ("GLOB")
+          || anArgCase.IsEqual ("GLOBAL"))
+    {
+      isGlobal = Standard_True;
+    }
+    else if (anArgCase.IsEqual ("LOC")
+          || anArgCase.IsEqual ("LOCAL"))
+    {
+      isGlobal = Standard_False;
+    }
+    else if (anArgCase.IsEqual ("DEF")
+          || anArgCase.IsEqual ("DEFAULTS"))
+    {
+      toCreate = Standard_False;
+      aViewer->SetDefaultLights();
+    }
+    else if (anArgCase.IsEqual ("CLR")
+          || anArgCase.IsEqual ("CLEAR"))
+    {
+      toCreate = Standard_False;
+      aView->InitActiveLights();
+      while (aView->MoreActiveLights())
+      {
+        aViewer->DelLight (aView->ActiveLight());
+        aView->InitActiveLights();
+      }
+    }
+    else if (anArgCase.IsEqual ("AMB")
+          || anArgCase.IsEqual ("AMBIENT")
+          || anArgCase.IsEqual ("AMBLIGHT"))
+    {
+      addLight (aLightNew, isGlobal);
+      if (!toCreate)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+      toCreate  = Standard_False;
+      aLightNew = new V3d_AmbientLight (aViewer);
+    }
+    else if (anArgCase.IsEqual ("DIRECTIONAL")
+          || anArgCase.IsEqual ("DIRLIGHT"))
+    {
+      addLight (aLightNew, isGlobal);
+      if (!toCreate)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+      toCreate  = Standard_False;
+      aLightNew = new V3d_DirectionalLight (aViewer);
+    }
+    else if (anArgCase.IsEqual ("SPOT")
+          || anArgCase.IsEqual ("SPOTLIGHT"))
+    {
+      addLight (aLightNew, isGlobal);
+      if (!toCreate)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+      toCreate  = Standard_False;
+      aLightNew = new V3d_SpotLight (aViewer, 0.0, 0.0, 0.0);
+    }
+    else if (anArgCase.IsEqual ("POSLIGHT")
+          || anArgCase.IsEqual ("POSITIONAL"))
+    {
+      addLight (aLightNew, isGlobal);
+      if (!toCreate)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+      toCreate  = Standard_False;
+      aLightNew = new V3d_PositionalLight (aViewer, 0.0, 0.0, 0.0);
+    }
+    else if (anArgCase.IsEqual ("CHANGE"))
+    {
+      addLight (aLightNew, isGlobal);
+      aLightNew.Nullify();
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+
+      const Standard_Integer aLightId = getLightId (theArgVec[anArgIt]);
+      Standard_Integer aLightIt = 0;
+      for (aView->InitActiveLights(); aView->MoreActiveLights(); aView->NextActiveLights(), ++aLightIt)
+      {
+        if (aLightIt == aLightId)
+        {
+          aLightOld = aView->ActiveLight();
+          break;
+        }
+      }
 
-  // get the input params
-  Standard_Real X1 = atof(argv[1]);
-  Standard_Real Y1 = atof(argv[2]);
-  Standard_Real X2 = atof(argv[3]);
-  Standard_Real Y2 = atof(argv[4]);
+      if (aLightOld.IsNull())
+      {
+        std::cerr << "Light " << theArgVec[anArgIt] << " is undefined!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("DEL")
+          || anArgCase.IsEqual ("DELETE"))
+    {
+      Handle(V3d_Light) aLightDel;
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  Standard_Real    aWidth = 0.5;
-  Standard_Integer aType  = 0;
-  Standard_Real    aTransparency = 1.0;
+      const TCollection_AsciiString anArgNext (theArgVec[anArgIt]);
+      const Standard_Integer aLightDelId = getLightId (theArgVec[anArgIt]);
+      Standard_Integer aLightIt = 0;
+      for (aView->InitActiveLights(); aView->MoreActiveLights(); aView->NextActiveLights(), ++aLightIt)
+      {
+        aLightDel = aView->ActiveLight();
+        if (aLightIt == aLightDelId)
+        {
+          break;
+        }
+      }
+      if (!aLightDel.IsNull())
+      {
+        aViewer->DelLight (aLightDel);
+      }
+    }
+    else if (anArgCase.IsEqual ("COLOR")
+          || anArgCase.IsEqual ("COLOUR"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // has width
-  if (argc > 5)
-    aWidth = atof(argv[5]);
+      TCollection_AsciiString anArgNext (theArgVec[anArgIt]);
+      anArgNext.UpperCase();
+      const Quantity_Color aColor = ViewerTest::GetColorFromName (anArgNext.ToCString());
+      if (!aLightCurr.IsNull())
+      {
+        aLightCurr->SetColor (aColor);
+      }
+    }
+    else if (anArgCase.IsEqual ("POS")
+          || anArgCase.IsEqual ("POSITION"))
+    {
+      if ((anArgIt + 3) >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // has type
-  if (argc > 6)
-     aType = (Standard_Integer) atoi(argv[6]);
+      anXYZ[0] = Atof (theArgVec[++anArgIt]);
+      anXYZ[1] = Atof (theArgVec[++anArgIt]);
+      anXYZ[2] = Atof (theArgVec[++anArgIt]);
+      if (!aLightDir.IsNull())
+      {
+        aLightDir->SetPosition (anXYZ[0], anXYZ[1], anXYZ[2]);
+      }
+      else if (!aLightPos.IsNull())
+      {
+        aLightPos->SetPosition (anXYZ[0], anXYZ[1], anXYZ[2]);
+      }
+      else if (!aLightSpot.IsNull())
+      {
+        aLightSpot->SetPosition (anXYZ[0], anXYZ[1], anXYZ[2]);
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("DIR")
+          || anArgCase.IsEqual ("DIRECTION"))
+    {
+      if ((anArgIt + 3) >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // has transparency
-  if (argc > 7)
-  {
-    aTransparency = atof(argv[7]);
-    if (aTransparency < 0 || aTransparency > 1.0) 
-      aTransparency = 1.0;
-  }
+      anXYZ[0] = Atof (theArgVec[++anArgIt]);
+      anXYZ[1] = Atof (theArgVec[++anArgIt]);
+      anXYZ[2] = Atof (theArgVec[++anArgIt]);
+      if (!aLightDir.IsNull())
+      {
+        aLightDir->SetDirection (anXYZ[0], anXYZ[1], anXYZ[2]);
+      }
+      else if (!aLightSpot.IsNull())
+      {
+        aLightSpot->SetDirection (anXYZ[0], anXYZ[1], anXYZ[2]);
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("ANG")
+          || anArgCase.IsEqual ("ANGLE"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // select appropriate line type
-  Aspect_TypeOfLine aLineType;
-  switch (aType)
-  {
-    case 1:
-      aLineType = Aspect_TOL_DASH;
-    break;
+      Standard_Real anAngle = Atof (theArgVec[anArgIt]);
 
-    case 2:
-      aLineType = Aspect_TOL_DOT;
-    break;
+      if (!aLightSpot.IsNull())
+      {
+        aLightSpot->SetAngle (anAngle / 180.0 * M_PI);
+      }
+    }
+    else if (anArgCase.IsEqual ("CONSTATTEN")
+          || anArgCase.IsEqual ("CONSTATTENUATION"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-    case 3:
-      aLineType = Aspect_TOL_DOTDASH;
-    break;
+      if (!aLightPos.IsNull())
+      {
+        aLightPos->Attenuation (anAtten[0], anAtten[1]);
+        anAtten[0] = Atof (theArgVec[anArgIt]);
+        aLightPos->SetAttenuation (anAtten[0], anAtten[1]);
+      }
+      else if (!aLightSpot.IsNull())
+      {
+        aLightSpot->Attenuation (anAtten[0], anAtten[1]);
+        anAtten[0] = Atof (theArgVec[anArgIt]);
+        aLightSpot->SetAttenuation (anAtten[0], anAtten[1]);
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("LINATTEN")
+          || anArgCase.IsEqual ("LINEARATTEN")
+          || anArgCase.IsEqual ("LINEARATTENUATION"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-    default:
-      aLineType = Aspect_TOL_SOLID;
-  }
+      if (!aLightPos.IsNull())
+      {
+        aLightPos->Attenuation (anAtten[0], anAtten[1]);
+        anAtten[1] = Atof (theArgVec[anArgIt]);
+        aLightPos->SetAttenuation (anAtten[0], anAtten[1]);
+      }
+      else if (!aLightSpot.IsNull())
+      {
+        aLightSpot->Attenuation (anAtten[0], anAtten[1]);
+        anAtten[1] = Atof (theArgVec[anArgIt]);
+        aLightSpot->SetAttenuation (anAtten[0], anAtten[1]);
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("EXP")
+          || anArgCase.IsEqual ("EXPONENT")
+          || anArgCase.IsEqual ("SPOTEXP")
+          || anArgCase.IsEqual ("SPOTEXPONENT"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // replace layer manager
-  Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr(aView);
-  aView->SetLayerMgr(aMgr);
+      if (!aLightSpot.IsNull())
+      {
+        aLightSpot->SetConcentration (Atof (theArgVec[anArgIt]));
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else if (anArgCase.IsEqual ("HEAD")
+          || anArgCase.IsEqual ("HEADLIGHT"))
+    {
+      if (++anArgIt >= theArgsNb)
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
 
-  // add line item
-  Handle (V3d_LineItem) anItem = new V3d_LineItem(X1, Y1, X2, Y2, 
-                                                  aMgr.operator->(),
-                                                  aLineType, aWidth, 
-                                                  aTransparency);
+      if (aLightAmb.IsNull()
+       && !aLightCurr.IsNull())
+      {
+        aLightCurr->SetHeadlight (Draw::Atoi (theArgVec[anArgIt]) != 0);
+      }
+      else
+      {
+        std::cerr << "Wrong syntax at argument '" << anArg << "'!\n";
+        return 1;
+      }
+    }
+    else
+    {
+      std::cerr << "Warning: unknown argument '" << anArg << "'\n";
+    }
+  }
 
-  // update view
-  aView->MustBeResized();
-  aView->Redraw();
+  addLight (aLightNew, isGlobal);
+  aViewer->UpdateLights();
 
   return 0;
 }
 
 //=======================================================================
-//function : VOverlayText
-//purpose  : Test text displaying in view overlay
+//function : VRenderParams
+//purpose  : Enables/disables rendering features
 //=======================================================================
-static int VOverlayText (Draw_Interpretor& di, Standard_Integer argc, const char**argv)
+
+static Standard_Integer VRenderParams (Draw_Interpretor& theDI,
+                                       Standard_Integer  theArgNb,
+                                       const char**      theArgVec)
 {
-  // get the active view
   Handle(V3d_View) aView = ViewerTest::CurrentView();
   if (aView.IsNull())
   {
-    di << "No active view. Please call vinit.\n";
-    return 1;
-  }
-  else if (argc < 4 || argc > 13)
-  {
-    di << "Use: " << argv[0];
-    di << " text x y [height] [font_name] [text_color: R G B] [displayType]\n";
-    di << "[background_color: R G B]\n";
-    di << "  height - pixel height of the text (default=10.0)\n";
-    di << "  font_name - name of font (default=courier)\n";
-    di << "  text_color - R G B values of text color (default=255.0 255.0 255.0)\n";
-    di << "  display_type = {normal/subtitle/decal/blend}, (default=normal)\n";
-    di << "  background_color- R G B values used for subtitle and decal text\n";
-    di << "(default=255.0 255.0 255.0)\n";
+    std::cerr << "Error: no active viewer!\n";
     return 1;
   }
-  
-  TCollection_AsciiString aText (argv[1]);
-  Standard_Real aPosX = atof(argv[2]);
-  Standard_Real aPosY = atof(argv[3]);
-  Standard_Real aHeight = (argc >= 5) ? atof (argv[4]) : 10.0;
-
-  // font name
-  TCollection_AsciiString aFontName = "Courier";
-  if (argc >= 6)
-    aFontName = TCollection_AsciiString (argv[5]);
-
-  // text colors
-  Quantity_Parameter aColorRed   = 1.0;
-  Quantity_Parameter aColorGreen = 1.0;
-  Quantity_Parameter aColorBlue  = 1.0;
-  if (argc >= 9)
-  {
-    aColorRed   = atof (argv[6])/255.;
-    aColorGreen = atof (argv[7])/255.;
-    aColorBlue  = atof (argv[8])/255.;
-  }
-
-  // display type
-  TCollection_AsciiString aDispStr;
-  if (argc >= 10)
-    aDispStr = TCollection_AsciiString (argv[9]);
-
-  Aspect_TypeOfDisplayText aTextType = Aspect_TODT_NORMAL;
-  if (aDispStr.IsEqual ("subtitle"))
-    aTextType = Aspect_TODT_SUBTITLE;
-  else if (aDispStr.IsEqual ("decal"))
-    aTextType = Aspect_TODT_DEKALE;
-  else if (aDispStr.IsEqual ("blend"))
-    aTextType = Aspect_TODT_BLEND;
-
-  // subtitle color
-  Quantity_Parameter aSubRed   = 1.0;
-  Quantity_Parameter aSubGreen = 1.0;
-  Quantity_Parameter aSubBlue  = 1.0;
-  if (argc == 13)
-  {
-    aSubRed   = atof (argv[10])/255.;
-    aSubGreen = atof (argv[11])/255.;
-    aSubBlue  = atof (argv[12])/255.;
-  }
 
-  // check fo current overlay
-  Handle(Visual3d_Layer) anOverlay = aView->Viewer()->Viewer()->OverLayer ();
-  if (anOverlay.IsNull ())
+  Graphic3d_RenderingParams& aParams = aView->ChangeRenderingParams();
+  TCollection_AsciiString aCmdName (theArgVec[0]);
+  aCmdName.LowerCase();
+  if (aCmdName == "vraytrace")
   {
-    Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr (aView);
-    anOverlay = aMgr->Overlay ();
-    aView->SetLayerMgr (aMgr);
-  }
-
-  Quantity_Color aTextColor (aColorRed, aColorGreen, 
-    aColorBlue, Quantity_TOC_RGB);
-  Quantity_Color aSubtColor (aSubRed, aSubGreen, 
-    aSubBlue, Quantity_TOC_RGB);
-
-  // add text item
-  Handle(V3d_TextItem) anItem = new V3d_TextItem (aText, aPosX, aPosY,
-    aHeight, aFontName, aTextColor, aSubtColor, aTextType, anOverlay);
-
-  // update view
-  aView->MustBeResized();
-  aView->Redraw();
-
-  return 0;
-}
-
-//==============================================================================
-//function : VGrid
-//purpose  :
-//==============================================================================
+    if (theArgNb == 1)
+    {
+      theDI << (aParams.Method == Graphic3d_RM_RAYTRACING ? "on" : "off") << " ";
+      return 0;
+    }
+    else if (theArgNb == 2)
+    {
+      TCollection_AsciiString aValue (theArgVec[1]);
+      aValue.LowerCase();
+      if (aValue == "on"
+       || aValue == "1")
+      {
+        aParams.Method = Graphic3d_RM_RAYTRACING;
+        aView->Redraw();
+        return 0;
+      }
+      else if (aValue == "off"
+            || aValue == "0")
+      {
+        aParams.Method = Graphic3d_RM_RASTERIZATION;
+        aView->Redraw();
+        return 0;
+      }
+      else
+      {
+        std::cout << "Error: unknown argument '" << theArgVec[1] << "'\n";
+        return 1;
+      }
+    }
+    else
+    {
+      std::cout << "Error: wrong number of arguments\n";
+      return 1;
+    }
+  }
 
-static int VGrid (Draw_Interpretor& theDI,
-                  Standard_Integer  theArgNb,
-                  const char**      theArgVec)
-{
-  // get the active view
-  Handle(V3d_View)   aView   = ViewerTest::CurrentView();
-  Handle(V3d_Viewer) aViewer = ViewerTest::GetViewerFromContext();
-  if (aView.IsNull() || aViewer.IsNull())
+  if (theArgNb < 2)
   {
-    std::cerr << "No active view. Please call vinit.\n";
-    return 1;
+    theDI << "renderMode:  ";
+    switch (aParams.Method)
+    {
+      case Graphic3d_RM_RASTERIZATION: theDI << "rasterization "; break;
+      case Graphic3d_RM_RAYTRACING:    theDI << "raytrace ";      break;
+    }
+    theDI << "\n";
+    theDI << "fsaa:         " << (aParams.IsAntialiasingEnabled      ? "on" : "off") << "\n";
+    theDI << "shadows:      " << (aParams.IsShadowEnabled            ? "on" : "off") << "\n";
+    theDI << "reflections:  " << (aParams.IsReflectionEnabled        ? "on" : "off") << "\n";
+    theDI << "rayDepth:     " <<  aParams.RaytracingDepth                            << "\n";
+    theDI << "gleam:        " << (aParams.IsTransparentShadowEnabled ? "on" : "off") << "\n";
+    theDI << "shadingModel: ";
+    switch (aView->ShadingModel())
+    {
+      case V3d_COLOR:   theDI << "color";   break;
+      case V3d_FLAT:    theDI << "flat";    break;
+      case V3d_GOURAUD: theDI << "gouraud"; break;
+      case V3d_PHONG:   theDI << "phong";   break;
+    }
+    theDI << "\n";
+    return 0;
   }
 
-  Aspect_GridType     aType = aViewer->GridType();
-  Aspect_GridDrawMode aMode = aViewer->GridDrawMode();
-
-  Standard_Integer anIter = 1;
-  for (; anIter < theArgNb; ++anIter)
+  Standard_Boolean toPrint = Standard_False;
+  ViewerTest_AutoUpdater anUpdateTool (ViewerTest::GetAISContext(), aView);
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
   {
-    const char* aValue = theArgVec[anIter];
-    if (*aValue == 'r')
+    Standard_CString        anArg (theArgVec[anArgIter]);
+    TCollection_AsciiString aFlag (anArg);
+    aFlag.LowerCase();
+    if (anUpdateTool.parseRedrawMode (aFlag))
     {
-      aType = Aspect_GT_Rectangular;
+      continue;
     }
-    else if (*aValue == 'c')
+    else if (aFlag == "-echo"
+          || aFlag == "-print")
     {
-      aType = Aspect_GT_Circular;
+      toPrint = Standard_True;
+      anUpdateTool.Invalidate();
     }
-    else if (*aValue == 'l')
+    else if (aFlag == "-mode"
+          || aFlag == "-rendermode"
+          || aFlag == "-render_mode")
     {
-      aMode = Aspect_GDM_Lines;
+      if (toPrint)
+      {
+        switch (aParams.Method)
+        {
+          case Graphic3d_RM_RASTERIZATION: theDI << "rasterization "; break;
+          case Graphic3d_RM_RAYTRACING:    theDI << "ray-tracing ";   break;
+        }
+        continue;
+      }
+      else
+      {
+        std::cerr << "Error: wrong syntax at argument '" << anArg << "'\n";
+        return 1;
+      }
     }
-    else if (*aValue == 'p')
+    else if (aFlag == "-ray"
+          || aFlag == "-raytrace")
     {
-      aMode = Aspect_GDM_Points;
+      if (toPrint)
+      {
+        theDI << (aParams.Method == Graphic3d_RM_RAYTRACING ? "true" : "false") << " ";
+        continue;
+      }
+
+      aParams.Method = Graphic3d_RM_RAYTRACING;
     }
-    else if (strcmp (aValue, "off" ) == 0)
+    else if (aFlag == "-rast"
+          || aFlag == "-raster"
+          || aFlag == "-rasterization")
     {
-      aViewer->DeactivateGrid();
-      return 0;
+      if (toPrint)
+      {
+        theDI << (aParams.Method == Graphic3d_RM_RASTERIZATION ? "true" : "false") << " ";
+        continue;
+      }
+
+      aParams.Method = Graphic3d_RM_RASTERIZATION;
     }
-    else
+    else if (aFlag == "-raydepth"
+          || aFlag == "-ray_depth")
     {
-      break;
+      if (toPrint)
+      {
+        theDI << aParams.RaytracingDepth << " ";
+        continue;
+      }
+      else if (++anArgIter >= theArgNb)
+      {
+        std::cerr << "Error: wrong syntax at argument '" << anArg << "'\n";
+        return 1;
+      }
+
+      const Standard_Integer aDepth = Draw::Atoi (theArgVec[anArgIter]);
+      if (aDepth < 1 || aDepth > 10)
+      {
+        std::cerr << "Error: invalid ray-tracing depth " << aDepth << ". Should be within range [1; 10]\n";
+        return 1;
+      }
+      else
+      {
+        aParams.RaytracingDepth = aDepth;
+      }
     }
-  }
+    else if (aFlag == "-shad"
+          || aFlag == "-shadows")
+    {
+      if (toPrint)
+      {
+        theDI << (aParams.IsShadowEnabled ? "on" : "off") << " ";
+        continue;
+      }
 
-  Standard_Integer aTail = (theArgNb - anIter);
-  if (aTail == 0)
-  {
-    aViewer->ActivateGrid (aType, aMode);
-    return 0;
-  }
-  else if (aTail != 2 && aTail != 5)
-  {
-    std::cerr << "Incorrect arguments number! Usage:\n"
-              << "vgrid [off] [Mode={r|c}] [Type={l|p}] [OriginX OriginY [StepX/StepRadius StepY/DivNb RotAngle]]\n";
-    return 1;
-  }
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aParams.IsShadowEnabled = toEnable;
+    }
+    else if (aFlag == "-refl"
+          || aFlag == "-reflections")
+    {
+      if (toPrint)
+      {
+        theDI << (aParams.IsReflectionEnabled ? "on" : "off") << " ";
+        continue;
+      }
 
-  Quantity_Length anOriginX, anOriginY;
-  Quantity_PlaneAngle aRotAngle;
-  if (aType == Aspect_GT_Rectangular)
-  {
-    Quantity_Length aRStepX, aRStepY;
-    aViewer->RectangularGridValues (anOriginX, anOriginY, aRStepX, aRStepY, aRotAngle);
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aParams.IsReflectionEnabled = toEnable;
+    }
+    else if (aFlag == "-fsaa")
+    {
+      if (toPrint)
+      {
+        theDI << (aParams.IsAntialiasingEnabled ? "on" : "off") << " ";
+        continue;
+      }
 
-    anOriginX = atof (theArgVec[anIter++]);
-    anOriginY = atof (theArgVec[anIter++]);
-    if (aTail == 5)
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aParams.IsAntialiasingEnabled = toEnable;
+    }
+    else if (aFlag == "-gleam")
     {
-      aRStepX   = atof (theArgVec[anIter++]);
-      aRStepY   = atof (theArgVec[anIter++]);
-      aRotAngle = atof (theArgVec[anIter++]);
+      if (toPrint)
+      {
+        theDI << (aParams.IsTransparentShadowEnabled ? "on" : "off") << " ";
+        continue;
+      }
+
+      Standard_Boolean toEnable = Standard_True;
+      if (++anArgIter < theArgNb
+      && !parseOnOff (theArgVec[anArgIter], toEnable))
+      {
+        --anArgIter;
+      }
+      aParams.IsTransparentShadowEnabled = toEnable;
     }
-    aViewer->SetRectangularGridValues (anOriginX, anOriginY, aRStepX, aRStepY, aRotAngle);
-    aViewer->ActivateGrid (aType, aMode);
-  }
-  else if (aType == Aspect_GT_Circular)
-  {
-    Quantity_Length aRadiusStep;
-    Standard_Integer aDivisionNumber;
-    aViewer->CircularGridValues (anOriginX, anOriginY, aRadiusStep, aDivisionNumber, aRotAngle);
+    else if (aFlag == "-shademodel"
+          || aFlag == "-shadingmodel"
+          || aFlag == "-shading")
+    {
+      if (toPrint)
+      {
+        switch (aView->ShadingModel())
+        {
+          case V3d_COLOR:   theDI << "color ";   break;
+          case V3d_FLAT:    theDI << "flat ";    break;
+          case V3d_GOURAUD: theDI << "gouraud "; break;
+          case V3d_PHONG:   theDI << "phong ";   break;
+        }
+        continue;
+      }
 
-    anOriginX = atof (theArgVec[anIter++]);
-    anOriginY = atof (theArgVec[anIter++]);
-    if (aTail == 5)
+      if (++anArgIter >= theArgNb)
+      {
+        std::cerr << "Error: wrong syntax at argument '" << anArg << "'\n";
+      }
+
+      TCollection_AsciiString aMode (theArgVec[anArgIter]);
+      aMode.LowerCase();
+      if (aMode == "color"
+       || aMode == "none")
+      {
+        aView->SetShadingModel (V3d_COLOR);
+      }
+      else if (aMode == "flat"
+            || aMode == "facet")
+      {
+        aView->SetShadingModel (V3d_FLAT);
+      }
+      else if (aMode == "gouraud"
+            || aMode == "vertex"
+            || aMode == "vert")
+      {
+        aView->SetShadingModel (V3d_GOURAUD);
+      }
+      else if (aMode == "phong"
+            || aMode == "fragment"
+            || aMode == "frag"
+            || aMode == "pixel")
+      {
+        aView->SetShadingModel (V3d_PHONG);
+      }
+      else
+      {
+        std::cout << "Error: unknown shading model '" << aMode << "'\n";
+        return 1;
+      }
+    }
+    else
     {
-      aRadiusStep     = atof (theArgVec[anIter++]);
-      aDivisionNumber = atoi (theArgVec[anIter++]);
-      aRotAngle       = atof (theArgVec[anIter++]);
+      std::cout << "Error: wrong syntax, unknown flag '" << anArg << "'\n";
+      return 1;
     }
-
-    aViewer->SetCircularGridValues (anOriginX, anOriginY, aRadiusStep, aDivisionNumber, aRotAngle);
-    aViewer->ActivateGrid (aType, aMode);
   }
-
   return 0;
 }
 
-//==============================================================================
-//function : VFps
-//purpose  :
-//==============================================================================
-
-static int VFps (Draw_Interpretor& theDI,
-                 Standard_Integer  theArgNb,
-                 const char**      theArgVec)
+//=======================================================================
+//function : VFrustumCulling
+//purpose  : enables/disables view volume's culling.
+//=======================================================================
+static int VFrustumCulling (Draw_Interpretor& theDI,
+                            Standard_Integer  theArgNb,
+                            const char**      theArgVec)
 {
-  // get the active view
   Handle(V3d_View) aView = ViewerTest::CurrentView();
   if (aView.IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    std::cout << theArgVec[0] << " Error: Use 'vinit' command before\n";
     return 1;
   }
 
-  Standard_Integer aFramesNb = (theArgNb > 1) ? atoi(theArgVec[1]) : 100;
-  if (aFramesNb <= 0)
+  if (theArgNb < 2)
   {
-    std::cerr << "Incorrect arguments!\n";
+    theDI << (aView->IsCullingEnabled() ? "on" : "off");
+    return 0;
+  }
+  else if (theArgNb != 2)
+  {
+    std::cout << theArgVec[0] << " Syntax error: Specify the mode\n";
     return 1;
   }
 
-  // the time is meaningless for first call
-  // due to async OpenGl rendering
-  aView->Redraw();
-
-  // redraw view in loop to estimate average values
-  OSD_Timer aTimer;
-  aTimer.Start();
-  for (Standard_Integer anInter = 0; anInter < aFramesNb; ++anInter)
+  TCollection_AsciiString aModeStr (theArgVec[1]);
+  aModeStr.LowerCase();
+  Standard_Boolean toEnable = 0;
+  if (aModeStr == "on")
   {
-    aView->Redraw();
+    toEnable = 1;
+  }
+  else if (aModeStr == "off")
+  {
+    toEnable = 0;
+  }
+  else
+  {
+    toEnable = Draw::Atoi (theArgVec[1]) != 0;
   }
-  aTimer.Stop();
-  Standard_Real aCpu;
-  const Standard_Real aTime = aTimer.ElapsedTime();
-  aTimer.OSD_Chronometer::Show (aCpu);
-
-  const Standard_Real aFpsAver = Standard_Real(aFramesNb) / aTime;
-  const Standard_Real aCpuAver = aCpu / Standard_Real(aFramesNb);
-
-  // return statistics
-  theDI << "FPS: " << aFpsAver << "\n"
-        << "CPU: " << (1000.0 * aCpuAver) << " msec\n";
 
+  aView->SetFrustumCulling (toEnable);
+  aView->Redraw();
   return 0;
 }
 
-
-//==============================================================================
-//function : VVbo
-//purpose  :
-//==============================================================================
-
-static int VVbo (Draw_Interpretor& theDI,
-                 Standard_Integer  theArgNb,
-                 const char**      theArgVec)
+//=======================================================================
+//function : VHighlightSelected
+//purpose  : 
+//=======================================================================
+static int VHighlightSelected (Draw_Interpretor& theDI,
+                               Standard_Integer  theArgNb,
+                               const char**      theArgVec)
 {
-  // get the context
-  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
-  if (aContextAIS.IsNull())
+  if (ViewerTest::GetAISContext().IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    std::cout << theArgVec[0] << " error : Context is not created. Please call vinit before.\n";
     return 1;
   }
 
-  Handle(Graphic3d_GraphicDriver) aDriver =
-         Handle(Graphic3d_GraphicDriver)::DownCast (aContextAIS->CurrentViewer()->Device()->GraphicDriver());
-  if (aDriver.IsNull())
+  const Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+
+  if (theArgNb < 2)
   {
-    std::cerr << "Graphic driver not available.\n";
-    return 1;
+    theDI << (aContext->ToHilightSelected() ? "on" : "off");
+    return 0;
   }
 
-  if (theArgNb < 2)
+  if (theArgNb != 2)
   {
-    //theDI << "VBO: " << aDriver->ToUseVBO() << "\n";
-    //return 0;
-    std::cerr << "Wrong number of arguments.\n";
+    std::cout  << theArgVec[0] << " error : wrong number of parameters."
+          << "Type 'help" << theArgVec[0] << "' for more information.";
     return 1;
   }
 
-  aDriver->EnableVBO (atoi(theArgVec[1]) != 0);
+  // Parse parameter
+  TCollection_AsciiString aMode (theArgVec[1]);
+  aMode.LowerCase();
+  Standard_Boolean toEnable = Standard_False;
+  if (aMode.IsEqual ("on"))
+  {
+    toEnable = Standard_True;
+  }
+  else if (aMode.IsEqual ("off"))
+  {
+    toEnable = Standard_False;
+  }
+  else
+  {
+    toEnable = Draw::Atoi (theArgVec[1]) != 0;
+  }
+
+  if (toEnable != aContext->ToHilightSelected())
+  {
+    aContext->SetToHilightSelected (toEnable);
+
+    // Move cursor to null position and  back to process updating of detection
+    // and highlighting of selected object immediatly.
+    Standard_Integer aPixX = 0;
+    Standard_Integer aPixY = 0;
+    const Handle(ViewerTest_EventManager)& anEventManager =  ViewerTest::CurrentEventManager();
+
+    anEventManager->GetCurrentPosition (aPixX, aPixY);
+    anEventManager->MoveTo (0, 0);
+    anEventManager->MoveTo (aPixX, aPixY);
+  }
+
   return 0;
 }
 
-//==============================================================================
-//function : VMemGpu
+//=======================================================================
+//function : VXRotate
 //purpose  :
-//==============================================================================
-
-static int VMemGpu (Draw_Interpretor& theDI,
-                    Standard_Integer  theArgNb,
-                    const char**      theArgVec)
+//=======================================================================
+static Standard_Integer VXRotate (Draw_Interpretor& di,
+                                   Standard_Integer argc,
+                                   const char ** argv)
 {
-  // get the context
-  Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
-  if (aContextAIS.IsNull())
+  Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
+  if (aContext.IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    di << argv[0] << "ERROR : use 'vinit' command before " << "\n";
     return 1;
   }
-
-  Handle(Graphic3d_GraphicDriver) aDriver =
-         Handle(Graphic3d_GraphicDriver)::DownCast (aContextAIS->CurrentViewer()->Device()->GraphicDriver());
-  if (aDriver.IsNull())
+  
+  if (argc != 3)
   {
-    std::cerr << "Graphic driver not available.\n";
+    di << "ERROR : Usage : " << argv[0] << " name angle" << "\n";
     return 1;
   }
 
-  Standard_Size aFreeBytes = 0;
-  TCollection_AsciiString anInfo;
-  if (!aDriver->MemoryInfo (aFreeBytes, anInfo))
-  {
-    std::cerr << "Information not available.\n";
-    return 1;
-  }
+  TCollection_AsciiString aName (argv[1]);
+  Standard_Real anAngle = Draw::Atof (argv[2]);
 
-  if (theArgNb > 1 && *theArgVec[1] == 'f')
+  // find object
+  ViewerTest_DoubleMapOfInteractiveAndName& aMap = GetMapOfAIS();
+  Handle(AIS_InteractiveObject) anIObj;
+  if (!aMap.IsBound2 (aName) )
   {
-    theDI << Standard_Real (aFreeBytes);
+    di << "Use 'vdisplay' before" << "\n";
+    return 1;
   }
   else
   {
-    theDI << anInfo;
+    anIObj = Handle(AIS_InteractiveObject)::DownCast (aMap.Find2 (aName));
+
+    gp_Trsf aTransform;
+    aTransform.SetRotation (gp_Ax1 (gp_Pnt (0.0, 0.0, 0.0), gp_Vec (1.0, 0.0, 0.0)), anAngle);
+    aTransform.SetTranslationPart (anIObj->LocalTransformation().TranslationPart());
+
+    aContext->SetLocation (anIObj, aTransform);
+    aContext->UpdateCurrentViewer();
   }
 
   return 0;
@@ -2826,27 +7097,83 @@ void ViewerTest::ViewerCommands(Draw_Interpretor& theCommands)
 {
 
   const char *group = "ZeViewer";
-  theCommands.Add("vinit" ,
-    "vinit            : vinit [leftPx topPx widthPx heightPx] : Create the Viewer window",
+  theCommands.Add("vinit",
+#if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+    "[name=view_name] [display=display_name] [l=leftPx t=topPx] [w=widthPx h=heightPx]\n"
+#else
+    "[name=view_name] [l=leftPx t=topPx] [w=widthPx h=heightPx]\n"
+#endif
+    " - Creates new View window with specified name view_name.\n"
+    "By default the new view is created in the viewer and in"
+    " graphic driver shared with active view.\n"
+    " - name = {driverName/viewerName/viewName | viewerName/viewName | viewName}.\n"
+    "If driverName isn't specified the driver will be shared with active view.\n"
+    "If viewerName isn't specified the viewer will be shared with active view.\n"
+#if !defined(_WIN32) && !defined(__WIN32__) && (!defined(__APPLE__) || defined(MACOSX_USE_GLX))
+    " - display = HostName.DisplayNumber[:ScreenNumber] : if specified"
+    "is used in creation of graphic driver\n"
+#endif
+    " - l, t: pixel position of left top corner of the window\n"
+    " - w,h: width and heigth of window respectively.\n"
+    "Additional commands for operations with views: vclose, vactivate, vviewlist.\n",
     __FILE__,VInit,group);
+  theCommands.Add("vclose" ,
+    "[view_id [keep_context=0|1]]\n"
+    "or vclose ALL - to remove all created views\n"
+    " - removes view(viewer window) defined by its view_id.\n"
+    " - keep_context: by default 0; if 1 and the last view is deleted"
+    " the current context is not removed.",
+    __FILE__,VClose,group);
+  theCommands.Add("vactivate" ,
+    "view_id"
+    " - activates view(viewer window) defined by its view_id",
+    __FILE__,VActivate,group);
+  theCommands.Add("vviewlist",
+    "vviewlist [format={tree, long}]"
+    " - prints current list of views per viewer and graphic_driver ID shared between viewers"
+    " - format: format of result output, if tree the output is a tree view;"
+    "otherwise it's a list of full view names. By default format = tree",
+    __FILE__,VViewList,group);
   theCommands.Add("vhelp" ,
     "vhelp            : display help on the viewer commands",
     __FILE__,VHelp,group);
   theCommands.Add("vtop" ,
-    "vtop or <T>         : Top view" ,
+    "vtop or <T>      : Top view" ,
     __FILE__,VTop,group);
+  theCommands.Add("vbottom" ,
+    "vbottom          : Bottom view" ,
+    __FILE__,VBottom,group);
+  theCommands.Add("vleft" ,
+    "vleft            : Left view" ,
+    __FILE__,VLeft,group);
+  theCommands.Add("vright" ,
+    "vright           : Right view" ,
+    __FILE__,VRight,group);
   theCommands.Add("vaxo" ,
     " vaxo or <A>     : Axonometric view ",
     __FILE__,VAxo,group);
+  theCommands.Add("vfront" ,
+    "vfront           : Front view" ,
+    __FILE__,VFront,group);
+  theCommands.Add("vback" ,
+    "vback            : Back view" ,
+    __FILE__,VBack,group);
   theCommands.Add("vpick" ,
     "vpick           : vpick X Y Z [shape subshape] ( all variables as string )",
     VPick,group);
   theCommands.Add("vfit"    ,
     "vfit or <F>         : vfit",
     __FILE__,VFit,group);
-  theCommands.Add("vzfit"    ,
-    "vzfit",
-    __FILE__,VZFit,group);
+  theCommands.Add ("vfitarea",
+    "vfitarea x1 y1 x2 y2"
+    "\n\t\t: vfitarea x1 y1 z1 x2 y2 z2"
+    "\n\t\t: Fit view to show area located between two points"
+    "\n\t\t: given in world 2D or 3D corrdinates.",
+    __FILE__, VFitArea, group);
+  theCommands.Add ("vzfit", "vzfit [scale]\n"
+    "   Matches Z near, Z far view volume planes to the displayed objects.\n"
+    "   \"scale\" - specifies factor to scale computed z range.\n",
+    __FILE__, VZFit, group);
   theCommands.Add("vrepaint",
     "vrepaint        : vrepaint, force redraw",
     __FILE__,VRepaint,group);
@@ -2897,10 +7224,23 @@ void ViewerTest::ViewerCommands(Draw_Interpretor& theCommands)
     "vgraduatedtrihedron : 1/0 (display/erase) [Xname Yname Zname [Font [isMultibyte]]]",
     __FILE__,VGraduatedTrihedron,group);
   theCommands.Add("vprintview" ,
-    "vprintview : width height filename [algo=0] : Test print algorithm: algo = 0 - stretch, algo = 1 - tile",
+    "vprintview : width height filename [algo=0] [tile_width tile_height] : Test print algorithm: algo = 0 - stretch, algo = 1 - tile",
     __FILE__,VPrintView,group);
   theCommands.Add("vzlayer",
-    "vzlayer : add/del/get [id] : Z layer operations in v3d viewer: add new z layer, delete z layer, get z layer ids",
+    "vzlayer add/del/get/settings/enable/disable [id]\n"
+    " add - add new z layer to viewer and print its id\n"
+    " del - del z layer by its id\n"
+    " get - print sequence of z layers in increasing order of their overlay level\n"
+    " settings - print status of z layer settings\n"
+    " enable ([depth]test/[depth]write/[depth]clear/[depth]offset) \n    enables given setting for the z layer\n"
+    " enable (p[ositive]offset/n[egative]offset) \n    enables given setting for the z layer\n"
+    " disable ([depth]test/[depth]write/[depth]clear/[depth]offset) \n    disables given setting for the z layer\n"
+    "\nWhere id is the layer identificator\n"
+    "\nExamples:\n"
+    "   vzlayer add\n"
+    "   vzlayer enable poffset 1\n"
+    "   vzlayer disable depthtest 1\n"
+    "   vzlayer del 1\n",
     __FILE__,VZLayer,group);
   theCommands.Add("voverlaytext",
     "voverlaytext : text x y [height] [font_name] [text_color: R G B] [display_type] [background_color: R G B]"
@@ -2921,11 +7261,245 @@ void ViewerTest::ViewerCommands(Draw_Interpretor& theCommands)
   theCommands.Add ("vfps",
     "vfps [framesNb=100] : estimate average frame rate for active view",
     __FILE__, VFps, group);
+  theCommands.Add ("vgldebug",
+    "vgldebug [{0|1}] : request debug GL context, should be called before vinit\n"
+    "                : this function is implemented only for Windows\n"
+    "                : GL_ARB_debug_output extension should be exported by OpenGL driver!",
+    __FILE__, VGlDebug, group);
   theCommands.Add ("vvbo",
-    "vvbo {0|1} : turn VBO usage On/Off; affects only newly displayed objects",
+    "vvbo [{0|1}] : turn VBO usage On/Off; affects only newly displayed objects",
     __FILE__, VVbo, group);
+  theCommands.Add ("vstereo",
+    "\nvstereo [{0|1}] : turn stereo usage On/Off; affects only newly displayed objects",
+    __FILE__, VStereo, group);
+  theCommands.Add ("vcaps",
+            "vcaps [-vbo {0|1}] [-sprites {0|1}] [-ffp {0|1}]"
+    "\n\t\t:       [-softMode {0|1}] [-noupdate|-update]"
+    "\n\t\t: Modify particular graphic driver options:"
+    "\n\t\t:  FFP      - use fixed-function pipeline instead of"
+    "\n\t\t:             built-in GLSL programs"
+    "\n\t\t:  VBO      - use Vertex Buffer Object (copy vertex"
+    "\n\t\t:             arrays to GPU memory)"
+    "\n\t\t:  sprite   - use textured sprites instead of bitmaps"
+    "\n\t\t:  softMode - use software OpenGL implementation,"
+    "\n\t\t:             should be set BEFORE viewer creation"
+    "\n\t\t: Unlike vrenderparams, these parameters control alternative"
+    "\n\t\t: rendering paths producing the same visual result when"
+    "\n\t\t: possible."
+    "\n\t\t: Command is intended for testing old hardware compatibility.",
+    __FILE__, VCaps, group);
   theCommands.Add ("vmemgpu",
     "vmemgpu [f]: print system-dependent GPU memory information if available;"
     " with f option returns free memory in bytes",
     __FILE__, VMemGpu, group);
+  theCommands.Add ("vreadpixel",
+    "vreadpixel xPixel yPixel [{rgb|rgba|depth|hls|rgbf|rgbaf}=rgba] [name]"
+    " : Read pixel value for active view",
+    __FILE__, VReadPixel, group);
+  theCommands.Add("diffimage",
+    "diffimage     : diffimage imageFile1 imageFile2 toleranceOfColor(0..1) blackWhite(1|0) borderFilter(1|0) [diffImageFile]",
+    __FILE__, VDiffImage, group);
+  theCommands.Add ("vselect",
+    "vselect x1 y1 [x2 y2 [x3 y3 ... xn yn]] [shift_selection = 0|1]\n"
+    "- emulates different types of selection:\n"
+    "- 1) single click selection\n"
+    "- 2) selection with rectangle having corners at pixel positions (x1,y1) and (x2,y2)\n"
+    "- 3) selection with polygon having corners in pixel positions (x1,y1), (x2,y2),...,(xn,yn)\n"
+    "- 4) any of these selections with shift button pressed",
+    __FILE__, VSelect, group);
+  theCommands.Add ("vmoveto",
+    "vmoveto x y"
+    "- emulates cursor movement to pixel postion (x,y)",
+    __FILE__, VMoveTo, group);
+  theCommands.Add ("vviewparams", "vviewparams usage:\n"
+    "- vviewparams\n"
+    "- vviewparams [-scale [s]] [-eye [x y z]] [-at [x y z]] [-up [x y z]]\n"
+    "              [-proj [x y z]] [-center x y] [-size sx]\n"
+    "-   Gets or sets current view parameters.\n"
+    "-   If called without arguments, all view parameters are printed.\n"
+    "-   The options are:\n"
+    "      -scale [s]    : prints or sets viewport relative scale.\n"
+    "      -eye [x y z]  : prints or sets eye location.\n"
+    "      -at [x y z]   : prints or sets center of look.\n"
+    "      -up [x y z]   : prints or sets direction of up vector.\n"
+    "      -proj [x y z] : prints or sets direction of look.\n"
+    "      -center x y   : sets location of center of the screen in pixels.\n"
+    "      -size [sx]    : prints viewport projection width and height sizes\n"
+    "                    : or changes the size of its maximum dimension.\n",
+    __FILE__, VViewParams, group);
+  theCommands.Add("vchangeselected",
+    "vchangeselected shape"
+    "- adds to shape to selection or remove one from it",
+               __FILE__, VChangeSelected, group);
+  theCommands.Add("vzclipping",
+    "vzclipping [mode] [depth width]\n"
+    "- mode = OFF|BACK|FRONT|SLICE depth = [0..1] width = [0..1]\n"
+    "- gets or sets ZClipping mode, width and depth",
+    __FILE__,VZClipping,group);
+  theCommands.Add ("vnbselected",
+    "vnbselected", __FILE__, VNbSelected, group);
+  theCommands.Add ("vcamera",
+              "vcamera [-ortho] [-projtype]"
+      "\n\t\t:         [-persp]"
+      "\n\t\t:         [-fovy   [Angle]] [-distance [Distance]]"
+      "\n\t\t:         [-stereo] [-leftEye] [-rightEye]"
+      "\n\t\t:         [-iod [Distance]] [-iodType    [absolute|relative]]"
+      "\n\t\t:         [-zfocus [Value]] [-zfocusType [absolute|relative]]"
+      "\n\t\t: Manage camera parameters."
+      "\n\t\t: Prints current value when option called without argument."
+      "\n\t\t: Orthographic camera:"
+      "\n\t\t:   -ortho      activate orthographic projection"
+      "\n\t\t: Perspective camera:"
+      "\n\t\t:   -persp      activate perspective  projection (mono)"
+      "\n\t\t:   -fovy       field of view in y axis, in degrees"
+      "\n\t\t:   -distance   distance of eye from camera center"
+      "\n\t\t: Stereoscopic camera:"
+      "\n\t\t:   -stereo     perspective  projection (stereo)"
+      "\n\t\t:   -leftEye    perspective  projection (left  eye)"
+      "\n\t\t:   -rightEye   perspective  projection (right eye)"
+      "\n\t\t:   -iod        intraocular distance value"
+      "\n\t\t:   -iodType    distance type, absolute or relative"
+      "\n\t\t:   -zfocus     stereographic focus value"
+      "\n\t\t:   -zfocusType focus type, absolute or relative",
+    __FILE__, VCamera, group);
+  theCommands.Add ("vautozfit", "command to enable or disable automatic z-range adjusting\n"
+    "- vautozfit [on={1|0}] [scale]\n"
+    "    Prints or changes parameters of automatic z-fit mode:\n"
+    "   \"on\" - turns automatic z-fit on or off\n"
+    "   \"scale\" - specifies factor to scale computed z range.\n",
+    __FILE__, VAutoZFit, group);
+  theCommands.Add ("vzrange", "command to manually access znear and zfar values\n"
+    "   vzrange                - without parameters shows current values\n"
+    "   vzrange [znear] [zfar] - applies provided values to view",
+    __FILE__,VZRange, group);
+  theCommands.Add("vantialiasing",
+    "vantialiasing 1|0",
+    __FILE__,VAntialiasing,group);
+  theCommands.Add ("vpurgedisplay",
+    "vpurgedisplay"
+    "- removes structures which don't belong to objects displayed in neutral point",
+    __FILE__, VPurgeDisplay, group);
+  theCommands.Add("vsetviewsize",
+    "vsetviewsize size",
+    __FILE__,VSetViewSize,group);
+  theCommands.Add("vmoveview",
+    "vmoveview Dx Dy Dz [Start = 1|0]",
+    __FILE__,VMoveView,group);
+  theCommands.Add("vtranslateview",
+    "vtranslateview Dx Dy Dz [Start = 1|0)]",
+    __FILE__,VTranslateView,group);
+  theCommands.Add("vturnview",
+    "vturnview Ax Ay Az [Start = 1|0]",
+    __FILE__,VTurnView,group);
+  theCommands.Add("vtextureenv",
+    "Enables or disables environment mapping in the 3D view, loading the texture from the given standard "
+    "or user-defined file and optionally applying texture mapping parameters\n"
+    "                  Usage:\n"
+    "                  vtextureenv off - disables environment mapping\n"
+    "                  vtextureenv on {std_texture|texture_file_name} [rep mod flt ss st ts tt rot] - enables environment mapping\n"
+    "                              std_texture = (0..7)\n"
+    "                              rep         = {clamp|repeat}\n"
+    "                              mod         = {decal|modulate}\n"
+    "                              flt         = {nearest|bilinear|trilinear}\n"
+    "                              ss, st      - scale factors for s and t texture coordinates\n"
+    "                              ts, tt      - translation for s and t texture coordinates\n"
+    "                              rot         - texture rotation angle in degrees",
+    __FILE__, VTextureEnv, group);
+  theCommands.Add("vhlr" ,
+    "is_enabled={on|off} [show_hidden={1|0}]"
+    " - Hidden line removal algorithm:"
+    " - is_enabled: if is on HLR algorithm is applied\n"
+    " - show_hidden: if equals to 1, hidden lines are drawn as dotted ones.\n",
+    __FILE__,VHLR,group);
+  theCommands.Add("vhlrtype" ,
+    "algo_type={algo|polyalgo} [shape_1 ... shape_n]"
+    " - Changes the type of HLR algorithm using for shapes."
+    " - algo_type: if equals to algo, exact HLR algorithm is applied;\n"
+    "   if equals to polyalgo, polygonal HLR algorithm is applied."
+    "If shapes are not given HLR algoithm of given type is applied"
+    " to all shapes in the view\n",
+    __FILE__,VHLRType,group);
+  theCommands.Add("vclipplane", "vclipplane usage: \n"
+    "  maxplanes <view_name> - get plane limit for view.\n"
+    "  create <plane_name> - create new plane.\n"
+    "  delete <plane_name> - delete plane.\n"
+    "  clone <source_plane> <plane_name> - clone the plane definition.\n"
+    "  set/unset <plane_name> object <object list> - set/unset plane for IO.\n"
+    "  set/unset <plane_name> view <view list> - set/unset plane for view.\n"
+    "  change <plane_name> on/off - turn clipping on/off.\n"
+    "  change <plane_name> equation <a> <b> <c> <d> - change plane equation.\n"
+    "  change <plane_name> capping on/off - turn capping on/off.\n"
+    "  change <plane_name> capping color <r> <g> <b> - set color.\n"
+    "  change <plane name> capping texname <texture> - set texture.\n"
+    "  change <plane_name> capping texscale <sx> <sy> - set tex scale.\n"
+    "  change <plane_name> capping texorigin <tx> <ty> - set tex origin.\n"
+    "  change <plane_name> capping texrotate <angle> - set tex rotation.\n"
+    "  change <plane_name> capping hatch on/off/<id> - set hatching mask.\n"
+    "  please use VSetTextureMode command to enable texture rendering in view.\n"
+    , __FILE__, VClipPlane, group);
+  theCommands.Add("vsettexturemode", "vsettexturemode view_name mode \n"
+    "  mode can be:\n"
+    "  0 - no textures enabled in view.\n"
+    "  1 - only environment textures enabled.\n"
+    "  2 - all textures enabled.\n"
+    "  this command sets texture details mode for the specified view.\n"
+    , __FILE__, VSetTextureMode, group);
+  theCommands.Add("vdefaults",
+    "vdefaults [absDefl=value] [devCoeff=value] [angDefl=value]",
+    __FILE__, VDefaults, group);
+  theCommands.Add("vlight",
+    "tool to manage light sources, without arguments shows list of lights."
+    "\n    Main commands: "
+    "\n      'clear' to clear lights"
+    "\n      '{def}aults' to load deafault lights"
+    "\n      'add' (or 'new') <type> to add any light source"
+    "\n          where <type> is one of {amb}ient|directional|{spot}light|positional"
+    "\n      'change' <lightId> to edit light source with specified lightId"
+    "\n\n      In addition to 'add' and 'change' commands you can use light parameters:"
+    "\n        {pos}ition X Y Z"
+    "\n        {dir}ection X Y Z (for directional light or for spotlight)"
+    "\n        color colorName"
+    "\n        {head}light 0|1"
+    "\n        {constAtten}uation value"
+    "\n        {linearAtten}uation value"
+    "\n        angle angleDeg"
+    "\n        {spotexp}onent value"
+    "\n        local|global"
+    "\n\n        example: vlight add positional head 1 pos 0 1 1 color red"
+    "\n        example: vlight change 0 direction 0 -1 0 linearAttenuation 0.2",
+    __FILE__, VLight, group);
+  theCommands.Add("vraytrace",
+            "vraytrace [0|1]"
+    "\n\t\t: Turn on/off raytracing renderer."
+    "\n\t\t:   'vraytrace 0' alias for 'vrenderparams -raster'."
+    "\n\t\t:   'vraytrace 1' alias for 'vrenderparams -rayTrace'.",
+    __FILE__, VRenderParams, group);
+  theCommands.Add("vrenderparams",
+    "\n    Manages rendering parameters: "
+    "\n      '-rayTrace'             Enables  GPU ray-tracing"
+    "\n      '-raster'               Disables GPU ray-tracing"
+    "\n      '-rayDepth     0..10'   Defines maximum ray-tracing depth"
+    "\n      '-shadows      on|off'  Enables/disables shadows rendering"
+    "\n      '-reflections  on|off'  Enables/disables specular reflections"
+    "\n      '-fsaa         on|off'  Enables/disables adaptive anti-aliasing"
+    "\n      '-gleam        on|off'  Enables/disables transparency shadow effects"
+    "\n      '-shadingModel model'   Controls shading model from enumeration"
+    "\n                              color, flat, gouraud, phong"
+    "\n    Unlike vcaps, these parameters dramatically change visual properties."
+    "\n    Command is intended to control presentation quality depending on"
+    "\n    hardware capabilities and performance.",
+    __FILE__, VRenderParams, group);
+  theCommands.Add("vfrustumculling",
+    "vfrustumculling [toEnable]: enables/disables objects clipping",
+    __FILE__,VFrustumCulling,group);
+  theCommands.Add("vhighlightselected",
+    "vhighlightselected [0|1] or vhighlightselected [on|off]: enables/disables highlighting of selected objects.\n"
+    "Without arguments it shows if highlighting of selected objects is enabled now.",
+    __FILE__,VHighlightSelected,group);
+
+
+  theCommands.Add("vxrotate",
+    "vxrotate",
+    __FILE__,VXRotate,group);
+
 }