elisp生成渐变XPM图片


无意中看到 telephone-line 有一种渐变颜色的效果,看起来很棒,但telephone-line的源码有些难懂,所以自己动手实现类似的效果

渐变颜色

渐变颜色的实现可使用color-gradient

(color-gradient
 '(0 0 0)
 (color-name-to-rgb "red") 10)

实现原理是对红(R)、绿(G)、蓝(B)三个颜色通道分别取 n + 2 个过渡值,n 为中间颜色过渡状态,所以对于red#000#a0a0a0等颜色需要转化为RGB色彩模式

生成XPM图片

XPM图片格式参考 https://en.wikipedia.org/wiki/X_PixMap(XPM3)

大概是这样的

/* XPM */
static char * XFACE[] = {
/* <Values> */
/* <width/columns> <height/rows> <colors> <chars per pixel>*/
"48 4 2 1",
/* <Colors> */
"a c #ffffff",
"b c #000000",
/* <Pixels> */
"abaabaababaaabaabababaabaabaababaabaaababaabaaab",
"abaabaababaaabaabababaabaabaababaabaaababaabaaab",
"abaabaababaaabaabababaabaabaababaabaaababaabaaab",
"abaabaababaaabaabababaabaabaababaabaaababaabaaab"
};

渐变颜色XPM图片原理就是使用不同的字符代表不同状态的渐变颜色,当所使用的字符数越多,渐变效果越好,但同时XPM图片的宽度也就越大

  • 生成不同字符
    ;; 0~9
    (mapcar 'number-to-string (number-sequence 0 9))
    ;; a~z
    (mapcar 'char-to-string (number-sequence ?a ?z))
    
  • 不同字符对应不同颜色
    (let ((number -1))
      (mapconcat
       (lambda(x)
         (setq number (+ number 1))
         (format "\"%s c %s\"," (nth number maple-xpm-chars) (apply 'color-rgb-to-hex x)))
       (color-gradient
        (color-name-to-rgb color1)
        (color-name-to-rgb color2) width) ""))
    

效果显示

完整代码及更多XPM图片

Author: honmaple

NO CONTENTS

lin.jiang

风落花语风落天,花落风雨花落田.