added arguments at initialization time

svn path=/trunk/externals/clr/; revision=4422

2 files changed, 12 insertions, 1 deletions

diff --git a/pd/Atom.cs b/pd/Atom.cs
index 7e0affa..17c7183 100755
--- a/pd/Atom.cs
+++ b/pd/Atom.cs
@@ -18,6 +18,12 @@ namespace PureData
 			this.float_value = f;

 			this.string_value = "float";

 		}

+		public Atom(int i)

+		{

+			this.type = AtomType.Float;

+			this.float_value = (float) i;

+			this.string_value = "float";

+		}

 		public Atom(string s)

 		{

 			this.type = AtomType.Symbol;

diff --git a/pd/pd.cs b/pd/pd.cs
index a94b9f1..a0f28aa 100755
--- a/pd/pd.cs
+++ b/pd/pd.cs
@@ -25,7 +25,12 @@ namespace PureData
 		{

 			ToOutlet (x, outlet, atoms.Length, atoms);

 		}

-

+		public static void SendToOutlet (IntPtr x, int outlet, Atom atom)

+		{

+			Atom [] atoms = new Atom[1];

+			atoms[0] = atom;

+			ToOutlet (x, outlet, atoms.Length, atoms);

+		}

 		// create an outlet

 		[MethodImplAttribute (MethodImplOptions.InternalCall)]

 		private extern static void CreateOutlet (IntPtr x, int type);