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

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)
)

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

tigcat 发表于 2022-8-9 12:47
;抄了一个天空之城的,c语言中有sleep函数，不知道含义，直接屏蔽了
(defun c:tkzc ()
(princ "\n开始为 ...

好，回头有时间我补充下，办公室电脑没有耳机，听不到声音。
上次这么有趣的帖子是在命令行显示诗词。

陨落 · 发表于 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))
)
)

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

lijiao · 发表于 2022-8-9 13:19

向大师学习学习

angel066499 · 发表于 2022-8-9 13:47

拜读大师，感谢分享

竹天 · 发表于 2022-8-9 14:57

学习一下

songyujie928 · 发表于 2022-8-9 15:11

向高飞大神学习

czb203 · 发表于 2022-8-9 15:28

都是人才啊！！

guosheyang · 发表于 2022-8-9 16:00

陨落发表于 2022-8-9 13:09
有点儿意思，在此奉上“粉刷匠”：

嗯你这个粉刷匠很流畅不错！

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

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

点评

点评