DwsShader.dpr 458 B

123456789101112131415161718192021
  1. (* Scripting a Shader with DelphiWebScriptII
  2. A very simple example of how the GLUserShader and scripting
  3. components can be used to build a scripted material shader.
  4. The Tdws2OpenGLxUnit requires the Tdws2VectorGeometryUnit to be
  5. associated with the script.
  6. *)
  7. program DwsShader;
  8. uses
  9. Vcl.Forms,
  10. DwsShaderFm in 'DwsShaderFm.pas';
  11. {$R *.res}
  12. begin
  13. Application.Initialize;
  14. Application.CreateForm(TForm1, Form1);
  15. Application.Run;
  16. end.