From 1903f3d6e4a81d0e97fde231cbea3bad7ed96ed1 Mon Sep 17 00:00:00 2001 From: Davide Morelli Date: Mon, 16 Jan 2006 12:44:45 +0000 Subject: added arguments at initialization time svn path=/trunk/externals/clr/; revision=4422 --- pd/Atom.cs | 6 ++++++ pd/pd.cs | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) (limited to 'pd') 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); -- cgit v1.2.1