midi 檔案製作使用 R 的 gm 套件

樂譜製作需安裝 MuseScore 免費譜曲軟體 (請用 google 搜尋)

library(gm)
## Warning: 套件 'gm' 是用 R 版本 4.1.3 來建造的
## 
## 載入套件：'gm'
## 下列物件被遮斷自 'package:methods':
## 
##     show
pitches1 <- c(60, 62, 60, 65,67,65,67,69,NA,72,70,69,67,65, 65, 69, 67,NA)
durations1 <- c(1.5, 0.5, 1, 1,1,.5,.5,1.5,0.5,1.5, 0.5, 1, 1,1,0.5,0.5,1.5,0.5)
pitches2 <- c(69, 67, 65, 65,67,65,64,62,60,NA,67,60,62,60,64, 67, 65,NA)
durations2 <- c(1.5, 0.5, 1, 1,.5,.5,.5,.5,1.5,0.5,1.5, .5, .5, .5,.5,0.5,3,1)
pitches3 <- c(60,60,60,60,67,70,72,69,65,67,69,67,NA,72,72,72,72,74,74,74,72,69,67,69,65,65,NA)
durations3 <- c(.5, .5, 1, 1,.5,.25,.25,.5,.5,.5,.5, 1.5,.5,.5,.5,1,1,.5,.25,.25,.5,.5,.5,.5,3,.5,.5)
pitches4 <- c(60,60,60,NA,65,65,65,65,NA,67,67,67,NA,67,65,69,69,NA,72,72,72,NA,74,74,72,69,72,NA,69,67,67,NA,72,69,67,69,65,NA)
durations4 <- c(1,2,.5,.5,.5,.5,1,1.5,.5,1,2,.5,.5,.5,.5,1,1.5,.5,1,2,0.5,.5,.5,.5,.5,.5,1.5,.5,1,2,.5,.5,.5,.5,.5,.5,1.5,.5)
pitches5 <- c(60,60,60,NA,65,65,69,67,69,67,65,69,69,69,NA,72,72,72,69,72,69,67,72,72,69,67,69,65,65,NA)
durations5 <- c(1,2,.5,.5,1,2,1,3,.5,.25,.25,1,2,.5,.5,1,2,.5,.5,3,1,3,.5,.25,.25,.5,.5,2,.5,.5)
pitches6 <- c(60,65,65,NA,67,65,67,69,NA,74,72,69,72,72,NA,72,69,67,72,NA,72,72,74,74,72,69,72,69,67,72,69,67,69,65,NA)
durations6 <- c(1,2,.5,.5,.5,.5,.5,2,.5,.5,.25,.25,2,.5,.5,.5,.5,.5,2,.5,1.5,0.5,0.75,0.25,0.75,0.25,3,1,2,0.75,0.25,0.75,0.25,3,1)

pitchesA <- c(pitches1, pitches2, pitches3, pitches4, pitches5, pitches6)
durationsA <- c(durations1, durations2, durations3, durations4, durations5, durations6)

m <- Music() + Meter(4, 4) + Meter(3, 4, bar=9) + Meter(4, 4, bar=15)+Line(as.list(pitchesA),as.list(durationsA),tie=list(61,65,74,83,93,103,114,129,133,144))+ Key(-1)

show(m, to = c("score", "audio"))

更新後的校歌樂譜圖檔

2022.08.27