;(setf pos-1-png (concatenate 'string (nth (move-png-pos) appli-service-list) "_fcs.png")) ;从list中获取icon名
(defvar appli-service-list (list "a" "b" "c" "d" "e" "f" "g" "h" "i"))
(defvar png-pos-val 0);初始化icon 初始化位置
(defvar cur-pos-val 0);初始化当前 游标位置
(defvar png-cur-pos-eq t);游标和icon 起始位置是否一致
(defvar appli-service-lst-len (length appli-service-list));服务icon 个数
;游标向右移
(defun m-right()
(if (= cur-pos-val png-pos-val);如果游标和icon位置一样时
(setf cur-pos-val (+ cur-pos-val 1));游标右移
;不相等
(when (> cur-pos-val 3);如果游标到显示最右端
(if (= cur-pos-val (- appli-service-lst-len 1));如果游标已经在最右端
(progn
(setf cur-pos-val 0);游标回到最左端
(setf png-pos-val 0))
(progn
(setf cur-pos-val (+ cur-pos-val 1));游标右移
(setf png-pos-val (+ png-pos-val 1)));显示 icon 坐标右移
)
)
)
)
;(show)
;游标向左移
(defun m-light ()
(if (= cur-pos-val png-pos-val);当游标与icon位置一样时
(progn
(if (= cur-pos-val 0);如果游标已经在最左端
(progn
(setf cur-pos-val (- appli-service-lst-len 1));游标指向到最右端
(setf png-pos-val (- cur-pos-val 3)));icon 位置设置为菜单最左端的位置
(progn
(setf cur-pos-val (- cur-pos-val 1))
(setf png-pos-val (- cur-pos-val 1)))
))
(progn
(setf cur-pos-val (- cur-pos-val 1));不相等时
(setf png-pos-val (- png-pos-val 1)))
)
)

在线等

算了，自己弄好了