lisp版弹钢琴《源码》

caoliu023

首先感谢baitang36 带来的syz-midi32.fas函数库
原帖>>>[原创]用纯lisp播放midi音乐
本代码的and部分抄至tjuzkj【分享系列1】grread函数应用例子大汇总，源码分享！

还有dwx版的 lisp+dwx midi演奏回放器1.0版《源码》此贴必须的感谢highflybird大神




键盘1-7为钢琴控制按键，空格 回车及鼠标右键为退出程序

下边是主程序，如果不想麻烦可以直接下载附件，加载即可弹奏

1. (defun c:tt (/ pt)
   
2.   (openmidi)
   
3.   (while (and (setq pt (grread t 15 0))
   
4.         (not (and  (= 2 (car pt))
   
5.       (or (= 13 (cadr pt)) (= 32 (cadr pt)))
   
6.        )
   
7.         ) ;_Enter Space  kongg
   
8.         (not (or (= (car pt) 11) (= (car pt) 25))) ;_Right button
   
9.    )
   
10.     ;;and这段是抄的tjuzkj【分享系列1】grread函数应用例子大汇总，源码分享！
    
11.     ;;http://bbs.mjtd.com/forum.php?mo ... 1313&fromuid=287566
    
12.     (cond
    
13.       ((and (= (car pt) 2) (= (cadr pt) 49)) (playmidi 4209808)) ;1
    
14.       ((and (= (car pt) 2) (= (cadr pt) 50)) (playmidi 4210320)) ;2
    
15.       ((and (= (car pt) 2) (= (cadr pt) 51)) (playmidi 4210832)) ;3
    
16.       ((and (= (car pt) 2) (= (cadr pt) 52)) (playmidi 4211088)) ;4
    
17.       ((and (= (car pt) 2) (= (cadr pt) 53)) (playmidi 4211600)) ;5
    
18.       ((and (= (car pt) 2) (= (cadr pt) 54)) (playmidi 4212112)) ;6
    
19.       ((and (= (car pt) 2) (= (cadr pt) 55)) (playmidi 4212624)) ;7
    
20.     )
    
21.   )
    
22.   (closemidi)
    
23.   (princ)
    
24. )

(defun c:tt (/ pt)<br />   (openmidi)<br />   (while (and (setq pt (grread t 15 0))<br />         (not (and  (= 2 (car pt))<br />       (or (= 13 (cadr pt)) (= 32 (cadr pt)))<br />        )<br />         ) ;_Enter Space  kongg<br />         (not (or (= (car pt) 11) (= (car pt) 25))) ;_Right button<br />    )<br />     ;;and这段是抄的tjuzkj【分享系列1】grread函数应用例子大汇总，源码分享！<br />     ;;<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91313&fromuid=287566" target="_blank">http://bbs.mjtd.com/forum.php?mo ... 1313&fromuid=287566</a><br />     (cond<br />       ((and (= (car pt) 2) (= (cadr pt) 49)) (playmidi 4209808)) ;1<br />       ((and (= (car pt) 2) (= (cadr pt) 50)) (playmidi 4210320)) ;2<br />       ((and (= (car pt) 2) (= (cadr pt) 51)) (playmidi 4210832)) ;3<br />       ((and (= (car pt) 2) (= (cadr pt) 52)) (playmidi 4211088)) ;4<br />       ((and (= (car pt) 2) (= (cadr pt) 53)) (playmidi 4211600)) ;5<br />       ((and (= (car pt) 2) (= (cadr pt) 54)) (playmidi 4212112)) ;6<br />       ((and (= (car pt) 2) (= (cadr pt) 55)) (playmidi 4212624)) ;7<br />     )<br />   )<br />   (closemidi)<br />   (princ)<br /> )

2进制文件打包用的baitang36的把任意文件打包到lsp程序中[汇编语言版]

guosheyang

还是32位CAD适用哈？

caoliu023

guosheyang 发表于 2022-8-13 12:53
还是32位CAD适用哈？

是的，基与baitang36的函数库

mokson

涌现高才生，雨后春笋。

自贡黄明儒

这是一个英雄辈出的时代。