博尔赫斯《英文诗两首》

Posted 2023-05-09

参考技术A 英文诗两首 （二）

——博尔赫斯

我用什么才能留住你?

我给你贫穷的街道、绝望的日落、破败郊区的月亮。

我给你一个久久地望着孤月的人的悲哀。

我给你我已死去的先辈,人们用大理石纪念他们的幽灵:

在布宜诺斯艾利斯边境阵亡的我父亲的父亲,两颗子弹射穿了他的胸膛,蓄着胡子的他死去了,士兵们用牛皮裹起他的尸体;我母亲的祖父——时年二十四岁——在秘鲁率领三百名士兵冲锋,如今都成了消失的马背上的幽灵。

我给你我写的书中所能包含的一切悟力、我生活中所能有的男子气概或幽默。

我给你一个从未有过信仰的人的忠诚。

我给你我设法保全的我自己的核心——不营字造句,不和 梦想交易,不被时间、欢乐和逆境触动的核心。

我给你,早在你出生前多年的一个傍晚看到的一朵黄玫瑰的记忆。

我给你你对自己的解释,关于你自己的理论,你自己的真实而惊人的消息。

我给你我的寂寞、我的黑暗、我心的饥渴;我试图用困惑、危险、失败来打动你。

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