[PD-cvs] externals/sc4pd/source main.cpp,1.1.1.1,1.2 support.hpp,1.1.1.1,1.2 Dust.cpp,1.1.1.1,1.2 Dust2.cpp,1.1.1.1,1.2

[Tim Blechmann]

Update of /cvsroot/pure-data/externals/sc4pd/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7437

Modified Files:
	main.cpp support.hpp Dust.cpp Dust2.cpp 
Log Message:
update & bugfix

Index: support.hpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/support.hpp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** support.hpp	14 Jul 2004 16:21:44 -0000	1.1.1.1
--- support.hpp	14 Jul 2004 18:29:52 -0000	1.2
***************
*** 61,65 ****
  inline float sc_getfloatarg (flext::AtomList a,int i)
  {
!     if (a.Count() >0 || a.Count() <i)
  	return flext::GetAFloat(a[i]);
      else 
--- 61,65 ----
  inline float sc_getfloatarg (flext::AtomList a,int i)
  {
!     if (a.Count() > 0 && a.Count() > i)
  	return flext::GetAFloat(a[i]);
      else 
***************
*** 67,70 ****
--- 67,84 ----
  }
  
+ inline bool sc_ar(flext::AtomList a)
+ {
+     for (int i = 0; i!=a.Count();++i)
+     {
+ 	if ( flext::IsSymbol(a[i]) )
+ 	{
+ 	    const char * teststring; 
+ 	    teststring = flext::GetString(a[i]);
+ 	    if((strcmp(teststring,"ar"))==0)
+ 		return true;
+ 	}
+     }
+     return false;
+ }
  
  // macros to put rgen state in registers

Index: main.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** main.cpp	14 Jul 2004 16:21:44 -0000	1.1.1.1
--- main.cpp	14 Jul 2004 18:29:52 -0000	1.2
***************
*** 50,56 ****
      post("compiled on "__DATE__);
      post("contains: Dust(~), MantissaMask(~), Hasher(~), Median(~), "
! 	 "BrownNoise(~),");
!     post("          ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), "
! 	 "PinkNoise(~)\n");
  
      //initialize objects
--- 50,56 ----
      post("compiled on "__DATE__);
      post("contains: Dust(~), MantissaMask(~), Hasher(~), Median(~), "
! 	 "BrownNoise(~),\n"
! 	 "          ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), "
! 	 "PinkNoise(~), \n          Crackle(~), Rand(~)\n");
  
      //initialize objects
***************
*** 87,90 ****
--- 87,94 ----
      FLEXT_DSP_SETUP(Crackle_ar);
      FLEXT_SETUP(Crackle_kr);
+ 
+     FLEXT_DSP_SETUP(Rand_ar);
+     FLEXT_SETUP(Rand_kr);
+ 
  }
  

Index: Dust.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust.cpp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Dust.cpp	14 Jul 2004 16:21:44 -0000	1.1.1.1
--- Dust.cpp	14 Jul 2004 18:29:52 -0000	1.2
***************
*** 129,133 ****
      void m_set(float f);
      Timer Dust_timer;
!     void m_doit();
      
  private:
--- 129,133 ----
      void m_set(float f);
      Timer Dust_timer;
!     void m_doit(void*);
      
  private:
***************
*** 172,176 ****
  }
  
! void Dust_kr::m_doit()
  {
      ToOutFloat(0,rgen.frand());
--- 172,176 ----
  }
  
! void Dust_kr::m_doit(void*)
  {
      ToOutFloat(0,rgen.frand());

Index: Dust2.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust2.cpp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Dust2.cpp	14 Jul 2004 16:21:44 -0000	1.1.1.1
--- Dust2.cpp	14 Jul 2004 18:29:52 -0000	1.2
***************
*** 130,134 ****
      void m_set(float f);
      Timer Dust2_timer;
!     void m_doit();
      
  private:
--- 130,134 ----
      void m_set(float f);
      Timer Dust2_timer;
!     void m_doit(void*);
      
  private:
***************
*** 173,177 ****
  }
  
! void Dust2_kr::m_doit()
  {
      ToOutFloat(0,2*rgen.frand() - 1 );
--- 173,177 ----
  }
  
! void Dust2_kr::m_doit(void*)
  {
      ToOutFloat(0,2*rgen.frand() - 1 );