Option Explicit
' Original file written and copyright DAVID RUTTEN - http://www.reconstructivism.net/
'
'Display an updating digital clock in all viewports
'
'
'!!!!!!!!
' NOTE: - the clock requires	>> SHADED VIEW << to be able to see it.
'!!!!!!!!
'
'
ViewportClock()
Sub ViewportClock()
	Dim strTextObjectID

	strTextObjectID = Rhino.AddText(CStr(Time()), Array(0,0,0), 50)
	If IsNull(strTextObjectID) Then Exit Sub
	Do
		Call Rhino.Sleep(1000)
		Call Rhino.TextObjectText(strTextObjectID, CStr(Time()))
	Loop
End Sub