function CreatePentagram(xs,ys,distance,effModel)
	local PentaPoint={}
	local pa=360/5--72
	local eff={}
	for i=1,5 do
		PentaPoint[i]={x=0,y=0}
		PentaPoint[i].x,PentaPoint[i].y=MoveXY(xs,ys,distance,pa*i)
	end

	for i=1,5 do
		local k=i+2
		if k>5 then
			k=k-5
		end
		eff[i]=CreateEffectLighting3D(PentaPoint[i].x,PentaPoint[i].y,350,PentaPoint[k].x,PentaPoint[k].y,350,60,effModel)
		print(#eff[i])
	end
	local a=0

	TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
		--pa=pa+2
		a=a+1
		for i=1,5 do
			PentaPoint[i]={x=0,y=0}
			PentaPoint[i].x,PentaPoint[i].y=MoveXY(xs,ys,distance,(pa*i)+a)
		end
		for i=1,5 do
			local k=i+2
			if k>5 then
				k=k-5
			end
			MoveEffectLighting3D(PentaPoint[i].x,PentaPoint[i].y,350,PentaPoint[k].x,PentaPoint[k].y,350,60,eff[i],#eff[i],true)
		end
	end)
end

function CreateAndStartClock()
	local charges= BlzCreateFrameByType("BACKDROP", "Face", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), "", 0)
	local new_FrameChargesText = BlzCreateFrameByType("TEXT", "ButtonChargesText", charges, "", 0)
	BlzFrameSetTexture(charges, "ChargesTexture.blp", 0, true)
	BlzFrameSetSize(charges, 0.08, 0.02)
	BlzFrameSetAbsPoint(charges, FRAMEPOINT_CENTER,0.4-0.02 , 0.6-0.02)
	BlzFrameSetText(new_FrameChargesText, Zero(0)..":"..Zero(0)..":"..Zero(0))
	BlzFrameSetPoint(new_FrameChargesText, FRAMEPOINT_CENTER, charges, FRAMEPOINT_CENTER, 0.,0.)
	local sec=0
	local min=0
	local h=0
	TimerStart(CreateTimer(), 1, true, function()
		sec=sec+1
		if sec==60 then
			sec=0
			min=min+1
		end
		if min==60 then
			min=0
			h=h+1
		end
		BlzFrameSetText(new_FrameChargesText, Zero(h)..":"..Zero(min)..":"..Zero(sec))
	end)
end

function Zero(s)
	local ns=""
	if string.len(s)==1 then
		ns="0"..s
	else
		ns=s
	end
	return ns
end