Ducky.dpr 702 B

12345678910111213141516171819202122232425
  1. {: Loading NURBS into a GLScene FreeForm/Actor object
  2. A very simple parametric model of a duck, comprised of 3 NURBS
  3. surfaces. The Nurbs format is essentially the NurbsSurface geometry
  4. type used in VRML. One limitation at the moment is the Control points
  5. must each be on a separate line. Inverted surfaces are handled with
  6. the ccw FALSE statement in the .nurbs file (duck3.nurbs uses this
  7. setting).
  8. Use the resolution slider to increase or decrease the models triangle
  9. count dynamically.
  10. }
  11. program Ducky;
  12. uses
  13. Forms,
  14. fDucky in 'fDucky.pas' {FormDucky};
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.CreateForm(TFormDucky, FormDucky);
  19. Application.Run;
  20. end.