function T.OnCreation(Self)

	-- the markers location must be changed so its insynch with /32 map grid
	Self.Center[1] = math.round(Self.Location.x/32)*32
	Self.Center[2] = math.round(Self.Location.x/32)*32

	--12032 Square grid.
	Self.Border[1] = math.max(Self.Center[1]-(32*188),1) -- 6016
	Self.Border[2] = math.min(Self.Center[1]+(32*188),CurMap.WorldHeight) -- 6016

	Self.Border[3] = math.max(Self.Center[2]-(32*188),1) -- 6016
	Self.Border[4] = math.min(Self.Center[2]+(32*188),CurMap.WorldWidth) -- 6016

	----------FOREST FADING-----------------------------------------------------------------------------------------------------------
	DebugOutput("Spawning forest fading generators")
	var fadedistance=232
	--var inline3 = math.round((Self.Border[1]+Self.Border[3])/fadedistance)
	--var inrow3 = math.round((Self.Border[2]+Self.Border[4])/fadedistance)
	var inline3 = math.round((Self.Border[3]+Self.Border[1])/fadedistance)
    var inrow3 = math.round((Self.Border[4]+Self.Border[2])/fadedistance)
	for c=0,inline3 do
		var x3 = Self.Border[1]+(c*fadedistance+fadedistance/2)
		for d=0,inrow3 do
			var y3 = Self.Border[3]+(d*fadedistance+fadedistance/2)
			if x3<Self.Border[2] and y3<Self.Border[4] then
				local u=CurMap:NewObject({x3, y3},0,0,0,0,"Other-Markers-Forest Fade Generator")
			end
		end
	end

	--Self:Remove()
end

	var fadedistance=232
	var inline3 = math.round((Self.Border[1]+Self.Border[2])/fadedistance)
	var inrow3 = math.round((Self.Border[3]+Self.Border[4])/fadedistance)
	for c=0,inline3 do
		var x3 = Self.Border[1]+(c*fadedistance+fadedistance/2)
		for d=0,inrow3 do
			var y3 = Self.Border[3]+(d*fadedistance+fadedistance/2)
			if x3<Self.Border[2] and y3<Self.Border[4] then
				local u=CurMap:NewObject({x3, y3},0,0,0,0,"Other-Markers-Forest Fade Generator")
			end
		end
	end