阅读提示:

    《Delphi图像处理》系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM。

    《C++图像处理》系列以代码清晰,可读性为主,全部使用C++代码。

    尽可能保持二者内容一致,可相互对照。

    本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。

const
_fc0: Single = 0.0;
_fcd5: Single = 0.5;
_fc1: Single = 1.0;
_fc2: Single = 2.0;
_fc6: Single = 6.0;
_fc60: Single = 60.0;
_fc255: Single = 255.0;
_fc360: Single = 360.0;
_fc510: Single = 510.0; procedure ColorToHSL(var H, S, L: Single; Color: TARGB);
var
rgbMax: LongWord;
asm
push eax
push edx
push ecx
movzx ecx, Color.TARGBQuad.Blue
movzx edx, Color.TARGBQuad.Green
movzx eax, Color.TARGBQuad.Red
cmp ecx, edx // ecx = rgbMax
jge @@1 // edx = rgbMin
xchg ecx, edx
@@1:
cmp ecx, eax
jge @@2
xchg ecx, eax
@@2:
cmp edx, eax
cmova edx, eax
mov rgbMax, ecx
mov eax, ecx
add ecx, edx // ecx = rgbMax + rgbMin
sub eax, edx // delta = rgbMax - rgbmin
cvtsi2ss xmm0, ecx
divss xmm0, _fc510
pop edx
movss [edx], xmm0 // *L = (rgbMax + rgbMin) / 255 / 2
jnz @@3
pop ecx // if (delta == 0)
pop edx // {
mov [ecx], eax // *H = *S = 0
mov [edx], eax // return
jmp @@Exit // }
@@3:
comiss xmm0, _fcd5
jb @@4
neg ecx
add ecx, 510 // if (L < 128) ecx = 510 - ecx
@@4:
pop edx
cvtsi2ss xmm0, eax
cvtsi2ss xmm1, ecx
movaps xmm2, xmm0
divss xmm0, xmm1
movss [edx], xmm0 // *S = delta / ecx
mov eax, rgbMax
cmp al, Color.TARGBQuad.Red
jne @@5
movzx eax, Color.TARGBQuad.Green
movzx edx, Color.TARGBQuad.Blue
xor ecx, ecx // if (R == rgbMax) eax = G - B; add = 0
jmp @@7
@@5:
cmp al, Color.TARGBQuad.Green
jne @@6
movzx eax, Color.TARGBQuad.Blue
movzx edx, Color.TARGBQuad.Red
mov ecx, 120 // if (G == rgbMax) eax = B - R; add = 120
jmp @@7
@@6:
movzx eax, Color.TARGBQuad.Red
movzx edx, Color.TARGBQuad.Green
mov ecx, 240 // if (B == rgbMax) eax = R - G; add = 240
@@7:
sub eax, edx
cvtsi2ss xmm0, eax
cvtsi2ss xmm1, ecx
mulss xmm0, _fc60
divss xmm0, xmm2
addss xmm0, xmm1 // H = eax * 60 / delta + add
comiss xmm0, _fc0
jae @@8
addss xmm0, _fc360
@@8:
pop eax
movss [eax], xmm0
@@Exit:
end; function HSLToColor(H, S, L: Single): TARGB;
asm
movss xmm0, H
comiss xmm0, _fc0
jae @@1
addss xmm0, _fc360
jmp @@2
@@1:
comiss xmm0, _fc360
jb @@2
subss xmm0, _fc360
@@2:
movss xmm3, _fc1
divss xmm0, _fc60
cvtss2si edx, xmm0 // index = Round(H)
cvtsi2ss xmm1, edx
subss xmm0, xmm1 // extra = H - index
comiss xmm0, _fc0 // if (extra < 0) // 如果index发生五入
jae @@3 // {
dec edx // index --
addss xmm0, xmm3 // extra ++
@@3: // }
test edx, 1
jz @@4
movaps xmm1, xmm0
movaps xmm0, xmm3
subss xmm0, xmm1 // if (index & 1) extra = 1 - extra
@@4:
movss xmm2, S
movss xmm4, L
minss xmm2, xmm3
minss xmm4, xmm3
maxss xmm2, _fc0
maxss xmm4, _fc0
pslldq xmm0, 4 // max mid min
movlhps xmm0, xmm3 // xmm0 = 0.0 1.0 extra 0.0
movaps xmm1, xmm0
subss xmm3, xmm2
movss xmm2, _fcd5
pshufd xmm2, xmm2, 0
pshufd xmm3, xmm3, 0
subps xmm1, xmm2
mulps xmm1, xmm3
subps xmm0, xmm1 // xmm0 = xmm0 - (xmm0 - 0.5) * (1.0 - S);
movaps xmm1, xmm0
subss xmm4, xmm2
mulss xmm4, _fc2 // xmm4 = (L - 0.5) * 2
comiss xmm4, _fc0
jb @@5
movss xmm0, _fc1
pshufd xmm0, xmm0, 0
subps xmm0, xmm1 // if (xmm4 >= 0) xmm0 = 1 - xmm0
@@5:
movss xmm3, _fc255
pshufd xmm4, xmm4, 0
pshufd xmm3, xmm3, 0
mulps xmm0, xmm4
addps xmm0, xmm1
mulps xmm0, xmm3 // xmm0 = (xmm0 + xmm0 * xmm4) * 255
jmp @@jmpTable[edx*4].Pointer
@@jmpTable: dd offset @@H60
dd offset @@H120
dd offset @@H180
dd offset @@H240
dd offset @@H300
dd offset @@H360
@@H360: // 300 - 359
pshufd xmm0, xmm0, 11100001b
jmp @@H60
@@H300: // 240 - 299
pshufd xmm0, xmm0, 11010010b
jmp @@H60
@@H240: // 180 - 239
pshufd xmm0, xmm0, 11000110b
jmp @@H60
@@H180: // 120 - 179
pshufd xmm0, xmm0, 11001001b
jmp @@H60
@@H120: // 60 - 119
pshufd xmm0, xmm0, 11011000b
@@H60: // 0 - 59
cvtps2dq xmm0, xmm0
packssdw xmm0, xmm0
packuswb xmm0, xmm0
movd eax, xmm0
or eax, 0ff000000h
end;

《Delphi图像处理》系列使用GDI+单元下载地址和说明见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。

    因水平有限,错误在所难免,欢迎指正和指导。邮箱地址:maozefa@hotmail.com

这里可访问《Delphi图像处理 -- 文章索引》。

Delphi图像处理 -- RGB与HSL转换的更多相关文章

  1. Delphi图像处理 -- RGB与HSV转换

    阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C ...

  2. Delphi图像处理 -- 文章索引

    转载:http://blog.csdn.net/maozefa/article/details/7188354 本文对已发布<Delphi图像处理>系列文章进行索引链接,以方便阅读和查找. ...

  3. Atitit  从 RGB 到 HSL 或 HSV 的转换

    Atitit  从 RGB 到 HSL 或 HSV 的转换 1.1. 从 RGB 到 HSL 或 HSV 的转换公式与原理1 1.2. public static HSV RGB2HSV(Color ...

  4. 色彩空间RGB/CMYK/HSL/HSB/HSV/Lab/YUV基础理论及转换方法:RGB与YUV

    之前做个设计,现在从事IT,脑子里面关于RGB,RGBA,CMY,CMYK,YUV,但是具体理论还是不扎实.若干年前之前写过<水煮RGB与CMYK色彩模型—色彩与光学相关物理理论浅叙>&l ...

  5. Delphi图像处理 -- 最大值

    阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C ...

  6. Delphi图像处理 -- 最小值

    阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM.     <C++图像处理>系列以代码清晰,可读性为主,全部使用C ...

  7. RGB和HSL色彩的相互转换

    转自: http://blog.csdn.net/aniven/article/details/2205851 RGB和HSL(也叫HSB/HSV)是两种色彩空间,即:红,绿,蓝(Red,Green, ...

  8. Delphi图像处理 -- 颜色矩阵变换

    转载自阿发伯:http://blog.csdn.net/maozefa/article/details/8316430 阅读提示:     <Delphi图像处理>系列以效率为侧重点,一般 ...

  9. < python PIL - 批量图像处理 - RGB图像生成灰度图像 >

    < python PIL - 批量图像处理 - RGB图像生成灰度图像 > 直接用python自带的PIL图像库,将一个文件夹下所有jpg/png的RGB图像转换成灰度/黑白图像 from ...

随机推荐

  1. 十一、C# 泛型

    为了促进代码重用,尤其是算法的重用,C#支持一个名为泛型的特性. 泛型与模块类相似. 泛型使算法和模式只需要实现一交.而不必为每个类型都实现一次.在实例化的时候,传入相应的数据类型便可. 注:可空值类 ...

  2. Wpf自定义路由事件

    创建自定义路由事件大体可以分为三个步骤: ①声明并注册路由事件. ②为路由事件添加CLR事件包装. ③创建可以激发路由事件的方法. 以ButtonBase类中代码为例展示这3个步骤: public a ...

  3. JDBC标准事物编程模式

    事物简介: 事物是一种数据库中保证交易可靠的机制,JDBC支持数据库中事物的概念,默认情况下事物是默认提交的. 事物的特性: 1.事物必须是原子工作单元,对于其数据的修改,要么都执行,要么都不执行2. ...

  4. Singleton 模式

    个人认为 Singleton 模式是设计模式中最为简单.最为常见.最容易实现,也是最应该熟悉和掌握的模式.且不说公司企业在招聘的时候为了考察员工对设计的了解和把握,考的最多的就是 Singleton ...

  5. SGU 185.Two shortest (最小费用最大流)

    时间限制:0.25s 空间限制:4M 题意: 在n(n<=400)个点的图中,找到并输出两条不想交的最短路.不存在输出“No sulotion”: Solution: 最小费用最大流 建图与po ...

  6. 运用BeanUtils构建通用的查询 更新方法(个人拙作,不喜勿喷)

    ------------------------------------更新方法----------------------------------- public void update(Strin ...

  7. dedecms flag标签属性

    头条[h] flag='h' 推荐[c] flag='c' 幻灯[f] flag='f' 特荐[a] flag='a' 滚动[s] flag='s' 加粗[b] flag='b' 图片[p] flag ...

  8. QTP插入Output Value和插入CheckPoint,注意点

    1. 必须打开程序才能进行Output value和CheckPoint的插入. 2. 也有可能是对象获取不到,从新加载对象库. 提示如下图:

  9. SQL SERVER CEILING 函数 取整时的坑。。。

    CEILING ---返回大于或等于指定数值表达式的最小整数 当舍去同一个大小的值 但是正负方向不一致时要注意小数位四舍五入的问题   例如: SELECT CEILING($123.45), CEI ...

  10. 误差逆传播(error BackPropagation, BP)算法推导及向量化表示

    1.前言 看完讲卷积神经网络基础讲得非常好的cs231后总感觉不过瘾,主要原因在于虽然知道了卷积神经网络的计算过程和基本结构,但还是无法透彻理解卷积神经网络的学习过程.于是找来了进阶的教材Notes ...