Sometime in 1995, me and a friend of mine created a program called Atom in QBasic during one of our weekly computer-nerd meetups. The principle of the program is simple; atoms smash into one another creating even more atoms. Atom creates very interesting results despite its simplicity, and we wasted a considerable amount of time watching atom collisions and modifying parameters back in the day.
ATOM.BAS running in QuickBasic 4.5 inside DOSBox
It would be next to impossible not to tinker with the program and trying out some new ideas at this point. This updated version has the following new features:
- Atoms have floating point directions
- Atoms continuously loose a little speed
- Atoms have a limited lifespan, they disappear after involvment in 2 collisions
Updated version of Atom
Give it a few spins! The program is restarted by simply clicking on the canvas. Feel free to copy the code from the page source and modify it in any way you se fit—as long as you share it with me :)
Ugly code disclaimer: The first version is more or less ported line-by-line from the 1995 QBasic program.