He modificado un poco el código para que sea vea mejor en mi pantalla
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúmediaItem = vegas.Project.MediaPool:GetSelectedMediaItem(0)
take = mediaItem.Takes[0]
start = mediaItem.Position
length = mediaItem.Length
fx = take.FX
fxTimeStretch = nil
for i = 0, fx.Count-1 do
if fx[i].Name == "Time Stretch" then
fxTimeStretch = fx[i]
break
end
end
if fxTimeStretch == nil then
fxTimeStretch = vegas.VideoFX:AddVideoFXByName("VEGAS Time Stretch")
end
fxTimeStretch:StartParamEdit()
fxTimeStretch:SetFloat("Rate", 95)
fxTimeStretch:EndParamEdit()
fxTimeStretch:StartPlugEdit()
fxTimeStretch:SetFloat("Start", start)
fxTimeStretch:SetFloat("Length", length)
fxTimeStretch:EndPlugEdit()
using System;
using Sony.Vegas;
public class Script
{
public void Main(Vegas vegas)
{
TimeStretchPlugin timeStretch = GetTimeStretchPlugin(vegas);
foreach (Track track in vegas.Project.Tracks)
{
foreach (TrackEvent trackEvent in track.Events)
{
if (trackEvent.Selected)
{
timeStretch.TimeStretch(trackEvent.Start, trackEvent.Length, 0.95);
}
}
}
}
private TimeStretchPlugin GetTimeStretchPlugin(Vegas vegas)
{
foreach (FxType fxType in vegas.VideoFX.Types)
{
if (fxType.ClassName == "TimeStretch")
{
return fxType.NewPlugin() as TimeStretchPlugin;
}
}
return null;
}
}
Cita de: XarquS en 16 de Junio de 2023, 15:57:07Bueno, para mí es un viejo conocido. Ya presenté algún tutorial sobre su manejo básico (era la versión 4 que habrá que actualizar):