Subdivide.dpr 466 B

12345678910111213141516171819
  1. (*
  2. Early mesh subdivision refinement demo.
  3. Yes, it's slow, the edge data construction is not optimized, and the MD2
  4. format isn't really suited for refinement (that's approx 200 frames we have
  5. to subdivide and keep in memory... but it's good for benchmarking!).
  6. *)
  7. program Subdivide;
  8. uses
  9. Forms,
  10. fSubdivide in 'fSubdivide.pas';
  11. {$R *.res}
  12. begin
  13. Application.Initialize;
  14. Application.CreateForm(TFormSubdivide, FormSubdivide);
  15. Application.Run;
  16. end.