[PD-cvs] externals/clr/Counter Counter.cs,1.4,1.5

Thomas Grill xovo at users.sourceforge.net
Thu Mar 9 02:48:23 CET 2006


Update of /cvsroot/pure-data/externals/clr/Counter
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16855/clr/Counter

Modified Files:
	Counter.cs 
Log Message:
implemented proxy objects and other stuff
cleaned up the code

Index: Counter.cs
===================================================================
RCS file: /cvsroot/pure-data/externals/clr/Counter/Counter.cs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Counter.cs	8 Mar 2006 17:37:25 -0000	1.4
--- Counter.cs	9 Mar 2006 01:48:21 -0000	1.5
***************
*** 18,23 ****
          this.args = (PureData.Atom[])args;
  
!         AddInlet(s_list,new PureData.Symbol("list2"));
          AddInlet(ref farg);
          AddOutletBang();
      }
--- 18,25 ----
          this.args = (PureData.Atom[])args;
  
! //        AddInlet(s_list,new PureData.Symbol("list2"));
!         AddInlet();
          AddInlet(ref farg);
+         AddInlet();
          AddOutletBang();
      }
***************
*** 27,37 ****
  	private static ClassType Setup(Counter obj)
  	{
! 	    Add(new MethodBang(obj.MyBang));
!         Add(new MethodFloat(obj.MyFloat));
!         Add(new MethodSymbol(obj.MySymbol));
!         Add(new MethodList(obj.MyList));
!         Add("set",new MethodList(obj.MySet));
!         Add("send",new MethodList(obj.MySend));
!         Add(new MethodAnything(obj.MyAnything));
  
          Post("Count.Main");
--- 29,41 ----
  	private static ClassType Setup(Counter obj)
  	{
! 	    AddMethod(0,new MethodBang(obj.MyBang));
!         AddMethod(0,new MethodFloat(obj.MyFloat));
!         AddMethod(0,new MethodSymbol(obj.MySymbol));
!         AddMethod(0,new MethodList(obj.MyList));
!         AddMethod(0,"set",new MethodAnything(obj.MySet));
!         AddMethod(0,"send",new MethodAnything(obj.MySend));
!         AddMethod(0,new MethodAnything(obj.MyAnything));
!         AddMethod(1,new MethodFloat(obj.MyFloat1));
!         AddMethod(1,new MethodAnything(obj.MyAny1));
  
          Post("Count.Main");
***************
*** 51,54 ****
--- 55,68 ----
      }
  
+     protected virtual void MyFloat1(float f) 
+     { 
+         Post("Count-FLOAT1 "+f.ToString()); 
+     }
+ 
+     protected virtual void MyAny1(int ix,PureData.Symbol s,PureData.AtomList l) 
+     { 
+         Post(ix.ToString()+": Count-ANY1 "+l.ToString()); 
+     }
+ 
      protected virtual void MySymbol(PureData.Symbol s) 
      { 
***************
*** 63,67 ****
      }
  
!     protected virtual void MySet(PureData.AtomList l) 
      { 
          Post("Count-SET "+l.ToString()); 
--- 77,81 ----
      }
  
!     protected virtual void MySet(int ix,PureData.Symbol s,PureData.AtomList l) 
      { 
          Post("Count-SET "+l.ToString()); 
***************
*** 69,73 ****
      }
  
!     protected virtual void MySend(PureData.AtomList l) 
      { 
          Send(new PureData.Symbol("receiver"),l);
--- 83,87 ----
      }
  
!     protected virtual void MySend(int ix,PureData.Symbol s,PureData.AtomList l) 
      { 
          Send(new PureData.Symbol("receiver"),l);
***************
*** 75,81 ****
      }
  
!     protected virtual void MyAnything(PureData.Symbol s,PureData.AtomList l) 
      { 
!         Post("Count-("+s.ToString()+") "+l.ToString()); 
          Outlet(0,s,l);
      }
--- 89,95 ----
      }
  
!     protected virtual void MyAnything(int ix,PureData.Symbol s,PureData.AtomList l) 
      { 
!         Post(ix.ToString()+": Count-("+s.ToString()+") "+l.ToString()); 
          Outlet(0,s,l);
      }





More information about the Pd-cvs mailing list