Torus Drawing

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 ;-)

Rate this FDAC Entry!

Torus Drawing

Here's the general algorithm:

 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" 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.

"Torus Drawing" was submitted by John Pears.

Do you have a FDA(C)? Submit your Delphi code to the Fancy Delphi Application Contest.