fix Scramble offset

delthas · Apr 15, 2018 · e5aa208 · e5aa208
1 parent 2cacba7
commit e5aa208
Show file tree

Hide file tree

Showing 14 changed files with 245 additions and 9 deletions.
diff --git a/Datamosh.cs b/Datamosh.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;

diff --git a/Datamosh.png b/Datamosh.png
diff --git a/Datamosh14.cs b/Datamosh14.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;
@@ -16,7 +16,7 @@
 using System.Windows.Forms;
 using Microsoft.Win32;
 using Microsoft.WindowsAPICodePack.Dialogs;
-using Sony.Vegas;
+using ScriptPortal.Vegas;
 
 namespace VegasDatamosh {
   public class EntryPoint {

diff --git a/Layer.cs b/Layer.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;

diff --git a/Layer.png b/Layer.png
diff --git a/Layer14.cs b/Layer14.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;
@@ -17,7 +17,7 @@
 using System.Windows.Forms.VisualStyles;
 using Microsoft.Win32;
 using Microsoft.WindowsAPICodePack.Dialogs;
-using Sony.Vegas;
+using ScriptPortal.Vegas;
 
 namespace VegasLayering {
   public class EntryPoint {

diff --git a/Render.cs b/Render.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;

diff --git a/Render.png b/Render.png
diff --git a/Render14.cs b/Render14.cs
@@ -6,7 +6,7 @@
 // License: MIT
 // Source: https://github.com/delthas/vegas-datamosh
 // Documentation: https://github.com/delthas/vegas-datamosh
-// Version: 1.2.0
+// Version: 1.2.1
 //
 
 using System;
@@ -16,7 +16,7 @@
 using System.Windows.Forms;
 using Microsoft.Win32;
 using Microsoft.WindowsAPICodePack.Dialogs;
-using Sony.Vegas;
+using ScriptPortal.Vegas;
 
 namespace VegasRender {
   public class EntryPoint {

diff --git a/Scramble.cs b/Scramble.cs
@@ -0,0 +1,111 @@
+// Sony Vegas (<=13) script to scramble clips/events
+// quickly and automatically.
+//
+// Author: delthas
+// Date: 2018-04-15
+// License: MIT
+// Source: https://github.com/delthas/vegas-datamosh
+// Documentation: https://github.com/delthas/vegas-datamosh
+// Version: 1.2.1
+//
+
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Linq;
+using System.Windows.Forms;
+using Sony.Vegas;
+
+namespace VegasScramble {
+  public class EntryPoint {
+    private static readonly Random Random = new Random();
+
+    public void FromVegas(Vegas vegas) {
+      var events = vegas.Project.Tracks
+        .SelectMany(track => track.Events)
+        .Where(t => t.Selected)
+        .GroupBy(
+          t => new {
+            StartFrameCount = t.Start.FrameCount,
+            LengthFrameCount = t.Length.FrameCount
+          })
+        .Select(grp => grp.ToList())
+        .ToList();
+
+      var prompt = new Form {
+        Width = 500,
+        Height = 110,
+        Text = "Scrambling Parameters"
+      };
+      var textLabel = new Label {Left = 10, Top = 10, Text = "Scramble size"};
+      var inputBox = new NumericUpDown {
+        Left = 200,
+        Top = 10,
+        Width = 200,
+        Minimum = 1,
+        Maximum = 1000000000,
+        Text = ""
+      };
+      var confirmation = new Button {Text = "OK", Left = 200, Width = 100, Top = 40};
+      confirmation.Click += (sender, e) => {
+        prompt.DialogResult = DialogResult.OK;
+        prompt.Close();
+      };
+      prompt.Controls.Add(confirmation);
+      prompt.Controls.Add(textLabel);
+      prompt.Controls.Add(inputBox);
+      inputBox.Select();
+      prompt.AcceptButton = confirmation;
+      if (prompt.ShowDialog() != DialogResult.OK) {
+        return;
+      }
+
+      var size = (int) inputBox.Value;
+
+      if (size <= 0) {
+        MessageBox.Show("Scrambling size must be > 0!");
+        return;
+      }
+
+      try {
+        foreach (var e in events) {
+          var order = new List<int>();
+          var startFrameCount = e[0].Start.FrameCount;
+          var endFrameCount = e[0].End.FrameCount;
+          var n = (int) (endFrameCount - startFrameCount);
+          var l = n / size;
+          if(l == 0) continue;
+          if (n % size != 0) {
+            ++l;
+          }
+          for (var i = 0; i < l; i++) {
+            order.Add(i);
+          }
+
+
+          for (var i = 0; i < l - 1; i++) {
+            var k = i + 1 + Random.Next(l - i - 1);
+            var v = order[k];
+            order[k] = order[i];
+            order[i] = v;
+          }
+
+          foreach (var evt in e) {
+            int offset;
+            for (var i = l - 1; i > 0; i--) {
+              var other = evt.Split(Timecode.FromFrames(i * size));
+              offset = order[i] > order[l - 1] ? -(size - n % size) : 0;
+              other.Start = Timecode.FromFrames(startFrameCount + offset + order[i] * size);
+            }
+            offset = order[0] > order[l - 1] ? -(size - n % size) : 0;
+            evt.Start = Timecode.FromFrames(startFrameCount + offset + order[0] * size);
+          }
+        }
+      }
+      catch (Exception e) {
+        MessageBox.Show("Unexpected exception: " + e.Message);
+        Debug.WriteLine(e);
+      }
+    }
+  }
+}
diff --git a/Scramble.cs.config b/Scramble.cs.config
@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ScriptSettings>
+  <AssemblyReference>System.dll</AssemblyReference>
+  <AssemblyReference>System.Core.dll</AssemblyReference>
+  <CompilerOptions>-debug -D:DEBUG</CompilerOptions>
+  <IconFile>Scramble.png</IconFile>
+</ScriptSettings>
diff --git a/Scramble.png b/Scramble.png
diff --git a/Scramble14.cs b/Scramble14.cs
@@ -0,0 +1,111 @@
+// MAGIX Vegas (>=14) script to scramble clips/events
+// quickly and automatically.
+//
+// Author: delthas
+// Date: 2018-04-15
+// License: MIT
+// Source: https://github.com/delthas/vegas-datamosh
+// Documentation: https://github.com/delthas/vegas-datamosh
+// Version: 1.2.1
+//
+
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Linq;
+using System.Windows.Forms;
+using ScriptPortal.Vegas;
+
+namespace VegasScramble {
+  public class EntryPoint {
+    private static readonly Random Random = new Random();
+
+    public void FromVegas(Vegas vegas) {
+      var events = vegas.Project.Tracks
+        .SelectMany(track => track.Events)
+        .Where(t => t.Selected)
+        .GroupBy(
+          t => new {
+            StartFrameCount = t.Start.FrameCount,
+            LengthFrameCount = t.Length.FrameCount
+          })
+        .Select(grp => grp.ToList())
+        .ToList();
+
+      var prompt = new Form {
+        Width = 500,
+        Height = 110,
+        Text = "Scrambling Parameters"
+      };
+      var textLabel = new Label {Left = 10, Top = 10, Text = "Scramble size"};
+      var inputBox = new NumericUpDown {
+        Left = 200,
+        Top = 10,
+        Width = 200,
+        Minimum = 1,
+        Maximum = 1000000000,
+        Text = ""
+      };
+      var confirmation = new Button {Text = "OK", Left = 200, Width = 100, Top = 40};
+      confirmation.Click += (sender, e) => {
+        prompt.DialogResult = DialogResult.OK;
+        prompt.Close();
+      };
+      prompt.Controls.Add(confirmation);
+      prompt.Controls.Add(textLabel);
+      prompt.Controls.Add(inputBox);
+      inputBox.Select();
+      prompt.AcceptButton = confirmation;
+      if (prompt.ShowDialog() != DialogResult.OK) {
+        return;
+      }
+
+      var size = (int) inputBox.Value;
+
+      if (size <= 0) {
+        MessageBox.Show("Scrambling size must be > 0!");
+        return;
+      }
+
+      try {
+        foreach (var e in events) {
+          var order = new List<int>();
+          var startFrameCount = e[0].Start.FrameCount;
+          var endFrameCount = e[0].End.FrameCount;
+          var n = (int) (endFrameCount - startFrameCount);
+          var l = n / size;
+          if(l == 0) continue;
+          if (n % size != 0) {
+            ++l;
+          }
+          for (var i = 0; i < l; i++) {
+            order.Add(i);
+          }
+
+
+          for (var i = 0; i < l - 1; i++) {
+            var k = i + 1 + Random.Next(l - i - 1);
+            var v = order[k];
+            order[k] = order[i];
+            order[i] = v;
+          }
+
+          foreach (var evt in e) {
+            int offset;
+            for (var i = l - 1; i > 0; i--) {
+              var other = evt.Split(Timecode.FromFrames(i * size));
+              offset = order[i] > order[l - 1] ? -(size - n % size) : 0;
+              other.Start = Timecode.FromFrames(startFrameCount + offset + order[i] * size);
+            }
+            offset = order[0] > order[l - 1] ? -(size - n % size) : 0;
+            evt.Start = Timecode.FromFrames(startFrameCount + offset + order[0] * size);
+          }
+        }
+      }
+      catch (Exception e) {
+        MessageBox.Show("Unexpected exception: " + e.Message);
+        Debug.WriteLine(e);
+      }
+    }
+  }
+}
diff --git a/Scramble14.cs.config b/Scramble14.cs.config
@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<ScriptSettings>
+  <AssemblyReference>System.dll</AssemblyReference>
+  <AssemblyReference>System.Core.dll</AssemblyReference>
+  <CompilerOptions>-debug -D:DEBUG</CompilerOptions>
+  <IconFile>Scramble.png</IconFile>
+</ScriptSettings>