Luxophia

1
unit LUX.Audio.SDIF.Frames.ASO1;
2

3
interface //#################################################################### ■
4

5
uses LUX.Audio.SDIF.Frames;
6

7
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
8

9
     TFrameTran = class;  //Transposition
10
     TFrameTmSt = class;  //Time Stretch
11
     TFrameFrmt = class;  //Formant Filter
12
     TFrameBpGa = class;  //Gain Envelope
13
     TFrameRflt = class;  //Rectangular Surface Filter
14
     TFrameClip = class;  //Spectral Clipping Filter
15
     TFrameGsim = class;  //Harmonic Filter
16
     TFrameFrze = class;  //Freeze
17
     TFrameRevs = class;  //Reverse / Repeat
18
     TFrameImag = class;  //Image Filter
19
     TFrameBrkp = class;  //Spectral Break Point Filter
20
     TFrameSurf = class;  //Filter form Analysis(Surface Filter)
21
     TFrameBand = class;  //Multi Band Filter
22
                          //Melodic Transposition
23
     TFrameNoiz = class;  //Create Noize Zone form Selection
24

25
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
26

27
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
28

29
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameTran
30

31
     TFrameTran = class( TFrame1ASO )
32
     private
33
     protected
34
     public
35
       constructor Create; override;
36
       destructor Destroy; override;
37
     end;
38

39
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameTmSt
40

41
     TFrameTmSt = class( TFrame1ASO )
42
     private
43
     protected
44
     public
45
       constructor Create; override;
46
       destructor Destroy; override;
47
     end;
48

49
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameFrmt
50

51
     TFrameFrmt = class( TFrame1ASO )
52
     private
53
     protected
54
     public
55
       constructor Create; override;
56
       destructor Destroy; override;
57
     end;
58

59
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBpGa
60

61
     TFrameBpGa = class( TFrame1ASO )
62
     private
63
     protected
64
     public
65
       constructor Create; override;
66
       destructor Destroy; override;
67
     end;
68

69
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameRflt
70

71
     TFrameRflt = class( TFrame1ASO )
72
     private
73
     protected
74
     public
75
       constructor Create; override;
76
       destructor Destroy; override;
77
     end;
78

79
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameClip
80

81
     TFrameClip = class( TFrame1ASO )
82
     private
83
     protected
84
     public
85
       constructor Create; override;
86
       destructor Destroy; override;
87
     end;
88

89
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameGsim
90

91
     TFrameGsim = class( TFrame1ASO )
92
     private
93
     protected
94
     public
95
       constructor Create; override;
96
       destructor Destroy; override;
97
     end;
98

99
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameFrze
100

101
     TFrameFrze = class( TFrame1ASO )
102
     private
103
     protected
104
     public
105
       constructor Create; override;
106
       destructor Destroy; override;
107
     end;
108

109
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameRevs
110

111
     TFrameRevs = class( TFrame1ASO )
112
     private
113
     protected
114
     public
115
       constructor Create; override;
116
       destructor Destroy; override;
117
     end;
118

119
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameImag
120

121
     TFrameImag = class( TFrame1ASO )
122
     private
123
     protected
124
     public
125
       constructor Create; override;
126
       destructor Destroy; override;
127
     end;
128

129
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBrkp
130

131
     TFrameBrkp = class( TFrame1ASO )
132
     private
133
     protected
134
     public
135
       constructor Create; override;
136
       destructor Destroy; override;
137
     end;
138

139
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameSurf
140

141
     TFrameSurf = class( TFrame1ASO )
142
     private
143
     protected
144
     public
145
       constructor Create; override;
146
       destructor Destroy; override;
147
     end;
148

149
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBand
150

151
     TFrameBand = class( TFrame1ASO )
152
     private
153
     protected
154
     public
155
       constructor Create; override;
156
       destructor Destroy; override;
157
     end;
158

159
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameNoiz
160

161
     TFrameNoiz = class( TFrame1ASO )
162
     private
163
     protected
164
     public
165
       constructor Create; override;
166
       destructor Destroy; override;
167
     end;
168

169
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
170

171
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
172

173
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
174

175
implementation //############################################################### ■
176

177
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
178

179
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
180

181
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameTran
182

183
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
184

185
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
186

187
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
188

189
constructor TFrameTran.Create;
190
begin
191
     inherited;
192

193
end;
194

195
destructor TFrameTran.Destroy;
196
begin
197

198
     inherited;
199
end;
200

201
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameTmSt
202

203
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
204

205
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
206

207
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
208

209
constructor TFrameTmSt.Create;
210
begin
211
     inherited;
212

213
end;
214

215
destructor TFrameTmSt.Destroy;
216
begin
217

218
     inherited;
219
end;
220

221
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameFrmt
222

223
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
224

225
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
226

227
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
228

229
constructor TFrameFrmt.Create;
230
begin
231
     inherited;
232

233
end;
234

235
destructor TFrameFrmt.Destroy;
236
begin
237

238
     inherited;
239
end;
240

241
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBpGa
242

243
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
244

245
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
246

247
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
248

249
constructor TFrameBpGa.Create;
250
begin
251
     inherited;
252

253
end;
254

255
destructor TFrameBpGa.Destroy;
256
begin
257

258
     inherited;
259
end;
260

261
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameRflt
262

263
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
264

265
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
266

267
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
268

269
constructor TFrameRflt.Create;
270
begin
271
     inherited;
272

273
end;
274

275
destructor TFrameRflt.Destroy;
276
begin
277

278
     inherited;
279
end;
280

281
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameClip
282

283
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
284

285
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
286

287
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
288

289
constructor TFrameClip.Create;
290
begin
291
     inherited;
292

293
end;
294

295
destructor TFrameClip.Destroy;
296
begin
297

298
     inherited;
299
end;
300

301
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameGsim
302

303
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
304

305
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
306

307
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
308

309
constructor TFrameGsim.Create;
310
begin
311
     inherited;
312

313
end;
314

315
destructor TFrameGsim.Destroy;
316
begin
317

318
     inherited;
319
end;
320

321
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameFrze
322

323
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
324

325
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
326

327
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
328

329
constructor TFrameFrze.Create;
330
begin
331
     inherited;
332

333
end;
334

335
destructor TFrameFrze.Destroy;
336
begin
337

338
     inherited;
339
end;
340

341
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameRevs
342

343
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
344

345
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
346

347
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
348

349
constructor TFrameRevs.Create;
350
begin
351
     inherited;
352

353
end;
354

355
destructor TFrameRevs.Destroy;
356
begin
357

358
     inherited;
359
end;
360

361
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameImag
362

363
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
364

365
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
366

367
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
368

369
constructor TFrameImag.Create;
370
begin
371
     inherited;
372

373
end;
374

375
destructor TFrameImag.Destroy;
376
begin
377

378
     inherited;
379
end;
380

381
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBrkp
382

383
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
384

385
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
386

387
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
388

389
constructor TFrameBrkp.Create;
390
begin
391
     inherited;
392

393
end;
394

395
destructor TFrameBrkp.Destroy;
396
begin
397

398
     inherited;
399
end;
400

401
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameSurf
402

403
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
404

405
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
406

407
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
408

409
constructor TFrameSurf.Create;
410
begin
411
     inherited;
412

413
end;
414

415
destructor TFrameSurf.Destroy;
416
begin
417

418
     inherited;
419
end;
420

421
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameBand
422

423
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
424

425
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
426

427
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
428

429
constructor TFrameBand.Create;
430
begin
431
     inherited;
432

433
end;
434

435
destructor TFrameBand.Destroy;
436
begin
437

438
     inherited;
439
end;
440

441
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TFrameNoiz
442

443
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
444

445
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
446

447
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
448

449
constructor TFrameNoiz.Create;
450
begin
451
     inherited;
452

453
end;
454

455
destructor TFrameNoiz.Destroy;
456
begin
457

458
     inherited;
459
end;
460

461
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
462

463
//############################################################################## □
464

465
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
466

467
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
468

469
end. //######################################################################### ■