// Copyright 2002 Matt Sandstršm/Too Much Too Soon
// This script is freeware, meaning you may copy and
// distribute it free of charge, as long as it's kept intact,
// including this message. Feel free to use the code as
// inspiration for your own scripts, but don't steal.
// Email me at mattias@beauty.se if you have any questions.
// Thank you. Have fun. 

filter "RGB Gamma";
group "TMTS Color";

input rg, "Red Gamma", slider, 1, 0.01, 4 detent 1;
input gg, "Green Gamma", slider, 1, 0.01, 4 detent 1;
input bg, "Blue Gamma", slider, 1, 0.01, 4 detent 1;

code

float i, rclut[256],gclut[256],bclut[256]

repeat with i = 0 to 255
	rclut[i] = power(i/255, rg);
	gclut[i] = power(i/255, gg);
	bclut[i] = power(i/255, bg);
end repeat;

levelMap(src1, dest, LinearRamp, rclut, gclut, bclut);