1 // Created on: 2012-04-09
2 // Created by: Sergey ANIKIN
3 // Copyright (c) 2012-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
16 #include <ViewerTest.hxx>
18 #include <AIS_InteractiveContext.hxx>
19 #include <AIS_InteractiveObject.hxx>
21 #include <Draw_Interpretor.hxx>
22 #include <Graphic3d_Group.hxx>
23 #include <Graphic3d_ShaderObject.hxx>
24 #include <Graphic3d_ShaderProgram.hxx>
25 #include <Image_AlienPixMap.hxx>
26 #include <OpenGl_Aspects.hxx>
27 #include <OpenGl_Context.hxx>
28 #include <OpenGl_Element.hxx>
29 #include <OpenGl_GlCore20.hxx>
30 #include <OpenGl_GraphicDriver.hxx>
31 #include <OpenGl_ShaderManager.hxx>
32 #include <OpenGl_Workspace.hxx>
33 #include <OSD_Environment.hxx>
34 #include <OSD_File.hxx>
35 #include <Prs3d_Drawer.hxx>
36 #include <Prs3d_Presentation.hxx>
37 #include <Prs3d_Root.hxx>
38 #include <Prs3d_LineAspect.hxx>
39 #include <Prs3d_ShadingAspect.hxx>
40 #include <Select3D_SensitiveCurve.hxx>
41 #include <SelectMgr_EntityOwner.hxx>
42 #include <SelectMgr_Selection.hxx>
43 #include <TCollection_AsciiString.hxx>
44 #include <V3d_View.hxx>
45 #include <V3d_Viewer.hxx>
46 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
47 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
48 #include <OpenGl_Group.hxx>
49 #include <OSD_OpenFile.hxx>
51 extern Standard_Boolean VDisplayAISObject (const TCollection_AsciiString& theName,
52 const Handle(AIS_InteractiveObject)& theAISObj,
53 Standard_Boolean theReplaceIfExists = Standard_True);
54 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
58 //=======================================================================
59 //function : VUserDraw
60 //purpose : Checks availability and operation of UserDraw feature
61 //=======================================================================
63 class VUserDrawObj : public AIS_InteractiveObject
67 DEFINE_STANDARD_RTTI_INLINE(VUserDrawObj,AIS_InteractiveObject);
80 class Element : public OpenGl_Element
83 Handle(VUserDrawObj) myIObj;
86 Element (const Handle(VUserDrawObj)& theIObj) : myIObj (theIObj) {}
90 virtual void Render (const Handle(OpenGl_Workspace)& theWorkspace) const
93 myIObj->Render(theWorkspace);
96 virtual void Release (OpenGl_Context*)
102 DEFINE_STANDARD_ALLOC
106 // Virtual methods implementation
107 void Compute (const Handle(PrsMgr_PresentationManager3d)& thePresentationManager,
108 const Handle(Prs3d_Presentation)& thePresentation,
109 const Standard_Integer theMode) Standard_OVERRIDE;
111 void ComputeSelection (const Handle(SelectMgr_Selection)& theSelection,
112 const Standard_Integer theMode) Standard_OVERRIDE;
114 // Called by VUserDrawElement
115 void Render(const Handle(OpenGl_Workspace)& theWorkspace) const;
119 friend class Element;
122 void VUserDrawObj::Compute(const Handle(PrsMgr_PresentationManager3d)& thePrsMgr,
123 const Handle(Prs3d_Presentation)& thePrs,
124 const Standard_Integer /*theMode*/)
128 Graphic3d_Vec4 aBndMin (myCoords[0], myCoords[1], myCoords[2], 1.0f);
129 Graphic3d_Vec4 aBndMax (myCoords[3], myCoords[4], myCoords[5], 1.0f);
130 Handle(OpenGl_Group) aGroup = Handle(OpenGl_Group)::DownCast (thePrs->NewGroup());
131 aGroup->SetMinMaxValues (aBndMin.x(), aBndMin.y(), aBndMin.z(),
132 aBndMax.x(), aBndMax.y(), aBndMax.z());
133 aGroup->SetGroupPrimitivesAspect (myDrawer->LineAspect()->Aspect());
134 VUserDrawObj::Element* anElem = new VUserDrawObj::Element (this);
135 aGroup->AddElement(anElem);
137 // invalidate bounding box of the scene
138 thePrsMgr->StructureManager()->Update();
141 void VUserDrawObj::ComputeSelection (const Handle(SelectMgr_Selection)& theSelection,
142 const Standard_Integer /*theMode*/)
144 Handle(SelectMgr_EntityOwner) anEntityOwner = new SelectMgr_EntityOwner(this);
145 Handle(TColgp_HArray1OfPnt) aPnts = new TColgp_HArray1OfPnt(1, 5);
146 aPnts->SetValue(1, gp_Pnt(myCoords[0], myCoords[1], myCoords[2]));
147 aPnts->SetValue(2, gp_Pnt(myCoords[3], myCoords[4], myCoords[2]));
148 aPnts->SetValue(3, gp_Pnt(myCoords[3], myCoords[4], myCoords[5]));
149 aPnts->SetValue(4, gp_Pnt(myCoords[0], myCoords[1], myCoords[5]));
150 aPnts->SetValue(5, gp_Pnt(myCoords[0], myCoords[1], myCoords[2]));
151 Handle(Select3D_SensitiveCurve) aSensitive = new Select3D_SensitiveCurve(anEntityOwner, aPnts);
152 theSelection->Add(aSensitive);
155 void VUserDrawObj::Render(const Handle(OpenGl_Workspace)& theWorkspace) const
157 const Handle(OpenGl_Context)& aCtx = theWorkspace->GetGlContext();
159 // To test linking against OpenGl_Workspace and all aspect classes
160 const OpenGl_Aspects* aMA = theWorkspace->Aspects();
161 aMA->Aspect()->MarkerType();
162 OpenGl_Vec4 aColor = theWorkspace->InteriorColor();
164 aCtx->ShaderManager()->BindLineProgram (Handle(OpenGl_TextureSet)(), Aspect_TOL_SOLID,
165 Graphic3d_TOSM_UNLIT, Graphic3d_AlphaMode_Opaque, false,
166 Handle(OpenGl_ShaderProgram)());
167 aCtx->SetColor4fv (aColor);
169 const OpenGl_Vec3 aVertArray[4] =
171 OpenGl_Vec3(myCoords[0], myCoords[1], myCoords[2]),
172 OpenGl_Vec3(myCoords[3], myCoords[4], myCoords[2]),
173 OpenGl_Vec3(myCoords[3], myCoords[4], myCoords[5]),
174 OpenGl_Vec3(myCoords[0], myCoords[1], myCoords[5]),
176 Handle(OpenGl_VertexBuffer) aVertBuffer = new OpenGl_VertexBuffer();
177 aVertBuffer->Init (aCtx, 3, 4, aVertArray[0].GetData());
179 // Finally draw something to make sure UserDraw really works
180 aVertBuffer->BindAttribute (aCtx, Graphic3d_TOA_POS);
181 glDrawArrays(GL_LINE_LOOP, 0, aVertBuffer->GetElemsNb());
182 aVertBuffer->UnbindAttribute(aCtx, Graphic3d_TOA_POS);
183 aVertBuffer->Release (aCtx.get());
186 } // end of anonymous namespace
188 static Standard_Integer VUserDraw (Draw_Interpretor& di,
189 Standard_Integer argc,
192 Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
193 if (aContext.IsNull())
195 di << argv[0] << "Call 'vinit' before!\n";
199 Handle(OpenGl_GraphicDriver) aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aContext->CurrentViewer()->Driver());
200 if (aDriver.IsNull())
202 std::cerr << "Graphic driver not available.\n";
208 di << argv[0] << "Wrong number of arguments, only the object name expected\n";
212 TCollection_AsciiString aName (argv[1]);
213 VDisplayAISObject(aName, Handle(AIS_InteractiveObject)());
215 Handle(VUserDrawObj) anIObj = new VUserDrawObj();
216 VDisplayAISObject(aName, anIObj);
221 //==============================================================================
222 //function : VFeedback
224 //==============================================================================
226 static int VFeedback (Draw_Interpretor& theDI,
227 Standard_Integer /*theArgNb*/,
228 const char** /*theArgVec*/)
230 #if !defined(GL_ES_VERSION_2_0)
231 // get the active view
232 Handle(V3d_View) aView = ViewerTest::CurrentView();
235 std::cerr << "No active view. Please call vinit.\n";
239 unsigned int aBufferSize = 1024 * 1024;
242 size_t aBytes = (size_t )aBufferSize * sizeof(GLfloat);
243 if (aBytes / sizeof(GLfloat) != (size_t )aBufferSize)
245 // finito la commedia
246 std::cerr << "Can not allocate buffer - requested size ("
247 << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
248 << " MiB) is out of address space\n";
252 GLfloat* aBuffer = (GLfloat* )Standard::Allocate (aBytes);
255 // finito la commedia
256 std::cerr << "Can not allocate buffer with size ("
257 << (double(aBufferSize / (1024 * 1024)) * double(sizeof(GLfloat)))
262 glFeedbackBuffer ((GLsizei )aBufferSize, GL_2D, aBuffer);
263 glRenderMode (GL_FEEDBACK);
267 GLint aResult = glRenderMode (GL_RENDER);
272 void* aPtr = aBuffer;
273 Standard::Free (aPtr);
278 std::cout << "FeedBack result= " << aResult << "\n";
285 GLint aBitmapsNb = 0;
286 GLint aPassThrNb = 0;
287 GLint aUnknownNb = 0;
288 const GLint NODE_VALUES = 2; // GL_2D
289 for (GLint anIter = 0; anIter < aResult;)
291 const GLfloat aPos = aBuffer[anIter];
292 switch ((GLint )aPos)
298 anIter += 1 + NODE_VALUES;
301 case GL_LINE_RESET_TOKEN:
306 anIter += 1 + 2 * NODE_VALUES;
309 case GL_POLYGON_TOKEN:
311 const GLint aCount = (GLint )aBuffer[++anIter];
313 anIter += aCount * NODE_VALUES + 1;
318 else if (aCount == 4)
328 case GL_BITMAP_TOKEN:
329 case GL_DRAW_PIXEL_TOKEN:
330 case GL_COPY_PIXEL_TOKEN:
333 anIter += 1 + NODE_VALUES;
336 case GL_PASS_THROUGH_TOKEN:
339 anIter += 2; // header + value
350 void* aPtr = aBuffer;
351 Standard::Free (aPtr);
354 theDI << "Total nodes: " << aNodesNb << "\n"
355 << "Points: " << aPntNb << "\n"
356 << "Line segments: " << aLinesNb << "\n"
357 << "Triangles: " << aTriNb << "\n"
358 << "Quads: " << aQuadsNb << "\n"
359 << "Polygons: " << aPolyNb << "\n"
360 << "Bitmap tokens: " << aBitmapsNb << "\n"
361 << "Pass through: " << aPassThrNb << "\n"
362 << "UNKNOWN: " << aUnknownNb << "\n";
364 double aLen2D = double(aNodesNb * 2 + aPntNb + aLinesNb * 2 + (aTriNb + aQuadsNb + aPolyNb) * 2 + aBitmapsNb + aPassThrNb);
365 double aLen3D = double(aNodesNb * 3 + aPntNb + aLinesNb * 2 + (aTriNb + aQuadsNb + aPolyNb) * 2 + aBitmapsNb + aPassThrNb);
366 double aLen3D_rgba = double(aNodesNb * 7 + aPntNb + aLinesNb * 2 + (aTriNb + aQuadsNb + aPolyNb) * 2 + aBitmapsNb + aPassThrNb);
367 theDI << "Buffer size GL_2D: " << aLen2D * double(sizeof(GLfloat)) / double(1024 * 1024) << " MiB\n"
368 << "Buffer size GL_3D: " << aLen3D * double(sizeof(GLfloat)) / double(1024 * 1024) << " MiB\n"
369 << "Buffer size GL_3D_COLOR: " << aLen3D_rgba * double(sizeof(GLfloat)) / double(1024 * 1024) << " MiB\n";
374 std::cout << "Command is unsupported on current platform.\n";
379 //==============================================================================
380 //function : VImmediateFront
382 //==============================================================================
384 static int VImmediateFront (Draw_Interpretor& /*theDI*/,
385 Standard_Integer theArgNb,
386 const char** theArgVec)
389 Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext();
390 if (aContextAIS.IsNull())
392 std::cerr << "No active view. Please call vinit.\n";
396 Handle(Graphic3d_GraphicDriver) aDriver = aContextAIS->CurrentViewer()->Driver();
398 if (aDriver.IsNull())
400 std::cerr << "Graphic driver not available.\n";
406 std::cerr << "Wrong number of arguments.\n";
410 ViewerTest::CurrentView()->View()->SetImmediateModeDrawToFront (atoi(theArgVec[1]) != 0);
415 //! Search the info from the key.
416 inline TCollection_AsciiString searchInfo (const TColStd_IndexedDataMapOfStringString& theDict,
417 const TCollection_AsciiString& theKey)
419 for (TColStd_IndexedDataMapOfStringString::Iterator anIter (theDict); anIter.More(); anIter.Next())
421 if (TCollection_AsciiString::IsSameString (anIter.Key(), theKey, Standard_False))
423 return anIter.Value();
426 return TCollection_AsciiString();
429 //==============================================================================
432 //==============================================================================
434 static int VGlInfo (Draw_Interpretor& theDI,
435 Standard_Integer theArgNb,
436 const char** theArgVec)
438 // get the active view
439 Handle(V3d_View) aView = ViewerTest::CurrentView();
442 std::cerr << "No active view. Please call vinit.\n";
446 Standard_Integer anArgIter = 1;
447 Graphic3d_DiagnosticInfo anInfoLevel = Graphic3d_DiagnosticInfo_Basic;
450 TCollection_AsciiString aName (theArgVec[1]);
452 if (aName == "-short")
455 anInfoLevel = Graphic3d_DiagnosticInfo_Short;
457 else if (aName == "-basic")
460 anInfoLevel = Graphic3d_DiagnosticInfo_Basic;
462 else if (aName == "-complete"
466 anInfoLevel = Graphic3d_DiagnosticInfo_Complete;
470 TColStd_IndexedDataMapOfStringString aDict;
471 if (anArgIter >= theArgNb)
473 aView->DiagnosticInformation (aDict, anInfoLevel);
474 TCollection_AsciiString aText;
475 for (TColStd_IndexedDataMapOfStringString::Iterator aValueIter (aDict); aValueIter.More(); aValueIter.Next())
477 if (!aText.IsEmpty())
481 aText += TCollection_AsciiString(" ") + aValueIter.Key() + ": " + aValueIter.Value();
484 theDI << "OpenGL info:\n"
489 const Standard_Boolean isList = theArgNb >= 3;
490 aView->DiagnosticInformation (aDict, Graphic3d_DiagnosticInfo_Complete);
491 for (; anArgIter < theArgNb; ++anArgIter)
493 TCollection_AsciiString aName (theArgVec[anArgIter]);
495 TCollection_AsciiString aValue;
496 if (aName.Search ("VENDOR") != -1)
498 aValue = searchInfo (aDict, "GLvendor");
500 else if (aName.Search ("RENDERER") != -1)
502 aValue = searchInfo (aDict, "GLdevice");
504 else if (aName.Search ("SHADING_LANGUAGE_VERSION") != -1
505 || aName.Search ("GLSL") != -1)
507 aValue = searchInfo (aDict, "GLSLversion");
509 else if (aName.Search ("VERSION") != -1)
511 aValue = searchInfo (aDict, "GLversion");
513 else if (aName.Search ("EXTENSIONS") != -1)
515 aValue = searchInfo (aDict, "GLextensions");
519 std::cerr << "Unknown key '" << aName.ToCString() << "'\n";
525 theDI << "{" << aValue << "} ";
536 //! Parse shader type argument.
537 static bool parseShaderTypeArg (Graphic3d_TypeOfShaderObject& theType,
538 const TCollection_AsciiString& theArg)
540 if (theArg == "-vertex"
541 || theArg == "-vert")
543 theType = Graphic3d_TOS_VERTEX;
545 else if (theArg == "-tessevaluation"
546 || theArg == "-tesseval"
547 || theArg == "-evaluation"
548 || theArg == "-eval")
550 theType = Graphic3d_TOS_TESS_EVALUATION;
552 else if (theArg == "-tesscontrol"
553 || theArg == "-tessctrl"
554 || theArg == "-control"
555 || theArg == "-ctrl")
557 theType = Graphic3d_TOS_TESS_CONTROL;
559 else if (theArg == "-geometry"
560 || theArg == "-geom")
562 theType = Graphic3d_TOS_GEOMETRY;
564 else if (theArg == "-fragment"
565 || theArg == "-frag")
567 theType = Graphic3d_TOS_FRAGMENT;
569 else if (theArg == "-compute"
570 || theArg == "-comp")
572 theType = Graphic3d_TOS_COMPUTE;
581 //==============================================================================
582 //function : VShaderProg
583 //purpose : Sets the pair of vertex and fragment shaders for the object
584 //==============================================================================
585 static Standard_Integer VShaderProg (Draw_Interpretor& theDI,
586 Standard_Integer theArgNb,
587 const char** theArgVec)
589 Handle(AIS_InteractiveContext) aCtx = ViewerTest::GetAISContext();
592 std::cout << "Error: no active view.\n";
595 else if (theArgNb < 2)
597 std::cout << "Syntax error: lack of arguments\n";
601 bool isExplicitShaderType = false;
602 Handle(Graphic3d_ShaderProgram) aProgram = new Graphic3d_ShaderProgram();
603 NCollection_Sequence<Handle(AIS_InteractiveObject)> aPrsList;
604 Graphic3d_GroupAspect aGroupAspect = Graphic3d_ASPECT_FILL_AREA;
605 bool isSetGroupAspect = false;
606 for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
608 TCollection_AsciiString anArg (theArgVec[anArgIter]);
610 Graphic3d_TypeOfShaderObject aShaderTypeArg = Graphic3d_TypeOfShaderObject(-1);
611 if (!aProgram.IsNull()
612 && anArg == "-uniform"
613 && anArgIter + 2 < theArgNb)
615 TCollection_AsciiString aName = theArgVec[++anArgIter];
616 aProgram->PushVariableFloat (aName, float (Draw::Atof (theArgVec[++anArgIter])));
618 else if (anArg == "-list"
619 || ((anArg == "-update"
622 || anArg == "-reload"
624 && anArgIter + 1 < theArgNb))
626 Handle(OpenGl_Context) aGlCtx;
627 if (Handle(OpenGl_GraphicDriver) aDriver = Handle(OpenGl_GraphicDriver)::DownCast (aCtx->CurrentViewer()->Driver()))
629 aGlCtx = aDriver->GetSharedContext();
633 std::cout << "Error: no OpenGl_Context\n";
637 if (anArg == "-list")
639 for (OpenGl_Context::OpenGl_ResourcesMap::Iterator aResIter (aGlCtx->SharedResources()); aResIter.More(); aResIter.Next())
641 if (Handle(OpenGl_ShaderProgram) aResProg = Handle(OpenGl_ShaderProgram)::DownCast (aResIter.Value()))
643 theDI << aResProg->ResourceId() << " ";
649 TCollection_AsciiString aShaderName = theArgVec[++anArgIter];
650 Handle(OpenGl_ShaderProgram) aResProg;
651 if (!aGlCtx->GetResource (aShaderName, aResProg))
653 std::cout << "Syntax error: shader resource '" << aShaderName << "' is not found\n";
656 if (aResProg->UpdateDebugDump (aGlCtx, "", false, anArg == "-dump"))
658 aCtx->UpdateCurrentViewer();
661 if (anArgIter + 1 < theArgNb)
663 std::cout << "Syntax error: wrong number of arguments\n";
668 else if (!aProgram.IsNull()
669 && aProgram->ShaderObjects().IsEmpty()
675 else if (!aProgram.IsNull()
676 && aProgram->ShaderObjects().IsEmpty()
677 && (anArg == "-phong"
678 || anArg == "phong"))
680 const TCollection_AsciiString& aShadersRoot = Graphic3d_ShaderProgram::ShadersFolder();
681 if (aShadersRoot.IsEmpty())
683 std::cout << "Error: both environment variables CSF_ShadersDirectory and CASROOT are undefined!\n"
684 "At least one should be defined to load Phong program.\n";
688 const TCollection_AsciiString aSrcVert = aShadersRoot + "/PhongShading.vs";
689 const TCollection_AsciiString aSrcFrag = aShadersRoot + "/PhongShading.fs";
690 if (!aSrcVert.IsEmpty()
691 && !OSD_File (aSrcVert).Exists())
693 std::cout << "Error: PhongShading.vs is not found\n";
696 if (!aSrcFrag.IsEmpty()
697 && !OSD_File (aSrcFrag).Exists())
699 std::cout << "Error: PhongShading.fs is not found\n";
703 aProgram->AttachShader (Graphic3d_ShaderObject::CreateFromFile (Graphic3d_TOS_VERTEX, aSrcVert));
704 aProgram->AttachShader (Graphic3d_ShaderObject::CreateFromFile (Graphic3d_TOS_FRAGMENT, aSrcFrag));
706 else if (aPrsList.IsEmpty()
711 else if (!isSetGroupAspect
712 && anArgIter + 1 < theArgNb
713 && (anArg == "-primtype"
714 || anArg == "-primitivetype"
715 || anArg == "-groupaspect"
716 || anArg == "-aspecttype"
717 || anArg == "-aspect"))
719 isSetGroupAspect = true;
720 TCollection_AsciiString aPrimTypeStr (theArgVec[++anArgIter]);
721 aPrimTypeStr.LowerCase();
722 if (aPrimTypeStr == "line")
724 aGroupAspect = Graphic3d_ASPECT_LINE;
726 else if (aPrimTypeStr == "tris"
727 || aPrimTypeStr == "triangles"
728 || aPrimTypeStr == "fill"
729 || aPrimTypeStr == "fillarea"
730 || aPrimTypeStr == "shading"
731 || aPrimTypeStr == "shade")
733 aGroupAspect = Graphic3d_ASPECT_FILL_AREA;
735 else if (aPrimTypeStr == "text")
737 aGroupAspect = Graphic3d_ASPECT_TEXT;
739 else if (aPrimTypeStr == "marker"
740 || aPrimTypeStr == "point"
741 || aPrimTypeStr == "pnt")
743 aGroupAspect = Graphic3d_ASPECT_MARKER;
747 std::cerr << "Syntax error at '" << aPrimTypeStr << "'\n";
751 else if (anArgIter + 1 < theArgNb
752 && !aProgram.IsNull()
753 && aProgram->Header().IsEmpty()
754 && (anArg == "-version"
755 || anArg == "-glslversion"
756 || anArg == "-header"
757 || anArg == "-glslheader"))
759 TCollection_AsciiString aHeader (theArgVec[++anArgIter]);
760 if (aHeader.IsIntegerValue())
762 aHeader = TCollection_AsciiString ("#version ") + aHeader;
764 aProgram->SetHeader (aHeader);
766 else if (!anArg.StartsWith ("-")
767 && GetMapOfAIS().IsBound2 (theArgVec[anArgIter]))
769 Handle(AIS_InteractiveObject) anIO = GetMapOfAIS().Find2 (theArgVec[anArgIter]);
772 std::cerr << "Syntax error: " << theArgVec[anArgIter] << " is not an AIS object\n";
775 aPrsList.Append (anIO);
777 else if (!aProgram.IsNull()
778 && ((anArgIter + 1 < theArgNb && parseShaderTypeArg (aShaderTypeArg, anArg))
779 || (!isExplicitShaderType && aProgram->ShaderObjects().Size() < 2)))
781 TCollection_AsciiString aShaderPath (theArgVec[anArgIter]);
782 if (aShaderTypeArg != Graphic3d_TypeOfShaderObject(-1))
784 aShaderPath = (theArgVec[++anArgIter]);
785 isExplicitShaderType = true;
788 const bool isSrcFile = OSD_File (aShaderPath).Exists();
789 Handle(Graphic3d_ShaderObject) aShader = isSrcFile
790 ? Graphic3d_ShaderObject::CreateFromFile (Graphic3d_TOS_VERTEX, aShaderPath)
791 : Graphic3d_ShaderObject::CreateFromSource(Graphic3d_TOS_VERTEX, aShaderPath);
792 const TCollection_AsciiString& aShaderSrc = aShader->Source();
794 const bool hasVertPos = aShaderSrc.Search ("gl_Position") != -1;
795 const bool hasFragColor = aShaderSrc.Search ("occSetFragColor") != -1
796 || aShaderSrc.Search ("occFragColor") != -1
797 || aShaderSrc.Search ("gl_FragColor") != -1
798 || aShaderSrc.Search ("gl_FragData") != -1;
799 Graphic3d_TypeOfShaderObject aShaderType = aShaderTypeArg;
800 if (aShaderType == Graphic3d_TypeOfShaderObject(-1))
805 aShaderType = Graphic3d_TOS_VERTEX;
810 aShaderType = Graphic3d_TOS_FRAGMENT;
813 if (aShaderType == Graphic3d_TypeOfShaderObject(-1))
815 std::cerr << "Error: non-existing or invalid shader source\n";
819 aProgram->AttachShader (Graphic3d_ShaderObject::CreateFromSource (aShaderType, aShaderSrc));
823 std::cerr << "Syntax error at '" << anArg << "'\n";
828 if (!aProgram.IsNull()
829 && ViewerTest::CurrentView()->RenderingParams().TransparencyMethod == Graphic3d_RTM_BLEND_OIT)
831 aProgram->SetNbFragmentOutputs (2);
832 aProgram->SetWeightOitOutput (true);
835 ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName aGlobalPrsIter (GetMapOfAIS());
836 NCollection_Sequence<Handle(AIS_InteractiveObject)>::Iterator aPrsIter (aPrsList);
837 const bool isGlobalList = aPrsList.IsEmpty();
840 Handle(AIS_InteractiveObject) anIO;
843 if (!aGlobalPrsIter.More())
847 anIO = aGlobalPrsIter.Key1();
848 aGlobalPrsIter.Next();
856 if (!aPrsIter.More())
860 anIO = aPrsIter.Value();
864 if (anIO->Attributes()->SetShaderProgram (aProgram, aGroupAspect, true))
866 aCtx->Redisplay (anIO, Standard_False);
870 anIO->SynchronizeAspects();
874 aCtx->UpdateCurrentViewer();
878 //! Print triplet of values.
879 template<class S, class T> static S& operator<< (S& theStream, const NCollection_Vec3<T>& theVec)
881 theStream << theVec[0] << " " << theVec[1] << " " << theVec[2];
886 template<class S, class T> static S& operator<< (S& theStream, const NCollection_Vec4<T>& theVec)
888 theStream << theVec[0] << " " << theVec[1] << " " << theVec[2] << " " << theVec[3];
892 //! Print fresnel model.
893 static const char* fresnelModelString (const Graphic3d_FresnelModel theModel)
897 case Graphic3d_FM_SCHLICK: return "SCHLICK";
898 case Graphic3d_FM_CONSTANT: return "CONSTANT";
899 case Graphic3d_FM_CONDUCTOR: return "CONDUCTOR";
900 case Graphic3d_FM_DIELECTRIC: return "DIELECTRIC";
905 //! Create a colored rectangle SVG element.
906 static TCollection_AsciiString formatSvgColoredRect (const Quantity_Color& theColor)
908 return TCollection_AsciiString()
909 + "<svg width='20px' height='20px'><rect width='20px' height='20px' fill='" + Quantity_Color::ColorToHex (theColor) + "' /></svg>";
912 //==============================================================================
913 //function : VListMaterials
915 //==============================================================================
916 static Standard_Integer VListMaterials (Draw_Interpretor& theDI,
917 Standard_Integer theArgNb,
918 const char** theArgVec)
920 TCollection_AsciiString aDumpFile;
921 NCollection_Sequence<Graphic3d_NameOfMaterial> aMatList;
922 for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
924 TCollection_AsciiString anArg (theArgVec[anArgIter]);
926 Graphic3d_NameOfMaterial aMat = Graphic3d_MaterialAspect::MaterialFromName (theArgVec[anArgIter]);
927 if (aMat != Graphic3d_NOM_DEFAULT)
929 aMatList.Append (aMat);
931 else if (anArg == "*")
933 for (Standard_Integer aMatIter = 0; aMatIter < (Standard_Integer )Graphic3d_NOM_DEFAULT; ++aMatIter)
935 aMatList.Append ((Graphic3d_NameOfMaterial )aMatIter);
938 else if (aDumpFile.IsEmpty()
939 && (anArg.EndsWith (".obj")
940 || anArg.EndsWith (".mtl")
941 || anArg.EndsWith (".htm")
942 || anArg.EndsWith (".html")))
944 aDumpFile = theArgVec[anArgIter];
948 std::cout << "Syntax error: unknown argument '" << theArgVec[anArgIter] << "'\n";
952 if (aMatList.IsEmpty())
954 if (aDumpFile.IsEmpty())
956 for (Standard_Integer aMatIter = 1; aMatIter <= Graphic3d_MaterialAspect::NumberOfMaterials(); ++aMatIter)
958 theDI << Graphic3d_MaterialAspect::MaterialName (aMatIter) << " ";
963 for (Standard_Integer aMatIter = 0; aMatIter < (Standard_Integer )Graphic3d_NOM_DEFAULT; ++aMatIter)
965 aMatList.Append ((Graphic3d_NameOfMaterial )aMatIter);
969 // geometry for dumping
970 const Graphic3d_Vec3 aBoxVerts[8] =
972 Graphic3d_Vec3( 1, -1, -1),
973 Graphic3d_Vec3( 1, -1, 1),
974 Graphic3d_Vec3(-1, -1, 1),
975 Graphic3d_Vec3(-1, -1, -1),
976 Graphic3d_Vec3( 1, 1, -1),
977 Graphic3d_Vec3( 1, 1, 1),
978 Graphic3d_Vec3(-1, 1, 1),
979 Graphic3d_Vec3(-1, 1, -1)
982 const Graphic3d_Vec4i aBoxQuads[6] =
984 Graphic3d_Vec4i (1, 2, 3, 4),
985 Graphic3d_Vec4i (5, 8, 7, 6),
986 Graphic3d_Vec4i (1, 5, 6, 2),
987 Graphic3d_Vec4i (2, 6, 7, 3),
988 Graphic3d_Vec4i (3, 7, 8, 4),
989 Graphic3d_Vec4i (5, 1, 4, 8)
992 std::ofstream aMatFile, anObjFile, anHtmlFile;
993 if (aDumpFile.EndsWith (".obj")
994 || aDumpFile.EndsWith (".mtl"))
996 const TCollection_AsciiString aMatFilePath = aDumpFile.SubString (1, aDumpFile.Length() - 3) + "mtl";
997 const TCollection_AsciiString anObjFilePath = aDumpFile.SubString (1, aDumpFile.Length() - 3) + "obj";
999 OSD_OpenStream (aMatFile, aMatFilePath.ToCString(), std::ios::out | std::ios::binary);
1000 if (!aMatFile.is_open())
1002 std::cout << "Error: unable creating material file\n";
1005 if (!aDumpFile.EndsWith (".mtl"))
1007 OSD_OpenStream (anObjFile, anObjFilePath.ToCString(), std::ios::out | std::ios::binary);
1008 if (!anObjFile.is_open())
1010 std::cout << "Error: unable creating OBJ file\n";
1014 TCollection_AsciiString anMtlName, aFolder;
1015 OSD_Path::FolderAndFileFromPath (aMatFilePath, aFolder, anMtlName);
1016 anObjFile << "mtllib " << anMtlName << "\n";
1019 else if (aDumpFile.EndsWith (".htm")
1020 || aDumpFile.EndsWith (".html"))
1022 OSD_OpenStream (anHtmlFile, aDumpFile.ToCString(), std::ios::out | std::ios::binary);
1023 if (!anHtmlFile.is_open())
1025 std::cout << "Error: unable creating HTML file\n";
1028 anHtmlFile << "<html>\n"
1029 "<head><title>OCCT Material table</title></head>\n"
1031 "<table border='1'><tbody>\n"
1033 "<th rowspan='2'><div title='Material name.\n"
1034 "See also Graphic3d_NameOfMaterial enumeration'>"
1036 "<th rowspan='2'><div title='Material type: PHYSIC or ASPECT.\n"
1037 "ASPECT material does not define final colors, it is taken from Internal Color instead.\n"
1038 "See also Graphic3d_TypeOfMaterial enumeration'>"
1040 "<th colspan='5'><div title='Common material definition for Phong shading model'>"
1041 "Common</div></th>\n"
1042 "<th rowspan='2'>Transparency</th>\n"
1043 "<th rowspan='2'>Refraction Index</th>\n"
1044 "<th colspan='9'><div title='BSDF (Bidirectional Scattering Distribution Function).\n"
1045 "Used for physically-based rendering (in path tracing engine).\n"
1046 "BSDF is represented as weighted mixture of basic BRDFs/BTDFs (Bidirectional Reflectance (Transmittance) Distribution Functions).\n"
1047 "See also Graphic3d_BSDF structure.'>"
1051 "<th>Ambient</th>\n"
1052 "<th>Diffuse</th>\n"
1053 "<th>Specular</th>\n"
1054 "<th>Emissive</th>\n"
1055 "<th>Shiness</th>\n"
1056 "<th><div title='Weight of coat specular/glossy BRDF'>"
1058 "<th><div title='Weight of base diffuse BRDF'>"
1060 "<th><div title='Weight of base specular/glossy BRDF'>"
1062 "<th><div title='Weight of base specular/glossy BTDF'>"
1064 "<th><div title='Radiance emitted by the surface'>"
1066 "<th><div title='Volume scattering color/density'>"
1067 "Absorption</div></th>\n"
1068 "<th><div title='Parameters of Fresnel reflectance of coat layer'>"
1069 "FresnelCoat</div></th>\n"
1070 "<th><div title='Parameters of Fresnel reflectance of base layer'>"
1071 "FresnelBase</div></th>\n"
1074 else if (!aDumpFile.IsEmpty())
1076 std::cout << "Syntax error: unknown output file format\n";
1080 Standard_Integer aMatIndex = 0, anX = 0, anY = 0;
1081 for (NCollection_Sequence<Graphic3d_NameOfMaterial>::Iterator aMatIter (aMatList); aMatIter.More(); aMatIter.Next(), ++aMatIndex)
1083 Graphic3d_MaterialAspect aMat (aMatIter.Value());
1084 const TCollection_AsciiString aMatName = aMat.StringName();
1085 const Graphic3d_Vec3 anAmbient = (Graphic3d_Vec3 )aMat.AmbientColor();
1086 const Graphic3d_Vec3 aDiffuse = (Graphic3d_Vec3 )aMat.DiffuseColor();
1087 const Graphic3d_Vec3 aSpecular = (Graphic3d_Vec3 )aMat.SpecularColor();
1088 const Graphic3d_Vec3 anEmission = (Graphic3d_Vec3 )aMat.EmissiveColor();
1089 const Standard_Real aShiness = aMat.Shininess() * 1000.0;
1090 if (aMatFile.is_open())
1092 aMatFile << "newmtl " << aMatName << "\n";
1093 aMatFile << "Ka " << anAmbient << "\n";
1094 aMatFile << "Kd " << aDiffuse << "\n";
1095 aMatFile << "Ks " << aSpecular << "\n";
1096 aMatFile << "Ns " << aShiness << "\n";
1097 if (aMat.Transparency() >= 0.0001)
1099 aMatFile << "Tr " << aMat.Transparency() << "\n";
1103 else if (anHtmlFile.is_open())
1105 anHtmlFile << "<tr>\n";
1106 anHtmlFile << "<td>" << aMat.StringName() << "</td>\n";
1107 anHtmlFile << "<td>" << (aMat.MaterialType() == Graphic3d_MATERIAL_PHYSIC ? "PHYSIC" : "ASPECT") << "</td>\n";
1108 anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (anAmbient)) << anAmbient << "</td>\n";
1109 anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (aDiffuse)) << aDiffuse << "</td>\n";
1110 anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (aSpecular)) << aSpecular << "</td>\n";
1111 anHtmlFile << "<td>" << formatSvgColoredRect (Quantity_Color (anEmission)) << anEmission << "</td>\n";
1112 anHtmlFile << "<td>" << aMat.Shininess() << "</td>\n";
1113 anHtmlFile << "<td>" << aMat.Transparency() << "</td>\n";
1114 anHtmlFile << "<td>" << aMat.RefractionIndex() << "</td>\n";
1115 anHtmlFile << "<td>" << aMat.BSDF().Kc << "</td>\n";
1116 anHtmlFile << "<td>" << aMat.BSDF().Kd << "</td>\n";
1117 anHtmlFile << "<td>" << aMat.BSDF().Ks << "</td>\n";
1118 anHtmlFile << "<td>" << aMat.BSDF().Kt << "</td>\n";
1119 anHtmlFile << "<td>" << aMat.BSDF().Le << "</td>\n";
1120 anHtmlFile << "<td>" << aMat.BSDF().Absorption << "</td>\n";
1121 anHtmlFile << "<td>" << fresnelModelString (aMat.BSDF().FresnelCoat.FresnelType()) << "</td>\n";
1122 anHtmlFile << "<td>" << fresnelModelString (aMat.BSDF().FresnelBase.FresnelType()) << "</td>\n";
1123 anHtmlFile << "</tr>\n";
1127 theDI << aMat.StringName() << "\n";
1128 theDI << " Common.Ambient: " << anAmbient << "\n";
1129 theDI << " Common.Diffuse: " << aDiffuse << "\n";
1130 theDI << " Common.Specular: " << aSpecular << "\n";
1131 theDI << " Common.Emissive: " << anEmission << "\n";
1132 theDI << " Common.Shiness: " << aMat.Shininess() << "\n";
1133 theDI << " Common.Transparency: " << aMat.Transparency() << "\n";
1134 theDI << " RefractionIndex: " << aMat.RefractionIndex() << "\n";
1135 theDI << " BSDF.Kc: " << aMat.BSDF().Kc << "\n";
1136 theDI << " BSDF.Kd: " << aMat.BSDF().Kd << "\n";
1137 theDI << " BSDF.Ks: " << aMat.BSDF().Ks << "\n";
1138 theDI << " BSDF.Kt: " << aMat.BSDF().Kt << "\n";
1139 theDI << " BSDF.Le: " << aMat.BSDF().Le << "\n";
1140 theDI << " BSDF.Absorption: " << aMat.BSDF().Absorption << "\n";
1141 theDI << " BSDF.FresnelCoat: " << fresnelModelString (aMat.BSDF().FresnelCoat.FresnelType()) << "\n";
1142 theDI << " BSDF.FresnelBase: " << fresnelModelString (aMat.BSDF().FresnelBase.FresnelType()) << "\n";
1145 if (anObjFile.is_open())
1147 anObjFile << "g " << aMatName << "\n";
1148 anObjFile << "usemtl " << aMatName << "\n";
1149 for (Standard_Integer aVertIter = 0; aVertIter < 8; ++aVertIter)
1151 anObjFile << "v " << (aBoxVerts[aVertIter] + Graphic3d_Vec3 (3.0f * anX, -3.0f * anY, 0.0f)) << "\n";
1153 anObjFile << "s off\n";
1154 for (Standard_Integer aFaceIter = 0; aFaceIter < 6; ++aFaceIter)
1156 anObjFile << "f " << (aBoxQuads[aFaceIter] + Graphic3d_Vec4i (8 * aMatIndex)) << "\n";
1167 if (anHtmlFile.is_open())
1169 anHtmlFile << "</tbody></table>\n</body>\n</html>\n";
1174 //==============================================================================
1175 //function : VListColors
1177 //==============================================================================
1178 static Standard_Integer VListColors (Draw_Interpretor& theDI,
1179 Standard_Integer theArgNb,
1180 const char** theArgVec)
1182 TCollection_AsciiString aDumpFile;
1183 NCollection_Sequence<Quantity_NameOfColor> aColList;
1184 for (Standard_Integer anArgIter = 1; anArgIter < theArgNb; ++anArgIter)
1186 TCollection_AsciiString anArg (theArgVec[anArgIter]);
1188 Quantity_NameOfColor aName;
1189 if (Quantity_Color::ColorFromName (theArgVec[anArgIter], aName))
1191 aColList.Append (aName);
1193 else if (anArg == "*")
1195 for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
1197 aColList.Append ((Quantity_NameOfColor )aColIter);
1200 else if (aDumpFile.IsEmpty()
1201 && (anArg.EndsWith (".htm")
1202 || anArg.EndsWith (".html")))
1204 aDumpFile = theArgVec[anArgIter];
1208 std::cout << "Syntax error: unknown argument '" << theArgVec[anArgIter] << "'\n";
1212 if (aColList.IsEmpty())
1214 if (aDumpFile.IsEmpty())
1216 for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
1218 theDI << Quantity_Color::StringName (Quantity_NameOfColor (aColIter)) << " ";
1223 for (Standard_Integer aColIter = 0; aColIter <= (Standard_Integer )Quantity_NOC_WHITE; ++aColIter)
1225 aColList.Append ((Quantity_NameOfColor )aColIter);
1229 std::ofstream anHtmlFile;
1230 TCollection_AsciiString aFileNameBase, aFolder;
1231 if (aDumpFile.EndsWith (".htm")
1232 || aDumpFile.EndsWith (".html"))
1234 OSD_Path::FolderAndFileFromPath (aDumpFile, aFolder, aFileNameBase);
1235 aFileNameBase = aFileNameBase.SubString (1, aFileNameBase.Length() - (aDumpFile.EndsWith (".htm") ? 4 : 5));
1237 else if (!aDumpFile.IsEmpty())
1239 std::cout << "Syntax error: unknown output file format\n";
1243 Standard_Integer aMaxNameLen = 1;
1244 for (NCollection_Sequence<Quantity_NameOfColor>::Iterator aColIter (aColList); aColIter.More(); aColIter.Next())
1246 aMaxNameLen = Max (aMaxNameLen, TCollection_AsciiString (Quantity_Color::StringName (aColIter.Value())).Length());
1249 V3d_ImageDumpOptions anImgParams;
1250 anImgParams.Width = 60;
1251 anImgParams.Height = 30;
1252 anImgParams.BufferType = Graphic3d_BT_RGB;
1253 anImgParams.StereoOptions = V3d_SDO_MONO;
1254 anImgParams.ToAdjustAspect = Standard_True;
1255 Handle(V3d_View) aView;
1256 if (!aDumpFile.IsEmpty())
1258 ViewerTest::ViewerInit (0, 0, anImgParams.Width, anImgParams.Height, "TmpDriver/TmpViewer/TmpView");
1259 aView = ViewerTest::CurrentView();
1260 aView->SetImmediateUpdate (false);
1261 aView->SetBgGradientStyle (Aspect_GFM_NONE, false);
1264 if (!aDumpFile.IsEmpty())
1266 OSD_OpenStream (anHtmlFile, aDumpFile.ToCString(), std::ios::out | std::ios::binary);
1267 if (!anHtmlFile.is_open())
1269 std::cout << "Error: unable creating HTML file\n";
1272 anHtmlFile << "<html>\n"
1273 << "<head><title>OCCT Color table</title></head>\n"
1275 << "<table border='1'><tbody>\n"
1277 << "<th>HTML</th>\n"
1278 << "<th>OCCT</th>\n"
1279 << "<th>Color name</th>\n"
1280 << "<th>sRGB hex</th>\n"
1281 << "<th>sRGB dec</th>\n"
1282 << "<th>RGB linear</th>\n"
1286 Image_AlienPixMap anImg;
1287 Standard_Integer aColIndex = 0;
1288 for (NCollection_Sequence<Quantity_NameOfColor>::Iterator aColIter (aColList); aColIter.More(); aColIter.Next(), ++aColIndex)
1290 Quantity_Color aCol (aColIter.Value());
1291 const TCollection_AsciiString aColName = Quantity_Color::StringName (aColIter.Value());
1292 const TCollection_AsciiString anSRgbHex = Quantity_Color::ColorToHex (aCol);
1293 const Graphic3d_Vec3i anSRgbInt ((Graphic3d_Vec3 )aCol * 255.0f);
1294 if (anHtmlFile.is_open())
1296 const TCollection_AsciiString anImgPath = aFileNameBase + "_" + aColName + ".png";
1297 if (!aView.IsNull())
1299 aView->SetImmediateUpdate (false);
1300 aView->SetBackgroundColor (aCol);
1301 if (!aView->ToPixMap (anImg, anImgParams)
1302 || !anImg.Save (aFolder + anImgPath))
1304 theDI << "Error: image dump failed\n";
1309 anHtmlFile << "<tr>\n";
1310 anHtmlFile << "<td style='background-color:" << anSRgbHex << "'><pre> </pre></td>\n";
1311 anHtmlFile << "<td><img src='" << (!aView.IsNull() ? anImgPath : "") << "'></img></td>\n";
1312 anHtmlFile << "<td style='text-align:left'>" << aColName << "</td>\n";
1313 anHtmlFile << "<td style='text-align:left'><pre>" << anSRgbHex << "</pre></td>\n";
1314 anHtmlFile << "<td style='text-align:left'>(" << anSRgbInt.r() << " " << anSRgbInt.g() << " " << anSRgbInt.b() << ")</td>\n";
1315 anHtmlFile << "<td style='text-align:left'>(" << aCol.Red() << " " << aCol.Green() << " " << aCol.Blue() << ")</td>\n";
1316 anHtmlFile << "</tr>\n";
1320 TCollection_AsciiString aColNameLong (aColName);
1321 aColNameLong.RightJustify (aMaxNameLen, ' ');
1322 theDI << aColNameLong << " [" << anSRgbHex << "]: " << aCol.Red() << " " << aCol.Green() << " " << aCol.Blue() << "\n";
1326 if (!aView.IsNull())
1328 ViewerTest::RemoveView (aView);
1331 if (anHtmlFile.is_open())
1333 anHtmlFile << "</tbody></table>\n</body>\n</html>\n";
1338 //=======================================================================
1339 //function : OpenGlCommands
1341 //=======================================================================
1343 void ViewerTest::OpenGlCommands(Draw_Interpretor& theCommands)
1345 const char* aGroup ="Commands for low-level TKOpenGl features";
1347 theCommands.Add("vuserdraw",
1348 "vuserdraw : name - simulates drawing with help of UserDraw",
1349 __FILE__, VUserDraw, aGroup);
1350 theCommands.Add("vfeedback",
1351 "vfeedback : perform test GL feedback rendering",
1352 __FILE__, VFeedback, aGroup);
1353 theCommands.Add("vimmediatefront",
1354 "vimmediatefront : render immediate mode to front buffer or to back buffer",
1355 __FILE__, VImmediateFront, aGroup);
1356 theCommands.Add("vglinfo",
1357 "vglinfo [-short|-basic|-complete]"
1358 "\n\t\t: [GL_VENDOR] [GL_RENDERER] [GL_VERSION]"
1359 "\n\t\t: [GL_SHADING_LANGUAGE_VERSION] [GL_EXTENSIONS]"
1360 "\n\t\t: print OpenGL info",
1361 __FILE__, VGlInfo, aGroup);
1362 theCommands.Add("vshader",
1363 "vshader name -vert VertexShader -frag FragmentShader [-geom GeometryShader]"
1364 "\n\t\t: [-off] [-phong] [-aspect {shading|line|point|text}=shading]"
1365 "\n\t\t: [-header VersionHeader]"
1366 "\n\t\t: [-tessControl TessControlShader -tesseval TessEvaluationShader]"
1367 "\n\t\t: [-uniform Name FloatValue]"
1368 "\n\t\t: Assign custom GLSL program to presentation aspects."
1369 "\nvshader [-list] [-dump] [-reload] ShaderId"
1370 "\n\t\t: -list prints the list of registered GLSL programs"
1371 "\n\t\t: -dump dumps specified GLSL program (for debugging)"
1372 "\n\t\t: -reload restores dump of specified GLSL program",
1373 __FILE__, VShaderProg, aGroup);
1374 theCommands.Add("vshaderprog", "Alias for vshader", __FILE__, VShaderProg, aGroup);
1375 theCommands.Add("vlistmaterials",
1376 "vlistmaterials [*] [MaterialName1 [MaterialName2 [...]]] [dump.obj|dump.html]"
1377 "\n\t\t: Without arguments, command prints the list of standard materials."
1378 "\n\t\t: Otherwise, properties of specified materials will be printed"
1379 "\n\t\t: or dumped into specified file."
1380 "\n\t\t: * can be used to refer to complete list of standard materials.",
1381 __FILE__, VListMaterials, aGroup);
1382 theCommands.Add("vlistcolors",
1383 "vlistcolors [*] [ColorName1 [ColorName2 [...]]] [dump.html]"
1384 "\n\t\t: Without arguments, command prints the list of standard colors."
1385 "\n\t\t: Otherwise, properties of specified colors will be printed"
1386 "\n\t\t: or dumped into specified file."
1387 "\n\t\t: * can be used to refer to complete list of standard colors.",
1388 __FILE__, VListColors, aGroup);