x_ite 4.7.12 → 5.0.0

package/src/x_ite/Components/Shaders/X3DProgrammableShaderObject.js

@@ -48,10 +48,10 @@
 
 
 define ([
-	"x_ite/Bits/X3DCast",
-	"x_ite/Bits/X3DConstants",
-	"x_ite/Components/Navigation/OrthoViewpoint",
-	"standard/Math/Numbers/Matrix3",
+   "x_ite/Base/X3DCast",
+   "x_ite/Base/X3DConstants",
+   "x_ite/Components/Navigation/OrthoViewpoint",
+   "standard/Math/Numbers/Matrix3",
 ],
 function (X3DCast,
           X3DConstants,
@@ -60,1291 +60,1295 @@ function (X3DCast,
 {
 "use strict";
 
-	function X3DProgrammableShaderObject (executionContext)
-	{
-		this .addType (X3DConstants .X3DProgrammableShaderObject);
-
-		this .x3d_ClipPlane                           = [ ];
-		this .x3d_LightType                           = [ ];
-		this .x3d_LightOn                             = [ ];
-		this .x3d_LightColor                          = [ ];
-		this .x3d_LightIntensity                      = [ ];
-		this .x3d_LightAmbientIntensity               = [ ];
-		this .x3d_LightAttenuation                    = [ ];
-		this .x3d_LightLocation                       = [ ];
-		this .x3d_LightDirection                      = [ ];
-		this .x3d_LightBeamWidth                      = [ ];
-		this .x3d_LightCutOffAngle                    = [ ];
-		this .x3d_LightRadius                         = [ ];
-		this .x3d_LightMatrix                         = [ ];
-		this .x3d_ShadowIntensity                     = [ ];
-		this .x3d_ShadowColor                         = [ ];
-		this .x3d_ShadowBias                          = [ ];
-		this .x3d_ShadowMatrix                        = [ ];
-		this .x3d_ShadowMapSize                       = [ ];
-		this .x3d_ShadowMap                           = [ ];
-		this .x3d_TextureType                         = [ ];
-		this .x3d_Texture2D                           = [ ];
-		this .x3d_Texture3D                           = [ ];
-		this .x3d_CubeMapTexture                      = [ ];
-		this .x3d_MultiTextureMode                    = [ ];
-		this .x3d_MultiTextureAlphaMode               = [ ];
-		this .x3d_MultiTextureSource                  = [ ];
-		this .x3d_MultiTextureFunction                = [ ];
-		this .x3d_TextureCoordinateGeneratorMode      = [ ];
-		this .x3d_TextureCoordinateGeneratorParameter = [ ];
-		this .x3d_ProjectiveTexture                   = [ ];
-		this .x3d_ProjectiveTextureMatrix             = [ ];
-		this .x3d_ProjectiveTextureLocation           = [ ];
-		this .x3d_TexCoord                            = [ ];
-		this .x3d_TextureMatrix                       = [ ];
-
-		this .numClipPlanes               = 0;
-		this .fogNode                     = null;
-		this .numLights                   = 0;
-		this .numGlobalLights             = 0;
-		this .lightNodes                  = [ ];
-		this .numProjectiveTextures       = 0;
-		this .numGlobalProjectiveTextures = 0;
-		this .projectiveTextureNodes      = [ ];
-		this .textures                    = new Map ();
-	}
-
-	X3DProgrammableShaderObject .prototype =
-	{
-		constructor: X3DProgrammableShaderObject,
-		initialize: function ()
-		{
-			const browser = this .getBrowser ();
-
-			this .x3d_MaxClipPlanes = browser .getMaxClipPlanes ();
-			this .x3d_MaxLights     = browser .getMaxLights ();
-			this .x3d_MaxTextures   = browser .getMaxTextures ();
-		},
-		hasUserDefinedFields: function ()
-		{
-			return true;
-		},
-		bindAttributeLocations: function (gl, program)
-		{
-			gl .bindAttribLocation (program, 0, "x3d_Vertex");
-		},
-		getDefaultUniforms: function ()
-		{
-			// Get uniforms and attributes.
-
-			const
-				browser = this .getBrowser (),
-				gl      = browser .getContext (),
-				program = this .getProgram ();
-
-			this .x3d_LogarithmicFarFactor1_2 = gl .getUniformLocation (program, "x3d_LogarithmicFarFactor1_2");
-
-			this .x3d_GeometryType  = gl .getUniformLocation (program, "x3d_GeometryType");
-			this .x3d_NumClipPlanes = gl .getUniformLocation (program, "x3d_NumClipPlanes");
-
-			this .x3d_ClipPlanes = gl .getUniformLocation (program, "x3d_ClipPlane");
-
-			for (let i = 0; i < this .x3d_MaxClipPlanes; ++ i)
-				this .x3d_ClipPlane [i] = gl .getUniformLocation (program, "x3d_ClipPlane[" + i + "]");
-
-			this .x3d_FogType            = this .getUniformLocation (gl, program, "x3d_Fog.type",            "x3d_FogType");
-			this .x3d_FogColor           = this .getUniformLocation (gl, program, "x3d_Fog.color",           "x3d_FogColor");
-			this .x3d_FogVisibilityRange = this .getUniformLocation (gl, program, "x3d_Fog.visibilityRange", "x3d_FogVisibilityRange");
-			this .x3d_FogMatrix          = this .getUniformLocation (gl, program, "x3d_Fog.matrix",          "x3d_FogMatrix");
-			this .x3d_FogCoord           = this .getUniformLocation (gl, program, "x3d_Fog.fogCoord",        "x3d_FogCoord");
-
-			this .x3d_AlphaCutoff = gl .getUniformLocation (program, "x3d_AlphaCutoff");
-
-			this .x3d_PointPropertiesPointSizeScaleFactor = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeScaleFactor");
-			this .x3d_PointPropertiesPointSizeMinValue    = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeMinValue");
-			this .x3d_PointPropertiesPointSizeMaxValue    = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeMaxValue");
-			this .x3d_PointPropertiesPointSizeAttenuation = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeAttenuation");
-			this .x3d_PointPropertiesColorMode            = gl .getUniformLocation (program, "x3d_PointProperties.colorMode");
-
-			this .x3d_LinePropertiesApplied              = gl .getUniformLocation (program, "x3d_LineProperties.applied");
-			this .x3d_LinePropertiesLinewidthScaleFactor = this .getUniformLocation (gl, program, "x3d_LineProperties.linewidthScaleFactor", "x3d_LinewidthScaleFactor");
-			this .x3d_LinePropertiesLinetype             = gl .getUniformLocation (program, "x3d_LineProperties.linetype");
-
-			this .x3d_FillPropertiesFilled     = gl .getUniformLocation (program, "x3d_FillProperties.filled");
-			this .x3d_FillPropertiesHatched    = gl .getUniformLocation (program, "x3d_FillProperties.hatched");
-			this .x3d_FillPropertiesHatchColor = gl .getUniformLocation (program, "x3d_FillProperties.hatchColor");
-			this .x3d_FillPropertiesHatchStyle = gl .getUniformLocation (program, "x3d_FillProperties.hatchStyle");
-
-			this .x3d_ColorMaterial = gl .getUniformLocation (program, "x3d_ColorMaterial");
-			this .x3d_NumLights     = gl .getUniformLocation (program, "x3d_NumLights");
-
-			for (let i = 0; i < this .x3d_MaxLights; ++ i)
-			{
-				this .x3d_LightType [i]             = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].type",             "x3d_LightType[" + i + "]");
-				this .x3d_LightColor [i]            = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].color",            "x3d_LightColor[" + i + "]");
-				this .x3d_LightAmbientIntensity [i] = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].ambientIntensity", "x3d_LightAmbientIntensity[" + i + "]");
-				this .x3d_LightIntensity [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].intensity",        "x3d_LightIntensity[" + i + "]");
-				this .x3d_LightAttenuation [i]      = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].attenuation",      "x3d_LightAttenuation[" + i + "]");
-				this .x3d_LightLocation [i]         = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].location",         "x3d_LightLocation[" + i + "]");
-				this .x3d_LightDirection [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].direction",        "x3d_LightDirection[" + i + "]");
-				this .x3d_LightBeamWidth [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].beamWidth",        "x3d_LightBeamWidth[" + i + "]");
-				this .x3d_LightCutOffAngle [i]      = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].cutOffAngle",      "x3d_LightCutOffAngle[" + i + "]");
-				this .x3d_LightRadius [i]           = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].radius",           "x3d_LightRadius[" + i + "]");
-				this .x3d_LightMatrix [i]           = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].matrix",           "x3d_LightMatrix[" + i + "]");
-
-				this .x3d_ShadowIntensity [i] = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowIntensity");
-				this .x3d_ShadowColor [i]     = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowColor");
-				this .x3d_ShadowBias [i]      = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowBias");
-				this .x3d_ShadowMatrix [i]    = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowMatrix");
-				this .x3d_ShadowMapSize [i]   = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowMapSize");
-				this .x3d_ShadowMap [i]       = gl .getUniformLocation (program, "x3d_ShadowMap[" + i + "]");
-			}
-
-			this .x3d_AmbientIntensity = this .getUniformLocation (gl, program, "x3d_Material.ambientIntensity", "x3d_FrontMaterial.ambientIntensity");
-			this .x3d_DiffuseColor     = this .getUniformLocation (gl, program, "x3d_Material.diffuseColor",     "x3d_FrontMaterial.diffuseColor");
-			this .x3d_SpecularColor    = this .getUniformLocation (gl, program, "x3d_Material.specularColor",    "x3d_FrontMaterial.specularColor");
-			this .x3d_EmissiveColor    = this .getUniformLocation (gl, program, "x3d_Material.emissiveColor",    "x3d_FrontMaterial.emissiveColor");
-			this .x3d_Shininess        = this .getUniformLocation (gl, program, "x3d_Material.shininess",        "x3d_FrontMaterial.shininess");
-			this .x3d_Transparency     = this .getUniformLocation (gl, program, "x3d_Material.transparency",     "x3d_FrontMaterial.transparency");
-
-			this .x3d_NumTextures           = gl .getUniformLocation (program, "x3d_NumTextures");
-			this .x3d_NumProjectiveTextures = gl .getUniformLocation (program, "x3d_NumProjectiveTextures");
-			this .x3d_MultiTextureColor     = gl .getUniformLocation (program, "x3d_MultiTextureColor");
-
-			for (let i = 0; i < this .x3d_MaxTextures; ++ i)
-			{
-				this .x3d_TextureType [i]    = gl .getUniformLocation (program, "x3d_TextureType[" + i + "]");
-				this .x3d_Texture2D [i]      = gl .getUniformLocation (program, "x3d_Texture2D[" + i + "]");
-				this .x3d_Texture3D [i]      = gl .getUniformLocation (program, "x3d_Texture3D[" + i + "]");
-				this .x3d_CubeMapTexture [i] = gl .getUniformLocation (program, "x3d_CubeMapTexture[" + i + "]");
-
-				this .x3d_MultiTextureMode [i]      = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].mode");
-				this .x3d_MultiTextureAlphaMode [i] = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].alphaMode");
-				this .x3d_MultiTextureSource [i]    = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].source");
-				this .x3d_MultiTextureFunction [i]  = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].function");
-
-				this .x3d_TextureCoordinateGeneratorMode [i]      = gl .getUniformLocation (program, "x3d_TextureCoordinateGenerator[" + i + "].mode");
-				this .x3d_TextureCoordinateGeneratorParameter [i] = gl .getUniformLocation (program, "x3d_TextureCoordinateGenerator[" + i + "].parameter");
-
-				this .x3d_ProjectiveTexture [i]         = gl .getUniformLocation (program, "x3d_ProjectiveTexture[" + i + "]");
-				this .x3d_ProjectiveTextureMatrix [i]   = gl .getUniformLocation (program, "x3d_ProjectiveTextureMatrix[" + i + "]");
-				this .x3d_ProjectiveTextureLocation [i] = gl .getUniformLocation (program, "x3d_ProjectiveTextureLocation[" + i + "]");
-
-				this .x3d_TextureMatrix [i] = gl .getUniformLocation (program, "x3d_TextureMatrix[" + i + "]");
-				this .x3d_TexCoord [i]      = this .getAttribLocation (gl, program, "x3d_TexCoord" + i, i ? "" : "x3d_TexCoord");
-			}
-
-			this .x3d_Viewport          = gl .getUniformLocation (program, "x3d_Viewport");
-			this .x3d_ProjectionMatrix  = gl .getUniformLocation (program, "x3d_ProjectionMatrix");
-			this .x3d_ModelViewMatrix   = gl .getUniformLocation (program, "x3d_ModelViewMatrix");
-			this .x3d_NormalMatrix      = gl .getUniformLocation (program, "x3d_NormalMatrix");
-			this .x3d_CameraSpaceMatrix = gl .getUniformLocation (program, "x3d_CameraSpaceMatrix");
-
-			this .x3d_FogDepth = gl .getAttribLocation (program, "x3d_FogDepth");
-			this .x3d_Color    = gl .getAttribLocation (program, "x3d_Color");
-			this .x3d_Normal   = gl .getAttribLocation (program, "x3d_Normal");
-			this .x3d_Vertex   = gl .getAttribLocation (program, "x3d_Vertex");
-
-			this .x3d_ParticleId          = gl .getUniformLocation (program, "x3d_Particle.id");
-			this .x3d_ParticleLife        = gl .getUniformLocation (program, "x3d_Particle.life");
-			this .x3d_ParticleElapsedTime = gl .getUniformLocation (program, "x3d_Particle.elapsedTime");
-
-			// Fill special uniforms with default values, textures for units are created in X3DTexturingContext.
-
-			gl .uniform1i  (this .x3d_LinePropertiesLinetype,   browser .getLinetypeUnit ());
-			gl .uniform1i  (this .x3d_FillPropertiesHatchStyle, browser .getHatchStyleUnit ());
-			gl .uniform1i  (this .x3d_NumTextures,              0);
-			gl .uniform1iv (this .x3d_Texture2D [0],            browser .getTexture2DUnits ());
-			gl .uniform1iv (this .x3d_CubeMapTexture [0],       browser .getCubeMapTextureUnits ());
-			gl .uniform1iv (this .x3d_ShadowMap [0],            new Int32Array (this .x3d_MaxLights) .fill (browser .getShadowTextureUnit ()));
-
-			if (browser .getProjectiveTextureMapping ())
-				gl .uniform1iv (this .x3d_ProjectiveTexture [0], browser .getProjectiveTextureUnits ());
-
-			if (gl .getVersion () >= 2)
-				gl .uniform1iv (this .x3d_Texture3D [0], browser .getTexture3DUnits ());
-
-			// Return true if valid, otherwise false.
-
-			if (this .x3d_FogDepth < 0)
-			{
-				this .enableFogDepthAttribute  = Function .prototype;
-				this .disableFogDepthAttribute = Function .prototype;
-			}
-			else
-			{
-				delete this .enableFogDepthAttribute;
-				delete this .disableFogDepthAttribute;
-			}
-
-			if (this .x3d_Color < 0)
-			{
-				this .enableColorAttribute  = Function .prototype;
-				this .disableColorAttribute = Function .prototype;
-			}
-			else
-			{
-				delete this .enableColorAttribute;
-				delete this .disableColorAttribute;
-			}
-
-			if (this .x3d_TexCoord .some (function (location) { return location >= 0; }))
-			{
-				delete this .enableTexCoordAttribute;
-				delete this .disableTexCoordAttribute;
-			}
-			else
-			{
-				this .enableTexCoordAttribute  = Function .prototype;
-				this .disableTexCoordAttribute = Function .prototype;
-			}
-
-			if (this .x3d_Normal < 0)
-			{
-				this .enableNormalAttribute  = Function .prototype;
-				this .disableNormalAttribute = Function .prototype;
-			}
-			else
-			{
-				delete this .enableNormalAttribute;
-				delete this .disableNormalAttribute;
-			}
-
-			if (this .x3d_Vertex < 0)
-			{
-				if (gl .getVersion () >= 2)
-					console .warn ("Missing »in vec4 x3d_Vertex;«.");
-				else
-					console .warn ("Missing »attribute vec4 x3d_Vertex;«.");
-
-				return false;
-			}
-
-			return true;
-		},
-		getUniformLocation: function (gl, program, name, depreciated)
-		{
-			// Legacy function to get uniform location.
-
-			let location = gl .getUniformLocation (program, name);
-
-			if (location)
-				return location;
-
-			// Look for depreciated location.
-
-			if (depreciated)
-			{
-				location = gl .getUniformLocation (program, depreciated);
-
-				if (location)
-				{
-					console .warn (this .getTypeName (), this .getName (), "Using uniform location name »" + depreciated + "« is depreciated, use »" + name + "«. See https://create3000.github.io/x_ite/Custom-Shaders.html.");
-				}
-
-				return location;
-			}
-
-			return 0;
-		},
-		getAttribLocation: function (gl, program, name, depreciated)
-		{
-			// Legacy function to get uniform location.
-
-			let location = gl .getAttribLocation (program, name);
-
-			if (location >= 0)
-				return location;
-
-			// Look for depreciated location.
-
-			if (depreciated)
-			{
-				location = gl .getAttribLocation (program, depreciated);
-
-				if (location >= 0)
-				{
-					console .warn (this .getTypeName (), this .getName (), "Using attribute location name »" + depreciated + "« is depreciated, use »" + name + "«. See https://create3000.github.io/x_ite/Custom-Shaders.html.");
-				}
-
-				return location;
-			}
-
-			return -1;
-		},
-		addShaderFields: function ()
-		{
-			const
-				gl                = this .getBrowser () .getContext (),
-				program           = this .getProgram (),
-				userDefinedFields = this .getUserDefinedFields ();
-
-			this .textures .clear ();
-
-			userDefinedFields .forEach (function (field)
-			{
-				const location = gl .getUniformLocation (program, field .getName ());
-
-				if (location)
-				{
-					switch (field .getType ())
-					{
-						case X3DConstants .SFImage:
-						{
-							location .array = new Int32Array (3 + field .array .length);
-							break;
-						}
-						case X3DConstants .SFMatrix3d:
-						case X3DConstants .SFMatrix3f:
-						case X3DConstants .SFRotation:
-						{
-							location .array = new Float32Array (9);
-							break;
-						}
-						case X3DConstants .SFMatrix4d:
-						case X3DConstants .SFMatrix4f:
-						{
-							location .array = new Float32Array (16);
-							break;
-						}
-						case X3DConstants .SFNode:
-						{
-							break;
-						}
-						case X3DConstants .MFBool:
-						case X3DConstants .MFInt32:
-						{
-							location .array = new Int32Array (this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFFloat:
-						case X3DConstants .MFDouble:
-						case X3DConstants .MFTime:
-						{
-							location .array = new Float32Array (this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFImage:
-						{
-							location .array = new Int32Array (this .getImagesLength (field));
-							break;
-						}
-						case X3DConstants .MFMatrix3d:
-						case X3DConstants .MFMatrix3f:
-						case X3DConstants .MFRotation:
-						{
-							location .array = new Float32Array (9 * this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFMatrix4d:
-						case X3DConstants .MFMatrix4f:
-						{
-							location .array = new Float32Array (16 * this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFNode:
-						{
-							const locations = location .locations = [ ];
-
-							for (let i = 0;; ++ i)
-							{
-								const l = gl .getUniformLocation (program, field .getName () + "[" + i + "]");
-
-								if (! l)
-									break;
-
-								locations .push (l);
-							}
-
-							break;
-						}
-						case X3DConstants .MFVec2d:
-						case X3DConstants .MFVec2f:
-						{
-							location .array = new Float32Array (2 * this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFVec3d:
-						case X3DConstants .MFVec3f:
-						case X3DConstants .MFColor:
-						{
-							location .array = new Float32Array (3 * this .getLocationLength (gl, program, field));
-							break;
-						}
-						case X3DConstants .MFVec4d:
-						case X3DConstants .MFVec4f:
-						case X3DConstants .MFColorRGBA:
-						{
-							location .array = new Float32Array (4 * this .getLocationLength (gl, program, field));
-							break;
-						}
-					}
-
-					if (location .array)
-						field ._uniformLocation = location .array .length ? location : null;
-					else
-						field ._uniformLocation = location;
-
-					field .addInterest ("set_field__", this);
-
-					this .set_field__ (field);
-				}
-			},
-			this);
-		},
-		removeShaderFields: function ()
-		{
-			const userDefinedFields = this .getUserDefinedFields ();
-
-			userDefinedFields .forEach (function (field)
-			{
-				field .removeInterest ("set_field__", this);
-			},
-			this);
-		},
-		set_field__: (function ()
-		{
-			const matrix3 = new Matrix3 ();
-
-			return function (field)
-			{
-				const
-					gl       = this .getBrowser () .getContext (),
-					location = field ._uniformLocation;
-
-				if (location)
-				{
-					switch (field .getType ())
-					{
-						case X3DConstants .SFBool:
-						case X3DConstants .SFInt32:
-						{
-							gl .uniform1i (location, field .getValue ());
-							return;
-						}
-						case X3DConstants .SFColor:
-						{
-							const value = field .getValue ();
-							gl .uniform3f (location, value .r, value .g, value .b);
-							return;
-						}
-						case X3DConstants .SFColorRGBA:
-						{
-							const value = field .getValue ();
-							gl .uniform4f (location, value .r, value .g, value .b, value .a);
-							return;
-						}
-						case X3DConstants .SFDouble:
-						case X3DConstants .SFFloat:
-						case X3DConstants .SFTime:
-						{
-							gl .uniform1f (location, field .getValue ());
-							return;
-						}
-						case X3DConstants .SFImage:
-						{
-							let array = location .array;
-
-							const
-								pixels = field .array,
-								length = 3 + pixels .length;
-
-							if (length !== array .length)
-								array = location .array = new Int32Array (length);
-
-							array [0] = field .width;
-							array [1] = field .height;
-							array [2] = field .comp;
-
-							for (let a = 3, p = 0, pl = pixels .length; p < pl; ++ p, ++ a)
-								array [a] = pixels [p];
-
-							gl .uniform1iv (location, array);
-							return;
-						}
-						case X3DConstants .SFMatrix3d:
-						case X3DConstants .SFMatrix3f:
-						{
-							location .array .set (field .getValue ());
-
-							gl .uniformMatrix3fv (location, false, location .array);
-							return;
-						}
-						case X3DConstants .SFMatrix4d:
-						case X3DConstants .SFMatrix4f:
-						{
-							location .array .set (field .getValue ());
-
-							gl .uniformMatrix4fv (location, false, location .array);
-							return;
-						}
-						case X3DConstants .SFNode:
-						{
-							const texture = X3DCast (X3DConstants .X3DTextureNode, field);
-
-							if (texture)
-							{
-								this .textures .set (location, { name: field .getName (), texture: texture, textureUnit: undefined } );
-								return;
-							}
-
-							this .textures .delete (location);
-							return;
-						}
-						case X3DConstants .SFRotation:
-						{
-							field .getValue () .getMatrix (location .array);
-
-							gl .uniformMatrix3fv (location, false, location .array);
-							return;
-						}
-						case X3DConstants .SFString:
-						{
-							return;
-						}
-						case X3DConstants .SFVec2d:
-						case X3DConstants .SFVec2f:
-						{
-							const value = field .getValue ();
-							gl .uniform2f (location, value .x, value .y);
-							return;
-						}
-						case X3DConstants .SFVec3d:
-						case X3DConstants .SFVec3f:
-						{
-							const value = field .getValue ();
-							gl .uniform3f (location, value .x, value .y, value .z);
-							return;
-						}
-						case X3DConstants .SFVec4d:
-						case X3DConstants .SFVec4f:
-						{
-							const value = field .getValue ();
-							gl .uniform4f (location, value .x, value .y, value .z, value .w);
-							return;
-						}
-						case X3DConstants .MFBool:
-						case X3DConstants .MFInt32:
-						{
-							const array = location .array;
-
-							for (var i = 0, length = field .length; i < length; ++ i)
-								array [i] = field [i];
-
-							for (let length = array .length; i < length; ++ i)
-								array [i] = 0;
-
-							gl .uniform1iv (location, array);
-							return;
-						}
-						case X3DConstants .MFColor:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const color = field [i];
-
-								array [k++] = color .r;
-								array [k++] = color .g;
-								array [k++] = color .b;
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniform3fv (location, array);
-							return;
-						}
-						case X3DConstants .MFColorRGBA:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const color = field [i];
-
-								array [k++] = color .r;
-								array [k++] = color .g;
-								array [k++] = color .b;
-								array [k++] = color .a;
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniform4fv (location, array);
-							return;
-						}
-						case X3DConstants .MFDouble:
-						case X3DConstants .MFFloat:
-						case X3DConstants .MFTime:
-						{
-							const array = location .array;
-
-							for (var i = 0, length = field .length; i < length; ++ i)
-								array [i] = field [i];
-
-							for (let length = array .length; i < length; ++ i)
-								array [i] = 0;
-
-							gl .uniform1fv (location, array);
-							return;
-						}
-						case X3DConstants .MFImage:
-						{
-							const array = location .array;
-
-							for (let i = 0, a = 0, length = field .length; i < length; ++ i)
-							{
-								const
-									value  = field [i],
-									pixels = value .array;
-
-								array [a ++] = value .width;
-								array [a ++] = value .height;
-								array [a ++] = value .comp;
-
-								for (let p = 0, pl = pixels .length; p < pl; ++ p)
-									array [a ++] = pixels [p];
-							}
-
-							gl .uniform1iv (location, array);
-							return;
-						}
-						case X3DConstants .MFMatrix3d:
-						case X3DConstants .MFMatrix3f:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const matrix = field [i];
-
-								for (let m = 0; m < 9; ++ m)
-									array [k++] = matrix [m];
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniformMatrix3fv (location, false, array);
-							return;
-						}
-						case X3DConstants .MFMatrix4d:
-						case X3DConstants .MFMatrix4f:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const matrix = field [i];
-
-								for (let m = 0; m < 16; ++ m)
-									array [k++] = matrix [m];
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniformMatrix4fv (location, false, array);
-							return;
-						}
-						case X3DConstants .MFNode:
-						{
-							const locations = location .locations;
-
-							for (let i = 0, length = field .length; i < length; ++ i)
-							{
-								const texture = X3DCast (X3DConstants .X3DTextureNode, field [i]);
-
-								if (texture)
-								{
-									this .textures .set (locations [i], { name: field [i] .getName (), texture: texture, textureUnit: undefined } );
-									continue;
-								}
-							}
-
-							return;
-						}
-						case X3DConstants .MFRotation:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const matrix = field [i] .getValue () .getMatrix (matrix3);
-
-								array [k++] = matrix [0];
-								array [k++] = matrix [1];
-								array [k++] = matrix [2];
-								array [k++] = matrix [3];
-								array [k++] = matrix [4];
-								array [k++] = matrix [5];
-								array [k++] = matrix [6];
-								array [k++] = matrix [7];
-								array [k++] = matrix [8];
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniformMatrix3fv (location, false, array);
-							return;
-						}
-						case X3DConstants .MFString:
-						{
-							return;
-						}
-						case X3DConstants .MFVec2d:
-						case X3DConstants .MFVec2f:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const vector = field [i];
-
-								array [k++] = vector .x;
-								array [k++] = vector .y;
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniform2fv (location, array);
-							return;
-						}
-						case X3DConstants .MFVec3d:
-						case X3DConstants .MFVec3f:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const vector = field [i];
-
-								array [k++] = vector .x;
-								array [k++] = vector .y;
-								array [k++] = vector .z;
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniform3fv (location, array);
-							return;
-						}
-						case X3DConstants .MFVec4d:
-						case X3DConstants .MFVec4f:
-						{
-							const array = location .array;
-
-							for (var i = 0, k = 0, length = field .length; i < length; ++ i)
-							{
-								const vector = field [i];
-
-								array [k++] = vector .x;
-								array [k++] = vector .y;
-								array [k++] = vector .z;
-								array [k++] = vector .w;
-							}
-
-							for (let length = array .length; k < length; ++ k)
-								array [k] = 0;
-
-							gl .uniform4fv (location, array);
-							return;
-						}
-					}
-				}
-			};
-		})(),
-		getImagesLength: function (field)
-		{
-			const images = field .getValue ();
-
-			let length = 3 * images .length;
-
-			for (const image of images)
-				length += image .array .length;
-
-			return length;
-		},
-		getLocationLength: function (gl, program, field)
-		{
-			const name = field .getName ();
-
-			for (let i = 0; ; ++ i)
-			{
-				const location = gl .getUniformLocation (program, name + "[" + i + "]");
-
-				if (! location)
-					return i;
-			}
-		},
-		hasFog: function (fogNode)
-		{
-			if (this .fogNode === fogNode)
-				return true;
-
-			this .fogNode = fogNode;
-
-			return false;
-		},
-		hasLight: function (i, lightNode)
-		{
-			if (this .lightNodes [i] === lightNode)
-				return true;
-
-			this .lightNodes [i] = lightNode;
-
-			return false;
-		},
-		hasTextureProjector: function (i, textureProjectorNode)
-		{
-			if (this .projectiveTextureNodes [i] === textureProjectorNode)
-				return true;
-
-			this .projectiveTextureNodes [i] = textureProjectorNode;
-
-			return false;
-		},
-		setLocalObjects: function (gl, localObjects)
-		{
-			// Clip planes and local lights
-
-			this .numClipPlanes                  = 0;
-			this .numLights                      = 0;
-			this .numProjectiveTextures          = 0;
-			this .lightNodes .length             = 0;
-			this .projectiveTextureNodes .length = 0;
+   const _uniformLocation = Symbol .for ("X3DField.uniformLocation");
+
+   function X3DProgrammableShaderObject (executionContext)
+   {
+      this .addType (X3DConstants .X3DProgrammableShaderObject);
+
+      this .x3d_ClipPlane                           = [ ];
+      this .x3d_LightType                           = [ ];
+      this .x3d_LightOn                             = [ ];
+      this .x3d_LightColor                          = [ ];
+      this .x3d_LightIntensity                      = [ ];
+      this .x3d_LightAmbientIntensity               = [ ];
+      this .x3d_LightAttenuation                    = [ ];
+      this .x3d_LightLocation                       = [ ];
+      this .x3d_LightDirection                      = [ ];
+      this .x3d_LightBeamWidth                      = [ ];
+      this .x3d_LightCutOffAngle                    = [ ];
+      this .x3d_LightRadius                         = [ ];
+      this .x3d_LightMatrix                         = [ ];
+      this .x3d_ShadowIntensity                     = [ ];
+      this .x3d_ShadowColor                         = [ ];
+      this .x3d_ShadowBias                          = [ ];
+      this .x3d_ShadowMatrix                        = [ ];
+      this .x3d_ShadowMapSize                       = [ ];
+      this .x3d_ShadowMap                           = [ ];
+      this .x3d_Textures                            = [ ];
+      this .x3d_MultiTextureMode                    = [ ];
+      this .x3d_MultiTextureAlphaMode               = [ ];
+      this .x3d_MultiTextureSource                  = [ ];
+      this .x3d_MultiTextureFunction                = [ ];
+      this .x3d_TextureCoordinateGeneratorMode      = [ ];
+      this .x3d_TextureCoordinateGeneratorParameter = [ ];
+      this .x3d_ProjectiveTexture                   = [ ];
+      this .x3d_ProjectiveTextureMatrix             = [ ];
+      this .x3d_ProjectiveTextureLocation           = [ ];
+      this .x3d_TexCoord                            = [ ];
+      this .x3d_TextureMatrix                       = [ ];
+
+      this .numClipPlanes               = 0;
+      this .fogNode                     = null;
+      this .numLights                   = 0;
+      this .numGlobalLights             = 0;
+      this .lightNodes                  = [ ];
+      this .numProjectiveTextures       = 0;
+      this .numGlobalProjectiveTextures = 0;
+      this .projectiveTextureNodes      = [ ];
+      this .textures                    = new Map ();
+   }
+
+   X3DProgrammableShaderObject .prototype =
+   {
+      constructor: X3DProgrammableShaderObject,
+      initialize: function ()
+      {
+         const browser = this .getBrowser ();
+
+         this .x3d_MaxClipPlanes = browser .getMaxClipPlanes ();
+         this .x3d_MaxLights     = browser .getMaxLights ();
+         this .x3d_MaxTextures   = browser .getMaxTextures ();
+      },
+      canUserDefinedFields: function ()
+      {
+         return true;
+      },
+      bindAttributeLocations: function (gl, program)
+      {
+         gl .bindAttribLocation (program, 0, "x3d_Vertex");
+      },
+      getDefaultUniforms: function ()
+      {
+         // Get uniforms and attributes.
+
+         const
+            browser = this .getBrowser (),
+            gl      = browser .getContext (),
+            program = this .getProgram ();
+
+         this .x3d_LogarithmicFarFactor1_2 = gl .getUniformLocation (program, "x3d_LogarithmicFarFactor1_2");
+
+         this .x3d_GeometryType  = gl .getUniformLocation (program, "x3d_GeometryType");
+         this .x3d_NumClipPlanes = gl .getUniformLocation (program, "x3d_NumClipPlanes");
+
+         this .x3d_ClipPlanes = gl .getUniformLocation (program, "x3d_ClipPlane");
+
+         for (let i = 0; i < this .x3d_MaxClipPlanes; ++ i)
+            this .x3d_ClipPlane [i] = gl .getUniformLocation (program, "x3d_ClipPlane[" + i + "]");
+
+         this .x3d_FogType            = this .getUniformLocation (gl, program, "x3d_Fog.type",            "x3d_FogType");
+         this .x3d_FogColor           = this .getUniformLocation (gl, program, "x3d_Fog.color",           "x3d_FogColor");
+         this .x3d_FogVisibilityRange = this .getUniformLocation (gl, program, "x3d_Fog.visibilityRange", "x3d_FogVisibilityRange");
+         this .x3d_FogMatrix          = this .getUniformLocation (gl, program, "x3d_Fog.matrix",          "x3d_FogMatrix");
+         this .x3d_FogCoord           = this .getUniformLocation (gl, program, "x3d_Fog.fogCoord",        "x3d_FogCoord");
+
+         this .x3d_AlphaCutoff = gl .getUniformLocation (program, "x3d_AlphaCutoff");
+
+         this .x3d_PointPropertiesPointSizeScaleFactor = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeScaleFactor");
+         this .x3d_PointPropertiesPointSizeMinValue    = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeMinValue");
+         this .x3d_PointPropertiesPointSizeMaxValue    = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeMaxValue");
+         this .x3d_PointPropertiesPointSizeAttenuation = gl .getUniformLocation (program, "x3d_PointProperties.pointSizeAttenuation");
+
+         this .x3d_LinePropertiesApplied              = gl .getUniformLocation (program, "x3d_LineProperties.applied");
+         this .x3d_LinePropertiesLinewidthScaleFactor = this .getUniformLocation (gl, program, "x3d_LineProperties.linewidthScaleFactor", "x3d_LinewidthScaleFactor");
+         this .x3d_LinePropertiesLinetype             = gl .getUniformLocation (program, "x3d_LineProperties.linetype");
+
+         this .x3d_FillPropertiesFilled     = gl .getUniformLocation (program, "x3d_FillProperties.filled");
+         this .x3d_FillPropertiesHatched    = gl .getUniformLocation (program, "x3d_FillProperties.hatched");
+         this .x3d_FillPropertiesHatchColor = gl .getUniformLocation (program, "x3d_FillProperties.hatchColor");
+         this .x3d_FillPropertiesHatchStyle = gl .getUniformLocation (program, "x3d_FillProperties.hatchStyle");
+
+         this .x3d_ColorMaterial = gl .getUniformLocation (program, "x3d_ColorMaterial");
+         this .x3d_NumLights     = gl .getUniformLocation (program, "x3d_NumLights");
+
+         for (let i = 0; i < this .x3d_MaxLights; ++ i)
+         {
+            this .x3d_LightType [i]             = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].type",             "x3d_LightType[" + i + "]");
+            this .x3d_LightColor [i]            = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].color",            "x3d_LightColor[" + i + "]");
+            this .x3d_LightAmbientIntensity [i] = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].ambientIntensity", "x3d_LightAmbientIntensity[" + i + "]");
+            this .x3d_LightIntensity [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].intensity",        "x3d_LightIntensity[" + i + "]");
+            this .x3d_LightAttenuation [i]      = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].attenuation",      "x3d_LightAttenuation[" + i + "]");
+            this .x3d_LightLocation [i]         = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].location",         "x3d_LightLocation[" + i + "]");
+            this .x3d_LightDirection [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].direction",        "x3d_LightDirection[" + i + "]");
+            this .x3d_LightBeamWidth [i]        = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].beamWidth",        "x3d_LightBeamWidth[" + i + "]");
+            this .x3d_LightCutOffAngle [i]      = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].cutOffAngle",      "x3d_LightCutOffAngle[" + i + "]");
+            this .x3d_LightRadius [i]           = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].radius",           "x3d_LightRadius[" + i + "]");
+            this .x3d_LightMatrix [i]           = this .getUniformLocation (gl, program, "x3d_LightSource[" + i + "].matrix",           "x3d_LightMatrix[" + i + "]");
+
+            this .x3d_ShadowIntensity [i] = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowIntensity");
+            this .x3d_ShadowColor [i]     = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowColor");
+            this .x3d_ShadowBias [i]      = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowBias");
+            this .x3d_ShadowMatrix [i]    = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowMatrix");
+            this .x3d_ShadowMapSize [i]   = gl .getUniformLocation (program, "x3d_LightSource[" + i + "].shadowMapSize");
+            this .x3d_ShadowMap [i]       = gl .getUniformLocation (program, "x3d_ShadowMap[" + i + "]");
+         }
+
+         this .x3d_AmbientIntensity  = this .getUniformLocation (gl, program, "x3d_Material.ambientIntensity", "x3d_FrontMaterial.ambientIntensity");
+         this .x3d_DiffuseColor      = this .getUniformLocation (gl, program, "x3d_Material.diffuseColor",     "x3d_FrontMaterial.diffuseColor");
+         this .x3d_SpecularColor     = this .getUniformLocation (gl, program, "x3d_Material.specularColor",    "x3d_FrontMaterial.specularColor");
+         this .x3d_EmissiveColor     = this .getUniformLocation (gl, program, "x3d_Material.emissiveColor",    "x3d_FrontMaterial.emissiveColor");
+         this .x3d_Shininess         = this .getUniformLocation (gl, program, "x3d_Material.shininess",        "x3d_FrontMaterial.shininess");
+         this .x3d_BaseColor         = gl .getUniformLocation (program, "x3d_Material.baseColor");
+         this .x3d_Metallic          = gl .getUniformLocation (program, "x3d_Material.metallic");
+         this .x3d_Roughness         = gl .getUniformLocation (program, "x3d_Material.roughness");
+         this .x3d_OcclusionStrength = gl .getUniformLocation (program, "x3d_Material.occlusionStrength");
+         this .x3d_NormalScale       = gl .getUniformLocation (program, "x3d_Material.normalScale");
+         this .x3d_Transparency      = this .getUniformLocation (gl, program, "x3d_Material.transparency",     "x3d_FrontMaterial.transparency");
+
+         const materialTextures = [
+            "x3d_AmbientTexture",
+            "x3d_DiffuseTexture",
+            "x3d_SpecularTexture",
+            "x3d_EmissiveTexture",
+            "x3d_ShininessTexture",
+            "x3d_BaseTexture",
+            "x3d_MetallicRoughnessTexture",
+            "x3d_OcclusionTexture",
+            "x3d_NormalTexture",
+         ];
+
+         for (const materialTexture of materialTextures)
+         {
+            this [materialTexture] = {
+               textureTransformMapping:  gl .getUniformLocation (program, materialTexture + ".textureTransformMapping"),
+               textureCoordinateMapping: gl .getUniformLocation (program, materialTexture + ".textureCoordinateMapping"),
+               texture2D:                gl .getUniformLocation (program, materialTexture + ".texture2D"),
+               texture3D:                gl .getUniformLocation (program, materialTexture + ".texture3D"),
+               textureCube:              gl .getUniformLocation (program, materialTexture + ".textureCube"),
+            };
+         }
+
+         this .x3d_NumTextures           = gl .getUniformLocation (program, "x3d_NumTextures");
+         this .x3d_NumProjectiveTextures = gl .getUniformLocation (program, "x3d_NumProjectiveTextures");
+         this .x3d_MultiTextureColor     = gl .getUniformLocation (program, "x3d_MultiTextureColor");
+
+         for (let i = 0; i < this .x3d_MaxTextures; ++ i)
+         {
+            this .x3d_Textures [i] = {
+               textureType: gl .getUniformLocation (program, "x3d_TextureType[" + i + "]"),
+               texture2D: gl .getUniformLocation (program, "x3d_Texture2D[" + i + "]"),
+               texture3D: gl .getUniformLocation (program, "x3d_Texture3D[" + i + "]"),
+               textureCube: this .getUniformLocation (gl, program, "x3d_TextureCube[" + i + "]", "x3d_CubeMapTexture[" + i + "]"),
+            }
+
+            this .x3d_MultiTextureMode [i]      = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].mode");
+            this .x3d_MultiTextureAlphaMode [i] = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].alphaMode");
+            this .x3d_MultiTextureSource [i]    = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].source");
+            this .x3d_MultiTextureFunction [i]  = gl .getUniformLocation (program, "x3d_MultiTexture[" + i + "].function");
+
+            this .x3d_TextureCoordinateGeneratorMode [i]      = gl .getUniformLocation (program, "x3d_TextureCoordinateGenerator[" + i + "].mode");
+            this .x3d_TextureCoordinateGeneratorParameter [i] = gl .getUniformLocation (program, "x3d_TextureCoordinateGenerator[" + i + "].parameter");
+
+            this .x3d_ProjectiveTexture [i]         = gl .getUniformLocation (program, "x3d_ProjectiveTexture[" + i + "]");
+            this .x3d_ProjectiveTextureMatrix [i]   = gl .getUniformLocation (program, "x3d_ProjectiveTextureMatrix[" + i + "]");
+            this .x3d_ProjectiveTextureLocation [i] = gl .getUniformLocation (program, "x3d_ProjectiveTextureLocation[" + i + "]");
+
+            this .x3d_TextureMatrix [i] = gl .getUniformLocation (program, "x3d_TextureMatrix[" + i + "]");
+            this .x3d_TexCoord [i]      = this .getAttribLocation (gl, program, "x3d_TexCoord" + i, i ? "" : "x3d_TexCoord");
+         }
+
+         this .x3d_Viewport          = gl .getUniformLocation (program, "x3d_Viewport");
+         this .x3d_ProjectionMatrix  = gl .getUniformLocation (program, "x3d_ProjectionMatrix");
+         this .x3d_ModelViewMatrix   = gl .getUniformLocation (program, "x3d_ModelViewMatrix");
+         this .x3d_NormalMatrix      = gl .getUniformLocation (program, "x3d_NormalMatrix");
+         this .x3d_CameraSpaceMatrix = gl .getUniformLocation (program, "x3d_CameraSpaceMatrix");
+
+         this .x3d_FogDepth = gl .getAttribLocation (program, "x3d_FogDepth");
+         this .x3d_Color    = gl .getAttribLocation (program, "x3d_Color");
+         this .x3d_Normal   = gl .getAttribLocation (program, "x3d_Normal");
+         this .x3d_Vertex   = gl .getAttribLocation (program, "x3d_Vertex");
+
+         this .x3d_ParticleId          = gl .getUniformLocation (program, "x3d_Particle.id");
+         this .x3d_ParticleLife        = gl .getUniformLocation (program, "x3d_Particle.life");
+         this .x3d_ParticleElapsedTime = gl .getUniformLocation (program, "x3d_Particle.elapsedTime");
+
+         // Fill special uniforms with default values, textures for units are created in X3DTexturingContext.
+
+         gl .uniform1i  (this .x3d_LinePropertiesLinetype,   browser .getDefaultTexture2DUnit ());
+         gl .uniform1i  (this .x3d_FillPropertiesHatchStyle, browser .getDefaultTexture2DUnit ());
+
+         for (const materialTexture of materialTextures)
+         {
+            gl .uniform1i (this [materialTexture] .texture2D,   browser .getDefaultTexture2DUnit ());
+            gl .uniform1i (this [materialTexture] .texture3D,   browser .getDefaultTexture3DUnit ());
+            gl .uniform1i (this [materialTexture] .textureCube, browser .getDefaultTextureCubeUnit ());
+         }
+
+         gl .uniform1i (this .x3d_NumTextures, 0);
+
+         for (const uniforms of this .x3d_Textures)
+         {
+            gl .uniform1i (uniforms .texture2D, browser .getDefaultTexture2DUnit ());
+
+            if (gl .getVersion () >= 2)
+               gl .uniform1i (uniforms .texture3D, browser .getDefaultTexture3DUnit ());
+
+            gl .uniform1i (uniforms .textureCube, browser .getDefaultTextureCubeUnit ());
+         }
+
+         for (const uniform of this .x3d_ShadowMap)
+            gl .uniform1i (uniform, browser .getDefaultTexture2DUnit ());
+
+         if (browser .getProjectiveTextureMapping ())
+         {
+            for (const uniform of this .x3d_ProjectiveTexture)
+               gl .uniform1i (uniform, browser .getDefaultTexture2DUnit ());
+         }
+
+         // Return true if valid, otherwise false.
+
+         if (this .x3d_FogDepth < 0)
+         {
+            this .enableFogDepthAttribute  = Function .prototype;
+            this .disableFogDepthAttribute = Function .prototype;
+         }
+         else
+         {
+            delete this .enableFogDepthAttribute;
+            delete this .disableFogDepthAttribute;
+         }
+
+         if (this .x3d_Color < 0)
+         {
+            this .enableColorAttribute  = Function .prototype;
+            this .disableColorAttribute = Function .prototype;
+         }
+         else
+         {
+            delete this .enableColorAttribute;
+            delete this .disableColorAttribute;
+         }
+
+         if (this .x3d_TexCoord .some (function (location) { return location >= 0; }))
+         {
+            delete this .enableTexCoordAttribute;
+            delete this .disableTexCoordAttribute;
+         }
+         else
+         {
+            this .enableTexCoordAttribute  = Function .prototype;
+            this .disableTexCoordAttribute = Function .prototype;
+         }
+
+         if (this .x3d_Normal < 0)
+         {
+            this .enableNormalAttribute  = Function .prototype;
+            this .disableNormalAttribute = Function .prototype;
+         }
+         else
+         {
+            delete this .enableNormalAttribute;
+            delete this .disableNormalAttribute;
+         }
+
+         if (this .x3d_Vertex < 0)
+         {
+            if (gl .getVersion () >= 2)
+               console .warn ("Missing »in vec4 x3d_Vertex;«.");
+            else
+               console .warn ("Missing »attribute vec4 x3d_Vertex;«.");
+
+            return false;
+         }
+
+         return true;
+      },
+      getUniformLocation: function (gl, program, name, depreciated)
+      {
+         // Legacy function to get uniform location.
+
+         let location = gl .getUniformLocation (program, name);
+
+         if (location)
+            return location;
+
+         // Look for depreciated location.
+
+         if (depreciated)
+         {
+            location = gl .getUniformLocation (program, depreciated);
+
+            if (location)
+            {
+               console .warn (this .getTypeName (), this .getName (), "Using uniform location name »" + depreciated + "« is depreciated, use »" + name + "«. See https://create3000.github.io/x_ite/Custom-Shaders.html.");
+            }
+
+            return location;
+         }
+
+         return 0;
+      },
+      getAttribLocation: function (gl, program, name, depreciated)
+      {
+         // Legacy function to get uniform location.
+
+         let location = gl .getAttribLocation (program, name);
+
+         if (location >= 0)
+            return location;
+
+         // Look for depreciated location.
+
+         if (depreciated)
+         {
+            location = gl .getAttribLocation (program, depreciated);
+
+            if (location >= 0)
+            {
+               console .warn (this .getTypeName (), this .getName (), "Using attribute location name »" + depreciated + "« is depreciated, use »" + name + "«. See https://create3000.github.io/x_ite/Custom-Shaders.html.");
+            }
+
+            return location;
+         }
+
+         return -1;
+      },
+      addShaderFields: function ()
+      {
+         const
+            gl      = this .getBrowser () .getContext (),
+            program = this .getProgram ();
+
+         this .textures .clear ();
+
+         for (const field of this .getUserDefinedFields ())
+         {
+            const location = gl .getUniformLocation (program, field .getName ());
+
+            if (location)
+            {
+               switch (field .getType ())
+               {
+                  case X3DConstants .SFImage:
+                  {
+                     location .array = new Int32Array (3 + field .array .length);
+                     break;
+                  }
+                  case X3DConstants .SFMatrix3d:
+                  case X3DConstants .SFMatrix3f:
+                  case X3DConstants .SFRotation:
+                  {
+                     location .array = new Float32Array (9);
+                     break;
+                  }
+                  case X3DConstants .SFMatrix4d:
+                  case X3DConstants .SFMatrix4f:
+                  {
+                     location .array = new Float32Array (16);
+                     break;
+                  }
+                  case X3DConstants .SFNode:
+                  {
+                     break;
+                  }
+                  case X3DConstants .MFBool:
+                  case X3DConstants .MFInt32:
+                  {
+                     location .array = new Int32Array (this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFFloat:
+                  case X3DConstants .MFDouble:
+                  case X3DConstants .MFTime:
+                  {
+                     location .array = new Float32Array (this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFImage:
+                  {
+                     location .array = new Int32Array (this .getImagesLength (field));
+                     break;
+                  }
+                  case X3DConstants .MFMatrix3d:
+                  case X3DConstants .MFMatrix3f:
+                  case X3DConstants .MFRotation:
+                  {
+                     location .array = new Float32Array (9 * this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFMatrix4d:
+                  case X3DConstants .MFMatrix4f:
+                  {
+                     location .array = new Float32Array (16 * this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFNode:
+                  {
+                     const locations = location .locations = [ ];
+
+                     for (let i = 0;; ++ i)
+                     {
+                        const l = gl .getUniformLocation (program, field .getName () + "[" + i + "]");
+
+                        if (! l)
+                           break;
+
+                        locations .push (l);
+                     }
+
+                     break;
+                  }
+                  case X3DConstants .MFVec2d:
+                  case X3DConstants .MFVec2f:
+                  {
+                     location .array = new Float32Array (2 * this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFVec3d:
+                  case X3DConstants .MFVec3f:
+                  case X3DConstants .MFColor:
+                  {
+                     location .array = new Float32Array (3 * this .getLocationLength (gl, program, field));
+                     break;
+                  }
+                  case X3DConstants .MFVec4d:
+                  case X3DConstants .MFVec4f:
+                  case X3DConstants .MFColorRGBA:
+                  {
+                     location .array = new Float32Array (4 * this .getLocationLength (gl, program, field));
+                     break;
+                  }
+               }
+
+               if (location .array)
+                  field [_uniformLocation] = location .array .length ? location : null;
+               else
+                  field [_uniformLocation] = location;
+
+               field .addInterest ("set_field__", this);
+
+               this .set_field__ (field);
+            }
+         }
+      },
+      removeShaderFields: function ()
+      {
+         for (const field of this .getUserDefinedFields ())
+            field .removeInterest ("set_field__", this);
+      },
+      set_field__: (function ()
+      {
+         const matrix3 = new Matrix3 ();
+
+         return function (field)
+         {
+            const
+               gl       = this .getBrowser () .getContext (),
+               location = field [_uniformLocation];
+
+            if (location)
+            {
+               switch (field .getType ())
+               {
+                  case X3DConstants .SFBool:
+                  case X3DConstants .SFInt32:
+                  {
+                     gl .uniform1i (location, field .getValue ());
+                     return;
+                  }
+                  case X3DConstants .SFColor:
+                  {
+                     const value = field .getValue ();
+                     gl .uniform3f (location, value .r, value .g, value .b);
+                     return;
+                  }
+                  case X3DConstants .SFColorRGBA:
+                  {
+                     const value = field .getValue ();
+                     gl .uniform4f (location, value .r, value .g, value .b, value .a);
+                     return;
+                  }
+                  case X3DConstants .SFDouble:
+                  case X3DConstants .SFFloat:
+                  case X3DConstants .SFTime:
+                  {
+                     gl .uniform1f (location, field .getValue ());
+                     return;
+                  }
+                  case X3DConstants .SFImage:
+                  {
+                     let array = location .array;
+
+                     const
+                        pixels = field .array,
+                        length = 3 + pixels .length;
+
+                     if (length !== array .length)
+                        array = location .array = new Int32Array (length);
+
+                     array [0] = field .width;
+                     array [1] = field .height;
+                     array [2] = field .comp;
+
+                     for (let a = 3, p = 0, pl = pixels .length; p < pl; ++ p, ++ a)
+                        array [a] = pixels [p];
+
+                     gl .uniform1iv (location, array);
+                     return;
+                  }
+                  case X3DConstants .SFMatrix3d:
+                  case X3DConstants .SFMatrix3f:
+                  {
+                     location .array .set (field .getValue ());
+
+                     gl .uniformMatrix3fv (location, false, location .array);
+                     return;
+                  }
+                  case X3DConstants .SFMatrix4d:
+                  case X3DConstants .SFMatrix4f:
+                  {
+                     location .array .set (field .getValue ());
+
+                     gl .uniformMatrix4fv (location, false, location .array);
+                     return;
+                  }
+                  case X3DConstants .SFNode:
+                  {
+                     const texture = X3DCast (X3DConstants .X3DTextureNode, field);
+
+                     if (texture)
+                     {
+                        this .textures .set (location, { name: field .getName (), texture: texture } );
+                        return;
+                     }
+
+                     this .textures .delete (location);
+                     return;
+                  }
+                  case X3DConstants .SFRotation:
+                  {
+                     field .getValue () .getMatrix (location .array);
+
+                     gl .uniformMatrix3fv (location, false, location .array);
+                     return;
+                  }
+                  case X3DConstants .SFString:
+                  {
+                     return;
+                  }
+                  case X3DConstants .SFVec2d:
+                  case X3DConstants .SFVec2f:
+                  {
+                     const value = field .getValue ();
+                     gl .uniform2f (location, value .x, value .y);
+                     return;
+                  }
+                  case X3DConstants .SFVec3d:
+                  case X3DConstants .SFVec3f:
+                  {
+                     const value = field .getValue ();
+                     gl .uniform3f (location, value .x, value .y, value .z);
+                     return;
+                  }
+                  case X3DConstants .SFVec4d:
+                  case X3DConstants .SFVec4f:
+                  {
+                     const value = field .getValue ();
+                     gl .uniform4f (location, value .x, value .y, value .z, value .w);
+                     return;
+                  }
+                  case X3DConstants .MFBool:
+                  case X3DConstants .MFInt32:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, length = field .length; i < length; ++ i)
+                        array [i] = field [i];
+
+                     for (let length = array .length; i < length; ++ i)
+                        array [i] = 0;
+
+                     gl .uniform1iv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFColor:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const color = field [i];
+
+                        array [k++] = color .r;
+                        array [k++] = color .g;
+                        array [k++] = color .b;
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniform3fv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFColorRGBA:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const color = field [i];
+
+                        array [k++] = color .r;
+                        array [k++] = color .g;
+                        array [k++] = color .b;
+                        array [k++] = color .a;
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniform4fv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFDouble:
+                  case X3DConstants .MFFloat:
+                  case X3DConstants .MFTime:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, length = field .length; i < length; ++ i)
+                        array [i] = field [i];
+
+                     for (let length = array .length; i < length; ++ i)
+                        array [i] = 0;
+
+                     gl .uniform1fv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFImage:
+                  {
+                     const array = location .array;
+
+                     for (let i = 0, a = 0, length = field .length; i < length; ++ i)
+                     {
+                        const
+                           value  = field [i],
+                           pixels = value .array;
+
+                        array [a ++] = value .width;
+                        array [a ++] = value .height;
+                        array [a ++] = value .comp;
+
+                        for (let p = 0, pl = pixels .length; p < pl; ++ p)
+                           array [a ++] = pixels [p];
+                     }
+
+                     gl .uniform1iv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFMatrix3d:
+                  case X3DConstants .MFMatrix3f:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const matrix = field [i];
+
+                        for (let m = 0; m < 9; ++ m)
+                           array [k++] = matrix [m];
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniformMatrix3fv (location, false, array);
+                     return;
+                  }
+                  case X3DConstants .MFMatrix4d:
+                  case X3DConstants .MFMatrix4f:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const matrix = field [i];
+
+                        for (let m = 0; m < 16; ++ m)
+                           array [k++] = matrix [m];
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniformMatrix4fv (location, false, array);
+                     return;
+                  }
+                  case X3DConstants .MFNode:
+                  {
+                     const locations = location .locations;
+
+                     for (const node of field)
+                     {
+                        const texture = X3DCast (X3DConstants .X3DTextureNode, node);
+
+                        if (texture)
+                        {
+                           this .textures .set (locations [i], { name: field .getName (), texture: texture } );
+                           continue;
+                        }
+                     }
+
+                     return;
+                  }
+                  case X3DConstants .MFRotation:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const matrix = field [i] .getValue () .getMatrix (matrix3);
+
+                        array [k++] = matrix [0];
+                        array [k++] = matrix [1];
+                        array [k++] = matrix [2];
+                        array [k++] = matrix [3];
+                        array [k++] = matrix [4];
+                        array [k++] = matrix [5];
+                        array [k++] = matrix [6];
+                        array [k++] = matrix [7];
+                        array [k++] = matrix [8];
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniformMatrix3fv (location, false, array);
+                     return;
+                  }
+                  case X3DConstants .MFString:
+                  {
+                     return;
+                  }
+                  case X3DConstants .MFVec2d:
+                  case X3DConstants .MFVec2f:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const vector = field [i];
+
+                        array [k++] = vector .x;
+                        array [k++] = vector .y;
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniform2fv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFVec3d:
+                  case X3DConstants .MFVec3f:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const vector = field [i];
+
+                        array [k++] = vector .x;
+                        array [k++] = vector .y;
+                        array [k++] = vector .z;
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniform3fv (location, array);
+                     return;
+                  }
+                  case X3DConstants .MFVec4d:
+                  case X3DConstants .MFVec4f:
+                  {
+                     const array = location .array;
+
+                     for (var i = 0, k = 0, length = field .length; i < length; ++ i)
+                     {
+                        const vector = field [i];
+
+                        array [k++] = vector .x;
+                        array [k++] = vector .y;
+                        array [k++] = vector .z;
+                        array [k++] = vector .w;
+                     }
+
+                     for (let length = array .length; k < length; ++ k)
+                        array [k] = 0;
+
+                     gl .uniform4fv (location, array);
+                     return;
+                  }
+               }
+            }
+         };
+      })(),
+      getImagesLength: function (field)
+      {
+         const images = field .getValue ();
+
+         let length = 3 * images .length;
+
+         for (const image of images)
+            length += image .array .length;
+
+         return length;
+      },
+      getLocationLength: function (gl, program, field)
+      {
+         const name = field .getName ();
+
+         for (let i = 0; ; ++ i)
+         {
+            const location = gl .getUniformLocation (program, name + "[" + i + "]");
+
+            if (! location)
+               return i;
+         }
+      },
+      hasFog: function (fogNode)
+      {
+         if (this .fogNode === fogNode)
+            return true;
+
+         this .fogNode = fogNode;
+
+         return false;
+      },
+      hasLight: function (i, lightNode)
+      {
+         if (this .lightNodes [i] === lightNode)
+            return true;
+
+         this .lightNodes [i] = lightNode;
+
+         return false;
+      },
+      hasTextureProjector: function (i, textureProjectorNode)
+      {
+         if (this .projectiveTextureNodes [i] === textureProjectorNode)
+            return true;
+
+         this .projectiveTextureNodes [i] = textureProjectorNode;
+
+         return false;
+      },
+      setLocalObjects: function (gl, localObjects)
+      {
+         // Clip planes and local lights
 
-			for (const localObject of localObjects)
-				localObject .setShaderUniforms (gl, this);
+         this .numClipPlanes                  = 0;
+         this .numLights                      = 0;
+         this .numProjectiveTextures          = 0;
+         this .lightNodes .length             = 0;
+         this .projectiveTextureNodes .length = 0;
 
-			gl .uniform1i (this .x3d_NumClipPlanes,         Math .min (this .numClipPlanes,         this .x3d_MaxClipPlanes));
-			gl .uniform1i (this .x3d_NumLights,             Math .min (this .numLights,             this .x3d_MaxLights));
-			gl .uniform1i (this .x3d_NumProjectiveTextures, Math .min (this .numProjectiveTextures, this .x3d_MaxTextures));
-		},
-		setGlobalUniforms: function (gl, renderObject, cameraSpaceMatrixArray, projectionMatrixArray, viewportArray)
-		{
-			const globalObjects = renderObject .getGlobalObjects ();
+         for (const localObject of localObjects)
+            localObject .setShaderUniforms (gl, this);
 
-			// Set viewport
+         gl .uniform1i (this .x3d_NumClipPlanes,         Math .min (this .numClipPlanes,         this .x3d_MaxClipPlanes));
+         gl .uniform1i (this .x3d_NumLights,             Math .min (this .numLights,             this .x3d_MaxLights));
+         gl .uniform1i (this .x3d_NumProjectiveTextures, Math .min (this .numProjectiveTextures, this .x3d_MaxTextures));
+      },
+      setGlobalUniforms: function (gl, renderObject, cameraSpaceMatrixArray, projectionMatrixArray, viewportArray)
+      {
+         const globalObjects = renderObject .getGlobalObjects ();
 
-			gl .uniform4iv (this .x3d_Viewport, viewportArray);
+         // Set viewport
 
-			// Set projection matrix
+         gl .uniform4iv (this .x3d_Viewport, viewportArray);
 
-			gl .uniformMatrix4fv (this .x3d_ProjectionMatrix,  false, projectionMatrixArray);
-			gl .uniformMatrix4fv (this .x3d_CameraSpaceMatrix, false, cameraSpaceMatrixArray);
+         // Set projection matrix
 
-			// Fog
+         gl .uniformMatrix4fv (this .x3d_ProjectionMatrix,  false, projectionMatrixArray);
+         gl .uniformMatrix4fv (this .x3d_CameraSpaceMatrix, false, cameraSpaceMatrixArray);
 
-			this .fogNode = null;
+         // Fog
 
-			// Set global lights and global texture projectors
+         this .fogNode = null;
 
-			this .numLights                      = 0;
-			this .numProjectiveTextures          = 0;
-			this .lightNodes .length             = 0;
-			this .projectiveTextureNodes .length = 0;
+         // Set global lights and global texture projectors
 
-			for (const globalObject of globalObjects)
-				globalObject .setShaderUniforms (gl, this);
-
-			this .numGlobalLights             = this .numLights;
-			this .numGlobalProjectiveTextures = this .numProjectiveTextures;
+         this .numLights                      = 0;
+         this .numProjectiveTextures          = 0;
+         this .lightNodes .length             = 0;
+         this .projectiveTextureNodes .length = 0;
 
-			// Logarithmic depth buffer support.
+         for (const globalObject of globalObjects)
+            globalObject .setShaderUniforms (gl, this, renderObject);
 
-			const
-				viewpoint      = renderObject .getViewpoint (),
-				navigationInfo = renderObject .getNavigationInfo ();
+         this .numGlobalLights             = this .numLights;
+         this .numGlobalProjectiveTextures = this .numProjectiveTextures;
 
-			if (viewpoint instanceof OrthoViewpoint)
-				gl .uniform1f (this .x3d_LogarithmicFarFactor1_2, -1);
-			else
-				gl .uniform1f (this .x3d_LogarithmicFarFactor1_2, 1 / Math .log2 (navigationInfo .getFarValue (viewpoint) + 1));
-		},
-		setLocalUniforms: function (gl, context, front = true)
-		{
-			const
-				shapeNode             = context .shapeNode,
-				geometryNode          = context .geometryContext || shapeNode .getGeometry (),
-				geometryType          = geometryNode .geometryType,
-				textureCoordinateNode = geometryNode .textureCoordinateNode,
-				appearanceNode        = shapeNode .getAppearance (),
-				stylePropertiesNode   = appearanceNode .stylePropertiesNode [geometryType],
-				materialNode          = front ? appearanceNode .materialNode : appearanceNode .backMaterialNode,
-				textureNode           = context .textureNode || appearanceNode .textureNode,
-				textureTransformNode  = appearanceNode .textureTransformNode,
-				modelViewMatrix       = context .modelViewMatrix,
-				localObjects          = context .localObjects;
+         // Logarithmic depth buffer support.
 
-			// Model view matrix
+         const
+            viewpoint      = renderObject .getViewpoint (),
+            navigationInfo = renderObject .getNavigationInfo ();
 
-			gl .uniformMatrix4fv (this .x3d_ModelViewMatrix, false, modelViewMatrix);
+         if (viewpoint instanceof OrthoViewpoint)
+            gl .uniform1f (this .x3d_LogarithmicFarFactor1_2, -1);
+         else
+            gl .uniform1f (this .x3d_LogarithmicFarFactor1_2, 1 / Math .log2 (navigationInfo .getFarValue (viewpoint) + 1));
+      },
+      setLocalUniforms: function (gl, context, front = true)
+      {
+         const
+            renderObject    = context .renderer,
+            shapeNode       = context .shapeNode,
+            geometryNode    = context .geometryContext || shapeNode .getGeometry (),
+            geometryType    = geometryNode .geometryType,
+            appearanceNode  = shapeNode .getAppearance (),
+            materialNode    = front ? appearanceNode .materialNode : appearanceNode .backMaterialNode,
+            textureNode     = context .textureNode || appearanceNode .textureNode,
+            modelViewMatrix = context .modelViewMatrix;
 
-			// Geometry type
+         // Model view matrix
 
-			gl .uniform1i (this .x3d_GeometryType, geometryType);
+         gl .uniformMatrix4fv (this .x3d_ModelViewMatrix, false, modelViewMatrix);
 
-			// Clip planes and local lights
+         // Geometry type
 
-			this .numClipPlanes         = 0;
-			this .numLights             = this .numGlobalLights;
-			this .numProjectiveTextures = this .numGlobalProjectiveTextures;
+         gl .uniform1i (this .x3d_GeometryType, geometryType);
 
-			for (const localObject of localObjects)
-				localObject .setShaderUniforms (gl, this);
-
-			gl .uniform1i (this .x3d_NumClipPlanes,         Math .min (this .numClipPlanes,         this .x3d_MaxClipPlanes));
-			gl .uniform1i (this .x3d_NumLights,             Math .min (this .numLights,             this .x3d_MaxLights));
-			gl .uniform1i (this .x3d_NumProjectiveTextures, Math .min (this .numProjectiveTextures, this .x3d_MaxTextures));
+         // Clip planes and local lights
 
-			// Fog, there is always one
+         this .numClipPlanes         = 0;
+         this .numLights             = this .numGlobalLights;
+         this .numProjectiveTextures = this .numGlobalProjectiveTextures;
 
-			context .fogNode .setShaderUniforms (gl, this);
-			gl .uniform1i (this .x3d_FogCoord, geometryNode .fogCoords);
+         for (const localObject of context .localObjects)
+            localObject .setShaderUniforms (gl, this, renderObject);
 
-			// Alpha
+         gl .uniform1i (this .x3d_NumClipPlanes,         Math .min (this .numClipPlanes,         this .x3d_MaxClipPlanes));
+         gl .uniform1i (this .x3d_NumLights,             Math .min (this .numLights,             this .x3d_MaxLights));
+         gl .uniform1i (this .x3d_NumProjectiveTextures, Math .min (this .numProjectiveTextures, this .x3d_MaxTextures));
 
-			gl .uniform1f (this .x3d_AlphaCutoff, appearanceNode .alphaCutoff);
+         // Fog, there is always one
 
-			// Style
+         context .fogNode .setShaderUniforms (gl, this);
+         gl .uniform1i (this .x3d_FogCoord, geometryNode .fogCoords);
 
-			stylePropertiesNode .setShaderUniforms (gl, this);
+         // Alpha
 
-			// Material
+         gl .uniform1f (this .x3d_AlphaCutoff, appearanceNode .alphaCutoff);
 
-			gl .uniform1i (this .x3d_ColorMaterial, geometryNode .colorMaterial);
-			materialNode .setShaderUniforms (gl, this, front);
+         // Style
 
-			// Normal matrix
+         appearanceNode .stylePropertiesNode [geometryType] .setShaderUniforms (gl, this);
 
-			gl .uniformMatrix3fv (this .x3d_NormalMatrix, false, this .getNormalMatrix (modelViewMatrix));
+         // Material
 
-			// Texture
+         gl .uniform1i (this .x3d_ColorMaterial, geometryNode .colorMaterial);
+         materialNode .setShaderUniforms (gl, this, renderObject, appearanceNode .textureTransformMapping, geometryNode .textureCoordinateMapping, front);
 
-			if (textureNode)
-			{
-				textureNode           .setShaderUniforms (gl, this, context .renderer);
-				textureTransformNode  .setShaderUniforms (gl, this);
-				textureCoordinateNode .setShaderUniforms (gl, this);
-			}
-			else
-			{
-				gl .uniform1i (this .x3d_NumTextures, 0);
+         // Normal matrix
 
-				if (this .getCustom ())
-				{
-					textureTransformNode  .setShaderUniforms (gl, this);
-					textureCoordinateNode .setShaderUniforms (gl, this);
-				}
-			}
-		},
-		getNormalMatrix: (function ()
-		{
-			const normalMatrix = new Float32Array (9);
-
-			return function (modelViewMatrix)
-			{
-				try
-				{
-					normalMatrix [0] = modelViewMatrix [0], normalMatrix [3] = modelViewMatrix [1], normalMatrix [6] = modelViewMatrix [ 2],
-					normalMatrix [1] = modelViewMatrix [4], normalMatrix [4] = modelViewMatrix [5], normalMatrix [7] = modelViewMatrix [ 6],
-					normalMatrix [2] = modelViewMatrix [8], normalMatrix [5] = modelViewMatrix [9], normalMatrix [8] = modelViewMatrix [10];
-
-					Matrix3 .prototype .inverse .call (normalMatrix);
-
-					return normalMatrix;
-				}
-				catch (error)
-				{
-					normalMatrix .set (Matrix3 .Identity);
-
-					return normalMatrix;
-				}
-			};
-		})(),
-		enable: function (gl)
-		{
-			const browser = this .getBrowser ();
-
-			//console .log (this .getName ());
-			//console .log (browser .getCombinedTextureUnits () .length);
+         gl .uniformMatrix3fv (this .x3d_NormalMatrix, false, this .getNormalMatrix (modelViewMatrix));
 
-			this .textures .forEach (function (object, location)
-			{
-				const
-					name    = object .name,
-					texture = object .texture;
+         // Texture
 
-				if (! browser .getCombinedTextureUnits () .length)
-				{
-					console .warn ("Not enough combined texture units for uniform variable '" + name + "' available.");
-					return;
-				}
-
-				const textureUnit = object .textureUnit = browser .getCombinedTextureUnits () .pop ();
-
-				gl .uniform1i (location, textureUnit);
-				gl .activeTexture (gl .TEXTURE0 + textureUnit);
-				gl .bindTexture (texture .getTarget (), texture .getTexture ());
-			});
-
-			gl .activeTexture (gl .TEXTURE0);
-		},
-		disable: function (gl)
-		{
-			const browser = this .getBrowser ();
-
-			this .textures .forEach (function (object)
-			{
-				const textureUnit = object .textureUnit;
-
-				if (textureUnit !== undefined)
-					browser .getCombinedTextureUnits () .push (textureUnit);
-
-				object .textureUnit = undefined;
-			});
-
-			//console .log (browser .getCombinedTextureUnits () .length);
-		},
-		enableFloatAttrib: function (gl, name, buffer, components)
-		{
-			const location = gl. getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .enableVertexAttribArray (location);
-
-			gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
-			gl .vertexAttribPointer (location, components, gl .FLOAT, false, 0, 0);
-		},
-		disableFloatAttrib: function (gl, name)
-		{
-			const location = gl .getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .disableVertexAttribArray (location);
-		},
-		enableMatrix3Attrib: function (gl, name, buffer)
-		{
-			const location = gl .getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .enableVertexAttribArray (location);
-			gl .enableVertexAttribArray (location + 1);
-			gl .enableVertexAttribArray (location + 2);
-
-			gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
-
-			gl .vertexAttribPointer (location,     3, gl .FLOAT, false, 9 * 4, 3 * 4 * 0);
-			gl .vertexAttribPointer (location + 1, 3, gl .FLOAT, false, 9 * 4, 3 * 4 * 1);
-			gl .vertexAttribPointer (location + 2, 3, gl .FLOAT, false, 9 * 4, 3 * 4 * 2);
-		},
-		disableMatrix3Attrib: function (gl, name)
-		{
-			const location = gl .getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .disableVertexAttribArray (location);
-			gl .disableVertexAttribArray (location + 1);
-			gl .disableVertexAttribArray (location + 2);
-		},
-		enableMatrix4Attrib: function (gl, name, buffer)
-		{
-			const location = gl .getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .enableVertexAttribArray (location);
-			gl .enableVertexAttribArray (location + 1);
-			gl .enableVertexAttribArray (location + 2);
-			gl .enableVertexAttribArray (location + 3);
-
-			gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
-
-			gl .vertexAttribPointer (location,     4, gl .FLOAT, false, 16 * 4, 4 * 4 * 0);
-			gl .vertexAttribPointer (location + 1, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 1);
-			gl .vertexAttribPointer (location + 2, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 2);
-			gl .vertexAttribPointer (location + 3, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 3);
-		},
-		disableMatrix4Attrib: function (gl, name)
-		{
-			const location = gl .getAttribLocation (this .getProgram (), name);
-
-			if (location === -1)
-				return;
-
-			gl .disableVertexAttribArray (location);
-			gl .disableVertexAttribArray (location + 1);
-			gl .disableVertexAttribArray (location + 2);
-			gl .disableVertexAttribArray (location + 3);
-		},
-		enableFogDepthAttribute: function (gl, fogDepthBuffer)
-		{
-			gl .enableVertexAttribArray (this .x3d_FogDepth);
-			gl .bindBuffer (gl .ARRAY_BUFFER, fogDepthBuffer);
-			gl .vertexAttribPointer (this .x3d_FogDepth, 1, gl .FLOAT, false, 0, 0);
-		},
-		disableFogDepthAttribute: function (gl)
-		{
-			gl .disableVertexAttribArray (this .x3d_FogDepth);
-		},
-		enableColorAttribute: function (gl, colorBuffer)
-		{
-			gl .enableVertexAttribArray (this .x3d_Color);
-			gl .bindBuffer (gl .ARRAY_BUFFER, colorBuffer);
-			gl .vertexAttribPointer (this .x3d_Color, 4, gl .FLOAT, false, 0, 0);
-		},
-		disableColorAttribute: function (gl)
-		{
-			gl .disableVertexAttribArray (this .x3d_Color);
-		},
-		enableTexCoordAttribute: function (gl, texCoordBuffers, d)
-		{
-			const length = Math .min (this .x3d_MaxTextures, texCoordBuffers .length);
-
-			for (let i = 0; i < length; ++ i)
-			{
-				const x3d_TexCoord = this .x3d_TexCoord [i];
-
-				if (x3d_TexCoord === -1)
-					continue;
-
-				gl .enableVertexAttribArray (x3d_TexCoord);
-				gl .bindBuffer (gl .ARRAY_BUFFER, texCoordBuffers [i]);
-				gl .vertexAttribPointer (x3d_TexCoord, 4, gl .FLOAT, false, 0, 0);
-			}
-		},
-		disableTexCoordAttribute: function (gl)
-		{
-			for (let i = 0, length = this .x3d_MaxTextures; i < length; ++ i)
-			{
-				const x3d_TexCoord = this .x3d_TexCoord [i];
-
-				if (x3d_TexCoord === -1)
-					continue;
-
-				gl .disableVertexAttribArray (x3d_TexCoord);
-			}
-		},
-		enableNormalAttribute: function (gl, normalBuffer)
-		{
-			gl .enableVertexAttribArray (this .x3d_Normal);
-			gl .bindBuffer (gl .ARRAY_BUFFER, normalBuffer);
-			gl .vertexAttribPointer (this .x3d_Normal, 3, gl .FLOAT, false, 0, 0);
-		},
-		disableNormalAttribute: function (gl)
-		{
-			gl .disableVertexAttribArray (this .x3d_Normal);
-		},
-		enableVertexAttribute: function (gl, vertexBuffer)
-		{
-			gl .enableVertexAttribArray (this .x3d_Vertex);
-			gl .bindBuffer (gl .ARRAY_BUFFER, vertexBuffer);
-			gl .vertexAttribPointer (this .x3d_Vertex, 4, gl .FLOAT, false, 0, 0);
-		},
-		disableVertexAttribute: function (gl)
-		{
-			gl .disableVertexAttribArray (this .x3d_Vertex);
-		},
-		setParticle: function (gl, particle, modelViewMatrix)
-		{
-			gl .uniformMatrix4fv (this .x3d_ModelViewMatrix, false, modelViewMatrix);
-
-			gl .uniform1i (this .x3d_ParticleId,          particle .id);
-			gl .uniform1i (this .x3d_ParticleLife,        particle .life);
-			gl .uniform1f (this .x3d_ParticleElapsedTime, particle .elapsedTime / particle .lifetime);
-		},
-		getProgramInfo: function ()
-		{
-			function cmp (lhs, rhs) { return lhs < rhs ? -1 : lhs > rhs ? 1 : 0; }
-
-			const
-				gl      = this .getBrowser () .getContext (),
-				program = this .getProgram ();
-
-			const
-				result = {
-					attributes: [ ],
-					uniforms: [ ],
-					attributeCount: 0,
-					uniformCount: 0,
-				},
-				activeUniforms   = gl .getProgramParameter (program, gl.ACTIVE_UNIFORMS),
-				activeAttributes = gl .getProgramParameter (program, gl.ACTIVE_ATTRIBUTES);
-
-			// Taken from the WebGl spec:
-			// http://www.khronos.org/registry/webgl/specs/latest/1.0/#5.14
-			const enums = {
-				0x8B50: 'vec2',
-				0x8B51: 'vec3',
-				0x8B52: 'vec4',
-				0x8B53: 'ivec2',
-				0x8B54: 'ivec3',
-				0x8B55: 'ivec4',
-				0x8B56: 'bool',
-				0x8B57: 'bvec2',
-				0x8B58: 'bvec3',
-				0x8B59: 'bvec4',
-				0x8B5A: 'mat2',
-				0x8B5B: 'mat3',
-				0x8B5C: 'mat4',
-				0x8B5E: 'sampler2D',
-				0x8B60: 'samplerCube',
-				0x1400: 'byte',
-				0x1401: 'ubyte',
-				0x1402: 'short',
-				0x1403: 'ushort',
-				0x1404: 'int',
-				0x1405: 'uint',
-				0x1406: 'float',
-			};
-
-			// Loop through active uniforms
-			for (let i = 0; i < activeUniforms; ++ i)
-			{
-				const uniform = gl .getActiveUniform (program, i);
-				uniform .typeName = enums [uniform.type];
-				result .uniforms .push (Object .assign ({ }, uniform));
-				result .uniformCount += uniform .size;
-			}
-
-			// Loop through active attributes
-			for (let i = 0; i < activeAttributes; ++ i)
-			{
-				const attribute = gl .getActiveAttrib (program, i);
-				attribute .typeName = enums [attribute .type];
-				result .attributes .push (Object .assign ({ }, attribute));
-				result .attributeCount += attribute .size;
-			}
-
-			result .uniforms   .sort (function (a, b) { return cmp (a .name, b .name); });
-			result .attributes .sort (function (a, b) { return cmp (a .name, b .name); });
-
-			return result;
-		},
-		printProgramInfo: function ()
-		{
-			const programInfo = this .getProgramInfo ();
-
-			console .log (this .getName ());
-			console .table (programInfo .attributes);
-			console .log (this .getName (), "attributeCount", programInfo .attributeCount);
-			console .log (this .getName ());
-			console .table (programInfo .uniforms);
-			console .log (this .getName (), "uniformCount", programInfo .uniformCount);
-		},
-	};
-
-	return X3DProgrammableShaderObject;
+         if (textureNode)
+            textureNode .setShaderUniforms (gl, this, renderObject);
+         else
+            gl .uniform1i (this .x3d_NumTextures, 0);
+
+         appearanceNode .textureTransformNode .setShaderUniforms (gl, this);
+         geometryNode .textureCoordinateNode .setShaderUniforms (gl, this);
+      },
+      getNormalMatrix: (function ()
+      {
+         const normalMatrix = new Float32Array (9);
+
+         return function (modelViewMatrix)
+         {
+            try
+            {
+               normalMatrix [0] = modelViewMatrix [0], normalMatrix [3] = modelViewMatrix [1], normalMatrix [6] = modelViewMatrix [ 2],
+               normalMatrix [1] = modelViewMatrix [4], normalMatrix [4] = modelViewMatrix [5], normalMatrix [7] = modelViewMatrix [ 6],
+               normalMatrix [2] = modelViewMatrix [8], normalMatrix [5] = modelViewMatrix [9], normalMatrix [8] = modelViewMatrix [10];
+
+               Matrix3 .prototype .inverse .call (normalMatrix);
+
+               return normalMatrix;
+            }
+            catch (error)
+            {
+               normalMatrix .set (Matrix3 .Identity);
+
+               return normalMatrix;
+            }
+         };
+      })(),
+      enable: function (gl)
+      {
+         const browser = this .getBrowser ();
+
+         for (const [location, object] of this .textures)
+         {
+            const
+               texture     = object .texture,
+               textureUnit = browser .getTextureUnit (texture .getTextureType ());
+
+            if (textureUnit === undefined)
+            {
+               console .warn ("Not enough combined texture units for uniform variable '" + object .name + "' available.");
+               return;
+            }
+
+            gl .activeTexture (gl .TEXTURE0 + textureUnit);
+            gl .bindTexture (texture .getTarget (), texture .getTexture ());
+            gl .uniform1i (location, textureUnit);
+         }
+      },
+      enableFloatAttrib: function (gl, name, buffer, components)
+      {
+         const location = gl. getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .enableVertexAttribArray (location);
+
+         gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
+         gl .vertexAttribPointer (location, components, gl .FLOAT, false, 0, 0);
+      },
+      disableFloatAttrib: function (gl, name)
+      {
+         const location = gl .getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .disableVertexAttribArray (location);
+      },
+      enableMatrix3Attrib: function (gl, name, buffer)
+      {
+         const location = gl .getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .enableVertexAttribArray (location);
+         gl .enableVertexAttribArray (location + 1);
+         gl .enableVertexAttribArray (location + 2);
+
+         gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
+
+         gl .vertexAttribPointer (location,     3, gl .FLOAT, false, 9 * 4, 3 * 4 * 0);
+         gl .vertexAttribPointer (location + 1, 3, gl .FLOAT, false, 9 * 4, 3 * 4 * 1);
+         gl .vertexAttribPointer (location + 2, 3, gl .FLOAT, false, 9 * 4, 3 * 4 * 2);
+      },
+      disableMatrix3Attrib: function (gl, name)
+      {
+         const location = gl .getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .disableVertexAttribArray (location);
+         gl .disableVertexAttribArray (location + 1);
+         gl .disableVertexAttribArray (location + 2);
+      },
+      enableMatrix4Attrib: function (gl, name, buffer)
+      {
+         const location = gl .getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .enableVertexAttribArray (location);
+         gl .enableVertexAttribArray (location + 1);
+         gl .enableVertexAttribArray (location + 2);
+         gl .enableVertexAttribArray (location + 3);
+
+         gl .bindBuffer (gl .ARRAY_BUFFER, buffer);
+
+         gl .vertexAttribPointer (location,     4, gl .FLOAT, false, 16 * 4, 4 * 4 * 0);
+         gl .vertexAttribPointer (location + 1, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 1);
+         gl .vertexAttribPointer (location + 2, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 2);
+         gl .vertexAttribPointer (location + 3, 4, gl .FLOAT, false, 16 * 4, 4 * 4 * 3);
+      },
+      disableMatrix4Attrib: function (gl, name)
+      {
+         const location = gl .getAttribLocation (this .getProgram (), name);
+
+         if (location === -1)
+            return;
+
+         gl .disableVertexAttribArray (location);
+         gl .disableVertexAttribArray (location + 1);
+         gl .disableVertexAttribArray (location + 2);
+         gl .disableVertexAttribArray (location + 3);
+      },
+      enableFogDepthAttribute: function (gl, fogDepthBuffer)
+      {
+         gl .enableVertexAttribArray (this .x3d_FogDepth);
+         gl .bindBuffer (gl .ARRAY_BUFFER, fogDepthBuffer);
+         gl .vertexAttribPointer (this .x3d_FogDepth, 1, gl .FLOAT, false, 0, 0);
+      },
+      disableFogDepthAttribute: function (gl)
+      {
+         gl .disableVertexAttribArray (this .x3d_FogDepth);
+      },
+      enableColorAttribute: function (gl, colorBuffer)
+      {
+         gl .enableVertexAttribArray (this .x3d_Color);
+         gl .bindBuffer (gl .ARRAY_BUFFER, colorBuffer);
+         gl .vertexAttribPointer (this .x3d_Color, 4, gl .FLOAT, false, 0, 0);
+      },
+      disableColorAttribute: function (gl)
+      {
+         gl .disableVertexAttribArray (this .x3d_Color);
+      },
+      enableTexCoordAttribute: function (gl, texCoordBuffers, d)
+      {
+         const length = Math .min (this .x3d_MaxTextures, texCoordBuffers .length);
+
+         for (let i = 0; i < length; ++ i)
+         {
+            const x3d_TexCoord = this .x3d_TexCoord [i];
+
+            if (x3d_TexCoord === -1)
+               continue;
+
+            gl .enableVertexAttribArray (x3d_TexCoord);
+            gl .bindBuffer (gl .ARRAY_BUFFER, texCoordBuffers [i]);
+            gl .vertexAttribPointer (x3d_TexCoord, 4, gl .FLOAT, false, 0, 0);
+         }
+      },
+      disableTexCoordAttribute: function (gl)
+      {
+         for (let i = 0, length = this .x3d_MaxTextures; i < length; ++ i)
+         {
+            const x3d_TexCoord = this .x3d_TexCoord [i];
+
+            if (x3d_TexCoord === -1)
+               continue;
+
+            gl .disableVertexAttribArray (x3d_TexCoord);
+         }
+      },
+      enableNormalAttribute: function (gl, normalBuffer)
+      {
+         gl .enableVertexAttribArray (this .x3d_Normal);
+         gl .bindBuffer (gl .ARRAY_BUFFER, normalBuffer);
+         gl .vertexAttribPointer (this .x3d_Normal, 3, gl .FLOAT, false, 0, 0);
+      },
+      disableNormalAttribute: function (gl)
+      {
+         gl .disableVertexAttribArray (this .x3d_Normal);
+      },
+      enableVertexAttribute: function (gl, vertexBuffer)
+      {
+         gl .enableVertexAttribArray (this .x3d_Vertex);
+         gl .bindBuffer (gl .ARRAY_BUFFER, vertexBuffer);
+         gl .vertexAttribPointer (this .x3d_Vertex, 4, gl .FLOAT, false, 0, 0);
+      },
+      disableVertexAttribute: function (gl)
+      {
+         gl .disableVertexAttribArray (this .x3d_Vertex);
+      },
+      setParticle: function (gl, particle, modelViewMatrix)
+      {
+         gl .uniformMatrix4fv (this .x3d_ModelViewMatrix, false, modelViewMatrix);
+
+         gl .uniform1i (this .x3d_ParticleId,          particle .id);
+         gl .uniform1i (this .x3d_ParticleLife,        particle .life);
+         gl .uniform1f (this .x3d_ParticleElapsedTime, particle .elapsedTime / particle .lifetime);
+      },
+      getProgramInfo: function ()
+      {
+         function cmp (lhs, rhs) { return lhs < rhs ? -1 : lhs > rhs ? 1 : 0; }
+
+         const
+            gl      = this .getBrowser () .getContext (),
+            program = this .getProgram ();
+
+         const
+            result = {
+               attributes: [ ],
+               uniforms: [ ],
+               attributeCount: 0,
+               uniformCount: 0,
+            },
+            activeUniforms   = gl .getProgramParameter (program, gl.ACTIVE_UNIFORMS),
+            activeAttributes = gl .getProgramParameter (program, gl.ACTIVE_ATTRIBUTES);
+
+         // Taken from the WebGl spec:
+         // http://www.khronos.org/registry/webgl/specs/latest/1.0/#5.14
+         const enums = {
+            0x8B50: 'vec2',
+            0x8B51: 'vec3',
+            0x8B52: 'vec4',
+            0x8B53: 'ivec2',
+            0x8B54: 'ivec3',
+            0x8B55: 'ivec4',
+            0x8B56: 'bool',
+            0x8B57: 'bvec2',
+            0x8B58: 'bvec3',
+            0x8B59: 'bvec4',
+            0x8B5A: 'mat2',
+            0x8B5B: 'mat3',
+            0x8B5C: 'mat4',
+            0x8B5E: 'sampler2D',
+            0x8B60: 'samplerCube',
+            0x1400: 'byte',
+            0x1401: 'ubyte',
+            0x1402: 'short',
+            0x1403: 'ushort',
+            0x1404: 'int',
+            0x1405: 'uint',
+            0x1406: 'float',
+         };
+
+         // Loop through active uniforms
+         for (let i = 0; i < activeUniforms; ++ i)
+         {
+            const uniform = gl .getActiveUniform (program, i);
+            uniform .typeName = enums [uniform.type];
+            result .uniforms .push (Object .assign ({ }, uniform));
+            result .uniformCount += uniform .size;
+         }
+
+         // Loop through active attributes
+         for (let i = 0; i < activeAttributes; ++ i)
+         {
+            const attribute = gl .getActiveAttrib (program, i);
+            attribute .typeName = enums [attribute .type];
+            result .attributes .push (Object .assign ({ }, attribute));
+            result .attributeCount += attribute .size;
+         }
+
+         result .uniforms   .sort (function (a, b) { return cmp (a .name, b .name); });
+         result .attributes .sort (function (a, b) { return cmp (a .name, b .name); });
+
+         return result;
+      },
+      printProgramInfo: function ()
+      {
+         const programInfo = this .getProgramInfo ();
+
+         console .log (this .getName ());
+         console .table (programInfo .attributes);
+         console .log (this .getName (), "attributeCount", programInfo .attributeCount);
+         console .log (this .getName ());
+         console .table (programInfo .uniforms);
+         console .log (this .getName (), "uniformCount", programInfo .uniformCount);
+      },
+   };
+
+   return X3DProgrammableShaderObject;
 });