很郁闷~再开源一个对数，线性，指数LED调光曲线获取算法-第6页回答

很郁闷~再开源一个对数，线性，指数LED调光曲线获取算法

2019-12-09 20:04发布

本帖最后由 myqiang1990 于 2013-8-22 14:49 编辑

这个是舞台灯光LED调光对数，线性和，指数的调光曲线获取算法，生产的是PWM值，下面是资料，但是算法被我改良过的，可以生产3种曲线~~~~只要修改GAMMA值，如果伽马值是1，就是线性，如果小于1就是对数，大于1就是指数，，，，大家对照我的图，自己用delphi做一个，很简单的，只要把算法复制，在对照程序，对照图片自己弄一下就OK乐！！

截图00.jpg (673.27 KB, 下载次数: 21) 下载附件 2013-8-22 14:43 上传

Gamma校正的快速算法及其C语言实现.pdf (442.44 KB, 下载次数: 944) 2013-8-22 14:44 上传点击文件名下载附件

//////////////////////////////////////////////////对数调光光曲线生成START//////////////////////////////////////
//////////////////////////////////////////////////对数调光光曲线生成START//////////////////////////////////////
procedure TForm1.LightWave(a,b:string; color:byte; style:string; Gamma:Double; show:boolean; func:byte);
var
PwmData: array[0..65535] of double;
//GammaData: array[0..65535] of integer;
PwmLeves:integer;
CurveLeves, i,j:integer;
Ratio, f:Double;
begin
//如果当前曲线为要显示指令
if show = true then
begin
PwmLeves := StrToInt(a); //求出PWM级数
CurveLeves := StrToInt(b); //求出调光级数
//Ratio := (log10(PwmLeves)) / CurveLeves; //求出系数
j := 1;
//求出曲线
{for i := 0 to CurveLeves - 1 do
begin
PwmData[i] := Power(10, (i + 1) * Ratio);
iXYPlot1.Channel[color].AddXY(i, trunc(PwmData[i])) ;
end;
iXYPlot1.Channel[color].AddXY(0, trunc(PwmData[0])) ;//画线性直线
}
//对曲线进行GAMMA纠正
Ratio := 1 / Gamma;
//GAMMA运算
for i:= 0 to CurveLeves - 1 do
begin
f := (i + 0.5) / PwmLeves * (PwmLeves / CurveLeves);//归一化
f := Power(f, Ratio);//预补偿
PwmData[i] := trunc(f * PwmLeves - 0.5);//反归一化
if((i <> 0) and (PwmData[i] = 0)) then
PwmData[i] := PwmData[i] + 1;
iXYPlot1.Channel[color].AddXY(i, PwmData[i]); //GammaData
end;
//显示
RGBshowstr := RGBshowstr+'/////////////////////' + Format('%s',[style]) +'_'+ '对数调光曲线///////////////////////'+#13;
RGBshowstr := RGBshowstr+'//PWM级数 :' + Format('%d',[PwmLeves])+#13;
RGBshowstr := RGBshowstr+'//调光级数:' + Format('%d',[CurveLeves])+#13;
RGBshowstr := RGBshowstr+'//伽马(Gamma)校正值:' + Format('%.5f',[Gamma])+#13;
//8,16BIT选择
if checkbox8.Checked = true then
RGBshowstr := RGBshowstr+'const u16 '+ format('%s', [style])+'_Log_8Bit_LightCurve'+'['+format('%d', [CurveLeves])+']'+' =' + #13 + '{'+#13
else
RGBshowstr := RGBshowstr+'const u16 '+ format('%s', [style])+'_Log_16Bit_LightCurve'+'['+format('%d', [CurveLeves])+']'+' =' + #13 + '{' +#13;
//存储数据
for i := 0 to CurveLeves - 1 do
begin
if style = 'Red' then //调整曲线
PwmData[i] := PwmData[i] + Red[i]
else if style = 'Green' then
PwmData[i] := PwmData[i] + Green[i]
else if style = 'Blue' then
PwmData[i] := PwmData[i] + Blue[i];
//判断调整后数据合法性
if PwmData[i] > PwmLeves then
PwmData[i] := PwmLeves
else if PwmData[i] < 0 then
PwmData[i] := 0;
//画曲线
iXYPlot1.Channel[color].AddXY(i, PwmData[i]);
//显示数据10,16进制
if checkbox7.Checked = false then
RGBshowstr := RGBshowstr+ Format('%d, ', [trunc(PwmData[i])])
else
RGBshowstr := RGBshowstr+ Format('0x%.4x, ', [trunc(PwmData[i])]) ;
if ((i+1) mod 20 = 0) then
begin
RGBshowstr := RGBshowstr +'//'+format('%d', [ j* 20])+ #13;
j := j+1;
end;
end;
RGBshowstr := RGBshowstr + #13;
RGBshowstr := RGBshowstr + '};'+#13;
memo1.Lines.Text:=RGBshowstr;
end
else
begin
iXYPlot1.Channel[color].Clear;
end;
end;