博尔赫斯二十首情诗

Posted 2023-05-09

参考技术A

博尔赫斯二十首情诗如下：

1、酒渣色的云使天空显得粗俗，为我紧闭的眼帘带来黎明。——《失眠》

2、我用什么才能留住你？我给你贫穷的街道、绝望的日落、破败郊区的月亮。我给你一个久久地望着孤月的人的悲哀。——《英文诗两首》其二

3、它们已在岁月的河流中消失；你只是目录里的一个条目。——《致诗选中的一位小诗人》

4、你消磨了岁月，岁月也消磨了你，你至今没有写出诗。——《【马太福音】第二十五第三十节》

5、为了抹掉或减轻现实的残酷，他寻找着梦想的东西。——《乌尔比纳的一名士兵》

6、记忆中得以延续的东西归于他，归于我们的是渣滓。——《另一个》

7、我不再是那个久久地望着海洋的人，望着海洋和它深远的草原。——《亚历山大·塞尔扣克》

8、武士的影子笼罩这里，我在他面前是影子下的影子。——《约克大教堂的一把剑》

9、你冷冷地燃烧，独自在沙漠；无人理解你的灵魂，而你已死去。——《致卡尔十二世》

10、为少数人创造的企盼的天国，对几乎所有人来说是地狱。——《乔纳森·爱德华兹》

11、我的名声传遍了大陆；但我没有生活。我想成为另一个人。——《爱默生》

12、也许他从死亡的另一面，继续孜孜不倦地创造惊世骇俗的珍品。——《埃德加·爱伦·坡》

13、愿她的回忆永远和我相随。其余的事情自有荣耀诉说。——《拉斐尔·坎西诺斯–阿森斯》

14、我要痛饮你晶莹的遗忘，地久天长，但没有以往。——《谜》

15、一个象征。一朵玫瑰使你心碎，一首吉他乐曲可能要你性命。——《一九六四年》

16、你走遍了天涯路；如今只剩下铿锵的诗。——《致一位撒克逊诗人》

17、如今你在我身体里，你是我朦胧的命运，那些感觉至死才会消失。——《布宜诺斯艾利斯》

18、黑暗中你的一吻，比什么都更温馨。——《短歌》其一

19、一个女人的名字让我无法隐藏。一个女人使我浑身疼痛。——《威胁》

20、我们不能指望天堂，但是却可以相信地狱。——《四个时代》

ruby 博尔德短跑主题

# Boulder Dash for ATARI 2600, by Peter Liepa, 1984
# A Live Loop to algorave to.
#
# Original music (Youtube, Commodore 64 version): https://www.youtube.com/watch?v=14CAO72_pJw
# A pretty accurate transcription:  https://musescore.com/user/3769276/scores/1076731  (I can't hear any errors)
#
# Interesting note:  Boulder Dash was originally written for the ATARI 2600 video game console, which had a TIA sound chip
# with two oscillators to generate tones (max polyphony was 2). So on both the Youtube recording (which is of a C64 port)
# and the MIDI score transcription, only two notes are ever played at once.
#
# More on Boulder Dash: https://en.wikipedia.org/wiki/Boulder_Dash

# 8 bars, 16 semiquavers per bar, two-tone polyphony, consequently no actual rests, but the bass and treble parts bounce
# between the two occilators. 128 x 2 notes. Repeats forever.

aud0 =       [ :F3,  :A3,  :C4,  :F4,    :G3, :Bb3,  :C4,  :G4,   :Db4, :Eb4,  :F4, :Ab4,   :Eb4,  :D5,  :E4,  :C5]
aud0.concat  [ :F3,  :F4,  :C3,  :G3,   :Eb3,  :G4,  :G3, :Eb3,    :F3,  :F4,  :C3,  :G3,   :Db3,  :F5,  :F3, :Db3]
aud0.concat  [:Eb3, :Eb4, :Bb3,  :F3,    :B3, :Eb5, :Eb4,  :B3,    :C2,  :E4,  :C2,  :F4,   :Bb3, :Bb3, :Bb4, :Bb3]
aud0.concat  [ :F4,  :F4,  :F4,  :F4,    :F4,  :F4,  :F4,  :F4,    :F4,  :F4,  :F4,  :F4,    :F4,  :F4,  :F4,  :F4]
aud0.concat  [ :F4,  :A4,  :F4, :Bb4,    :F4,  :A4,  :F4, :Bb4,    :F4,  :A4,  :F4, :Bb4,   :Eb4,  :G4, :Eb4, :Ab4]
aud0.concat  [ :F4,  :F5,  :F4, :Eb5,    :F4,  :D5,  :F4,  :C5,   :Eb4, :Eb5, :Eb4, :Eb5,   :Eb4, :Bb4, :Eb4, :Eb5]
aud0.concat  [ :F4,  :A4,  :F4, :Bb4,    :F4,  :A4,  :F4, :Bb4,    :F4,  :A4,  :F4, :Bb4,   :Eb4,  :G4, :Eb4, :Ab4]
aud0.concat  [ :A4,  :F4,  :C4,  :A3,    :G4, :Eb4, :Bb3, :Eb3,    :C5,  :A4,  :F4,  :C4,    :G4, :Eb4, :Bb3, :Eb3]

aud0=aud0.ring

aud1 =       [ :F2,  :C3,  :F3, :Ab3,   :Eb2,  :D3, :Eb3, :Bb3,   :Db2, :Db2, :Db3, :Db2,   :Eb3, :Bb4,  :E3,  :A4]
aud1.concat  [ :F2,  :F2,  :F2,  :F2,   :Eb2, :Eb2, :Eb2, :Eb2,    :F2,  :F2,  :F2,  :F2,   :Db3, :Db3, :Db3, :Db3]
aud1.concat  [:Eb2, :Eb2, :Eb2, :Eb2,    :B2,  :B2,  :B2,  :B2,    :C2,  :C3,  :C2,  :C3,   :Bb2, :Bb2,  :F2,  :F2]
aud1.concat  [ :F2,  :F2,  :F2,  :F2,    :F3,  :F3,  :F2,  :F2,   :Eb2, :Eb2, :Eb2, :Eb2,   :Eb3, :Eb3, :Eb2, :Eb2]
aud1.concat  [ :F2,  :F4,  :F2,  :F4,    :F3,  :F4,  :F2,  :F4,   :Eb2,  :F4, :Eb2,  :F4,   :Eb3, :Eb4, :Eb2, :Eb4]
aud1.concat  [ :F2,  :F2,  :F2,  :C5,    :F3,  :F3,  :F2,  :C5,   :Eb2, :Eb2, :Eb2, :Eb2,   :Eb3, :Eb3, :Eb2, :Eb2]
aud1.concat  [ :F2,  :F4,  :F2,  :F4,    :F3,  :F4,  :F2,  :F4,   :Eb2,  :F4, :Eb2,  :F4,   :Eb3, :Eb4, :Eb2, :Eb4]
aud1.concat  [ :F4,  :C4,  :A3,  :F3,   :Eb4, :Bb3,  :G3, :Eb2,    :A4,  :F4,  :C4,  :A3,   :Bb3,  :G3, :Eb3, :Eb2]

aud1=aud1.ring

####

use_transpose 0
use_synth :tri
use_synth_defaults attack: 0, decay: 0, sustain: 0.25, release: 0.2

use_bpm 93
set :position, tick_reset
dur=0.25
phz=4

live_loop :metro do
  sleep dur
  set :position, tick
end

live_loop :au0 do
  use_synth :tri
  ##| with_fx :ixi_techno, phase: phz, res: 0.95, cutoff_max: 129, cutoff_min: 50 do #, delay: 8, feedback: 5
  ##|   steps=phz/dur
  ##|   steps.times do
  play aud0[sync :position], pan: -0.5
  ##|   end
  ##| end
end

live_loop :au1 do
  use_synth :subpulse
  ##| with_fx :bitcrusher do
  play aud1[sync :position], pan: 0.5#, sustain: 0.0125#, sustain: 0.0125, pan: 1, amp: 2
  ##| end
end