A torus, in geometry, is a surface having genus one possessing a single "hole". Torus is generated by revolving a circle in three dimensional space.
Want to see how torus looks like? Want to learn how to animate it using Delphi code?
A great idea for the Fancy Delphi Application Contest ;-)
Torus DrawingHere's the general algorithm:
"Torus drawing" draws torus like shapes on a Delphi form using a TTimer. Each timer cycle a new position of the shapes is drawn. Set the number of shapes to be displayed .. an enjoy.
Calculate all the places. ( to Current Places ) Draw the shapes ( using Current Places ) While ( esc not pressed ) do Begin Remember all the places. ( Old places := Currnet Places ) Calculate all the places. ( to Current Places ) Un-Draw the shapes ( using Old Places ) Draw the shapes ( using Current Places ) End;
"Torus Drawing" was submitted by John Pears.
Do you have a FDA(C)? Submit your Delphi code to the Fancy Delphi Application Contest.