Source position: ctgl.pas line 10000
type TglProgramUniform1fEXT = procedure(
program_: GLuint;
location: GLint;
v0: GLfloat
);