收藏本站 繁體浏览
切换到宽版

TCAX 字幕特效制作工具官方论坛 | ASS | TCAS | Python | Aegisub | Lua

 找回密码
 新人加入
TCAX 字幕特效制作工具官方论坛 | ASS | TCAS | Python | Aegisub | Lua › TCAX › TCAX 使用交流 & 作品展示 › 代码分享 › tcAudio模块特效示例 - ASS外挂音频柱状图(频谱分析) ...
返回列表 发新帖
查看: 8032|回复: 13
打印 上一主题 下一主题

[其他代码] tcAudio模块特效示例 - ASS外挂音频柱状图(频谱分析) [复制链接]

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
跳转到指定楼层
楼主
发表于 2011-12-5 13:41:54 |只看该作者 |倒序浏览
说明

需要先添加tcAudio模块, 下载地址 http://www.tcax.org/forum.php?mod=viewthread&tid=198
附件为完整工程, 其中test.mp3可以被替换, 推荐的音频格式为wav, mp3, ogg.
本例子仅作为一个展示用例.
  1. from tcaxPy import *
  2. from util.tcAudio import *

  4. SPECWIDTH = 368
  5. SPECHEIGHT = 127
  6. BANDS = 28

  8. def Spectrum(fft):      # convert fft data to graph
  9.     bars = []
  10.     b0 = 0
  11.     for x in range(BANDS):
  12.         peak = 0        # peak of a certain bar
  13.         b1 = pow(2, x * 10.0 / (BANDS - 1))
  14.         if b1 > 1023:
  15.             b1 = 1023
  16.         if b1 <= b0:
  17.             b1 = b0 + 1    # make sure it uses at least 1 FFT bin
  18.         while b0 < b1:
  19.             if peak < fft[1 + b0]:
  20.                 peak = fft[1 + b0]
  21.             b0 += 1
  22.         y = int(sqrt(peak) * 3 * SPECHEIGHT - 4)   # scale it (sqrt to make low values more visible)
  23.         if y > SPECHEIGHT:
  24.             y = SPECHEIGHT     # cap it
  25.         bars.append(y)
  26.     return bars

  28. def tcaxPy_User():
  29.     file_name = GetVal(val_OutFile) + '.ass'
  30.     ass_header = GetVal(val_AssHeader)
  31.     ASS_FILE = CreateAssFile(file_name, ass_header)
  32.     tcAudioInit()
  33.     channel = tcAudioOpen('test.mp3')
  34.     freq = tcAudioGetFreq(channel)      # usually 44100 Hz
  35.     duration = tcAudioGetDuration(channel)
  36.     num = int(duration * freq / 2048)
  37.     for i in range(num):
  38.         ASS_BUF = []
  39.         fft = tcAudioGetFFT(channel, 2048)
  40.         bars = Spectrum(fft)
  41.         bar_width = int(SPECWIDTH / BANDS)
  42.         count = len(bars)
  43.         for j in range(count):
  44.             start = i * 100 * 2048 / freq
  45.             end = (i + 1) * 100 * 2048 / freq
  46.             x = (1280 - SPECWIDTH) / 2 + bar_width * j
  47.             y = 700
  48.             FSC = fsc((bar_width - 2) * 100, bars[j] * 100)
  49.             CLR = color1(FmtRGB(j * 10 % 255, randint(0, 20), randint(20, 60))) + alpha1(50)    # a little change
  50.             ass_main(ASS_BUF, SubL(start, end, 0, Pix_Style), an(1) + pos(x, y) + FSC + CLR, PixPt())
  51.         WriteAssFile(ASS_FILE, ASS_BUF)     # write the buffer in memory to the file
  52.         progress(i + 1, num)
  53.     tcAudioFin()
  54.     FinAssFile(ASS_FILE)
复制代码

test_spectrum.rar

1.01 MB, 下载次数: 4674

完整工程

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
沙发
发表于 2011-12-5 13:49:54 |只看该作者
效果截图

spectrum.jpg

如果外挂预览比较卡, 可以试着只生成一部分 (提前关掉执行窗口, 已生成的部分ASS依然可以被使用), 或者直接压制后预览...

举报

5231251

正式会员

爱理人士

Rank: 4
板凳
发表于 2011-12-20 17:28:21 |只看该作者
为什么不行啊
audio.jpg

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
地板
发表于 2011-12-20 18:04:39 |只看该作者
5231251 发表于 2011-12-20 17:28
为什么不行啊

用千千静听转换成mp3, 或wav试试吧.... 测试版, 问题难免...

举报

5231251

正式会员

爱理人士

Rank: 4
5#
发表于 2011-12-21 01:37:58 |只看该作者
都试过了啊 问题依旧！桑心……

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
6#
发表于 2011-12-21 15:14:57 |只看该作者
5231251 发表于 2011-12-21 01:37
都试过了啊 问题依旧！桑心……

QQ上把音频文件和脚本发我吧...

举报

5231251

正式会员

爱理人士

Rank: 4
7#
发表于 2011-12-22 01:01:19 |只看该作者
milkyjing 发表于 2011-12-21 15:14
QQ上把音频文件和脚本发我吧...

发在你的邮箱了

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
8#
发表于 2011-12-22 16:20:13 |只看该作者
5231251 发表于 2011-12-22 01:01
发在你的邮箱了

用附件中这个dll替换掉TCAX\util中的那个同名bass.dll再试试吧.

bass.rar

100.29 KB, 下载次数: 4244

替换

举报

5231251

正式会员

爱理人士

Rank: 4
9#
发表于 2011-12-27 18:33:10 |只看该作者
好吧   还是不行   算了！

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
10#
发表于 2011-12-27 22:41:53 |只看该作者
5231251 发表于 2011-12-27 18:33
好吧   还是不行   算了！

等以后出正式版吧... 这个版本只是提供个概念...

举报

5231251

正式会员

爱理人士

Rank: 4
11#
发表于 2012-1-15 18:43:33 |只看该作者
现在这个可以用了  
问下那个音频柱大小可以修改吗  可以的话怎么修改

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
12#
发表于 2012-1-15 19:17:33 |只看该作者
5231251 发表于 2012-1-15 18:43
现在这个可以用了  
问下那个音频柱大小可以修改吗  可以的话怎么修改


可以, 修改SPECWIDTH或bar_width的值吧...

p.s. 说实话, 没什么不能修改的...

举报

5231251

正式会员

爱理人士

Rank: 4
13#
发表于 2012-1-15 23:36:20 |只看该作者
milkyjing 发表于 2012-1-15 19:17
可以, 修改SPECWIDTH或bar_width的值吧...

p.s. 说实话, 没什么不能修改的...

那怎么修改它的位置  在tcc中定义alignment好像不管用  想放在屏幕角落

举报

milkyjing

Administrator

TCAX Dev.

Rank: 7Rank: 7Rank: 7
14#
发表于 2012-1-16 00:06:41 |只看该作者
5231251 发表于 2012-1-15 23:36
那怎么修改它的位置  在tcc中定义alignment好像不管用  想放在屏幕角落


TCC配置通常是针对内置特效的, 自己定制(编写)的脚本不一定会支持(要支持的话, 得编写不少额外代码, 增加复杂度), 所以最直接的办法是修改py脚本...

要先对python有个入门级的了解...

对于本例, 你只要修改pos中的数值就可以了 (如果不明白这句话的含义, 那我建议你先去学习一下py入门编程-->真的没有捷径)

相关链接: http://www.tcax.org/forum.php?mod=viewthread&tid=40

http://www.tcax.org/forum.php?mod=viewthread&tid=30



举报

Seekladoom

Rank: 4
15#
发表于 2022-2-13 01:18:53 |只看该作者
本帖最后由 Seekladoom 于 2022-2-13 01:22 编辑

【频谱特效测试】冒险岛背景音乐 5首.part01.rar (950 KB, 下载次数: 3356)
【频谱特效测试】冒险岛背景音乐 5首.part02.rar (950 KB, 下载次数: 3245)
【频谱特效测试】冒险岛背景音乐 5首.part03.rar (950 KB, 下载次数: 3243)
【频谱特效测试】冒险岛背景音乐 5首.part04.rar (146.88 KB, 下载次数: 3134)

随手改了几个TCAX频谱的配色：
图1：DarkMage - 黑魔法师登场曲（配色来源：老黑战斗场景的黑红紫配色）
DarkMage.png

图2：Dream Fragments - 露西德二阶段战斗曲（配色来源：露西德发色）
Dream Fragments.png

图3：Kinesis Theme Ⅰ - 超能力者凯内西斯主题曲（配色来源：凯内西斯的副武器——国际象棋）
Kinesis Theme I.png

图4：Start the Adventure - 冒险岛初代登录曲（配色来源：登录界面的那块木板）
Start the Adventure.png

图5：Title 2010 Winter - 冒险岛第二代登录曲（配色来源：登录成功时的提示框）
Title 2010 Winter.png

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 新人加入

GitHub|TCAX 主页

GMT+8, 2024-11-22 04:22

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回顶部
RealH