-- Author: maurits/plasticsfuture.org 2003
-- License: public domain

-- Sets background color of all open Terminal windows
-- to a random light pastel color
-- Apply repeatedly if you don't like the result.


tell application "Terminal"
	set transp to -4844
	set clr to 256 * 30
	repeat with w in every window
		set clrr to clr
		set clrg to clr
		set clrb to clr
		set n to random number
		if n < 0.33 then
			set clrr to 2 * clrr
		else if n < 0.66 then
			set clrg to 2 * clrr
		else
			set clrb to 2 * clrr
		end if
		set r to -1 - clrr * (random number)
		set g to -1 - clrg * (random number)
		set b to -1 - clrb * (random number)
		
		set c to {r, g, b, transp}
		set background color of w to c
	end repeat
end tell