卡通演示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