Source position: ctgl.pas line 8469
type TglUniform4d = procedure(
location: GLint;
x: GLdouble;
y: GLdouble;
z: GLdouble;
w: GLdouble
);