import mido from mido import Message, MidiFile, MidiTrack # 创建MIDI文件，设定默认PPQN=480（四分音符=480tick，二分音符=960tick） mid = MidiFile() track = MidiTrack() mid.tracks.append(track) # 初始化：120BPM速度 + 选择竹笛音色（贴近羽调式古风，program=73） track.append(mido.MetaMessage('set_tempo', tempo=mido.bpm2tempo(120))) track.append(Message('program_change', program=73, time=0)) # 核心配置： # 1. 五声羽调式（以D为羽音，对应音高：D4-F4-G4-A4-C5，符合回环柔和的调性） # 2. 诗句对应旋律：4句诗共用核心动机，第4句旋律回归第1句，实现回环 pitch_map = { # 第1句：赏花归去马如飞 "赏": 62, "花": 65, "归": 67, "去": 69, "马": 72, "如": 69, "飞": 67, # 第2句：去马如飞酒力微（复用第1句后4字旋律，自然衔接） "酒": 67, "力": 65, "微": 62, # 第3句：酒力微醒时已暮（复用第2句前3字旋律，铺垫回环） "醒": 62, "时": 65, "已": 67, "暮": 69, # 第4句：醒时已暮赏花归（复用第3句前4字+第1句前3字旋律，完成回环） "赏": 62, "花": 65, "归": 67 } # 完整28字回文诗文本 poem = [ "赏", "花", "归", "去", "马", "如", "飞", # 第1句（7字） "去", "马", "如", "飞", "酒", "力", "微", # 第2句（7字） "酒", "力", "微", "醒", "时", "已", "暮", # 第3句（7字） "醒", "时", "已", "暮", "赏", "花", "归" # 第4句（7字） ] # 生成音符事件：前6字四分音符（480tick），尾字二分音符（960tick） for i, char in enumerate(poem): pitch = pitch_map[char] # 音符按下（音量中等，velocity=70） track.append(Message('note_on', note=pitch, velocity=70, time=0)) # 判断是否为句尾字（第7、14、21、28字），设置对应时长 if (i + 1) % 7 == 0: track.append(Message('note_off', note=pitch, velocity=70, time=960)) # 尾字：二分音符 else: track.append(Message('note_off', note=pitch, velocity=70, time=480)) # 非尾字：四分音符 # 保存MIDI文件 mid.save('huihuan_poem_yu_mode.mid') print("28字回文诗羽调式MIDI已生成：huihuan_poem_yu_mode.mid")
填词
赏花归去马如飞去马如飞酒力微酒力微醒时已暮醒时已暮赏花归