Splines.dpr 609 B

1234567891011121314151617181920212223
  1. (*
  2. This is a quick demo for the TGLLines object and spline functionality.
  3. TGLLines can handle normal lines and cubic splines, each node can have a
  4. different color, and the line can be color-interpolated.
  5. Note that the camera in this sample is in <i>orthogonal</i> mode, this makes
  6. for a quick and easy way to work in 2D with OpenGL (try switching the camera
  7. to perpective mode if you don't see the point).
  8. *)
  9. program Splines;
  10. uses
  11. Forms,
  12. fSplines in 'fSplines.pas' {Form1};
  13. {$R *.RES}
  14. begin
  15. Application.Initialize;
  16. Application.CreateForm(TForm1, Form1);
  17. Application.Run;
  18. end.