yang686526

卡通演示dcl
www.dimcax.com
卡通演示dcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24;; 卡通演示
( c:test790 ()
(cmdla0)
( aaa ()
(xyp-dcl-gettile '("li"))
(xyp-show-sld "i1" "")
(xyp-vectorimage "i1" ( ( li) ptns) 2 2)
)
(xyp-initset '(li) '("0"))
( ptns (xyp-cartoons)
lst '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15"
"16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30"
)
ilst '(("i1" nil "image" "-15" "11" "" "(xyp-aboutme)")
("li" "列表" "list" "lst" "10" "8" "(aaa)")
( nil "user" "(aaa)")
)
)
( ( (xyp-dcl-init ilst "【卡通img】" t) 1)
()
)
(cmdla1)
)
没有最好，只有更好！
-----------------------------
xyp1964@sina.com 网络u盘：://xyp1964.ys168.com