STM32

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

2019-12-09 20:04发布

站内问答 / STM32/STM8
9833 93 94
本帖最后由 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 上传 点击文件名下载附件


  3. //////////////////////////////////////////////////对数调光光曲线生成START//////////////////////////////////////
  4. //////////////////////////////////////////////////对数调光光曲线生成START//////////////////////////////////////
  5. procedure TForm1.LightWave(a,b:string; color:byte; style:string; Gamma:Double; show:boolean; func:byte);
  6. var
  7.   PwmData: array[0..65535] of double;
  8.   //GammaData: array[0..65535] of integer;

  10.   PwmLeves:integer;
  11.   CurveLeves, i,j:integer;
  12.   Ratio, f:Double;
  13. begin
  14. //如果当前曲线为要显示指令
  15. if  show = true then
  16. begin
  17.    PwmLeves   := StrToInt(a); //求出PWM级数
  18.    CurveLeves := StrToInt(b);  //求出调光级数

  20.    //Ratio :=  (log10(PwmLeves)) / CurveLeves; //求出系数
  21.    j := 1;
  22.    //求出曲线
  23.    {for i := 0 to  CurveLeves - 1 do
  24.     begin
  25.      PwmData[i] := Power(10, (i + 1) * Ratio);
  26.      iXYPlot1.Channel[color].AddXY(i, trunc(PwmData[i])) ;
  27.     end;
  28.      iXYPlot1.Channel[color].AddXY(0, trunc(PwmData[0])) ;//画线性直线
  29.      }
  30.     //对曲线进行GAMMA纠正
  31.       Ratio := 1 / Gamma;
  32.       //GAMMA运算
  33.       for i:= 0 to CurveLeves - 1 do
  34.       begin
  35.        f := (i + 0.5) / PwmLeves * (PwmLeves / CurveLeves);//归一化
  36.        f := Power(f, Ratio);//预补偿
  37.        PwmData[i] := trunc(f * PwmLeves - 0.5);//反归一化
  38.        if((i <> 0)  and (PwmData[i] = 0)) then
  39.          PwmData[i] := PwmData[i] + 1;
  40.        iXYPlot1.Channel[color].AddXY(i, PwmData[i]);  //GammaData
  41.       end;
  42.       //显示
  43.       RGBshowstr := RGBshowstr+'/////////////////////' + Format('%s',[style]) +'_'+ '对数调光曲线///////////////////////'+#13;
  44.       RGBshowstr := RGBshowstr+'//PWM级数 :' + Format('%d',[PwmLeves])+#13;
  45.       RGBshowstr := RGBshowstr+'//调光级数:' + Format('%d',[CurveLeves])+#13;
  46.       RGBshowstr := RGBshowstr+'//伽马(Gamma)校正值:' + Format('%.5f',[Gamma])+#13;
  47.       //8,16BIT选择
  48.       if checkbox8.Checked = true then
  49.         RGBshowstr := RGBshowstr+'const u16 '+ format('%s', [style])+'_Log_8Bit_LightCurve'+'['+format('%d', [CurveLeves])+']'+' =' + #13 + '{'+#13
  50.       else
  51.         RGBshowstr := RGBshowstr+'const u16 '+ format('%s', [style])+'_Log_16Bit_LightCurve'+'['+format('%d', [CurveLeves])+']'+' =' + #13 + '{' +#13;
  52.     //存储数据

  54.     for i := 0 to CurveLeves - 1 do
  55.      begin
  56.       if style = 'Red' then    //调整曲线
  57.         PwmData[i] := PwmData[i] + Red[i]
  58.       else if style = 'Green' then
  59.         PwmData[i] := PwmData[i] + Green[i]
  60.       else if style = 'Blue' then
  61.         PwmData[i] := PwmData[i] + Blue[i];
  62.       
  63.           //判断调整后数据合法性
  64.            if  PwmData[i] >  PwmLeves then
  65.               PwmData[i] := PwmLeves
  66.            else if  PwmData[i] < 0 then
  67.              PwmData[i] := 0;
  68.            //画曲线
  69.           iXYPlot1.Channel[color].AddXY(i, PwmData[i]);
  70.           //显示数据10,16进制
  71.           if checkbox7.Checked = false then
  72.            RGBshowstr := RGBshowstr+ Format('%d, ', [trunc(PwmData[i])])
  73.           else
  74.            RGBshowstr := RGBshowstr+ Format('0x%.4x, ', [trunc(PwmData[i])]) ;

  76.        if ((i+1) mod 20 = 0) then
  77.         begin
  78.          RGBshowstr := RGBshowstr +'//'+format('%d', [ j* 20])+ #13;
  79.          j := j+1;
  80.         end;
  81.       end;

  83.     RGBshowstr := RGBshowstr + #13;
  84.     RGBshowstr := RGBshowstr + '};'+#13;
  85.     memo1.Lines.Text:=RGBshowstr;

  87.     end
  88.     else
  89.     begin
  90.       iXYPlot1.Channel[color].Clear;
  91.     end;
  92. end;
复制代码
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
93条回答
myqiang1990
2019-12-10 06:41
chengtina 发表于 2013-8-22 14:51
LZ,郁闷到要把公司里的秘密都拿出来了???

这不算是秘密~~~如果我把整个软件传上来，那才是秘密~~

一周热门 更多>