Binary clock

BinClock.ahk

On := "●"
Off := "○"
Blank := " "

Gui, Color, Black
Gui, font, s12 cRed, Courier New
Gui, Add, Text, vDisplay, % MakeDisplay(On, Off, Blank)
Gui, +ToolWindow +E0x40000 +AlwaysOnTop
Gui, Show,, BinClock
SetTimer, UpdateDisplay, 1000
return

UpdateDisplay:
GuiControl, Text, Display, % MakeDisplay(On, Off, Blank)
return

GuiClose:
ExitApp
return

MakeDisplay(On, Off, Blank, Stamp="")
{
	FormatTime, T, %Stamp%, HH:mm:ss
	T := StrSplit(T), LedMask := 0xFE0FE0FC
	Loop, 4
	{
		y := A_Index, Out .= "`n"
		Loop, 8
			Out .= !(LedMask & 1<<A_Index*4+y-5) ? Blank : (T[A_Index] & 1<<4-y) ? On : Off
	}
	return SubStr(Out, 2)
}