local LASTPART = Head
for i = 1, 25 do
	local MATH = (1-(i/25))
	if LASTPART == Head then
		local Horn = CreatePart(3, Character, "Glass", 0, 0, "Dirt brown", "Horn", VT(0.25*MATH,0.25,0.25*MATH),false)
		CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CD(0.3, 0.7, -0.35) * ANGLES(RAD(-55), RAD(15), RAD(-15)), CD(0, 0, 0))
		LASTPART = Horn
		Horn.Color = C4((i*2)/255,(i*2)/255,(i*2)/255)
	else
		local Horn = CreatePart(3, Character, "Glass", 0, 0, "Dirt brown", "Horn", VT(0.25*MATH,0.25,0.25*MATH),false)
		CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CD(0, Horn.Size.Y/1, 0) * ANGLES(RAD(1), RAD(-0.3), RAD(0)), CD(0, 0, 0))
		LASTPART = Horn
		Horn.Color = C4((i*2)/255,(i*2)/255,(i*2)/255)
	end
end
local LASTPART = Head
for i = 1, 25 do
	local MATH = (1-(i/25))
	if LASTPART == Head then
		local Horn = CreatePart(3, Character, "Glass", 0, 0, "Dirt brown", "Horn", VT(0.25*MATH,0.25,0.25*MATH),false)
		CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CD(-0.3, 0.7, -0.35) * ANGLES(RAD(-55), RAD(-15), RAD(15)), CD(0, 0, 0))
		LASTPART = Horn
		Horn.Color = C4((i*2)/255,(i*2)/255,(i*2)/255)
	else
		local Horn = CreatePart(3, Character, "Glass", 0, 0, "Dirt brown", "Horn", VT(0.25*MATH,0.25,0.25*MATH),false)
		CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CD(0, Horn.Size.Y/1, 0) * ANGLES(RAD(1), RAD(0.3), RAD(0)), CD(0, 0, 0))
		LASTPART = Horn
		Horn.Color = C4((i*2)/255,(i*2)/255,(i*2)/255)
	end
end