Making Bars

This little graphics generator is based on a pretty simple concept.  It takes a swath of vertical space and randomly assigns it one of four types:

• Color is a random shade of grey.
• Pair is two equal-sized swaths.
• Dupe is a pair of equal-sized swaths with the same content.
• Swirl is two equal-sized swaths, twisted together.

It's partially inspired by Boodler, a "soundscape" tool that can, among other things, generate random mutating drum rhythms with (what I think is) a similar technique.  It's also kind of inspired by the moodbar in Amarok; I started out imagining the images as being much narrower, and completely 1-dimensional.

Object-orientation in Ada is, as I may have hinted earlier, powerful but has confusing syntax.  And this is from someone who writes in C++ for a living.  I guess that it's not fair to do this to Ada: it only has a few days, and I've been learning C++, on and off, for the last six years or so.  (It feels like longer.)  I wonder how much it matters how learnable a language is?  Consider that languages with enthusiastic user communities are often said (albeit by those same communities) to be good first languages for new programmers (I'm thinking of Smalltalk, Python, and Scheme, here).