This demo is now [available][1] as an entity in the Wolfram Demonstration project.
ResourceData["Demonstration: Thales's Theorem in an Ellipse"]
![tte][2]
The ResourceData is a great way to access Demonstrations which I have not seen before. It should be mentioned on the demonstrations project website.
I cant resist to illustrate with one of my own efforts:
ResourceData["Demonstration: Celestial Sphere Basics"]
-- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!