Added binding for SDL_SetTextureColorMod and SDL_GetTextureColorMod and updated the Freetype sample to use it for setting the color of text

#{
	value <- 42
	main <- {
		foo <- {
			bar <- {value}
			bar:
		}
		print: (string: (foo: ))
	}
}