0031189: Draw Harness, ViewerTest - send messages to Message::DefaultMessenger()
[occt.git] / src / ViewerTest / ViewerTest_OpenGlCommands.cxx
index 086ac82..cf0ff62 100644 (file)
 #include <Graphic3d_Group.hxx>
 #include <Graphic3d_ShaderObject.hxx>
 #include <Graphic3d_ShaderProgram.hxx>
-#include <OpenGl_AspectFace.hxx>
-#include <OpenGl_AspectLine.hxx>
-#include <OpenGl_AspectMarker.hxx>
-#include <OpenGl_AspectText.hxx>
+#include <Image_AlienPixMap.hxx>
+#include <OpenGl_Aspects.hxx>
 #include <OpenGl_Context.hxx>
 #include <OpenGl_Element.hxx>
 #include <OpenGl_GlCore20.hxx>
@@ -34,6 +32,7 @@
 #include <OpenGl_Workspace.hxx>
 #include <OSD_Environment.hxx>
 #include <OSD_File.hxx>
+#include <OSD_OpenFile.hxx>
 #include <Prs3d_Drawer.hxx>
 #include <Prs3d_Presentation.hxx>
 #include <Prs3d_Root.hxx>
@@ -48,6 +47,7 @@
 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
 #include <OpenGl_Group.hxx>
+#include <OSD_OpenFile.hxx>
 
 extern Standard_Boolean VDisplayAISObject (const TCollection_AsciiString& theName,
                                            const Handle(AIS_InteractiveObject)& theAISObj,
@@ -158,13 +158,13 @@ void VUserDrawObj::Render(const Handle(OpenGl_Workspace)& theWorkspace) const
   const Handle(OpenGl_Context)& aCtx = theWorkspace->GetGlContext();
 
   // To test linking against OpenGl_Workspace and all aspect classes
-  const OpenGl_AspectMarker* aMA = theWorkspace->AspectMarker();
-  aMA->Aspect()->Type();
-  const OpenGl_AspectText* aTA = theWorkspace->AspectText();
-  aTA->Aspect()->Font();
-  OpenGl_Vec4 aColor = theWorkspace->LineColor();
+  const OpenGl_Aspects* aMA = theWorkspace->Aspects();
+  aMA->Aspect()->MarkerType();
+  OpenGl_Vec4 aColor = theWorkspace->InteriorColor();
 
-  aCtx->ShaderManager()->BindLineProgram (Handle(OpenGl_TextureSet)(), false, false, false, Handle(OpenGl_ShaderProgram)());
+  aCtx->ShaderManager()->BindLineProgram (Handle(OpenGl_TextureSet)(), Aspect_TOL_SOLID,
+                                          Graphic3d_TOSM_UNLIT, Graphic3d_AlphaMode_Opaque, false,
+                                          Handle(OpenGl_ShaderProgram)());
   aCtx->SetColor4fv (aColor);
 
   const OpenGl_Vec3 aVertArray[4] =
@@ -186,27 +186,27 @@ void VUserDrawObj::Render(const Handle(OpenGl_Workspace)& theWorkspace) const
 
 } // end of anonymous namespace
 
-static Standard_Integer VUserDraw (Draw_Interpretor& di,
+static Standard_Integer VUserDraw (Draw_Interpretor& ,
                                     Standard_Integer argc,
                                     const char ** argv)
 {
   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
   if (aContext.IsNull())
   {
-    di << argv[0] << "Call 'vinit' before!\n";
+    Message::SendFail ("Error: no active viewer");
     return 1;
   }
 
   Handle(OpenGl_GraphicDriver) aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aContext->CurrentViewer()->Driver());
   if (aDriver.IsNull())
   {
-    std::cerr << "Graphic driver not available.\n";
+    Message::SendFail ("Error: Graphic driver not available.");
     return 1;
   }
 
   if (argc > 2)
   {
-    di << argv[0] << "Wrong number of arguments, only the object name expected\n";
+    Message::SendFail ("Syntax error: wrong number of arguments");
     return 1;
   }
 
@@ -233,7 +233,7 @@ static int VFeedback (Draw_Interpretor& theDI,
   Handle(V3d_View) aView = ViewerTest::CurrentView();
   if (aView.IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    Message::SendFail ("Error: no active viewer");
     return 1;
   }
 
@@ -244,9 +244,9 @@ static int VFeedback (Draw_Interpretor& theDI,
     if (aBytes / sizeof(GLfloat) != (size_t )aBufferSize)
     {
       // finito la commedia
-      std::cerr << "Can not allocate buffer - requested size ("
-                << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
-                << " MiB) is out of address space\n";
+      Message::SendFail() << "Can not allocate buffer - requested size ("
+                          << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
+                          << " MiB) is out of address space";
       return 1;
     }
 
@@ -254,9 +254,9 @@ static int VFeedback (Draw_Interpretor& theDI,
     if (aBuffer == NULL)
     {
       // finito la commedia
-      std::cerr << "Can not allocate buffer with size ("
-                << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
-                << " MiB)\n";
+      Message::SendFail() << "Can not allocate buffer with size ("
+                          << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
+                          << " MiB)";
       return 1;
     }
 
@@ -390,21 +390,20 @@ static int VImmediateFront (Draw_Interpretor& /*theDI*/,
   Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
   if (aContextAIS.IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    Message::SendFail ("Error: no active viewer");
     return 1;
   }
 
   Handle(Graphic3d_GraphicDriver) aDriver = aContextAIS->CurrentViewer()->Driver();
-
   if (aDriver.IsNull())
   {
-    std::cerr << "Graphic driver not available.\n";
+    Message::SendFail ("Error: graphic driver not available.");
     return 1;
   }
 
   if (theArgNb < 2)
   {
-    std::cerr << "Wrong number of arguments.\n";
+    Message::SendFail ("Syntax error: wrong number of arguments.");
     return 1;
   }
 
@@ -440,7 +439,7 @@ static int VGlInfo (Draw_Interpretor& theDI,
   Handle(V3d_View) aView = ViewerTest::CurrentView();
   if (aView.IsNull())
   {
-    std::cerr << "No active view. Please call vinit.\n";
+    Message::SendFail ("No active viewer");
     return 1;
   }
 
@@ -517,7 +516,7 @@ static int VGlInfo (Draw_Interpretor& theDI,
     }
     else
     {
-      std::cerr << "Unknown key '" << aName.ToCString() << "'\n";
+      Message::SendFail() << "Syntax error: unknown key '" << aName.ToCString() << "'";
       return 1;
     }
 
@@ -583,19 +582,19 @@ static bool parseShaderTypeArg (Graphic3d_TypeOfShaderObject& theType,
 //function : VShaderProg
 //purpose  : Sets the pair of vertex and fragment shaders for the object
 //==============================================================================
-static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
+static Standard_Integer VShaderProg (Draw_Interpretor& theDI,
                                      Standard_Integer  theArgNb,
                                      const char**      theArgVec)
 {
   Handle(AIS_InteractiveContext) aCtx = ViewerTest::GetAISContext();
   if (aCtx.IsNull())
   {
-    std::cout << "Error: no active view.\n";
+    Message::SendFail ("Error: no active viewer");
     return 1;
   }
   else if (theArgNb < 2)
   {
-    std::cout << "Syntax error: lack of arguments\n";
+    Message::SendFail ("Syntax error: lack of arguments");
     return 1;
   }
 
@@ -610,9 +609,66 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
     anArg.LowerCase();
     Graphic3d_TypeOfShaderObject aShaderTypeArg = Graphic3d_TypeOfShaderObject(-1);
     if (!aProgram.IsNull()
-     &&  aProgram->ShaderObjects().IsEmpty()
-     && (anArg == "-off"
-      || anArg ==  "off"))
+      && anArg == "-uniform"
+      && anArgIter + 2 < theArgNb)
+    {
+      TCollection_AsciiString aName = theArgVec[++anArgIter];
+      aProgram->PushVariableFloat (aName, float (Draw::Atof (theArgVec[++anArgIter])));
+    }
+    else if (anArg == "-list"
+          || ((anArg == "-update"
+            || anArg == "-dump"
+            || anArg == "-debug"
+            || anArg == "-reload"
+            || anArg == "-load")
+           && anArgIter + 1 < theArgNb))
+    {
+      Handle(OpenGl_Context) aGlCtx;
+      if (Handle(OpenGl_GraphicDriver) aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aCtx->CurrentViewer()->Driver()))
+      {
+        aGlCtx = aDriver->GetSharedContext();
+      }
+      if (aGlCtx.IsNull())
+      {
+        Message::SendFail ("Error: no OpenGl_Context");
+        return 1;
+      }
+
+      if (anArg == "-list")
+      {
+        for (OpenGl_Context::OpenGl_ResourcesMap::Iterator aResIter (aGlCtx->SharedResources()); aResIter.More(); aResIter.Next())
+        {
+          if (Handle(OpenGl_ShaderProgram) aResProg = Handle(OpenGl_ShaderProgram)::DownCast (aResIter.Value()))
+          {
+            theDI << aResProg->ResourceId() << " ";
+          }
+        }
+      }
+      else
+      {
+        TCollection_AsciiString aShaderName = theArgVec[++anArgIter];
+        Handle(OpenGl_ShaderProgram) aResProg;
+        if (!aGlCtx->GetResource (aShaderName, aResProg))
+        {
+          Message::SendFail() << "Syntax error: shader resource '" << aShaderName << "' is not found";
+          return 1;
+        }
+        if (aResProg->UpdateDebugDump (aGlCtx, "", false, anArg == "-dump"))
+        {
+          aCtx->UpdateCurrentViewer();
+        }
+      }
+      if (anArgIter + 1 < theArgNb)
+      {
+        Message::SendFail ("Syntax error: wrong number of arguments");
+        return 1;
+      }
+      return 0;
+    }
+    else if (!aProgram.IsNull()
+          &&  aProgram->ShaderObjects().IsEmpty()
+          && (anArg == "-off"
+           || anArg ==  "off"))
     {
       aProgram.Nullify();
     }
@@ -624,8 +680,8 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       const TCollection_AsciiString& aShadersRoot = Graphic3d_ShaderProgram::ShadersFolder();
       if (aShadersRoot.IsEmpty())
       {
-        std::cout << "Error: both environment variables CSF_ShadersDirectory and CASROOT are undefined!\n"
-                     "At least one should be defined to load Phong program.\n";
+        Message::SendFail("Error: both environment variables CSF_ShadersDirectory and CASROOT are undefined!\n"
+                          "At least one should be defined to load Phong program.");
         return 1;
       }
 
@@ -634,13 +690,13 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       if (!aSrcVert.IsEmpty()
        && !OSD_File (aSrcVert).Exists())
       {
-        std::cout << "Error: PhongShading.vs is not found\n";
+        Message::SendFail ("Error: PhongShading.vs is not found");
         return 1;
       }
       if (!aSrcFrag.IsEmpty()
        && !OSD_File (aSrcFrag).Exists())
       {
-        std::cout << "Error: PhongShading.fs is not found\n";
+        Message::SendFail ("Error: PhongShading.fs is not found");
         return 1;
       }
 
@@ -688,7 +744,7 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       }
       else
       {
-        std::cerr << "Syntax error at '" << aPrimTypeStr << "'\n";
+        Message::SendFail() << "Syntax error at '" << aPrimTypeStr << "'";
         return 1;
       }
     }
@@ -710,10 +766,10 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
     else if (!anArg.StartsWith ("-")
           && GetMapOfAIS().IsBound2 (theArgVec[anArgIter]))
     {
-      Handle(AIS_InteractiveObject) anIO = Handle(AIS_InteractiveObject)::DownCast (GetMapOfAIS().Find2 (theArgVec[anArgIter]));
+      Handle(AIS_InteractiveObject) anIO = GetMapOfAIS().Find2 (theArgVec[anArgIter]);
       if (anIO.IsNull())
       {
-        std::cerr << "Syntax error: " << theArgVec[anArgIter] << " is not an AIS object\n";
+        Message::SendFail() << "Syntax error: " << theArgVec[anArgIter] << " is not an AIS object";
         return 1;
       }
       aPrsList.Append (anIO);
@@ -736,7 +792,8 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       const TCollection_AsciiString& aShaderSrc = aShader->Source();
 
       const bool hasVertPos   = aShaderSrc.Search ("gl_Position")  != -1;
-      const bool hasFragColor = aShaderSrc.Search ("occFragColor") != -1
+      const bool hasFragColor = aShaderSrc.Search ("occSetFragColor") != -1
+                             || aShaderSrc.Search ("occFragColor") != -1
                              || aShaderSrc.Search ("gl_FragColor") != -1
                              || aShaderSrc.Search ("gl_FragData")  != -1;
       Graphic3d_TypeOfShaderObject aShaderType = aShaderTypeArg;
@@ -755,7 +812,7 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       }
       if (aShaderType == Graphic3d_TypeOfShaderObject(-1))
       {
-        std::cerr << "Error: non-existing or invalid shader source\n";
+        Message::SendFail() << "Error: non-existing or invalid shader source";
         return 1;
       }
 
@@ -763,11 +820,18 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
     }
     else
     {
-      std::cerr << "Syntax error at '" << anArg << "'\n";
+      Message::SendFail() << "Syntax error at '" << anArg << "'";
       return 1;
     }
   }
 
+  if (!aProgram.IsNull()
+    && ViewerTest::CurrentView()->RenderingParams().TransparencyMethod == Graphic3d_RTM_BLEND_OIT)
+  {
+    aProgram->SetNbFragmentOutputs (2);
+    aProgram->SetWeightOitOutput (true);
+  }
+
   ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName aGlobalPrsIter (GetMapOfAIS());
   NCollection_Sequence<Handle(AIS_InteractiveObject)>::Iterator aPrsIter (aPrsList);
   const bool isGlobalList = aPrsList.IsEmpty();
@@ -780,7 +844,7 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
       {
         break;
       }
-      anIO = Handle(AIS_InteractiveObject)::DownCast (aGlobalPrsIter.Key1());
+      anIO = aGlobalPrsIter.Key1();
       aGlobalPrsIter.Next();
       if (anIO.IsNull())
       {
@@ -811,6 +875,637 @@ static Standard_Integer VShaderProg (Draw_Interpretor& /*theDI*/,
   return 0;
 }
 
+//! Print triplet of values.
+template<class S, class T> static S& operator<< (S& theStream, const NCollection_Vec3<T>& theVec)
+{
+  theStream << theVec[0] << " " << theVec[1] << " " << theVec[2];
+  return theStream;
+}
+
+//! Print 4 values.
+template<class S, class T> static S& operator<< (S& theStream, const NCollection_Vec4<T>& theVec)
+{
+  theStream << theVec[0] << " " << theVec[1] << " " << theVec[2] << " " << theVec[3];
+  return theStream;
+}
+
+//! Print fresnel model.
+static const char* fresnelModelString (const Graphic3d_FresnelModel theModel)
+{
+  switch (theModel)
+  {
+    case Graphic3d_FM_SCHLICK:    return "SCHLICK";
+    case Graphic3d_FM_CONSTANT:   return "CONSTANT";
+    case Graphic3d_FM_CONDUCTOR:  return "CONDUCTOR";
+    case Graphic3d_FM_DIELECTRIC: return "DIELECTRIC";
+  }
+  return "N/A";
+}
+
+//! Create a colored rectangle SVG element.
+static TCollection_AsciiString formatSvgColoredRect (const Quantity_Color& theColor)
+{
+  return TCollection_AsciiString()
+       + "<svg width='20px' height='20px'><rect width='20px' height='20px' fill='" + Quantity_Color::ColorToHex (theColor) + "' /></svg>";
+}
+
+//==============================================================================
+//function : VListMaterials
+//purpose  :
+//==============================================================================
+static Standard_Integer VListMaterials (Draw_Interpretor& theDI,
+                                        Standard_Integer  theArgNb,
+                                        const char**      theArgVec)
+{
+  TCollection_AsciiString aDumpFile;
+  NCollection_Sequence<Graphic3d_NameOfMaterial> aMatList;
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
+  {
+    TCollection_AsciiString anArg (theArgVec[anArgIter]);
+    anArg.LowerCase();
+    Graphic3d_NameOfMaterial aMat = Graphic3d_MaterialAspect::MaterialFromName (theArgVec[anArgIter]);
+    if (aMat != Graphic3d_NOM_DEFAULT)
+    {
+      aMatList.Append (aMat);
+    }
+    else if (anArg == "*")
+    {
+      for (Standard_Integer aMatIter = 0; aMatIter < (Standard_Integer )Graphic3d_NOM_DEFAULT; ++aMatIter)
+      {
+        aMatList.Append ((Graphic3d_NameOfMaterial )aMatIter);
+      }
+    }
+    else if (aDumpFile.IsEmpty()
+          && (anArg.EndsWith (".obj")
+           || anArg.EndsWith (".mtl")
+           || anArg.EndsWith (".htm")
+           || anArg.EndsWith (".html")))
+    {
+      aDumpFile = theArgVec[anArgIter];
+    }
+    else
+    {
+      Message::SendFail() << "Syntax error: unknown argument '" << theArgVec[anArgIter] << "'";
+      return 1;
+    }
+  }
+  if (aMatList.IsEmpty())
+  {
+    if (aDumpFile.IsEmpty())
+    {
+      for (Standard_Integer aMatIter = 1; aMatIter <= Graphic3d_MaterialAspect::NumberOfMaterials(); ++aMatIter)
+      {
+        theDI << Graphic3d_MaterialAspect::MaterialName (aMatIter) << " ";
+      }
+      return 0;
+    }
+
+    for (Standard_Integer aMatIter = 0; aMatIter < (Standard_Integer )Graphic3d_NOM_DEFAULT; ++aMatIter)
+    {
+      aMatList.Append ((Graphic3d_NameOfMaterial )aMatIter);
+    }
+  }
+
+  // geometry for dumping
+  const Graphic3d_Vec3 aBoxVerts[8] =
+  {
+    Graphic3d_Vec3( 1, -1, -1),
+    Graphic3d_Vec3( 1, -1,  1),
+    Graphic3d_Vec3(-1, -1,  1),
+    Graphic3d_Vec3(-1, -1, -1),
+    Graphic3d_Vec3( 1,  1, -1),
+    Graphic3d_Vec3( 1,  1,  1),
+    Graphic3d_Vec3(-1,  1,  1),
+    Graphic3d_Vec3(-1,  1, -1)
+  };
+
+  const Graphic3d_Vec4i aBoxQuads[6] =
+  {
+    Graphic3d_Vec4i (1, 2, 3, 4),
+    Graphic3d_Vec4i (5, 8, 7, 6),
+    Graphic3d_Vec4i (1, 5, 6, 2),
+    Graphic3d_Vec4i (2, 6, 7, 3),
+    Graphic3d_Vec4i (3, 7, 8, 4),
+    Graphic3d_Vec4i (5, 1, 4, 8)
+  };
+
+  std::ofstream aMatFile, anObjFile, anHtmlFile;
+  if (aDumpFile.EndsWith (".obj")
+   || aDumpFile.EndsWith (".mtl"))
+  {
+    const TCollection_AsciiString aMatFilePath  = aDumpFile.SubString (1, aDumpFile.Length() - 3) + "mtl";
+    const TCollection_AsciiString anObjFilePath = aDumpFile.SubString (1, aDumpFile.Length() - 3) + "obj";
+
+    OSD_OpenStream (aMatFile,  aMatFilePath.ToCString(),  std::ios::out | std::ios::binary);
+    if (!aMatFile.is_open())
+    {
+      Message::SendFail ("Error: unable creating material file");
+      return 0;
+    }
+    if (!aDumpFile.EndsWith (".mtl"))
+    {
+      OSD_OpenStream (anObjFile, anObjFilePath.ToCString(), std::ios::out | std::ios::binary);
+      if (!anObjFile.is_open())
+      {
+        Message::SendFail ("Error: unable creating OBJ file");
+        return 0;
+      }
+
+      TCollection_AsciiString anMtlName, aFolder;
+      OSD_Path::FolderAndFileFromPath (aMatFilePath, aFolder, anMtlName);
+      anObjFile << "mtllib " << anMtlName << "\n";
+    }
+  }
+  else if (aDumpFile.EndsWith (".htm")
+        || aDumpFile.EndsWith (".html"))
+  {
+    OSD_OpenStream (anHtmlFile, aDumpFile.ToCString(), std::ios::out | std::ios::binary);
+    if (!anHtmlFile.is_open())
+    {
+      Message::SendFail ("Error: unable creating HTML file");
+      return 0;
+    }
+    anHtmlFile << "<html>\n"
+                  "<head><title>OCCT Material table</title></head>\n"
+                  "<body>\n"
+                  "<table border='1'><tbody>\n"
+                  "<tr>\n"
+                  "<th rowspan='2'><div title='Material name.\n"
+                                              "See also Graphic3d_NameOfMaterial enumeration'>"
+                                   "Name</div></th>\n"
+                  "<th rowspan='2'><div title='Material type: PHYSIC or ASPECT.\n"
+                                              "ASPECT material does not define final colors, it is taken from Internal Color instead.\n"
+                                              "See also Graphic3d_TypeOfMaterial enumeration'>"
+                                   "Type</div></th>\n"
+                  "<th rowspan='2'>Transparency</th>\n"
+                  "<th colspan='5'><div title='PBR Metallic-Roughness'>"
+                                   "PBR Metallic-Roughness</div></th>\n"
+                  "<th colspan='5'><div title='Common material definition for Phong shading model'>"
+                                   "Common (Blinn-Phong)</div></th>\n"
+                  "<th colspan='10'><div title='BSDF (Bidirectional Scattering Distribution Function).\n"
+                                              "Used for physically-based rendering (in path tracing engine).\n"
+                                              "BSDF is represented as weighted mixture of basic BRDFs/BTDFs (Bidirectional Reflectance (Transmittance) Distribution Functions).\n"
+                                              "See also Graphic3d_BSDF structure.'>"
+                                   "BSDF (Bidirectional Scattering Distribution Function)</div></th>\n"
+                  "</tr>\n"
+                  "<tr>\n"
+                  "<th>Color</th>\n"
+                  "<th>Metallic</th>\n"
+                  "<th>Roughness</th>\n"
+                  "<th>Emission</th>\n"
+                  "<th><div title='Index of refraction'>"
+                       "IOR</div></th>\n"
+                  "<th>Ambient</th>\n"
+                  "<th>Diffuse</th>\n"
+                  "<th>Specular</th>\n"
+                  "<th>Emissive</th>\n"
+                  "<th>Shiness</th>\n"
+                  "<th><div title='Weight of coat specular/glossy BRDF'>"
+                       "Kc</div></th>\n"
+                  "<th><div title='Weight of base diffuse BRDF'>"
+                       "Kd</div></th>\n"
+                  "<th><div title='Weight of base specular/glossy BRDF'>"
+                       "Ks</div></th>\n"
+                  "<th><div title='Weight of base specular/glossy BTDF'>"
+                       "Kt</div></th>\n"
+                  "<th><div title='Radiance emitted by the surface'>"
+                       "Le</div></th>\n"
+                  "<th><div title='Volume scattering color/density'>"
+                       "Absorption</div></th>\n"
+                  "<th><div title='Parameters of Fresnel reflectance of coat layer'>"
+                       "FresnelCoat</div></th>\n"
+                  "<th><div title='Parameters of Fresnel reflectance of base layer'>"
+                       "FresnelBase</div></th>\n"
+                  "<th>Refraction Index</th>\n"
+                  "</tr>\n";
+  }
+  else if (!aDumpFile.IsEmpty())
+  {
+    Message::SendFail ("Syntax error: unknown output file format");
+    return 1;
+  }
+
+  Standard_Integer aMatIndex = 0, anX = 0, anY = 0;
+  for (NCollection_Sequence<Graphic3d_NameOfMaterial>::Iterator aMatIter (aMatList); aMatIter.More(); aMatIter.Next(), ++aMatIndex)
+  {
+    Graphic3d_MaterialAspect aMat (aMatIter.Value());
+    const TCollection_AsciiString aMatName = aMat.StringName();
+    const Graphic3d_Vec3 anAmbient  = (Graphic3d_Vec3 )aMat.AmbientColor();
+    const Graphic3d_Vec3 aDiffuse   = (Graphic3d_Vec3 )aMat.DiffuseColor();
+    const Graphic3d_Vec3 aSpecular  = (Graphic3d_Vec3 )aMat.SpecularColor();
+    const Graphic3d_Vec3 anEmission = (Graphic3d_Vec3 )aMat.EmissiveColor();
+    const Standard_Real  aShiness  = aMat.Shininess() * 1000.0;
+    if (aMatFile.is_open())
+    {
+      aMatFile << "newmtl " << aMatName << "\n";
+      aMatFile << "Ka " << Quantity_Color::Convert_LinearRGB_To_sRGB (anAmbient) << "\n";
+      aMatFile << "Kd " << Quantity_Color::Convert_LinearRGB_To_sRGB (aDiffuse)  << "\n";
+      aMatFile << "Ks " << Quantity_Color::Convert_LinearRGB_To_sRGB (aSpecular) << "\n";
+      aMatFile << "Ns " << aShiness  << "\n";
+      if (aMat.Transparency() >= 0.0001)
+      {
+        aMatFile << "Tr " << aMat.Transparency() << "\n";
+      }
+      aMatFile << "\n";
+    }
+    else if (anHtmlFile.is_open())
+    {
+      anHtmlFile << "<tr>\n";
+      anHtmlFile << "<td>" << aMat.StringName() << "</td>\n";
+      anHtmlFile << "<td>" << (aMat.MaterialType() == Graphic3d_MATERIAL_PHYSIC ? "PHYSIC" : "ASPECT")  << "</td>\n";
+      anHtmlFile << "<td>" << aMat.Transparency() << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (aMat.PBRMaterial().Color().GetRGB()) << (Graphic3d_Vec3 )aMat.PBRMaterial().Color().GetRGB() << "</td>\n";
+      anHtmlFile << "<td>" << aMat.PBRMaterial().Metallic() << "</td>\n";
+      anHtmlFile << "<td>" << aMat.PBRMaterial().NormalizedRoughness() << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (aMat.PBRMaterial().Emission())) << aMat.PBRMaterial().Emission() << "</td>\n";
+      anHtmlFile << "<td>" << aMat.PBRMaterial().IOR() << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (anAmbient))  << anAmbient  << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (aDiffuse))   << aDiffuse   << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (aSpecular))  << aSpecular  << "</td>\n";
+      anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (anEmission)) << anEmission << "</td>\n";
+      anHtmlFile << "<td>" << aMat.Shininess() << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Kc << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Kd << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Ks << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Kt << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Le << "</td>\n";
+      anHtmlFile << "<td>" << aMat.BSDF().Absorption << "</td>\n";
+      anHtmlFile << "<td>" << fresnelModelString (aMat.BSDF().FresnelCoat.FresnelType()) << "</td>\n";
+      anHtmlFile << "<td>" << fresnelModelString (aMat.BSDF().FresnelBase.FresnelType()) << "</td>\n";
+      anHtmlFile << "<td>" << aMat.RefractionIndex() << "</td>\n";
+      anHtmlFile << "</tr>\n";
+    }
+    else
+    {
+      theDI << aMat.StringName() << "\n";
+      theDI << "  Transparency:           " << aMat.Transparency() << "\n";
+      theDI << "  PBR.BaseColor:          " << (Graphic3d_Vec3 )aMat.PBRMaterial().Color().GetRGB() << "\n";
+      theDI << "  PBR.Metallic:           " << aMat.PBRMaterial().Metallic() << "\n";
+      theDI << "  PBR.Roughness:          " << aMat.PBRMaterial().NormalizedRoughness() << "\n";
+      theDI << "  PBR.Emission:           " << aMat.PBRMaterial().Emission() << "\n";
+      theDI << "  PBR.IOR:                " << aMat.PBRMaterial().IOR() << "\n";
+      theDI << "  Common.Ambient:         " << anAmbient << "\n";
+      theDI << "  Common.Diffuse:         " << aDiffuse  << "\n";
+      theDI << "  Common.Specular:        " << aSpecular << "\n";
+      theDI << "  Common.Emissive:        " << anEmission << "\n";
+      theDI << "  Common.Shiness:         " << aMat.Shininess() << "\n";
+      theDI << "  BSDF.Kc:                " << aMat.BSDF().Kc << "\n";
+      theDI << "  BSDF.Kd:                " << aMat.BSDF().Kd << "\n";
+      theDI << "  BSDF.Ks:                " << aMat.BSDF().Ks << "\n";
+      theDI << "  BSDF.Kt:                " << aMat.BSDF().Kt << "\n";
+      theDI << "  BSDF.Le:                " << aMat.BSDF().Le << "\n";
+      theDI << "  BSDF.Absorption:        " << aMat.BSDF().Absorption << "\n";
+      theDI << "  BSDF.FresnelCoat:       " << fresnelModelString (aMat.BSDF().FresnelCoat.FresnelType()) << "\n";
+      theDI << "  BSDF.FresnelBase:       " << fresnelModelString (aMat.BSDF().FresnelBase.FresnelType()) << "\n";
+      theDI << "  RefractionIndex:        " << aMat.RefractionIndex() << "\n";
+    }
+
+    if (anObjFile.is_open())
+    {
+      anObjFile << "g " << aMatName << "\n";
+      anObjFile << "usemtl " << aMatName << "\n";
+      for (Standard_Integer aVertIter = 0; aVertIter < 8; ++aVertIter)
+      {
+        anObjFile << "v " << (aBoxVerts[aVertIter] + Graphic3d_Vec3 (3.0f * anX, -3.0f * anY, 0.0f)) << "\n";
+      }
+      anObjFile << "s off\n";
+      for (Standard_Integer aFaceIter = 0; aFaceIter < 6; ++aFaceIter)
+      {
+        anObjFile << "f " << (aBoxQuads[aFaceIter] + Graphic3d_Vec4i (8 * aMatIndex)) << "\n";
+      }
+      anObjFile << "\n";
+      if (++anX > 5)
+      {
+        anX = 0;
+        ++anY;
+      }
+    }
+  }
+
+  if (anHtmlFile.is_open())
+  {
+    anHtmlFile << "</tbody></table>\n</body>\n</html>\n";
+  }
+  return 0;
+}
+
+//==============================================================================
+//function : VListColors
+//purpose  :
+//==============================================================================
+static Standard_Integer VListColors (Draw_Interpretor& theDI,
+                                     Standard_Integer  theArgNb,
+                                     const char**      theArgVec)
+{
+  TCollection_AsciiString aDumpFile;
+  NCollection_Sequence<Quantity_NameOfColor> aColList;
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
+  {
+    TCollection_AsciiString anArg (theArgVec[anArgIter]);
+    anArg.LowerCase();
+    Quantity_NameOfColor aName;
+    if (Quantity_Color::ColorFromName (theArgVec[anArgIter], aName))
+    {
+      aColList.Append (aName);
+    }
+    else if (anArg == "*")
+    {
+      for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
+      {
+        aColList.Append ((Quantity_NameOfColor )aColIter);
+      }
+    }
+    else if (aDumpFile.IsEmpty()
+          && (anArg.EndsWith (".htm")
+           || anArg.EndsWith (".html")))
+    {
+      aDumpFile = theArgVec[anArgIter];
+    }
+    else
+    {
+      Message::SendFail() << "Syntax error: unknown argument '" << theArgVec[anArgIter] << "'";
+      return 1;
+    }
+  }
+  if (aColList.IsEmpty())
+  {
+    if (aDumpFile.IsEmpty())
+    {
+      for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
+      {
+        theDI << Quantity_Color::StringName (Quantity_NameOfColor (aColIter)) << " ";
+      }
+      return 0;
+    }
+
+    for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
+    {
+      aColList.Append ((Quantity_NameOfColor )aColIter);
+    }
+  }
+
+  std::ofstream anHtmlFile;
+  TCollection_AsciiString aFileNameBase, aFolder;
+  if (aDumpFile.EndsWith (".htm")
+   || aDumpFile.EndsWith (".html"))
+  {
+    OSD_Path::FolderAndFileFromPath (aDumpFile, aFolder, aFileNameBase);
+    aFileNameBase = aFileNameBase.SubString (1, aFileNameBase.Length() -  (aDumpFile.EndsWith (".htm") ? 4 : 5));
+  }
+  else if (!aDumpFile.IsEmpty())
+  {
+    Message::SendFail ("Syntax error: unknown output file format");
+    return 1;
+  }
+
+  Standard_Integer aMaxNameLen = 1;
+  for (NCollection_Sequence<Quantity_NameOfColor>::Iterator aColIter (aColList); aColIter.More(); aColIter.Next())
+  {
+    aMaxNameLen = Max (aMaxNameLen, TCollection_AsciiString (Quantity_Color::StringName (aColIter.Value())).Length());
+  }
+
+  V3d_ImageDumpOptions anImgParams;
+  anImgParams.Width  = 60;
+  anImgParams.Height = 30;
+  anImgParams.BufferType = Graphic3d_BT_RGB;
+  anImgParams.StereoOptions  = V3d_SDO_MONO;
+  anImgParams.ToAdjustAspect = Standard_True;
+  Handle(V3d_View) aView;
+  if (!aDumpFile.IsEmpty())
+  {
+    ViewerTest::ViewerInit (0, 0, anImgParams.Width, anImgParams.Height, "TmpDriver/TmpViewer/TmpView");
+    aView = ViewerTest::CurrentView();
+    aView->SetImmediateUpdate (false);
+    aView->SetBgGradientStyle (Aspect_GFM_NONE, false);
+  }
+
+  if (!aDumpFile.IsEmpty())
+  {
+    OSD_OpenStream (anHtmlFile, aDumpFile.ToCString(), std::ios::out | std::ios::binary);
+    if (!anHtmlFile.is_open())
+    {
+      Message::SendFail ("Error: unable creating HTML file");
+      return 0;
+    }
+    anHtmlFile << "<html>\n"
+               << "<head><title>OCCT Color table</title></head>\n"
+               << "<body>\n"
+               << "<table border='1'><tbody>\n"
+               << "<tr>\n"
+               << "<th>HTML</th>\n"
+               << "<th>OCCT</th>\n"
+               << "<th>Color name</th>\n"
+               << "<th>sRGB hex</th>\n"
+               << "<th>sRGB dec</th>\n"
+               << "<th>RGB linear</th>\n"
+               << "</tr>\n";
+  }
+
+  Image_AlienPixMap anImg;
+  Standard_Integer aColIndex = 0;
+  for (NCollection_Sequence<Quantity_NameOfColor>::Iterator aColIter (aColList); aColIter.More(); aColIter.Next(), ++aColIndex)
+  {
+    Quantity_Color aCol (aColIter.Value());
+    const TCollection_AsciiString aColName  = Quantity_Color::StringName (aColIter.Value());
+    const TCollection_AsciiString anSRgbHex = Quantity_Color::ColorToHex (aCol);
+    const Graphic3d_Vec3i anSRgbInt ((Graphic3d_Vec3 )aCol * 255.0f);
+    if (anHtmlFile.is_open())
+    {
+      const TCollection_AsciiString anImgPath = aFileNameBase + "_" + aColName + ".png";
+      if (!aView.IsNull())
+      {
+        aView->SetImmediateUpdate (false);
+        aView->SetBackgroundColor (aCol);
+        if (!aView->ToPixMap (anImg, anImgParams)
+         || !anImg.Save (aFolder + anImgPath))
+        {
+          theDI << "Error: image dump failed\n";
+          return 0;
+        }
+      }
+
+      anHtmlFile << "<tr>\n";
+      anHtmlFile << "<td style='background-color:" << anSRgbHex << "'><pre>       </pre></td>\n";
+      anHtmlFile << "<td><img src='" << (!aView.IsNull() ? anImgPath : "") << "'></img></td>\n";
+      anHtmlFile << "<td style='text-align:left'>" << aColName << "</td>\n";
+      anHtmlFile << "<td style='text-align:left'><pre>" << anSRgbHex << "</pre></td>\n";
+      anHtmlFile << "<td style='text-align:left'>(" << anSRgbInt.r() << " " << anSRgbInt.g() << " " << anSRgbInt.b() << ")</td>\n";
+      anHtmlFile << "<td style='text-align:left'>(" << aCol.Red() << " " << aCol.Green() << " " << aCol.Blue() << ")</td>\n";
+      anHtmlFile << "</tr>\n";
+    }
+    else
+    {
+      TCollection_AsciiString aColNameLong (aColName);
+      aColNameLong.RightJustify (aMaxNameLen, ' ');
+      theDI << aColNameLong << " [" << anSRgbHex << "]: " << aCol.Red() << " " << aCol.Green() << " " << aCol.Blue() << "\n";
+    }
+  }
+
+  if (!aView.IsNull())
+  {
+    ViewerTest::RemoveView (aView);
+  }
+
+  if (anHtmlFile.is_open())
+  {
+    anHtmlFile << "</tbody></table>\n</body>\n</html>\n";
+  }
+  return 0;
+}
+
+//==============================================================================
+//function : envlutWriteToFile
+//purpose  :
+//==============================================================================
+static std::string envLutWriteToFile (Standard_ShortReal theValue)
+{
+  std::stringstream aStream;
+  aStream << theValue;
+  if (aStream.str().length() == 1)
+  {
+    aStream << '.';
+  }
+  aStream << 'f';
+  return aStream.str();
+}
+
+//==============================================================================
+//function : VGenEnvLUT
+//purpose  :
+//==============================================================================
+static Standard_Integer VGenEnvLUT (Draw_Interpretor&,
+                                    Standard_Integer  theArgNb,
+                                    const char**      theArgVec)
+{
+  Standard_Integer aTableSize = -1;
+  Standard_Integer aNbSamples = -1;
+  TCollection_AsciiString aFilePath = Graphic3d_TextureRoot::TexturesFolder() + "/Textures_EnvLUT.pxx";
+
+  for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
+  {
+    TCollection_AsciiString anArg(theArgVec[anArgIter]);
+    anArg.LowerCase();
+
+    if (anArg == "-size"
+     || anArg == "-s")
+    {
+      if (anArgIter + 1 >= theArgNb)
+      {
+        Message::SendFail ("Syntax error: size of PBR environment look up table is undefined");
+        return 1;
+      }
+
+      aTableSize = Draw::Atoi(theArgVec[++anArgIter]);
+
+      if (aTableSize < 16)
+      {
+        Message::SendFail ("Error: size of PBR environment look up table must be greater or equal 16");
+        return 1;
+      }
+    }
+    else if (anArg == "-nbsamples"
+          || anArg == "-samples")
+    {
+      if (anArgIter + 1 >= theArgNb)
+      {
+        Message::SendFail ("Syntax error: number of samples to generate PBR environment look up table is undefined");
+        return 1;
+      }
+
+      aNbSamples = Draw::Atoi(theArgVec[++anArgIter]);
+
+      if (aNbSamples < 1)
+      {
+        Message::SendFail ("Syntax error: number of samples to generate PBR environment look up table must be greater than 1");
+        return 1;
+      }
+    }
+    else
+    {
+      Message::SendFail() << "Syntax error: unknown argument " << anArg;
+      return 1;
+    }
+  }
+
+  if (aTableSize < 0)
+  {
+    aTableSize = 128;
+  }
+
+  if (aNbSamples < 0)
+  {
+    aNbSamples = 1024;
+  }
+
+  std::ofstream aFile;
+
+  OSD_OpenStream (aFile, aFilePath, std::ios::out | std::ios::binary);
+
+  if (!aFile.good())
+  {
+    Message::SendFail() << "Error: unable to write to " << aFilePath;
+    return 1;
+  }
+
+  aFile << "//this file has been generated by vgenenvlut draw command\n";
+  aFile << "static unsigned int Textures_EnvLUTSize = " << aTableSize << ";\n\n";
+  aFile << "static float Textures_EnvLUT[] =\n";
+  aFile << "{\n";
+
+  Handle(Image_PixMap) aPixMap = new Image_PixMap();
+  aPixMap->InitZero (Image_Format_RGF, aTableSize, aTableSize);
+  Graphic3d_PBRMaterial::GenerateEnvLUT (aPixMap, aNbSamples);
+
+  const Standard_Integer aNumbersInRow = 5;
+  Standard_Integer aCounter = 0;
+
+  for (int y = 0; y < aTableSize - 1; ++y)
+  {
+    aCounter = 0;
+    for (int x = 0; x < aTableSize; ++x)
+    {
+      aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(aTableSize - 1 - y, x).x()) << ",";
+      aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(aTableSize - 1 - y, x).y()) << ",";
+      if (++aCounter % aNumbersInRow == 0)
+      {
+        aFile << "\n";
+      }
+      else if (x != aTableSize - 1)
+      {
+        aFile << " ";
+      }
+    }
+    aFile << "\n";
+    if (aTableSize % aNumbersInRow != 0)
+    {
+      aFile << "\n";
+    }
+  }
+
+  aCounter = 0;
+  for (int x = 0; x < aTableSize - 1; ++x)
+  {
+    aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(0, x).x()) << ",";
+    aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(0, x).y()) << ",";
+    if (++aCounter % aNumbersInRow == 0)
+    {
+      aFile << "\n";
+    }
+    else
+    {
+      aFile << " ";
+    }
+  }
+
+  aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(0, aTableSize - 1).x()) << ",";
+  aFile << envLutWriteToFile (aPixMap->Value<Graphic3d_Vec3>(0, aTableSize - 1).y()) << "\n";
+
+  aFile << "};";
+  aFile.close();
+
+  return 0;
+}
+
 //=======================================================================
 //function : OpenGlCommands
 //purpose  :
@@ -840,7 +1535,34 @@ void ViewerTest::OpenGlCommands(Draw_Interpretor& theCommands)
                   "\n\t\t:   [-off] [-phong] [-aspect {shading|line|point|text}=shading]"
                   "\n\t\t:   [-header VersionHeader]"
                   "\n\t\t:   [-tessControl TessControlShader -tesseval TessEvaluationShader]"
-                  "\n\t\t: Assign custom GLSL program to presentation aspects.",
+                  "\n\t\t:   [-uniform Name FloatValue]"
+                  "\n\t\t: Assign custom GLSL program to presentation aspects."
+                  "\nvshader [-list] [-dump] [-reload] ShaderId"
+                  "\n\t\t:  -list   prints the list of registered GLSL programs"
+                  "\n\t\t:  -dump   dumps specified GLSL program (for debugging)"
+                  "\n\t\t:  -reload restores dump of specified GLSL program",
     __FILE__, VShaderProg, aGroup);
   theCommands.Add("vshaderprog", "Alias for vshader", __FILE__, VShaderProg, aGroup);
+  theCommands.Add("vlistmaterials",
+                  "vlistmaterials [*] [MaterialName1 [MaterialName2 [...]]] [dump.obj|dump.html]"
+                  "\n\t\t: Without arguments, command prints the list of standard materials."
+                  "\n\t\t: Otherwise, properties of specified materials will be printed"
+                  "\n\t\t: or dumped into specified file."
+                  "\n\t\t: * can be used to refer to complete list of standard materials.",
+                  __FILE__, VListMaterials, aGroup);
+  theCommands.Add("vlistcolors",
+                  "vlistcolors [*] [ColorName1 [ColorName2 [...]]] [dump.html]"
+                  "\n\t\t: Without arguments, command prints the list of standard colors."
+                  "\n\t\t: Otherwise, properties of specified colors will be printed"
+                  "\n\t\t: or dumped into specified file."
+                  "\n\t\t: * can be used to refer to complete list of standard colors.",
+                  __FILE__, VListColors, aGroup);
+  theCommands.Add("vgenenvlut",
+                  "vgenenvlut [-size size = 128] [-nbsamples nbsamples = 1024]"
+                  "\n\t\t: Generates PBR environment look up table."
+                  "\n\t\t: Saves it as C++ source file which is expected to be included in code."
+                  "\n\t\t: The path where result will be located is 'Graphic3d_TextureRoot::TexturesFolder()'."
+                  "\n\t\t:  -size size of one side of resulted square table"
+                  "\n\t\t:  -nbsamples number of samples used in Monte-Carlo integration",
+                  __FILE__, VGenEnvLUT, aGroup);
 }