perl:用 MIDI::Simple 生成midi文件,用 pygame 播放 mid文件

csdn.net 下载 strawberry-perl-5.32.1.1-64bit.zip 解压安装在 D:\Strawberry\

运行 cpan

install MIDI::Simple

D:\Strawberry\c\bin\gmake.exe test -- OK

Running make install for CONKLIN/MIDI-Perl-0.84.tar.gz

Installing D:\Strawberry\perl\site\lib\MIDI.pm

Installing D:\Strawberry\perl\site\lib\MIDI\Event.pm

Installing D:\Strawberry\perl\site\lib\MIDI\Filespec.pod

Installing D:\Strawberry\perl\site\lib\MIDI\Opus.pm

Installing D:\Strawberry\perl\site\lib\MIDI\Score.pm

Installing D:\Strawberry\perl\site\lib\MIDI\Simple.pm

Installing D:\Strawberry\perl\site\lib\MIDI\Track.pm

Appending installation info to D:\Strawberry\perl\lib/perllocal.pod

CONKLIN/MIDI-Perl-0.84.tar.gz

D:\Strawberry\c\bin\gmake.exe install UNINST=1 -- OK


官网文档:https://metacpan.org/pod/MIDI::Simple

编辑 test_midi.pl 如下

perl 复制代码
#!/usr/bin/perl
use warnings;
use MIDI::Simple;
new_score;
text_event 'http://www.ely.anglican.org/parishes/camgsm/bells/chimes.html';
text_event 'Lord through this hour/ be Thou our guide';
text_event 'so, by Thy power/ no foot shall slide';
set_tempo 500000;  # 1 qn => .5 seconds (500,000 microseconds)
patch_change 1, 8;  # Patch 8 = Celesta
 
noop c1, f, o5;  # Setup
# Now play
n 'qn', 'Cs';    n 'F';   n 'Ds';  n 'hn', 'Gs_d1';
n 'qn', 'Cs';    n 'Ds';  n 'F';   n 'hn', 'Cs';
n 'qn', 'F';     n 'Cs';  n 'Ds';  n 'hn', 'Gs_d1';
n 'qn', 'Gs_d1'; n 'Ds';  n 'F';   n 'hn', 'Cs';
 
write_score 'westminster_chimes.mid';

运行 perl test_midi.pl 生成 westminster_chimes.mid 文件

运行 python play_mid.py westminster_chimes.mid

play_mid.py 参见:python:用 mido 生成 midi文件,用 pygame 播放 mid文件


持续时间参数:当前的法定值以"wn"、"hn"、"qn"、"en"、"sn"开头,表示整音符、二分音符、四分音符、八分音符或十六分音符。

字母数字的形式是:一个字符串表示八度音程内的音符(由 确定),然后是一个可选参数"_u[number]"表示"从当前八度音阶上升这么多个八度音阶"或"_d[参数]"表示"从当前八度音阶下降这么多个八度音阶"。例如:"C"、"As"或"Asharp"、"Bflat"或"Bf"、"C_d3"、"As_d1"或"Asharp_d1"、"Bflat_u3"或"Bf_u3"。

patch_change 通道、补丁;

key_after_touch 通道、音符、速度;

channel_after_touch 通道、速度;

control_change 通道,控制器(0-127),值(0-127);

pitch_wheel_change 频道,pitch_wheel;

set_tempo 节奏;(请参阅下面的速度部分。

smpte_offset 小时、明尼苏达州、东南、法国、ff;

time_signature nn、dd、cc、bb;

key_signature SF, MI ;

text_event 文本;

copyright_text_event 文本;

track_name 文本;

instrument_name 文本;

歌词文本;

set_sequence_number 序列;


乐器伴奏《祝你生日快乐》,编写 happy_birthday.pl 如下

perl 复制代码
#!/usr/bin/perl
use warnings;
use MIDI::Simple;
new_score;
text_event 'score: Happy birthday to you';
set_tempo 500000;  # 1 qn => .5 seconds (500,000 microseconds)
#patch_change 1, 8;  # Patch 8 = Celesta
 
noop c1, f, o5;  # Setup
# Now play
n 'qn','G_d1'; n 'qn','G_d1'; n 'hn','A_d1'; n 'hn','G_d1';
n 'hn','C'; n 'wn','B_d1'; 
n 'qn','G_d1'; n 'qn','G_d1'; n 'hn','A_d1'; n 'hn','G_d1';
n 'hn','D'; n 'wn','C';
n 'qn','G_d1'; n 'qn','G_d1'; n 'hn','G'; n 'hn','E';
n 'hn','C'; n 'hn', 'B_d1'; n 'hn', 'A_d1';
n 'qn','F'; n 'qn','F'; n 'hn','E'; n 'hn','C';
n 'hn','D'; n 'wn','C';

write_score 'happy_birthday.mid';

运行 perl happy_birthday.pl 生成 happy_birthday.mid 文件

演奏 python play_mid.py happy_birthday.mid

my 太太说:听音调还是有些不准。请程序员网友指正。

相关推荐
白狐欧莱雅18 小时前
使用python中的pygame简单实现飞机大战游戏
经验分享·python·游戏·pygame
豆本-豆豆奶20 小时前
用 Python 写了一个天天酷跑(附源码)
开发语言·python·游戏·pygame·零基础教程
狐凄1 天前
Python练习9
开发语言·python·pygame
徐浪老师2 天前
妙趣横生:Python 动画程序的实现与多样化拓展
开发语言·python·pygame
虞书欣的62 天前
Python小游戏22——吃豆豆小游戏
python·算法·游戏·编辑器·pygame
虞书欣的64 天前
Python小游戏20——超级玛丽
开发语言·python·游戏·pycharm·pygame
镜花照无眠5 天前
python 五子棋小游戏
开发语言·python·pygame
虞书欣的65 天前
Python小游戏19——滑雪小游戏
python·游戏·小程序·pycharm·pygame
jinyuya5 天前
[perl] 数组与哈希
开发语言·perl
棉猴6 天前
《Python游戏编程入门》注-第4章6
python·pygame·监控鼠标·python游戏编程·轮询鼠标