If you are interested, I have combined the gravitation code into the InForm Gravitation program. If you run this preliminary code, the only working buttons are Execute/Stop & Exit. Pressing Execute will start the Solar System moving, the initial data are taken from JPL Ephemeris data of 07 Jun 2013, and then all motions are by Newtonian gravity. The sun (yellow) is in the centre and moves but little, Mercury is grey/blue, Venus is orangy, the Earth is the Blue Planet moving along with the grey/yellow Moon, and Mars is red (of course!). Jupiter is pinky/white and her moon Elarus spirals around her. Saturn is grey, Uranus light blue and Neptune royal blue. Pluto is in the system but can't be seen in this view as she is too far out and at a large angle to the ecliptic. After about 7 minutes (dependent upon machine speed), Uranus completes one revolution and Neptune reappears in the distance. Isn't Mr. Newton a marvel?
I now have to complete all the InForm side of the project, so there is proper user input: setting all parameters and scenarios. Thanks, Fellippe, I'll look into your efficient array handling method. This will be a Captain Oates project (I may be some time).
The calculations run slower than outside InForm (I believe). I'll investigate by how much. The final graphics will have displayed size dependent upon perspective distance (size is not related to actual body size). If only we have _MAPTRIANGLE(3D), it would do all that automatically! The graphics sit beautifully behind the InForm controls. I say, again, it is a marvel Fellippe.
Richard