@name
@inputs
@outputs
@persist Base:entity Center:vector ZMin ZSec ZHour Adj ZMS ClockRadius
@trigger
if(first()|dupefinished()){
Base = entity():isWeldedTo()
Center = Base:boxCenter()
ClockRadius = 20
ZT = 4
X = 0
holoCreate(1+X)
holoCreate(2+X)
holoModel(1+X,"hq_cone")
holoModel(2+X,"hq_cylinder")
ZLen = ClockRadius*0.90
Col = vec(0)
holoScaleUnits(X+1,vec(1*ZT,1*ZT,ZLen))
holoScaleUnits(X+2,vec(1,1,1)*ZT)
holoAng(X+1,entity():toWorld(ang(0,-90,90)))
holoPos(X+1,entity():toWorld(vec(-ZLen/2,0,0)))
holoPos(X+2,entity():toWorld(vec(0)))
holoAng(X+2,entity():toWorld(ang(0)))
holoColor(X+1,Col)
holoColor(X+2,Col)
holoParent(X+1,2+X)
holoParent(X+2,entity())
ZMin = X+2
X += 2
holoCreate(1+X)
holoCreate(2+X)
holoModel(1+X,"hq_cone")
holoModel(2+X,"hq_cylinder")
ZLen = ClockRadius*0.95
Col = vec(170,0,0)
holoScaleUnits(X+1,vec(0.5*ZT,1*ZT,ZLen))
holoScaleUnits(X+2,vec(0.5,0.5,1)*ZT)
holoAng(X+1,entity():toWorld(ang(0,-90,90)))
holoPos(X+1,entity():toWorld(vec(-ZLen/2,0,0)))
holoPos(X+2,entity():toWorld(vec(0)))
holoAng(X+2,entity():toWorld(ang(0)))
holoColor(X+1,Col)
holoColor(X+2,Col)
holoParent(X+1,2+X)
holoParent(X+2,entity())
ZSec = X+2
X += 2
holoCreate(1+X)
holoCreate(2+X)
holoModel(1+X,"hq_cone")
holoModel(2+X,"hq_cylinder")
ZLen = ClockRadius*0.60
Col = vec(0)
holoScaleUnits(X+1,vec(1*ZT,1*ZT,ZLen))
holoScaleUnits(X+2,vec(1,1,1)*ZT)
holoAng(X+1,entity():toWorld(ang(0,-90,90)))
holoPos(X+1,entity():toWorld(vec(-ZLen/2,0,0)))
holoPos(X+2,entity():toWorld(vec(0)))
holoAng(X+2,entity():toWorld(ang(0,0,0)))
holoColor(X+1,Col)
holoColor(X+2,Col)
holoParent(X+1,2+X)
holoParent(X+2,entity())
ZHour = X+2
X += 2

X++
holoCreate(X)
holoModel(X,"hq_cylinder")
holoScaleUnits(X,vec(2))
holoColor(X,vec(255,0,0))
local A = 45
local L = ClockRadius
holoPos(X,entity():toWorld(Center+vec(-sin(90+A)*L,-cos(A+90)*L,0)))
ZMS = X

}


Sec = time("sec")
if(changed(Sec))
{
    Adj = systime()
}
holoAng(ZSec,entity():toWorld(ang(0,-(Sec+systime()-Adj)/60*360,0)))
Min = time("min") + Sec/60
holoAng(ZMin,entity():toWorld(ang(0,-Min/60*360,0)))
Hour = time("hour") + Min/60
holoAng(ZHour,entity():toWorld(ang(0,-Hour/12*360,0)))

local A = (systime()-Adj)*360
local L = ClockRadius*0.90
holoPos(ZMS,entity():toWorld(Center+vec(-sin(90+A)*L,-cos(A+90)*L,0)))
interval(10)