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 太太说:听音调还是有些不准。请程序员网友指正。

相关推荐
许嵩6614 小时前
IC脚本之perl
开发语言·perl
禾乃儿_xiuer4 天前
《Python制作动态爱心粒子特效》
开发语言·python·生活·pygame·爱心代码·python表白·初学者入门
虞书欣的66 天前
Python小游戏27——飞翔的小鸟
开发语言·人工智能·游戏·pycharm·pygame
云计算DevOps-韩老师7 天前
【网络云计算】2024第46周周考-磁盘管理的基础知识-RAID篇
网络·云计算·perl·devops·raid·lvm扩容·tcp模型
荼靡6037 天前
云技术基础
开发语言·perl
虞书欣的68 天前
Python小游戏24——小恐龙躲避游戏
开发语言·python·游戏·小程序·pygame
不太爱喝水10 天前
外星人入侵
开发语言·python·pygame
GDAL10 天前
linux入门教程:perl库
linux·运维·perl
狂奔solar11 天前
DQN强化训练agent玩是男人就下xx层小游戏
python·pygame·dqn 强化
星和月11 天前
Python——飞机大战
python·pygame