PhongD.dpr 448 B

123456789101112131415161718192021
  1. {: Per-Pixel phong shading demo.
  2. The TGLPhongShader implements phong shading through the use of an
  3. ARB vertex and fragment program. So far only the material and light
  4. properties are supported, some form of texture support will be
  5. added in future updates.
  6. }
  7. program PhongD;
  8. uses
  9. Forms,
  10. fPhongD in 'fPhongD.pas' {Form1};
  11. {$R *.res}
  12. begin
  13. Application.Initialize;
  14. Application.CreateForm(TForm1, Form1);
  15. Application.Run;
  16. end.