颜色转换函数

Highflybird

下面的程序是几个颜色转化函数。
1，HSL转RGB ，HSL->RGB
2，RGB转HSL ，RGB->HSL
3，由真彩色对话框函数返回的值一般来是如下格式：
(acad_truecolordlg 1)
((62 . 156) (420 . 1521793))
其中的(420 . 1521793)便是真彩色值，如何由这个1521793数字 转化成RGB值呢
便是下面两个函数了
数值转化为RGB, Number->RGB
例如:(Number->RGB 1521793) ;;;(23 56 129)
RGB转化为数值, RGB ->Number
例如: (RGB->Number 23 56 129) ;;;1521793

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:RGB.LSP 
下载次数:43  文件大小:2.54 KB  售价:2D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

liunian0524

感谢大师分享