Mercurial > vegas-scripts

annotate Convert Pitch Scheme.cs @ 6:d6fb9b751b03 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hg: purge .github folder
author Paper <paper@tflc.us>
date Tue, 25 Mar 2025 00:29:30 -0400
parents d32ae6be32a4
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
1 /* NOTE: Requires VEGAS 16 or higher. */
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
2
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
3 using ScriptPortal.Vegas;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
4 using System;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
5 using System.Windows.Forms;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
6 using System.Collections.Generic;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
7
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
8 public class EntryPoint {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
9 private Dictionary<string, int> stretchAttributes = new Dictionary<string, int>
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
10 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
11 {"Pro", 0},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
12 {"Efficient", 1},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
13 {"Soloist (Monophonic)", 2},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
14 {"Soloist (Speech)", 3},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
15 {"A01. Music 1 (minimum flange, may echo)", 4},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
16 {"A02. Music 2", 5},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
17 {"A03. Music 3 (less echo)", 6},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
18 {"A04. Music 4 (fast, good for bass)", 7},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
19 {"A05. Music 5", 8},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
20 {"A06. Music 6", 9},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
21 {"A07. Speech 1", 10},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
22 {"A08. Speech 2", 11},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
23 {"A09. Speech 3 (fast)", 12},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
24 {"A10. Solo instruments 1", 13},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
25 {"A11. Solo instruments 2", 14},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
26 {"A12. Solo instruments 3", 15},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
27 {"A13. Solo instruments 4 (less echo)", 16},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
28 {"A14. Solo instruments 5", 17},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
29 {"A15. Solo instruments 6", 18},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
30 {"A16. Solo instruments 7 (fast)", 19},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
31 {"A17. Drums, unpitched (minimum echo)", 20},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
32 {"A18. Drums (better for toms)", 21},
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
33 {"A19. Drums (tiny echo)", 22}
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
34 };
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
35 public void FromVegas(Vegas vegas) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
36 int stretchAttribute = Prompt.GetOptions(stretchAttributes);
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
37 foreach (var track in vegas.Project.Tracks) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
38 foreach (var trackEvent in track.Events) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
39 if (trackEvent.Selected && trackEvent.IsAudio()) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
40 AudioEvent audio = trackEvent as AudioEvent;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
41 if ((stretchAttribute >= 0) && (stretchAttribute <= 3)) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
42 audio.Method = (TimeStretchPitchShift)2; /* pitch shift method; 0 is elastique, 1 is acid style, 2 is classic, and 3 is none */
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
43 audio.ElastiqueAttribute = (ElastiqueStretchAttributes)stretchAttribute;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
44 } else if (stretchAttribute >= 4) {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
45 audio.Method = (TimeStretchPitchShift)0;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
46 audio.ClassicAttribute = (ClassicStretchAttributes)stretchAttribute-4;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
47 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
48 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
49 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
50 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
51 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
52 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
53
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
54 class Prompt
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
55 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
56 public static int GetOptions(Dictionary<string,int> stretchAttributes)
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
57 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
58 Form prompt = new Form() {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
59 Width = 300,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
60 Height = 103,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
61 FormBorderStyle = FormBorderStyle.FixedSingle,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
62 MaximizeBox = false,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
63 MinimizeBox = false,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
64 ShowIcon = false,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
65 Text = "made by paper"
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
66 };
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
67 ComboBox
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
68 inputValue = new ComboBox()
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
69 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
70 Left = 7,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
71 Top = 10,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
72 Width = (prompt.Width - 30)
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
73 };
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
74 Button
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
75 confirmation = new Button()
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
76 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
77 Text = "OK",
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
78 Left = 7,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
79 Width = (prompt.Width - 30),
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
80 Top = 35,
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
81 DialogResult = DialogResult.OK
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
82 };
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
83
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
84 inputValue.BeginUpdate();
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
85 inputValue.DataSource = new BindingSource(stretchAttributes, null);
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
86 inputValue.DisplayMember = "Key";
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
87 inputValue.ValueMember = "Value";
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
88 inputValue.EndUpdate();
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
89
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
90 inputValue.DropDownStyle = ComboBoxStyle.DropDownList;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
91
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
92 prompt.Controls.Add(inputValue);
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
93 prompt.Controls.Add(confirmation);
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
94 prompt.AcceptButton = confirmation;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
95
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
96 confirmation.Click += (sender, e) =>
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
97 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
98 prompt.Close();
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
99 };
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
100
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
101 if (prompt.ShowDialog() == DialogResult.OK)
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
102 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
103 return inputValue.SelectedIndex;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
104 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
105 else
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
106 {
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
107 return -1;
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
108 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
109 }
32af787f8cb8 Migrate files from gist
Paper <37962225+mrpapersonic@users.noreply.github.com>
parents:
diff changeset
110 }