Some like 'em, some don't. I kind of do. Those "abstract art" pictures people set as their desktop backgrounds. I think I figured out how they make those today. They use something like Cairo. The throw together a code snippet like this:

window := ApplicationWindow new.

random := Random new.

vb := VisualBlock block:

		[:gc :box | 

		gc newCairoContextWhile:

				[:cr | 

				cr groupWhile:

						[cr scale: window bounds extent.

						10 timesRepeat:

								[| source |

								random next < 0.1 ifTrue:

										[source := LinearGradient from: random next @ random next to: random next @ random next.

										source addStopAt: 0

											red: random next

											green: random next

											blue: random next

											alpha: random next squared * 0.25.

										source addStopAt: 1

											red: random next

											green: random next

											blue: random next

											alpha: random next squared * 0.25.

										source extend: ExtendStyle pad]

									ifFalse:

										[source := RadialGradient from: random next @ random next

											radius: random next / 2

											to: random next @ random next

											radius: random next + random next.

										source addStopAt: 0

											red: random next

											green: random next

											blue: random next

											alpha: (random next squared min: 0.5).

										source addStopAt: 1

											red: random next

											green: random next

											blue: random next

											alpha: (random next squared ).

										source extend: ExtendStyle reflect].

								cr

									source: source;

									paint]].

				cr paint]].

window component: vb.

window openWithExtent: 1400 @ 900

Then they just sit back and refresh the window, and wait for the pretty ones to go by, save this off to disk.