function PowaAuras:CalculateDurations(speed)
	-- speed ranges       from  0.05  to 2
	-- First  duration is then  1.225 to 0.25
	-- Second duration is then 30     to 0.25
	return 1.25 - speed / 2, 1.526 / math.max(speed,0.05) - 0.513;
end

function PowaAuras:AddBeginAnimation(aura, frame)
	--PowaAuras:ShowText("AddBeginAnimation begin=", aura.begin);
	if (not aura.begin or aura.begin==PowaAuras.AnimationBeginTypes.None) then
		return nil;
	end
	
	local animationGroup = frame:CreateAnimationGroup("Begin");
	animationGroup.aura = aura;
	
	--animationGroup:SetScript("OnPlay",
	--function(self)
	--	local aura = self.aura;
	--	PowaAuras:ShowText("Begin OnPlay ", self:GetName(), " aura=", aura.id);
	--end);
	animationGroup:SetScript("OnFinished",
	function(self, forced)
		local aura = self.aura;
		--PowaAuras:ShowText("Begin OnFinished ", self:GetName(), " forced=", forced, " aura=", aura.id);
		if (aura and aura.MainAnimation) then
			aura.MainAnimation:Play();
			local secondaryAura = PowaAuras.SecondaryAuras[aura.id];
			if (secondaryAura) then
				local secondaryFrame = PowaAuras.SecondaryFrames[aura.id];
				if (secondaryFrame) then
					secondaryFrame:Show(); -- Show Secondary Aura Frame
					if (secondaryAura.MainAnimation) then
						secondaryAura.MainAnimation:Play();
					end
				end
			end
		end
	end);
	
	local duration, duration2 = self:CalculateDurations(aura.speed);
	
	--PowaAuras:ShowText("AddBeginAnimation duration=", duration, " speed=", aura.speed);
	if (aura.begin~=PowaAuras.AnimationBeginTypes.Bounce) then
		self:AddJumpAlphaAndReturn(animationGroup, -math.min(aura.alpha,0.99), duration, PowaMisc.AnimationFps, 1);
	end
	if (aura.begin==PowaAuras.AnimationBeginTypes.ZoomOut) then
		self:AddJumpScaleAndReturn(animationGroup, 0.5, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.ZoomIn) then
		self:AddJumpScaleAndReturn(animationGroup, 1.5, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.FadeIn) then
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateLeft) then
		self:AddJumpTranslateAndReturn(animationGroup, -100, 0, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateTopLeft) then
		self:AddJumpTranslateAndReturn(animationGroup, -75,75, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateTop) then
		self:AddJumpTranslateAndReturn(animationGroup, 0, 100, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateTopRight) then
		self:AddJumpTranslateAndReturn(animationGroup, 75, 75, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateRight) then
		self:AddJumpTranslateAndReturn(animationGroup, 100, 0, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateBottomRight) then
		self:AddJumpTranslateAndReturn(animationGroup, 75, -75, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateBottom) then
		self:AddJumpTranslateAndReturn(animationGroup, 0, -100, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.TranslateBottomLeft) then
		self:AddJumpTranslateAndReturn(animationGroup, -75, -75, duration, PowaMisc.AnimationFps, 1);
	elseif (aura.begin==PowaAuras.AnimationBeginTypes.Bounce) then
		self:AddAlpha(animationGroup, math.min(aura.alpha,0.99), 0, 0, 1);
		local u = 0;
		local height = 100;
		local efficiency = 0.6;
		local a = 800 * aura.speed;
		self:AddTranslation(animationGroup,  0,  height, 0, 0, 1);
		local steps = 6;
		local dT = math.sqrt(2*height/a);
		local dt = dT / steps;
		local ds = {};
		for i = 1, steps do
			ds[i] = (u*dt+a*dt*dt/2) / height;
			u = u + a*dt;
			--self:ShowText(i, " ", ds[i]);
		end
		--self:ShowText("========");
		local order = animationGroup:GetMaxOrder()+1;
		while (height>2) do
			if (height<100) then
				--self:ShowText("=UP=");
				for i = 1, steps do
					--self:ShowText(order, " ", i, " ", ds[steps-i+1] * height);
					self:AddTranslation(animationGroup, 0, ds[steps-i+1] * height, dt, PowaMisc.AnimationFps, order);
					order = order + 1;
				end
			end
			--self:ShowText("=DOWN=");
			for i = 1, steps do
				--self:ShowText(order, " ", i, " ", -ds[i] * height);
				self:AddTranslation(animationGroup, 0, -ds[i] * height, dt, PowaMisc.AnimationFps, order);
				order = order + 1;
			end
			height = height * efficiency;
			--self:ShowText("\nHeight=", height);
		end

	end

	if (aura.beginSpin) then
		self:AddRotation(animationGroup, 360, math.max(duration/4, 0.25), PowaMisc.AnimationFps, animationGroup:GetMaxOrder()+1);
	end
	
	return animationGroup;
end

function PowaAuras:AddJumpTranslateAndReturn(animationGroup, dx, dy, duration, fps, order)
	self:AddTranslation(animationGroup,  dx,  dy, 0, 0, order);
	self:AddTranslation(animationGroup, -dx, -dy, duration, fps, order+1);
end

function PowaAuras:AddJumpAlphaAndReturn(animationGroup, change, duration, fps, order)
	self:AddAlpha(animationGroup,  change, 0, 0, order);
	self:AddAlpha(animationGroup, -change, duration, fps, order+1);
end

function PowaAuras:AddJumpScaleAndReturn(animationGroup, scale, duration, fps, order)
	self:AddScale(animationGroup, scale, scale, 0, 0, order);
	self:AddScale(animationGroup, 1/scale, 1/scale, duration, fps, order+1);
end

function PowaAuras:AddMainAnimation(aura, frame)
	if (not aura.anim1 or aura.anim1==PowaAuras.AnimationTypes.Static) then
		return nil;
	end
	
	local animationGroup = frame:CreateAnimationGroup("Main");
	animationGroup.aura = aura;
	
	--animationGroup:SetScript("OnPlay",
	--function(self)
	--	PowaAuras:ShowText("Main OnPlay ", self:GetName(), " aura=", self.aura.id);
	--end);
	animationGroup:SetScript("OnFinished",
	function(self, forced)
		self:Play();
	end);
	
	local speed = 1.0;
	if (aura.isSecondary) then
		speed = PowaAuras.Auras[aura.id].speed;
	else
		speed = aura.speed;
	end
	local duration, duration2 = self:CalculateDurations(speed);
	if (aura.anim1==PowaAuras.AnimationTypes.Flashing) then
		local deltaAlpha = math.min(aura.alpha * 0.5,0.99);
		self:AddAlpha(animationGroup, -deltaAlpha, duration, PowaMisc.AnimationFps, 1);
		self:AddAlpha(animationGroup,  deltaAlpha, duration, PowaMisc.AnimationFps, 2);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Growing) then
		self:AddScale(animationGroup, 1.2, 1.2, duration * 3, PowaMisc.AnimationFps, 1);
		self:AddAlpha(animationGroup, -math.min(aura.alpha,0.99), duration * 3, PowaMisc.AnimationFps, 1);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Pulse) then
		self:AddScale(animationGroup, 1.1, 1.1, duration/2, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 1/1.1, 1/1.1, duration/2, PowaMisc.AnimationFps, 2);
		self:AddScale(animationGroup, 0.9, 0.9, duration/2, PowaMisc.AnimationFps, 2);
		self:AddScale(animationGroup, 1/0.9, 1/0.9, duration/2, PowaMisc.AnimationFps, 2);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Shrinking) then
		self:AddAlpha(animationGroup, -math.min(aura.alpha,0.99), duration, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 1.3, 1.3, 0, PowaMisc.AnimationFps, 2);
		self:AddScale(animationGroup, 1/1.3, 1/1.3, duration * 3, PowaMisc.AnimationFps, 3);
		self:AddAlpha(animationGroup, math.min(aura.alpha,0.99), duration * 3, PowaMisc.AnimationFps, 3);
	elseif (aura.anim1==PowaAuras.AnimationTypes.WaterDrop) then
		self:AddMoveRandomLocation(animationGroup, 0, 20, -10, 0, 20, -10, 0, 0, false, aura.speed, 1);
		self:AddScale(animationGroup, 0.85, 0.85, 0, 0, 1);
		self:AddScale(animationGroup, 1.76, 1.76, duration * 4, PowaMisc.AnimationFps, 2);
		self:AddAlpha(animationGroup, -math.min(aura.alpha,0.99), duration * 4, PowaMisc.AnimationFps, 2);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Electric) then
		frame:SetAlpha(aura.alpha / 2); 
		animationGroup.speed = aura.speed;
		animationGroup:SetScript("OnPlay",
		function(self)
			self.Trigger = (random( 210 - self.speed * 100 ) < 4);
			--PowaAuras:ShowText("Electric OnPlay Trigger=", self.Trigger);
		end);
		self:AddMoveRandomLocation(animationGroup, 0, 10, -5, 0, 10, -5, 0.05, PowaMisc.AnimationFps, true, aura.speed, 1);
		self:AddAlphaOnTrigger(animationGroup, 2, 0.05, PowaMisc.AnimationFps, 1);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Flame) then
		local steps = 40;
		local deltaAlpha = math.min(aura.alpha,0.99) / steps;
		local stepDuration = duration * 4 / steps;
		for i = 1, steps do
			self:AddMoveRandomLocation(animationGroup, 1, 7, -4, 0, 2, 0, stepDuration, PowaMisc.AnimationFps, false, aura.speed, i);
			self:AddAlpha(animationGroup, -deltaAlpha, stepDuration, PowaMisc.AnimationFps, i);
			self:AddScale(animationGroup, 0.98, 0.98, stepDuration, PowaMisc.AnimationFps, i);
		end
	elseif (aura.anim1==PowaAuras.AnimationTypes.Bubble) then
		local factor = 0.05;
		local increase = 1 + factor;
		local decrease = 1 - factor;
		if (aura.isSecondary) then
			increase = 1 - factor;
			decrease = 1 + factor;
		end
		self:AddScale(animationGroup, increase, decrease, duration/3, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 1/increase,  1/decrease, duration/3, PowaMisc.AnimationFps, 2);
		self:AddScale(animationGroup, decrease, increase, duration/3, PowaMisc.AnimationFps, 3);
		self:AddScale(animationGroup, 1/decrease,  1/increase, duration/3, PowaMisc.AnimationFps, 4);
	elseif (aura.anim1==PowaAuras.AnimationTypes.Orbit) then
		local maxWidth  = math.max(aura.x, -aura.x, 5);
		local maxHeight = maxWidth * (1.6 - aura.torsion);
		local i = 1;
		local x = aura.x;
		if (aura.isSecondary) then
			x = -PowaAuras.Auras[aura.id].x;
			frame:SetPoint("Center", x,  PowaAuras.Auras[aura.id].y);
		end
		local y = aura.y;
		local step = 9;
		local angleOffset = 190;
		if (x>0) then
			angleOffset = 10;
		end

		for angle = 0, 360-step, step do
			local newx = maxWidth * cos(angle + angleOffset);
			local newy = aura.y + maxHeight * sin(angle + angleOffset);
			--self:ShowText("Orbit ", i, " angle=", angle, " x=", string.format("%.2f", x), " y=", string.format("%.2f", y));
			self:AddTranslation(animationGroup, newx-x, newy-y, duration * step / 30, PowaMisc.AnimationFps, i);
			i = i + 1;
			x = newx;
			y = newy;
		end
	elseif (aura.anim1==PowaAuras.AnimationTypes.SpinClockwise) then
		self:AddRotation(animationGroup, -360, math.max(duration2, 0.25), PowaMisc.AnimationFps, 1);
	elseif (aura.anim1==PowaAuras.AnimationTypes.SpinAntiClockwise) then
		self:AddRotation(animationGroup,  360, math.max(duration2, 0.25), PowaMisc.AnimationFps, 1);
	end

	return animationGroup;
end

function PowaAuras:AddMoveRandomLocation(animationGroup, xrangel, xrangeu, xoffset, yrangel, yrangeu, yoffset, duration, fps, useTrigger, speed, order)
	local trans = animationGroup:CreateAnimation("Translation");
	trans.speed = speed;
	trans.xrangel = xrangel;
	trans.xrangeu = xrangeu;
	trans.yrangel = yrangel;
	trans.yrangeu = yrangeu;
	trans.xoffset = xoffset;
	trans.yoffset = yoffset;
	trans.useTrigger = useTrigger;
	trans:SetOrder(order);
	trans:SetDuration(duration);
	trans:SetMaxFramerate(fps);
	trans:SetScript("OnPlay",
	function(self)
		if (not self.useTrigger or self:GetParent().Trigger) then
			self:SetOffset((random(self.xrangel,self.xrangeu) + self.xoffset) * self.speed, (random(self.yrangel,self.yrangeu) + self.yoffset) * self.speed);
		else
			self:SetOffset(0,0);		
		end
	end);
end

function PowaAuras:AddAlphaOnTrigger(animationGroup, alphaTo, duration, fps, order)
	local alpha = animationGroup:CreateAnimation("Alpha");
	alpha:SetOrder(order);
	alpha:SetDuration(duration);
	alpha:SetMaxFramerate(fps);
	alpha.alphaTo = alphaTo;
	alpha:SetScript("OnPlay",
	function(self)
		if (self:GetParent().Trigger) then
			self:SetChange(self.alphaTo);
		else
			self:SetChange(0);
		end
	end);
end

function PowaAuras:AddTranslation(animationGroup, dx, dy, duration, fps, order)
	local trans = animationGroup:CreateAnimation("Translation");
	trans:SetOrder(order);
	trans:SetDuration(duration);
	--trans:SetEndDelay(1);
	trans:SetMaxFramerate(fps);
	trans:SetOffset(dx, dy);
	--trans:SetScript("OnPlay",
	--function(self)
	--	PowaAuras:ShowText("AddTranslation OnPlay order=", self:GetOrder());
	--end);
end

function PowaAuras:AddScale(animationGroup, xscaleTo, yscaleTo, duration, fps, order)
	local scale = animationGroup:CreateAnimation("Scale");
	scale:SetOrder(order);
	scale:SetDuration(duration);
	--scale:SetEndDelay(5);
	scale:SetMaxFramerate(fps);
	scale:SetScale(xscaleTo, yscaleTo);
	--scale:SetScript("OnPlay",
	--function(self)
	--	PowaAuras:ShowText("AddScale OnPlay order=", self:GetOrder());
	--end);
	--scale:SetScript("OnFinished",
	--function(self)
	--	PowaAuras:ShowText("AddScale OnFinished order=", self:GetOrder());
	--end);
end

function PowaAuras:AddAlpha(animationGroup, alphaTo, duration, fps, order)
	local alpha = animationGroup:CreateAnimation("Alpha");
	alpha:SetOrder(order);
	alpha:SetDuration(duration);
	alpha:SetMaxFramerate(fps);
	alpha:SetChange(alphaTo);
	--alpha:SetScript("OnPlay",
	--function(self)
	--	PowaAuras:ShowText("AddAlpha OnPlay order=", self:GetOrder());
	--end);
	--alpha:SetScript("OnFinished",
	--function(self)
	--	PowaAuras:ShowText("AddAlpha OnFinished order=", self:GetOrder());
	--end);
end

function PowaAuras:AddFade(animationGroup, duration, fps, order)
	local alpha = animationGroup:CreateAnimation("Alpha");
	alpha:SetOrder(order);
	alpha:SetDuration(duration);
	alpha:SetMaxFramerate(fps);
	alpha:SetScript("OnPlay",
	function(self)
		self:SetChange(-self:GetRegionParent():GetAlpha());
	end);
end

function PowaAuras:AddRelativeAlpha(animationGroup, change, duration, fps, order)
	local alpha = animationGroup:CreateAnimation("Alpha");
	alpha:SetOrder(order);
	alpha:SetDuration(duration);
	alpha:SetMaxFramerate(fps);
	alpha:SetScript("OnPlay",
	function(self)
		local alpha = self:GetRegionParent():GetAlpha();
		self:SetChange(math.min((alpha * change),0.99));
	end);
end

function PowaAuras:AddAbsoluteAlpha(animationGroup, targetAlpha, duration, fps, order)
	local alpha = animationGroup:CreateAnimation("Alpha");
	alpha:SetOrder(order);
	alpha:SetDuration(duration);
	alpha:SetMaxFramerate(fps);
	alpha:SetScript("OnPlay",
	function(self)
		self:SetChange(math.min(targetAlpha,0.99) - self:GetRegionParent():GetAlpha());
	end);
end

function PowaAuras:AddBrightenAndReturn(animationGroup, change, targetAlpha, duration, fps, order)
	self:AddRelativeAlpha(animationGroup,  change, 0, 0, order);
	self:AddAbsoluteAlpha(animationGroup, targetAlpha, duration, fps, order+1);
end

function PowaAuras:AddRotation(animationGroup, angle, duration, fps, order)
	local rotation = animationGroup:CreateAnimation("Rotation");
	rotation:SetOrder(order);
	rotation:SetDuration(duration);
	rotation:SetMaxFramerate(fps);
	rotation:SetDegrees(angle);
end

function PowaAuras:AddEndAnimation(aura, frame)
	--PowaAuras:ShowText("AddEndAnimation finish=", aura.finish);
	if (not aura.finish or aura.finish==PowaAuras.AnimationEndTypes.None) then
		return nil;
	end
	
	local animationGroup = frame:CreateAnimationGroup("End");
	animationGroup.aura = aura;
	
	--animationGroup:SetScript("OnPlay",
	--function(self)
	--	PowaAuras:ShowText("EndAnimation OnPlay ", self:GetName(), " aura=", self.aura.id);
	--end);
	
	animationGroup:SetScript("OnFinished",
	function(self, forced)
		--PowaAuras:ShowText("EndAnimation OnFinished ", self:GetName(), " aura=", self.aura.id);
		if (self.aura) then
			self.aura:Hide(true);
		end
	end);
	
	local duration = self:CalculateDurations(aura.speed);
	--PowaAuras:ShowText("AddEndAnimation duration=", duration, " speed=", aura.speed);
	if (aura.finish==PowaAuras.AnimationEndTypes.Fade) then
		self:AddFade(animationGroup, duration / 2, PowaMisc.AnimationFps, 1);
	elseif (aura.finish==PowaAuras.AnimationEndTypes.GrowAndFade) then
		self:AddFade(animationGroup, duration / 2, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 2.0, 2.0, duration / 2, PowaMisc.AnimationFps, 1);
	elseif (aura.finish==PowaAuras.AnimationEndTypes.ShrinkAndFade) then
		self:AddFade(animationGroup, duration / 2, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 0.25, 0.25, duration / 2, PowaMisc.AnimationFps, 1);
	elseif (aura.finish==PowaAuras.AnimationEndTypes.SpinAndFade) then
		self:AddFade(animationGroup, duration * 2, PowaMisc.AnimationFps, 1);
		self:AddRotation(animationGroup, 360 * 4, duration * 2, PowaMisc.AnimationFps, 1);
	elseif (aura.finish==PowaAuras.AnimationEndTypes.SpinShrinkAndFade) then
		self:AddFade(animationGroup, duration * 2, PowaMisc.AnimationFps, 1);
		self:AddRotation(animationGroup, 360 * 4, duration * 2, PowaMisc.AnimationFps, 1);
		self:AddScale(animationGroup, 0.25, 0.25, duration * 2, PowaMisc.AnimationFps, 1);		
	end
		
	return animationGroup;				
end