1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
# zip.rb -- zip.scm -> zip.rb -*- snd-ruby -*-
# Translator: Michael Scholz <mi-scholz@users.sourceforge.net>
# Created: Sun Apr 24 22:53:42 CEST 2005
# Changed: Sat Sep 26 02:08:01 CEST 2009
# Commentary:
# create the 'digital zipper' effect
# a not-very-debonair way to fade out file1 and fade in file2
# this is also good if the same file is used twice -- sort of like a
# CD player gone berserk
#
# safe_srate
#
# class Zipper
# initialize(ramp_env, frame_size = 0.05, frame_env = false)
# zipper(input1, input2)
#
# make_zipper(ramp_env, frame_size = 0.05, frame_env = false)
# zipper(zp, input1, input2)
# zip_sound(start, dur, file1, file2, ramp = [0, 0, 1, 1], size = 0.05)
# Code:
def safe_srate
(sounds and srate()) or mus_srate()
end
class Zipper
def initialize(ramp_env, frame_size = 0.05, frame_env = false)
max_size = 1 + (safe_srate * frame_size).ceil
@low_start = 20
@frame_loc = 0
@cursamples = 0
@frame0 = Vct.new(max_size)
@frame1 = Vct.new(max_size)
@frame2 = Vct.new(max_size)
@fe = (frame_env or make_env([0, safe_srate * 0.05], :length, ramp_env.length))
@rampe = ramp_env
end
def zipper(input1, input2)
ramp_loc = env(@rampe)
frame_samples = env(@fe).floor
if (chunk_len = (frame_samples.to_f * ramp_loc).round) <= @low_start
@frame_loc = 0
input1.call
elsif chunk_len >= frame_samples - @low_start
@frame_loc = 0
input2.call
else
if @frame_loc >= @cursamples
@frame_loc = 0
@cursamples = frame_samples
frame_samples.times do |i|
@frame1[i] = input1.call
@frame2[i] = input2.call
end
@frame0.fill(0.0)
start_ctr = 0.0
samp2 = frame_samples.to_f / chunk_len
chunk_len.times do |i|
ictr = start_ctr.floor
y0 = @frame2[ictr]
y1 = @frame2[ictr + 1]
@frame0[i] = y0 + (y1 - y0) * (start_ctr - ictr)
start_ctr += samp2
end
start_ctr = 0
samp1 = frame_samples.to_f / (frame_samples.to_f - chunk_len)
chunk_len.upto(frame_samples - 1) do |i|
ictr = start_ctr.floor
y0 = @frame1[ictr]
y1 = @frame1[ictr + 1]
@frame0[i] = y0 + (y1 - y0) * (start_ctr - ictr)
start_ctr += samp1
end
end
result = @frame0[@frame_loc]
@frame_loc += 1
result
end
end
end
add_help(:make_zipper,
"make_zipper(ramp_env, [frame_size=0.05, [frame_env=false]]) \
makes a zipper generator. 'ramp_env' is an envelope (normally a ramp from 0 to 1) \
which sets where we are in the zipping process, \
'frame_size' is the maximum frame length during the zip in seconds (defaults to 0.05), \
and 'frame_env' is an envelope returning the current frame size during the zip process.")
def make_zipper(ramp_env, frame_size = 0.05, frame_env = false)
Zipper.new(ramp_env, frame_size, frame_env)
end
add_help(:zipper,
"zipper(zip, in1, in2) \
creates the digital zipper sound effect using zipper generator 'zip' \
and the two samplers 'in1' and 'in2'")
def zipper(zp, input1, input2)
zp.zipper(input1, input2)
end
add_help(:zip_sound,
"zip_sound(start, dur, file1, file2, [ramp_env=[0, 0, 1, 1], [size=0.05]]) \
zips the two files and mixes the result into the current sound")
def zip_sound(start, dur, file1, file2, ramp = [0, 0, 1, 1], size = 0.05)
beg = seconds2samples(start)
len = seconds2samples(dur)
zip = make_zipper(make_env(:envelope, ramp, :length, len),
size,
make_env(:envelope, [0, safe_srate * size], :length, len))
read0 = make_sampler(0, file1)
read1 = make_sampler(0, file2)
map_channel(lambda do |y| y + zipper(zip, read0, read1) end, beg, len)
end
# zip_sound(0, 1, "fyow.snd", "now.snd", [0, 0, 1, 1], 0.05)
# zip_sound(0, 3, "mb.snd", "fyow.snd", [0, 0, 1, 0, 1.5, 1, 3, 1], 0.025)
# zip.rb ends here
|
