用Beep演奏一段音乐--LISP的卖弄神器

highflybird · 发表于 2022-8-9 01:35

本帖最后由 highflybird 于 2022-8-10 23:12 编辑

自动LISP的隐藏函数被诸多大神发掘出来，LISP又开始焕发青春活力了！
我一不小心，挖到了一个隐藏的函数Beep.
关于隐藏函数，请参见：Make Lisp Great Again-利用隐藏函数恢复isp的活力!
呵呵，先抄一段： C++中发声函数Beep详解

其实啊，Windows API 就提供了一个这样奇妙的发音函数，它就是Beep函数。Beep可以通过控制主板扬声器的发声频率和节拍来演奏美妙的旋律，本文根据音乐简谱来演奏几首优美的歌曲，用以展现Beep的疯狂魅力。
首先我们来Beep的函数原型：
BOOL Beep( DWORD dwFreq; DWORD dwDuration; );
参数说明：
- dwFreq 指定要发出的频率(HZ)
- dwDuration 指定发音的时长，以毫秒为单位。

下面是用LISP的实现--播放生日快乐歌。

(defun c:HappyBirthday ()
(princ "\n开始为你播放生日歌:")
(beep 523 200)
(beep 523 200)
(beep 578 400)
(beep 523 400)
(beep 698 400)
(beep 659 800)
(beep 523 200)
(beep 523 200)
(beep 578 400)
(beep 523 400)
(beep 784 400)
(beep 698 800)
(beep 523 200)
(beep 523 200)
(beep 1046 400)
(beep 880 400)
(beep 698 400)
(beep 659 400)
(beep 578 400)
(beep 932 200)
(beep 932 200)
(beep 880 400)
(beep 698 400)
(beep 784 400)
(beep 698 800)
(princ "\n播放完毕！")
(princ)
)

加载命令是happybirthday.
当然你可以用它来播放其它任何歌曲，只要你懂音乐。
是不是心动了？用它来撩妹也不错哦！

尽管上面已经给出了如何挖掘隐藏函数的链接，还是有人问 Beep函数为何找不到。好吧，既然是隐藏函数，必须要隐藏。需要回帖可见！

;;激活一个系统隐藏的函数作者：tryhi-大海
;;参数为一个函数名的字符串
;;如果这个函数并非隐藏函数，则返回nil
;;例子：(try-load-hide-fun "get-logical-drives")
(defun try-load-hide-fun (fun / dat file fo len)
(setq len (+ (* 2 (strlen fun)) 28)) ;长度
(setq file (vl-filename-mktemp "tryhi.fas"))
(setq dat
(append
'(266 70 65 83 52 45 70 73 76 69 32
59 98 121 58 116 114 121 104 105 32 13
266 49 13 266 49 32 36 32 36 13 266
)
(vl-string->list (itoa len))
'(32 52 32 36 20 1 1 1 256 219)
(vl-string->list fun)
'(256 256 214)
(vl-string->list fun)
'(256 256 1 67 256 256 2 256 266 266 131
1 256 160 134 256 256 1 22 36 59 98
121 58 180 243 186 163
)
)
)
(setq fo (open file "w"))
(foreach x dat (write-char x fo))
(close fo)
(load file)
(vl-file-delete file) ;删除临时文件
(eval (read fun)) ;如果函数不存在则返回nil
)

;;激活一个系统隐藏的函数  作者：tryhi-大海 
;;参数为一个函数名的字符串 
;;如果这个函数并非隐藏函数，则返回nil 
;;例子：(try-load-hide-fun "get-logical-drives") 
(defun try-load-hide-fun (fun / dat file fo len) 
  (setq len (+ (* 2 (strlen fun)) 28))  ;长度 
  (setq file (vl-filename-mktemp "tryhi.fas")) 
  (setq  dat 
   (append 
     '(266  70   65   83   52   45   70  73   76    69   32 
       59    98   121  58   116  114  121  104  105  32   13 
       266  49   13   266   49   32   36  32   36    13   266 
      ) 
     (vl-string->list (itoa len)) 
     '(32 52 32 36 20 1 1 1 256 219) 
     (vl-string->list fun) 
     '(256 256 214) 
     (vl-string->list fun) 
     '(256  256  1    67   256  256  2  256  266  266  131 
       1    256  160  134   256  256  1  22   36    59   98 
       121  58   180  243   186  163 
      ) 
   ) 
  ) 
  (setq fo (open file "w")) 
  (foreach x dat (write-char x fo)) 
  (close fo) 
  (load file) 
  (vl-file-delete file)      ;删除临时文件 
  (eval (read fun))      ;如果函数不存在则返回nil 
)

激活隐藏函数Beep就用 (try-load-hide-fun "beep")

补充音阶频率表：

根据上面音阶频率对照表，编写了《上海滩》：

(defun c:sht (/ 1H 1P 2H 2P 3H 3P 4P C0 C1 C1+ C2 C3 C5 C5- C6 C6- C7 C7- I JP P0 P2 P4 S X Y Z JD)
(setq JP 30) ;(/ 60. 88)? 速度
(setq 1P (/ 15000 JP))
(setq 1H (/ 22500 JP))
(setq 2P (/ 30000 JP))
(setq 2H (/ 37500 JP))
(setq 3P (/ 45000 JP))
(setq 3H (/ 52500 JP))
(setq 4P (/ 60000 JP))
(setq P2 (/ 7500 JP))
(setq P4 (/ 3750 JP))
(setq P0 10)
(setq C0 10)
(setq JD 261.23);基调
(setq i 0.0)
(foreach l '("-" "" "+")
(foreach n '("1" "1#" "2" "2#" "3" "4" "4#" "5" "5#" "6" "6#" "7")
(setq s (read (strcat "C" n l)))
(set s (fix (* JD (expt 2 (/ i 12)))))
(setq i (1+ i))
)
)
(setq i 0)
(SETQ X (LIST C3 C5 C6 C3 C5 C2 C3 C5 C6 C1+ C6 C5 C1 C3 C2 C2 C3 C5 C2 C3 C6- C6- C1 C2 C3 C2 C7- C6- C1 C5- C3 C5 C2 C3 C2 C7- C6- C5- C1 C0 C1+ C1+ C6 C1+ C0 C6 C1+ C6 C5 C5 C3 C6 C5 C1 C2 C1 C2 C3 C0 C3 C3 C2 C3 C0 C1+ C1+ C7 C6 C3 C3 C2 C3 C1+ C7 C6 C3 C5 C3 C5 C2 C3 C2 C7- C6- C5- C1))
(SETQ Y (LIST P2 P2 3P P2 P2 3P P2 P2 P2 1P P2 1P P2 P2 3P P2 P2 3P P2 P2 3P P2 P2 1H P2 P2 P2 P2 P2 3P P2 P2 1H P2 P2 P2 P2 P2 2P P2 P2 P2 P2 2p P2 p2 p2 p2 3P P2 P2 1H P2 1P P4 P4 P2 2P P2 P2 P2 P2 2P P2 P2 P2 P2 3P P2 P2 1H P2 P2 P2 P2 P2 3P P2 P2 1H P2 P2 P2 P2 P2 3P))
(SETQ Z (MAPCAR 'CONS X Y))
(foreach e z
(beep (car e) (cdr e))
)
(princ)
)

(defun c:sht (/ 1H 1P 2H 2P 3H 3P 4P C0 C1 C1+ C2 C3 C5 C5- C6 C6- C7 C7- I JP P0 P2 P4 S X Y Z JD) 
  (setq JP 30)  ;(/ 60. 88)? 速度 
  (setq 1P (/ 15000 JP))   
  (setq 1H (/ 22500 JP)) 
  (setq 2P (/ 30000 JP)) 
  (setq 2H (/ 37500 JP)) 
  (setq 3P (/ 45000 JP)) 
  (setq 3H (/ 52500 JP)) 
  (setq 4P (/ 60000 JP))    
  (setq P2 (/ 7500 JP)) 
  (setq P4 (/ 3750 JP)) 
  (setq P0 10) 
  (setq C0 10) 
  (setq JD 261.23);基调 
  (setq i 0.0) 
  (foreach l '("-" "" "+") 
    (foreach n '("1" "1#" "2" "2#" "3" "4" "4#" "5" "5#" "6" "6#" "7") 
      (setq s (read (strcat "C" n l))) 
      (set s (fix (* JD (expt 2 (/ i 12))))) 
      (setq i (1+ i)) 
    ) 
  ) 
  (setq i 0) 
  (SETQ  X (LIST  C3 C5 C6 C3 C5 C2 C3 C5  C6 C1+ C6 C5 C1  C3 C2 C2 C3 C5 C2 C3 C6- C6- C1 C2 C3 C2 C7- C6- C1 C5- C3 C5 C2 C3 C2 C7- C6- C5- C1 C0 C1+ C1+ C6 C1+ C0 C6 C1+ C6 C5 C5 C3 C6 C5 C1 C2 C1 C2 C3 C0 C3 C3 C2 C3 C0 C1+ C1+ C7 C6 C3 C3 C2 C3 C1+ C7 C6 C3 C5 C3 C5 C2 C3 C2 C7- C6- C5- C1)) 
  (SETQ  Y (LIST  P2 P2 3P P2 P2 3P P2 P2  P2 1P  P2 1P P2 P2 3P P2 P2 3P P2 P2 3P  P2  P2 1H P2 P2 P2  P2  P2 3P  P2 P2 1H P2 P2 P2  P2  P2  2P P2 P2  P2  P2 2p  P2 p2 p2  p2 3P P2 P2 1H P2 1P P4 P4 P2 2P P2 P2 P2 P2 2P P2 P2  P2  P2 3P P2 P2 1H P2 P2  P2 P2 P2 3P P2 P2 1H P2 P2 P2  P2  P2  3P)) 
  (SETQ Z (MAPCAR 'CONS X Y)) 
  (foreach e z 
    (beep (car e) (cdr e)) 
  ) 
  (princ) 
)

通过此程序可以调整速度和key,但是听起来感觉有点怪怪的。不知道自己弄得对不对？
可能是通过喇叭来发声，大打折扣了，也可能是我的音乐知识太差了吧。
玩玩而已，不可当真。

tigcat · 发表于 2022-8-9 12:47

本帖最后由 tigcat 于 2022-8-9 14:17 编辑

;帖子来源https://blog.csdn.net/v1t1p9hvbd/article/details/71523218?
;天空之城
(defun c:tkzc ()
  (princ "\n开始为你播放生日歌:")
  (setq qdo 262 )
(setq qre 294)
(setq qmi 330)
(setq qfa 349)
(setq qso 392)
(setq qla 440)
(setq qsi 494)
(setq do 523)
(setq re 578)
(setq mi 659)
(setq fa 698)
(setq so 784)
(setq la 880)
(setq si 988)
(setq do1 1046)
(setq re1 1175)
(setq mi1 1318)
(setq fa1 1480)
(setq so1 1568)
(setq la1 1760)
(setq si1 1976)
(setq sqdo 277)
(setq sqre 311)
(setq sqfa 370)
(setq sqso 415)
(setq sqla 466)
(setq sdo 554)
(setq sre 622)
(setq sfa 740)
(setq sso 831)
(setq sla 932)
(setq sdo1 1046)
(setq sre1 1245)
(setq sfa1 1480)
(setq sso1 1661)
(setq sla1 1865)

(setq pai 400 ban 200 ting 128)

(command  "delay" 1000)

(Beep la ban)
(Beep si ban)
(command  "delay" ting)

(Beep do1 (+ ban pai))
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)

(Beep si (* 3 pai))
(command  "delay" ting)
(Beep mi ban)
(Beep mi ban)

(Beep la (+ ban pai))
(Beep so ban)
(command  "delay" ting)
(Beep la pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep so (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep mi ban)
(command  "delay" (/ ting 2))
(Beep mi ban)
(command  "delay" (/ ting 2))

(Beep fa (+ ban pai))
(Beep mi ban)
(command  "delay" ting)
(Beep fa ban)
(Beep do1 (+ ban pai))
(command  "delay" ting)

(Beep mi (* 2 pai))
(command  "delay" ting)
(command  "delay" ban)
(Beep do1 ban)
(command  "delay" (/ ting 2))
(Beep do1 ban)
(command  "delay" (/ ting 2))
(Beep do1 ban)
(command  "delay" (/ ting 2))

(Beep si (+ ban pai))
(Beep sfa ban)
(command  "delay" ting)
(Beep sfa pai)
(Beep si pai)
(command  "delay" ting)

(Beep si (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep la ban)
(Beep si ban)
(command  "delay" ting)

(Beep do1 (+ ban pai))
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)

(Beep si (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep mi ban)
(command  "delay" 20)
(Beep mi ban)
(command  "delay" ting)

(Beep la (+ ban pai))
(Beep so ban)
(command  "delay" ting)
(Beep la pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep so (* 3 pai))
(command  "delay" (+ ting ban))
(Beep mi ban)
(command  "delay" (/ ting 2))

(Beep fa pai)
(command  "delay" ting)
(Beep do1 ban)
(Beep si ban)
(command  "delay" 20)
(Beep si pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep re1 ban)
(command  "delay" 20)
(Beep re1 ban)
(command  "delay" 20)
(Beep mi1 ban)
(command  "delay" (/ ting 2))
(Beep do1 pai)
(command  "delay" (+ ting pai))

(Beep do1 pai)
(Beep si ban)
(command  "delay" ting)
(Beep la ban)
(command  "delay" 20)
(Beep la ban)
(command  "delay" ting)
(Beep si pai)
(command  "delay" ting)
(Beep sso pai)
(command  "delay" ting)

(Beep sso (* 2 pai))
(command  "delay" (+ ting pai))
(Beep do1 ban)
(Beep re1 ban)
(command  "delay" ting)

(Beep mi1 (+ ban pai))
(Beep re1 ban)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)
(Beep fa1 pai)
(command  "delay" ting)

(Beep re1 (* 2 pai))
(command  "delay" (+ ting pai))
(Beep so ban)
(command  "delay" 20)
(Beep so ban)
(command  "delay" ting)

(Beep do1 ban)
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)

(Beep mi1 (* 2 pai))
(command  "delay" ting+(* 2 pai))

(Beep la ban)
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep si pai)
(command  "delay" ting)
(Beep re1 ban)
(command  "delay" 20)
(Beep re1 ban)
(command  "delay" ting)

(Beep do1 (+ ban pai))
(Beep so ban)
(command  "delay" 20)
(Beep so pai)
(command  "delay" (+ ting pai))

(Beep fa1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)
(Beep re1 pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep mi1 (* 4 pai))

(Beep mi1 (* 2 pai))
(command  "delay" (+ ting pai))
(Beep mi1 pai)
(command  "delay" ting)

(Beep la1 (* 2 pai))
(command  "delay" ting)
(Beep so1 pai)
(command  "delay" ting)
(Beep so1 pai)
(command  "delay" ting)

(Beep mi1 ban)
(command  "delay" (/ ting 2))
(Beep re1 ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" (+ ting ban))
(Beep do1 ban)
(command  "delay" ting)

(Beep re1 pai)
(command  "delay" ting)
(Beep do1 ban)
(Beep re1 ban)
(command  "delay" 20)
(Beep re1 ban)
(command  "delay" ting)
(Beep so1 pai)
(command  "delay" ting)

(Beep mi1 (* 2 pai))
(command  "delay" (+ ting pai))
(Beep mi pai)
(command  "delay" ting)

(Beep la1 (* 2 pai))
(command  "delay" ting)
(Beep so1 (* 2 pai))
(command  "delay" ting)

(Beep mi1 ban)
(Beep re1 ban)
(command  "delay" ting)
(Beep do1 (* 2 pai))
(command  "delay" (+ ting ban))
(Beep do1 ban)
(command  "delay" ting)

(Beep re1 pai)
(command  "delay" ting)
(Beep do1 ban)
(Beep re1 ban)
(command  "delay" 20)
(Beep re1 ban)
(command  "delay" ting)
(Beep si pai)
(command  "delay" ting)

(Beep la (* 2 pai))
(command  "delay" ting)
(Beep la ban)
(Beep si ban)

(Beep do1 (+ ban pai))
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)

(Beep si (* 3 pai))
(command  "delay" ting)
(Beep mi ban)
(Beep mi ban)

(Beep la (+ ban pai))
(Beep so ban)
(command  "delay" ting)
(Beep la pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep so (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep mi ban)
(command  "delay" (/ ting 2))
(Beep mi ban)
(command  "delay" (/ ting 2))

(Beep fa (+ ban pai))
(Beep mi ban)
(command  "delay" ting)
(Beep fa ban)
(Beep do1 (+ ban pai))
(command  "delay" ting)

(Beep mi (* 2 pai))
(command  "delay" ting)
(command  "delay" ban)
(Beep do1 ban)
(command  "delay" (/ ting 2))
(Beep do1 ban)
(command  "delay" (/ ting 2))
(Beep do1 ban)
(command  "delay" (/ ting 2))

(Beep si (+ ban pai))
(Beep sfa ban)
(command  "delay" ting)
(Beep sfa pai)
(Beep si pai)
(command  "delay" ting)

(Beep si (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep la ban)
(Beep si ban)
(command  "delay" ting)

(Beep do1 (+ ban pai))
(Beep si ban)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)
(Beep mi1 pai)
(command  "delay" ting)

(Beep si (* 2 pai))
(command  "delay" ting)
(command  "delay" pai)
(Beep mi ban)
(command  "delay" 20)
(Beep mi ban)
(command  "delay" ting)

(Beep la (+ ban pai))
(Beep so ban)
(command  "delay" ting)
(Beep la pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep so (* 3 pai))
(command  "delay" (+ ting ban))
(Beep mi ban)
(command  "delay" (/ ting 2))

(Beep fa pai)
(command  "delay" ting)
(Beep do1 ban)
(Beep si ban)
(command  "delay" 20)
(Beep si pai)
(command  "delay" ting)
(Beep do1 pai)
(command  "delay" ting)

(Beep re1 ban)
(command  "delay" 20)
(Beep re1 ban)
(command  "delay" 20)
(Beep mi1 ban)
(command  "delay" (/ ting 2))
(Beep do1 pai)
(command  "delay" (+ ting pai))

(Beep la (* 4 pai))

(command  "delay" 1000)

  (princ "\n播放完毕！")
  (princ)
)

jun353835273 · 发表于 2022-8-9 13:14

copy这个网址的天空之城上半段，太长了难得改成lisp。
https://blog.csdn.net/weixin_45697774/article/details/106868403

;q前缀为低音，1后缀为高音，s前缀为半音阶
(setq qdo 262 )
(setq qre 294)
(setq qmi 330)
(setq qfa 349)
(setq qso 392)
(setq qla 440)
(setq qsi 494)
(setq do 523)
(setq re 578)
(setq mi 659)
(setq fa 698)
(setq so 784)
(setq la 880)
(setq si 988)
(setq do1 1046)
(setq re1 1175)
(setq mi1 1318)
(setq fa1 1480)
(setq so1 1568)
(setq la1 1760)
(setq si1 1976)
(setq sqdo 277)
(setq sqre 311)
(setq sqfa 370)
(setq sqso 415)
(setq sqla 466)
(setq sdo 554)
(setq sre 622)
(setq sfa 740)
(setq sso 831)
(setq sla 932)
(setq sdo1 1046)
(setq sre1 1245)
(setq sfa1 1480)
(setq sso1 1661)
(setq sla1 1865)
(setq pai 400 ban 200 ting 128)
(Beep la ban)
(Beep si ban)
(Beep 0 ting)
(Beep do1 (+ pai ban))
(Beep si ban)
(Beep 0 ting)
(Beep do1 pai)
(Beep 0 ting)
(Beep mi1 pai)
(Beep 0 ting)
(Beep si (* 3 pai))
(Beep 0 ting)
(Beep mi ban)
(Beep mi ban)
(Beep la (+ ban pai))
(Beep so ban)
(Beep 0 ting)
(Beep la pai)
(Beep 0 ting)
(Beep do1 pai)
(Beep 0 ting)
(Beep so (* 2 pai))
(Beep 0 ting)
(Beep 0 pai)
(Beep mi ban)
(Beep 0 (* 0.5 ting))
(Beep mi ban)
(Beep 0 (* 0.5 ting))
(Beep fa (+ pai ban))
(Beep mi ban)
(Beep 0 ting)
(Beep fa ban)
(Beep do1 (+ pai ban))
(Beep 0 ting)
(Beep mi (* 2 pai))
(Beep 0 ting)
(Beep 0 ban)
(Beep do1 ban)
(Beep 0 (* 0.5 ting))
(Beep do1 ban)
(Beep 0 (* 0.5 ting))
(Beep do1 ban)
(Beep 0 (* 0.5 ting))
(Beep si ban+pai)
(Beep sfa ban)
(Beep 0 ting)
(Beep sfa pai)
(Beep si pai)
(Beep 0 ting)
(Beep si 2*pai)
(Beep 0 ting)
(Beep 0 pai)
(Beep la ban)
(Beep si ban)
(Beep 0 ting)
(Beep do1 (+ pai ban))
(Beep si ban)
(Beep 0 ting)
(Beep do1 pai)
(Beep 0 ting)
(Beep mi1 pai)
(Beep 0 ting)
(Beep si (* 2 pai))
(Beep 0 ting)
(Beep 0 pai)
(Beep mi ban)
(Beep 0 20)
(Beep mi ban)
(Beep 0 ting)
(Beep la (+ pai ban))
(Beep so ban)
(Beep 0 ting)
(Beep la pai)
(Beep 0 ting)
(Beep do1 pai)
(Beep 0 ting)
(Beep so (* pai 3))
(Beep 0 (+ ting ban)
(Beep mi ban)
(Beep 0 (fix (* 0.5 ting)))
(Beep fa pai)
(Beep 0 ting)
(Beep do1 ban)
(Beep si ban)
(Beep 0 20)
(Beep si pai)
(Beep 0 ting)
(Beep do1 pai)
(Beep 0 ting)
(Beep re1 ban)
(Beep 0 20)
(Beep re1 ban)
(Beep 0 20)
(Beep mi1 ban)
(Beep 0 (* 0.5 ting))
(Beep do1 pai)
;;OK

;q前缀为低音，1后缀为高音，s前缀为半音阶 
(setq  qdo 262 ) 
(setq  qre 294) 
(setq  qmi 330) 
(setq  qfa 349) 
(setq  qso 392) 
(setq  qla 440) 
(setq  qsi 494) 
(setq  do 523) 
(setq  re 578) 
(setq  mi 659) 
(setq  fa 698) 
(setq  so 784) 
(setq  la 880) 
(setq  si 988) 
(setq  do1 1046) 
(setq  re1 1175) 
(setq  mi1 1318) 
(setq  fa1 1480) 
(setq  so1 1568) 
(setq  la1 1760) 
(setq  si1 1976) 
(setq  sqdo 277) 
(setq  sqre 311) 
(setq  sqfa 370) 
(setq  sqso 415) 
(setq  sqla 466) 
(setq  sdo 554) 
(setq  sre 622) 
(setq  sfa 740) 
(setq  sso 831) 
(setq  sla 932) 
(setq  sdo1 1046) 
(setq  sre1 1245) 
(setq  sfa1 1480) 
(setq  sso1 1661) 
(setq  sla1 1865) 
(setq  pai 400 ban 200 ting 128) 
(Beep la ban) 
(Beep si ban) 
(Beep 0 ting) 
(Beep do1 (+ pai ban)) 
(Beep si ban) 
(Beep 0 ting) 
(Beep do1 pai) 
(Beep 0 ting) 
(Beep mi1 pai) 
(Beep 0 ting) 
(Beep si (* 3 pai)) 
(Beep 0 ting) 
(Beep mi ban) 
(Beep mi ban) 
(Beep la (+ ban pai)) 
(Beep so ban) 
(Beep 0 ting) 
(Beep la pai) 
(Beep 0 ting) 
(Beep do1 pai) 
(Beep 0 ting) 
(Beep so (* 2 pai)) 
(Beep 0 ting) 
(Beep 0 pai) 
(Beep mi ban) 
(Beep 0 (* 0.5 ting)) 
(Beep mi ban) 
(Beep 0 (* 0.5 ting)) 
(Beep fa (+ pai ban)) 
(Beep mi ban) 
(Beep 0 ting) 
(Beep fa ban) 
(Beep do1 (+ pai ban)) 
(Beep 0 ting) 
(Beep mi (* 2 pai)) 
(Beep 0 ting) 
(Beep 0 ban) 
(Beep do1 ban) 
(Beep 0 (* 0.5 ting)) 
(Beep do1 ban) 
(Beep 0 (* 0.5 ting)) 
(Beep do1 ban) 
(Beep 0 (* 0.5 ting)) 
(Beep si ban+pai) 
(Beep sfa ban) 
(Beep 0 ting) 
(Beep sfa pai) 
(Beep si pai) 
(Beep 0 ting) 
(Beep si 2*pai) 
(Beep 0 ting) 
(Beep 0 pai) 
(Beep la ban) 
(Beep si ban) 
(Beep 0 ting) 
(Beep do1 (+ pai ban)) 
(Beep si ban) 
(Beep 0 ting) 
(Beep do1 pai) 
(Beep 0 ting) 
(Beep mi1 pai) 
(Beep 0 ting) 
(Beep si (* 2 pai)) 
(Beep 0 ting) 
(Beep 0 pai) 
(Beep mi ban) 
(Beep 0 20) 
(Beep mi ban) 
(Beep 0 ting) 
(Beep la (+ pai ban)) 
(Beep so ban) 
(Beep 0 ting) 
(Beep la pai) 
(Beep 0 ting) 
(Beep do1 pai) 
(Beep 0 ting) 
(Beep so (* pai 3)) 
(Beep 0 (+ ting ban) 
(Beep mi ban) 
(Beep 0 (fix (* 0.5 ting))) 
(Beep fa pai) 
(Beep 0 ting) 
(Beep do1 ban) 
(Beep si ban) 
(Beep 0 20) 
(Beep si pai) 
(Beep 0 ting) 
(Beep do1 pai) 
(Beep 0 ting) 
(Beep re1 ban) 
(Beep 0 20) 
(Beep re1 ban) 
(Beep 0 20) 
(Beep mi1 ban) 
(Beep 0 (* 0.5 ting)) 
(Beep do1 pai) 
;;OK

陨落 · 发表于 2022-8-9 13:09

有点儿意思，在此奉上“粉刷匠”：

(defun c:fsj()
(setq jp'(53 53 53 11 24 32 55 53 53 53 11 24 32 11 22 44 31 55 24 32 55 53 53 53 11 24 32 11))
(setq keys(list (list 1 (* 262 2))(list 2 (* 294 2))(list 3 (* 330 2))(list 4 (* 349 2))(list 5 (* 392 2))(list 6 (* 440 2))(list 7 (* 494 2))))
(setq play nil)
(foreach x jp
(setq strj(itoa x))
(if (=(substr strj 1 1) (substr strj 2 1))
(setq play (append play (list(list (cadr(assoc (atoi (substr strj 1 1)) keys)) 600))))
(setq play (append play (list (list (cadr(assoc (atoi (substr strj 1 1)) keys)) 300)
(list (cadr(assoc (atoi (substr strj 2 1)) keys)) 300))))
)
)
(foreach x play
(beep (car x )(cadr x))
)
)

guosheyang · 发表于 2022-8-9 07:18

高版主，那个Beep函数在哪儿可以下载谢谢！

mokson · 发表于 2022-8-9 08:32

错误: no function definition: BEEP

mokson · 发表于 2022-8-9 08:40

本帖最后由 mokson 于 2022-8-9 09:39 编辑

命令: (try-load-hide-fun "Beep")
; 错误: 文件中有不正确的快速加载格式: "C:/Users/ADMINI~1/AppData/Local/Temp/tryhi001.fas"

tigcat · 发表于 2022-8-9 08:52

要把beep函数激活，激活方法见大海的帖子

guosheyang · 发表于 2022-8-9 08:58

tigcat 发表于 2022-8-9 08:52
要把beep函数激活，激活方法见大海的帖子

60以上的阅读权限才看得到

tigcat · 发表于 2022-8-9 09:14

本帖最后由 tigcat 于 2022-8-9 09:25 编辑

按海哥教的方法打包了一个fas

guosheyang · 发表于 2022-8-9 09:30

tigcat 发表于 2022-8-9 09:14
按海哥教的方法打包了一个fas

谢谢你的帮助和奉献！

guosheyang · 发表于 2022-8-9 09:37

终于听到声音了很好的创意！

muwind · 发表于 2022-8-9 09:45

不只有你撩到妹妹，但是成功把我撩到了

账号		自动登录	找回密码
密码			注册

[【高飞鸟】] 用Beep演奏一段音乐--LISP的卖弄神器

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

点评

点评

点评

本帖子中包含更多资源

评分