DuckyD.dpr 705 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 DuckyD;
  12. uses
  13. Forms,
  14. fDuckyD in 'fDuckyD.pas' {FormDucky};
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.CreateForm(TFormDucky, FormDucky);
  19. Application.Run;
  20. end.