Source position: GLRandomHDS.pas line 131
type TSingleClamp = procedure(
var x: Single;
var y: Single
) of object;