【飞鸟集】颜色转换函数

highflybir

下面的程序是几个颜色转化函数。

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  

killer9806

看来楼主的对红绿蓝的比例分析很好。

谢谢楼主

gtj116600

高飞鸟版主的颜色转换函数