- Reestructuración de ficheros y directorios general
- merge v0.01 --> Añadido fileselector - Añadidas fuentes de Gem y Pure Data - pix2jpg incluído en Gem. Archivos de construcción de Gem modificados. - Añadido fichero ompiling.txt con instrucciones de compilación
This commit is contained in:
		
							parent
							
								
									c9adfd020b
								
							
						
					
					
						commit
						e85d191b46
					
				
					 3100 changed files with 775434 additions and 3073 deletions
				
			
		
							
								
								
									
										28
									
								
								pd-0.44-2/extra/pique/GNUmakefile.am
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										28
									
								
								pd-0.44-2/extra/pique/GNUmakefile.am
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,28 @@ | |||
| ## Makefile.am -- Process this file with automake to produce Makefile.in | ||||
| 
 | ||||
| NAME=pique | ||||
| 
 | ||||
| external_LTLIBRARIES = pique.la | ||||
| SOURCES =  pique.c | ||||
| PATCHES =  pique-help.pd | ||||
| OTHERDATA =  | ||||
| 
 | ||||
| ############################### | ||||
| # you shouldn't need to add anything below here | ||||
| dist_external_DATA = $(PATCHES) $(OTHERDATA) | ||||
| 
 | ||||
| AUTOMAKE_OPTIONS = foreign | ||||
| AM_CPPFLAGS	 = -I$(top_srcdir)/src -DPD | ||||
| AM_CFLAGS = @ARCH_CFLAGS@ | ||||
| AM_LIBS = $(LIBM) | ||||
| AM_LDFLAGS = -module -avoid-version -shared @ARCH_LDFLAGS@ -shrext .@EXTERNAL_EXTENSION@ -L$(top_srcdir)/src | ||||
| 
 | ||||
| externaldir = $(pkglibdir)/extra/$(NAME) | ||||
| 
 | ||||
| 
 | ||||
| if MINGW | ||||
| AM_LIBS += -lpd | ||||
| endif | ||||
| 
 | ||||
| libtool: $(LIBTOOL_DEPS) | ||||
| 	$(SHELL) ./config.status --recheck | ||||
							
								
								
									
										616
									
								
								pd-0.44-2/extra/pique/GNUmakefile.in
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										616
									
								
								pd-0.44-2/extra/pique/GNUmakefile.in
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,616 @@ | |||
| # GNUmakefile.in generated by automake 1.11.6 from GNUmakefile.am. | ||||
| # @configure_input@ | ||||
| 
 | ||||
| # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, | ||||
| # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software | ||||
| # Foundation, Inc. | ||||
| # This Makefile.in is free software; the Free Software Foundation | ||||
| # gives unlimited permission to copy and/or distribute it, | ||||
| # with or without modifications, as long as this notice is preserved. | ||||
| 
 | ||||
| # This program is distributed in the hope that it will be useful, | ||||
| # but WITHOUT ANY WARRANTY, to the extent permitted by law; without | ||||
| # even the implied warranty of MERCHANTABILITY or FITNESS FOR A | ||||
| # PARTICULAR PURPOSE. | ||||
| 
 | ||||
| @SET_MAKE@ | ||||
| 
 | ||||
| 
 | ||||
| VPATH = @srcdir@ | ||||
| am__make_dryrun = \ | ||||
|   { \ | ||||
|     am__dry=no; \ | ||||
|     case $$MAKEFLAGS in \ | ||||
|       *\\[\ \	]*) \ | ||||
|         echo 'am--echo: ; @echo "AM"  OK' | $(MAKE) -f - 2>/dev/null \ | ||||
|           | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ | ||||
|       *) \ | ||||
|         for am__flg in $$MAKEFLAGS; do \ | ||||
|           case $$am__flg in \ | ||||
|             *=*|--*) ;; \ | ||||
|             *n*) am__dry=yes; break;; \ | ||||
|           esac; \ | ||||
|         done;; \ | ||||
|     esac; \ | ||||
|     test $$am__dry = yes; \ | ||||
|   } | ||||
| pkgdatadir = $(datadir)/@PACKAGE@ | ||||
| pkgincludedir = $(includedir)/@PACKAGE@ | ||||
| pkglibdir = $(libdir)/@PACKAGE@ | ||||
| pkglibexecdir = $(libexecdir)/@PACKAGE@ | ||||
| am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd | ||||
| install_sh_DATA = $(install_sh) -c -m 644 | ||||
| install_sh_PROGRAM = $(install_sh) -c | ||||
| install_sh_SCRIPT = $(install_sh) -c | ||||
| INSTALL_HEADER = $(INSTALL_DATA) | ||||
| transform = $(program_transform_name) | ||||
| NORMAL_INSTALL = : | ||||
| PRE_INSTALL = : | ||||
| POST_INSTALL = : | ||||
| NORMAL_UNINSTALL = : | ||||
| PRE_UNINSTALL = : | ||||
| POST_UNINSTALL = : | ||||
| build_triplet = @build@ | ||||
| host_triplet = @host@ | ||||
| @MINGW_TRUE@am__append_1 = -lpd | ||||
| subdir = extra/pique | ||||
| DIST_COMMON = $(dist_external_DATA) $(srcdir)/GNUmakefile.am \ | ||||
| 	$(srcdir)/GNUmakefile.in | ||||
| ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 | ||||
| am__aclocal_m4_deps = $(top_srcdir)/m4/android.m4 \ | ||||
| 	$(top_srcdir)/m4/iphone.m4 $(top_srcdir)/m4/universal.m4 \ | ||||
| 	$(top_srcdir)/m4/generated/libtool.m4 \ | ||||
| 	$(top_srcdir)/m4/generated/ltoptions.m4 \ | ||||
| 	$(top_srcdir)/m4/generated/ltsugar.m4 \ | ||||
| 	$(top_srcdir)/m4/generated/ltversion.m4 \ | ||||
| 	$(top_srcdir)/m4/generated/lt~obsolete.m4 \ | ||||
| 	$(top_srcdir)/configure.ac | ||||
| am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ | ||||
| 	$(ACLOCAL_M4) | ||||
| mkinstalldirs = $(install_sh) -d | ||||
| CONFIG_CLEAN_FILES = | ||||
| CONFIG_CLEAN_VPATH_FILES = | ||||
| am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; | ||||
| am__vpath_adj = case $$p in \ | ||||
|     $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ | ||||
|     *) f=$$p;; \ | ||||
|   esac; | ||||
| am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; | ||||
| am__install_max = 40 | ||||
| am__nobase_strip_setup = \ | ||||
|   srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` | ||||
| am__nobase_strip = \ | ||||
|   for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" | ||||
| am__nobase_list = $(am__nobase_strip_setup); \ | ||||
|   for p in $$list; do echo "$$p $$p"; done | \ | ||||
|   sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ | ||||
|   $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ | ||||
|     if (++n[$$2] == $(am__install_max)) \ | ||||
|       { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ | ||||
|     END { for (dir in files) print dir, files[dir] }' | ||||
| am__base_list = \ | ||||
|   sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ | ||||
|   sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | ||||
| am__uninstall_files_from_dir = { \ | ||||
|   test -z "$$files" \ | ||||
|     || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ | ||||
|     || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ | ||||
|          $(am__cd) "$$dir" && rm -f $$files; }; \ | ||||
|   } | ||||
| am__installdirs = "$(DESTDIR)$(externaldir)" \ | ||||
| 	"$(DESTDIR)$(externaldir)" | ||||
| LTLIBRARIES = $(external_LTLIBRARIES) | ||||
| pique_la_LIBADD = | ||||
| pique_la_SOURCES = pique.c | ||||
| pique_la_OBJECTS = pique.lo | ||||
| DEFAULT_INCLUDES = -I.@am__isrc@ | ||||
| depcomp = $(SHELL) $(top_srcdir)/m4/config/depcomp | ||||
| am__depfiles_maybe = depfiles | ||||
| am__mv = mv -f | ||||
| COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ | ||||
| 	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) | ||||
| LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ | ||||
| 	--mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ | ||||
| 	$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) | ||||
| CCLD = $(CC) | ||||
| LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ | ||||
| 	--mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ | ||||
| 	$(LDFLAGS) -o $@ | ||||
| DIST_SOURCES = pique.c | ||||
| am__can_run_installinfo = \ | ||||
|   case $$AM_UPDATE_INFO_DIR in \ | ||||
|     n|no|NO) false;; \ | ||||
|     *) (install-info --version) >/dev/null 2>&1;; \ | ||||
|   esac | ||||
| DATA = $(dist_external_DATA) | ||||
| ETAGS = etags | ||||
| CTAGS = ctags | ||||
| DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) | ||||
| ACLOCAL = @ACLOCAL@ | ||||
| ALLOCA = @ALLOCA@ | ||||
| ALSA_LIBS = @ALSA_LIBS@ | ||||
| AMTAR = @AMTAR@ | ||||
| AR = @AR@ | ||||
| ARCH_CFLAGS = @ARCH_CFLAGS@ | ||||
| ARCH_LDFLAGS = @ARCH_LDFLAGS@ | ||||
| AS = @AS@ | ||||
| AUTOCONF = @AUTOCONF@ | ||||
| AUTOHEADER = @AUTOHEADER@ | ||||
| AUTOMAKE = @AUTOMAKE@ | ||||
| AWK = @AWK@ | ||||
| CC = @CC@ | ||||
| CCDEPMODE = @CCDEPMODE@ | ||||
| CFLAGS = @CFLAGS@ | ||||
| CPP = @CPP@ | ||||
| CPPFLAGS = @CPPFLAGS@ | ||||
| CXX = @CXX@ | ||||
| CXXCPP = @CXXCPP@ | ||||
| CXXDEPMODE = @CXXDEPMODE@ | ||||
| CXXFLAGS = @CXXFLAGS@ | ||||
| CYGPATH_W = @CYGPATH_W@ | ||||
| DEFS = @DEFS@ | ||||
| DEPDIR = @DEPDIR@ | ||||
| DLLTOOL = @DLLTOOL@ | ||||
| DSYMUTIL = @DSYMUTIL@ | ||||
| DUMPBIN = @DUMPBIN@ | ||||
| ECHO_C = @ECHO_C@ | ||||
| ECHO_N = @ECHO_N@ | ||||
| ECHO_T = @ECHO_T@ | ||||
| EGREP = @EGREP@ | ||||
| EXEEXT = @EXEEXT@ | ||||
| EXTERNAL_CFLAGS = @EXTERNAL_CFLAGS@ | ||||
| EXTERNAL_EXTENSION = @EXTERNAL_EXTENSION@ | ||||
| EXTERNAL_LDFLAGS = @EXTERNAL_LDFLAGS@ | ||||
| EXTERNTARGET = @EXTERNTARGET@ | ||||
| FGREP = @FGREP@ | ||||
| GREP = @GREP@ | ||||
| HAVE_MSGFMT = @HAVE_MSGFMT@ | ||||
| INCLUDES = @INCLUDES@ | ||||
| INSTALL = @INSTALL@ | ||||
| INSTALL_DATA = @INSTALL_DATA@ | ||||
| INSTALL_PROGRAM = @INSTALL_PROGRAM@ | ||||
| INSTALL_SCRIPT = @INSTALL_SCRIPT@ | ||||
| INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ | ||||
| JACK_LIBS = @JACK_LIBS@ | ||||
| LD = @LD@ | ||||
| LDFLAGS = @LDFLAGS@ | ||||
| LIBM = @LIBM@ | ||||
| LIBOBJS = @LIBOBJS@ | ||||
| LIBS = @LIBS@ | ||||
| LIBTOOL = @LIBTOOL@ | ||||
| LIPO = @LIPO@ | ||||
| LN_S = @LN_S@ | ||||
| LTLIBOBJS = @LTLIBOBJS@ | ||||
| MAKEINFO = @MAKEINFO@ | ||||
| MANIFEST_TOOL = @MANIFEST_TOOL@ | ||||
| MKDIR_P = @MKDIR_P@ | ||||
| NM = @NM@ | ||||
| NMEDIT = @NMEDIT@ | ||||
| OBJDUMP = @OBJDUMP@ | ||||
| OBJEXT = @OBJEXT@ | ||||
| OTOOL = @OTOOL@ | ||||
| OTOOL64 = @OTOOL64@ | ||||
| PACKAGE = @PACKAGE@ | ||||
| PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ | ||||
| PACKAGE_NAME = @PACKAGE_NAME@ | ||||
| PACKAGE_STRING = @PACKAGE_STRING@ | ||||
| PACKAGE_TARNAME = @PACKAGE_TARNAME@ | ||||
| PACKAGE_URL = @PACKAGE_URL@ | ||||
| PACKAGE_VERSION = @PACKAGE_VERSION@ | ||||
| PATH_SEPARATOR = @PATH_SEPARATOR@ | ||||
| RANLIB = @RANLIB@ | ||||
| SED = @SED@ | ||||
| SET_MAKE = @SET_MAKE@ | ||||
| SHELL = @SHELL@ | ||||
| STRIP = @STRIP@ | ||||
| VERSION = @VERSION@ | ||||
| abs_builddir = @abs_builddir@ | ||||
| abs_srcdir = @abs_srcdir@ | ||||
| abs_top_builddir = @abs_top_builddir@ | ||||
| abs_top_srcdir = @abs_top_srcdir@ | ||||
| ac_ct_AR = @ac_ct_AR@ | ||||
| ac_ct_CC = @ac_ct_CC@ | ||||
| ac_ct_CXX = @ac_ct_CXX@ | ||||
| ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ | ||||
| am__include = @am__include@ | ||||
| am__leading_dot = @am__leading_dot@ | ||||
| am__quote = @am__quote@ | ||||
| am__tar = @am__tar@ | ||||
| am__untar = @am__untar@ | ||||
| bindir = @bindir@ | ||||
| build = @build@ | ||||
| build_alias = @build_alias@ | ||||
| build_cpu = @build_cpu@ | ||||
| build_os = @build_os@ | ||||
| build_vendor = @build_vendor@ | ||||
| builddir = @builddir@ | ||||
| datadir = @datadir@ | ||||
| datarootdir = @datarootdir@ | ||||
| docdir = @docdir@ | ||||
| dvidir = @dvidir@ | ||||
| exec_prefix = @exec_prefix@ | ||||
| host = @host@ | ||||
| host_alias = @host_alias@ | ||||
| host_cpu = @host_cpu@ | ||||
| host_os = @host_os@ | ||||
| host_vendor = @host_vendor@ | ||||
| htmldir = @htmldir@ | ||||
| includedir = @includedir@ | ||||
| infodir = @infodir@ | ||||
| install_sh = @install_sh@ | ||||
| libdir = @libdir@ | ||||
| libexecdir = @libexecdir@ | ||||
| localedir = @localedir@ | ||||
| localstatedir = @localstatedir@ | ||||
| mandir = @mandir@ | ||||
| mkdir_p = @mkdir_p@ | ||||
| oldincludedir = @oldincludedir@ | ||||
| pdfdir = @pdfdir@ | ||||
| prefix = @prefix@ | ||||
| program_transform_name = @program_transform_name@ | ||||
| psdir = @psdir@ | ||||
| sbindir = @sbindir@ | ||||
| sharedstatedir = @sharedstatedir@ | ||||
| srcdir = @srcdir@ | ||||
| subdirs = @subdirs@ | ||||
| sysconfdir = @sysconfdir@ | ||||
| target_alias = @target_alias@ | ||||
| top_build_prefix = @top_build_prefix@ | ||||
| top_builddir = @top_builddir@ | ||||
| top_srcdir = @top_srcdir@ | ||||
| NAME = pique | ||||
| external_LTLIBRARIES = pique.la | ||||
| SOURCES = pique.c | ||||
| PATCHES = pique-help.pd | ||||
| OTHERDATA =  | ||||
| 
 | ||||
| ############################### | ||||
| # you shouldn't need to add anything below here | ||||
| dist_external_DATA = $(PATCHES) $(OTHERDATA) | ||||
| AUTOMAKE_OPTIONS = foreign | ||||
| AM_CPPFLAGS = -I$(top_srcdir)/src -DPD | ||||
| AM_CFLAGS = @ARCH_CFLAGS@ | ||||
| AM_LIBS = $(LIBM) $(am__append_1) | ||||
| AM_LDFLAGS = -module -avoid-version -shared @ARCH_LDFLAGS@ -shrext .@EXTERNAL_EXTENSION@ -L$(top_srcdir)/src | ||||
| externaldir = $(pkglibdir)/extra/$(NAME) | ||||
| all: all-am | ||||
| 
 | ||||
| .SUFFIXES: | ||||
| .SUFFIXES: .c .lo .o .obj | ||||
| $(srcdir)/GNUmakefile.in:  $(srcdir)/GNUmakefile.am  $(am__configure_deps) | ||||
| 	@for dep in $?; do \ | ||||
| 	  case '$(am__configure_deps)' in \ | ||||
| 	    *$$dep*) \ | ||||
| 	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ | ||||
| 	        && { if test -f $@; then exit 0; else break; fi; }; \ | ||||
| 	      exit 1;; \ | ||||
| 	  esac; \ | ||||
| 	done; \ | ||||
| 	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign extra/pique/GNUmakefile'; \ | ||||
| 	$(am__cd) $(top_srcdir) && \ | ||||
| 	  $(AUTOMAKE) --foreign extra/pique/GNUmakefile | ||||
| .PRECIOUS: GNUmakefile | ||||
| GNUmakefile: $(srcdir)/GNUmakefile.in $(top_builddir)/config.status | ||||
| 	@case '$?' in \ | ||||
| 	  *config.status*) \ | ||||
| 	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ | ||||
| 	  *) \ | ||||
| 	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ | ||||
| 	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ | ||||
| 	esac; | ||||
| 
 | ||||
| $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) | ||||
| 	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh | ||||
| 
 | ||||
| $(top_srcdir)/configure:  $(am__configure_deps) | ||||
| 	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh | ||||
| $(ACLOCAL_M4):  $(am__aclocal_m4_deps) | ||||
| 	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh | ||||
| $(am__aclocal_m4_deps): | ||||
| install-externalLTLIBRARIES: $(external_LTLIBRARIES) | ||||
| 	@$(NORMAL_INSTALL) | ||||
| 	@list='$(external_LTLIBRARIES)'; test -n "$(externaldir)" || list=; \ | ||||
| 	list2=; for p in $$list; do \ | ||||
| 	  if test -f $$p; then \ | ||||
| 	    list2="$$list2 $$p"; \ | ||||
| 	  else :; fi; \ | ||||
| 	done; \ | ||||
| 	test -z "$$list2" || { \ | ||||
| 	  echo " $(MKDIR_P) '$(DESTDIR)$(externaldir)'"; \ | ||||
| 	  $(MKDIR_P) "$(DESTDIR)$(externaldir)" || exit 1; \ | ||||
| 	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(externaldir)'"; \ | ||||
| 	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(externaldir)"; \ | ||||
| 	} | ||||
| 
 | ||||
| uninstall-externalLTLIBRARIES: | ||||
| 	@$(NORMAL_UNINSTALL) | ||||
| 	@list='$(external_LTLIBRARIES)'; test -n "$(externaldir)" || list=; \ | ||||
| 	for p in $$list; do \ | ||||
| 	  $(am__strip_dir) \ | ||||
| 	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(externaldir)/$$f'"; \ | ||||
| 	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(externaldir)/$$f"; \ | ||||
| 	done | ||||
| 
 | ||||
| clean-externalLTLIBRARIES: | ||||
| 	-test -z "$(external_LTLIBRARIES)" || rm -f $(external_LTLIBRARIES) | ||||
| 	@list='$(external_LTLIBRARIES)'; for p in $$list; do \ | ||||
| 	  dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ | ||||
| 	  test "$$dir" != "$$p" || dir=.; \ | ||||
| 	  echo "rm -f \"$${dir}/so_locations\""; \ | ||||
| 	  rm -f "$${dir}/so_locations"; \ | ||||
| 	done | ||||
| pique.la: $(pique_la_OBJECTS) $(pique_la_DEPENDENCIES) $(EXTRA_pique_la_DEPENDENCIES)  | ||||
| 	$(LINK) -rpath $(externaldir) $(pique_la_OBJECTS) $(pique_la_LIBADD) $(LIBS) | ||||
| 
 | ||||
| mostlyclean-compile: | ||||
| 	-rm -f *.$(OBJEXT) | ||||
| 
 | ||||
| distclean-compile: | ||||
| 	-rm -f *.tab.c | ||||
| 
 | ||||
| @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pique.Plo@am__quote@ | ||||
| 
 | ||||
| .c.o: | ||||
| @am__fastdepCC_TRUE@	$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< | ||||
| @am__fastdepCC_TRUE@	$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ | ||||
| @am__fastdepCC_FALSE@	$(COMPILE) -c $< | ||||
| 
 | ||||
| .c.obj: | ||||
| @am__fastdepCC_TRUE@	$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` | ||||
| @am__fastdepCC_TRUE@	$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ | ||||
| @am__fastdepCC_FALSE@	$(COMPILE) -c `$(CYGPATH_W) '$<'` | ||||
| 
 | ||||
| .c.lo: | ||||
| @am__fastdepCC_TRUE@	$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< | ||||
| @am__fastdepCC_TRUE@	$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ | ||||
| @AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ | ||||
| @am__fastdepCC_FALSE@	$(LTCOMPILE) -c -o $@ $< | ||||
| 
 | ||||
| mostlyclean-libtool: | ||||
| 	-rm -f *.lo | ||||
| 
 | ||||
| clean-libtool: | ||||
| 	-rm -rf .libs _libs | ||||
| install-dist_externalDATA: $(dist_external_DATA) | ||||
| 	@$(NORMAL_INSTALL) | ||||
| 	@list='$(dist_external_DATA)'; test -n "$(externaldir)" || list=; \ | ||||
| 	if test -n "$$list"; then \ | ||||
| 	  echo " $(MKDIR_P) '$(DESTDIR)$(externaldir)'"; \ | ||||
| 	  $(MKDIR_P) "$(DESTDIR)$(externaldir)" || exit 1; \ | ||||
| 	fi; \ | ||||
| 	for p in $$list; do \ | ||||
| 	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ | ||||
| 	  echo "$$d$$p"; \ | ||||
| 	done | $(am__base_list) | \ | ||||
| 	while read files; do \ | ||||
| 	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(externaldir)'"; \ | ||||
| 	  $(INSTALL_DATA) $$files "$(DESTDIR)$(externaldir)" || exit $$?; \ | ||||
| 	done | ||||
| 
 | ||||
| uninstall-dist_externalDATA: | ||||
| 	@$(NORMAL_UNINSTALL) | ||||
| 	@list='$(dist_external_DATA)'; test -n "$(externaldir)" || list=; \ | ||||
| 	files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ | ||||
| 	dir='$(DESTDIR)$(externaldir)'; $(am__uninstall_files_from_dir) | ||||
| 
 | ||||
| ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) | ||||
| 	list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ | ||||
| 	unique=`for i in $$list; do \ | ||||
| 	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ | ||||
| 	  done | \ | ||||
| 	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ | ||||
| 	      END { if (nonempty) { for (i in files) print i; }; }'`; \ | ||||
| 	mkid -fID $$unique | ||||
| tags: TAGS | ||||
| 
 | ||||
| TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \ | ||||
| 		$(TAGS_FILES) $(LISP) | ||||
| 	set x; \ | ||||
| 	here=`pwd`; \ | ||||
| 	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \ | ||||
| 	unique=`for i in $$list; do \ | ||||
| 	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ | ||||
| 	  done | \ | ||||
| 	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ | ||||
| 	      END { if (nonempty) { for (i in files) print i; }; }'`; \ | ||||
| 	shift; \ | ||||
| 	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ | ||||
| 	  test -n "$$unique" || unique=$$empty_fix; \ | ||||
| 	  if test $$# -gt 0; then \ | ||||
| 	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ | ||||
| 	      "$$@" $$unique; \ | ||||
| 	  else \ | ||||
| 	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ | ||||
| 	      $$unique; \ | ||||
| 	  fi; \ | ||||
| 	fi | ||||
| ctags: CTAGS | ||||
| CTAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \ | ||||
| 		$(TAGS_FILES) $(LISP) | ||||
| 	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \ | ||||
| 	unique=`for i in $$list; do \ | ||||
| 	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ | ||||
| 	  done | \ | ||||
| 	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ | ||||
| 	      END { if (nonempty) { for (i in files) print i; }; }'`; \ | ||||
| 	test -z "$(CTAGS_ARGS)$$unique" \ | ||||
| 	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ | ||||
| 	     $$unique | ||||
| 
 | ||||
| GTAGS: | ||||
| 	here=`$(am__cd) $(top_builddir) && pwd` \ | ||||
| 	  && $(am__cd) $(top_srcdir) \ | ||||
| 	  && gtags -i $(GTAGS_ARGS) "$$here" | ||||
| 
 | ||||
| distclean-tags: | ||||
| 	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags | ||||
| 
 | ||||
| distdir: $(DISTFILES) | ||||
| 	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ | ||||
| 	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ | ||||
| 	list='$(DISTFILES)'; \ | ||||
| 	  dist_files=`for file in $$list; do echo $$file; done | \ | ||||
| 	  sed -e "s|^$$srcdirstrip/||;t" \ | ||||
| 	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ | ||||
| 	case $$dist_files in \ | ||||
| 	  */*) $(MKDIR_P) `echo "$$dist_files" | \ | ||||
| 			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ | ||||
| 			   sort -u` ;; \ | ||||
| 	esac; \ | ||||
| 	for file in $$dist_files; do \ | ||||
| 	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ | ||||
| 	  if test -d $$d/$$file; then \ | ||||
| 	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ | ||||
| 	    if test -d "$(distdir)/$$file"; then \ | ||||
| 	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ | ||||
| 	    fi; \ | ||||
| 	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ | ||||
| 	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ | ||||
| 	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ | ||||
| 	    fi; \ | ||||
| 	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ | ||||
| 	  else \ | ||||
| 	    test -f "$(distdir)/$$file" \ | ||||
| 	    || cp -p $$d/$$file "$(distdir)/$$file" \ | ||||
| 	    || exit 1; \ | ||||
| 	  fi; \ | ||||
| 	done | ||||
| check-am: all-am | ||||
| check: check-am | ||||
| all-am: GNUmakefile $(LTLIBRARIES) $(DATA) | ||||
| installdirs: | ||||
| 	for dir in "$(DESTDIR)$(externaldir)" "$(DESTDIR)$(externaldir)"; do \ | ||||
| 	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \ | ||||
| 	done | ||||
| install: install-am | ||||
| install-exec: install-exec-am | ||||
| install-data: install-data-am | ||||
| uninstall: uninstall-am | ||||
| 
 | ||||
| install-am: all-am | ||||
| 	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am | ||||
| 
 | ||||
| installcheck: installcheck-am | ||||
| install-strip: | ||||
| 	if test -z '$(STRIP)'; then \ | ||||
| 	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ | ||||
| 	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ | ||||
| 	      install; \ | ||||
| 	else \ | ||||
| 	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ | ||||
| 	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ | ||||
| 	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ | ||||
| 	fi | ||||
| mostlyclean-generic: | ||||
| 
 | ||||
| clean-generic: | ||||
| 
 | ||||
| distclean-generic: | ||||
| 	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) | ||||
| 	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) | ||||
| 
 | ||||
| maintainer-clean-generic: | ||||
| 	@echo "This command is intended for maintainers to use" | ||||
| 	@echo "it deletes files that may require special tools to rebuild." | ||||
| clean: clean-am | ||||
| 
 | ||||
| clean-am: clean-externalLTLIBRARIES clean-generic clean-libtool \ | ||||
| 	mostlyclean-am | ||||
| 
 | ||||
| distclean: distclean-am | ||||
| 	-rm -rf ./$(DEPDIR) | ||||
| 	-rm -f GNUmakefile | ||||
| distclean-am: clean-am distclean-compile distclean-generic \ | ||||
| 	distclean-tags | ||||
| 
 | ||||
| dvi: dvi-am | ||||
| 
 | ||||
| dvi-am: | ||||
| 
 | ||||
| html: html-am | ||||
| 
 | ||||
| html-am: | ||||
| 
 | ||||
| info: info-am | ||||
| 
 | ||||
| info-am: | ||||
| 
 | ||||
| install-data-am: install-dist_externalDATA install-externalLTLIBRARIES | ||||
| 
 | ||||
| install-dvi: install-dvi-am | ||||
| 
 | ||||
| install-dvi-am: | ||||
| 
 | ||||
| install-exec-am: | ||||
| 
 | ||||
| install-html: install-html-am | ||||
| 
 | ||||
| install-html-am: | ||||
| 
 | ||||
| install-info: install-info-am | ||||
| 
 | ||||
| install-info-am: | ||||
| 
 | ||||
| install-man: | ||||
| 
 | ||||
| install-pdf: install-pdf-am | ||||
| 
 | ||||
| install-pdf-am: | ||||
| 
 | ||||
| install-ps: install-ps-am | ||||
| 
 | ||||
| install-ps-am: | ||||
| 
 | ||||
| installcheck-am: | ||||
| 
 | ||||
| maintainer-clean: maintainer-clean-am | ||||
| 	-rm -rf ./$(DEPDIR) | ||||
| 	-rm -f GNUmakefile | ||||
| maintainer-clean-am: distclean-am maintainer-clean-generic | ||||
| 
 | ||||
| mostlyclean: mostlyclean-am | ||||
| 
 | ||||
| mostlyclean-am: mostlyclean-compile mostlyclean-generic \ | ||||
| 	mostlyclean-libtool | ||||
| 
 | ||||
| pdf: pdf-am | ||||
| 
 | ||||
| pdf-am: | ||||
| 
 | ||||
| ps: ps-am | ||||
| 
 | ||||
| ps-am: | ||||
| 
 | ||||
| uninstall-am: uninstall-dist_externalDATA \ | ||||
| 	uninstall-externalLTLIBRARIES | ||||
| 
 | ||||
| .MAKE: install-am install-strip | ||||
| 
 | ||||
| .PHONY: CTAGS GTAGS all all-am check check-am clean \ | ||||
| 	clean-externalLTLIBRARIES clean-generic clean-libtool ctags \ | ||||
| 	distclean distclean-compile distclean-generic \ | ||||
| 	distclean-libtool distclean-tags distdir dvi dvi-am html \ | ||||
| 	html-am info info-am install install-am install-data \ | ||||
| 	install-data-am install-dist_externalDATA install-dvi \ | ||||
| 	install-dvi-am install-exec install-exec-am \ | ||||
| 	install-externalLTLIBRARIES install-html install-html-am \ | ||||
| 	install-info install-info-am install-man install-pdf \ | ||||
| 	install-pdf-am install-ps install-ps-am install-strip \ | ||||
| 	installcheck installcheck-am installdirs maintainer-clean \ | ||||
| 	maintainer-clean-generic mostlyclean mostlyclean-compile \ | ||||
| 	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ | ||||
| 	tags uninstall uninstall-am uninstall-dist_externalDATA \ | ||||
| 	uninstall-externalLTLIBRARIES | ||||
| 
 | ||||
| 
 | ||||
| libtool: $(LIBTOOL_DEPS) | ||||
| 	$(SHELL) ./config.status --recheck | ||||
| 
 | ||||
| # Tell versions [3.59,3.63) of GNU make to not export all variables. | ||||
| # Otherwise a system limit (for SysV at least) may be exceeded. | ||||
| .NOEXPORT: | ||||
							
								
								
									
										4
									
								
								pd-0.44-2/extra/pique/makefile
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										4
									
								
								pd-0.44-2/extra/pique/makefile
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,4 @@ | |||
| NAME=pique | ||||
| CSYM=pique | ||||
| 
 | ||||
| include ../makefile.subdir | ||||
							
								
								
									
										33
									
								
								pd-0.44-2/extra/pique/pique-help.pd
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										33
									
								
								pd-0.44-2/extra/pique/pique-help.pd
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,33 @@ | |||
| #N canvas 143 0 729 407 12; | ||||
| #X obj 47 11 pique; | ||||
| #X text 105 12 -- find peaks in an FFT spectrum; | ||||
| #X obj 214 174 rfft~; | ||||
| #X obj 131 129 osc~ 2000; | ||||
| #X graph graph2 0 -64 63 64 519 179 719 39; | ||||
| #X array fft-real 64 float; | ||||
| #X pop; | ||||
| #X graph graph3 0 -64 63 64 519 327 719 187; | ||||
| #X array fft-imag 64 float; | ||||
| #X pop; | ||||
| #X obj 214 215 tabwrite~ fft-real; | ||||
| #X obj 245 240 tabwrite~ fft-imag; | ||||
| #X obj 315 158 metro 1000; | ||||
| #X obj 315 116 loadbang; | ||||
| #X msg 315 138 1; | ||||
| #X obj 91 349 pique; | ||||
| #X msg 91 322 64 fft-real fft-imag 10; | ||||
| #X obj 91 376 print; | ||||
| #X obj 205 132 osc~ 5000; | ||||
| #X text 25 37 pique takes unwindowed FFT analyses as input (they should be stored in arrays) and outputs a list of peaks \, giving their peak number \, frequency \, amplitude \, and phase (as a cosine/sine pair.); | ||||
| #X text 13 289 message argumnets: number of FFT points \, fft real part \, fft imaginary part \, maximum number of peaks to report.; | ||||
| #X text 578 387 updated for Pd 0.31.; | ||||
| #X connect 2 0 6 0; | ||||
| #X connect 2 1 7 0; | ||||
| #X connect 3 0 2 0; | ||||
| #X connect 8 0 6 0; | ||||
| #X connect 8 0 7 0; | ||||
| #X connect 9 0 10 0; | ||||
| #X connect 10 0 8 0; | ||||
| #X connect 11 0 13 0; | ||||
| #X connect 12 0 11 0; | ||||
| #X connect 14 0 2 0; | ||||
							
								
								
									
										243
									
								
								pd-0.44-2/extra/pique/pique.c
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										243
									
								
								pd-0.44-2/extra/pique/pique.c
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,243 @@ | |||
| /* Copyright (c) 1999 Miller Puckette.  The
 | ||||
| contents of this file are free for any use, but BOTH THE AUTHOR AND UCSD | ||||
| DISCLAIM ALL WARRANTIES related to it.  Although not written in Java, this | ||||
| still should not be used to control any machinery containing a sharp blade or | ||||
| combustible materiel, or as part of any life support system or weapon. */ | ||||
| 
 | ||||
| #include "m_pd.h" | ||||
| #include <math.h> | ||||
| #include <stdio.h> | ||||
| /* These pragmas are only used for MSVC, not MinGW or Cygwin <hans@at.or.at> */ | ||||
| #ifdef _MSC_VER | ||||
| #pragma warning( disable : 4244 ) | ||||
| #pragma warning( disable : 4305 ) | ||||
| #endif | ||||
| 
 | ||||
| static t_class *pique_class; | ||||
| 
 | ||||
| typedef struct _pique | ||||
| { | ||||
|     t_object x_obj; | ||||
|     int x_n; | ||||
|     t_float x_errthresh; | ||||
|     t_float *x_freq; | ||||
|     t_float *x_amp; | ||||
|     t_float *x_ampre; | ||||
|     t_float *x_ampim; | ||||
| } t_pique; | ||||
| 
 | ||||
| static void *pique_new(t_floatarg f) | ||||
| { | ||||
|     int n = f; | ||||
|     t_pique *x = (t_pique *)pd_new(pique_class); | ||||
|     if (n < 1) n = 100; | ||||
|     x->x_n = n; | ||||
|     x->x_errthresh = 0; | ||||
|     x->x_freq = t_getbytes(n * sizeof(*x->x_freq)); | ||||
|     x->x_amp = t_getbytes(n * sizeof(*x->x_amp)); | ||||
|     x->x_ampre = t_getbytes(n * sizeof(*x->x_ampre)); | ||||
|     x->x_ampim = t_getbytes(n * sizeof(*x->x_ampim)); | ||||
|     outlet_new(&x->x_obj, &s_list); | ||||
|     return (x); | ||||
| } | ||||
| 
 | ||||
| static t_float hanning(t_float pidetune, t_float sinpidetune) | ||||
| { | ||||
|     t_float pi = 3.141592653589793; | ||||
|     if (pidetune < 0.01 && pidetune > -0.01) return (1); | ||||
|     else if (pidetune > 3.14 && pidetune < 3.143) return (0.5); | ||||
|     else if (pidetune < -3.14 && pidetune > -3.143) return (0.5); | ||||
|     else return (sinpidetune/pidetune - 0.5 * | ||||
|         (sinpidetune/(pidetune+pi) + sinpidetune/(pidetune-pi))); | ||||
| } | ||||
| 
 | ||||
| static t_float peakerror(t_word *fpreal, t_word *fpimag, t_float pidetune, | ||||
|     t_float norm, t_float peakreal, t_float peakimag) | ||||
| { | ||||
|     t_float sinpidetune = sin(pidetune); | ||||
|     t_float cospidetune = cos(pidetune); | ||||
|     t_float windowshould = hanning(pidetune, sinpidetune); | ||||
|     t_float realshould = windowshould * ( | ||||
|         peakreal * cospidetune + peakimag * sinpidetune); | ||||
|     t_float imagshould =  windowshould * ( | ||||
|         peakimag * cospidetune - peakreal * sinpidetune); | ||||
|     t_float realgot = norm * (fpreal[0].w_float - | ||||
|         0.5 * (fpreal[1].w_float + fpreal[-1].w_float)); | ||||
|     t_float imaggot = norm * (fpimag[0].w_float - | ||||
|         0.5 * (fpimag[1].w_float + fpimag[-1].w_float)); | ||||
|     t_float realdev = realshould - realgot, imagdev = imagshould - imaggot; | ||||
|      | ||||
|     /* post("real %f->%f; imag %f->%f", realshould, realgot,
 | ||||
|         imagshould, imaggot); */ | ||||
|     return (realdev * realdev + imagdev * imagdev); | ||||
| } | ||||
| 
 | ||||
| static void pique_doit(int npts, t_word *fpreal, t_word *fpimag, | ||||
|     int npeak, int *nfound, t_float *fpfreq, t_float *fpamp, | ||||
|         t_float *fpampre, t_float *fpampim, t_float errthresh) | ||||
| { | ||||
|     t_float srate = sys_getsr();      /* not sure how to get this correctly */ | ||||
|     t_float oneovern = 1.0/ (t_float)npts; | ||||
|     t_float fperbin = srate * oneovern; | ||||
|     t_float pow1, pow2 = 0, pow3 = 0, pow4 = 0, pow5 = 0; | ||||
|     t_float re1, re2 = 0, re3 = fpreal->w_float; | ||||
|     t_float im1, im2 = 0, im3 = 0, powthresh, relativeerror; | ||||
|     int count, peakcount = 0, n2 = (npts >> 1); | ||||
|     t_float *fp1, *fp2; | ||||
|     t_word *wp1, *wp2; | ||||
|     for (count = n2, wp1 = fpreal, wp2 = fpimag, powthresh = 0; | ||||
|         count--; wp1++, wp2++) | ||||
|             powthresh += (wp1->w_float) * (wp1->w_float) + | ||||
|                 (wp2->w_float) * (wp2->w_float) ;  | ||||
|     powthresh *= 0.00001; | ||||
|     for (count = 1; count < n2; count++) | ||||
|     { | ||||
|         t_float windreal, windimag, pi = 3.141592653589793; | ||||
|         t_float detune, pidetune, sinpidetune, cospidetune, | ||||
|             ampcorrect, freqout, ampout, ampoutreal, ampoutimag; | ||||
|         t_float rpeak, rpeaknext, rpeakprev; | ||||
|         t_float ipeak, ipeaknext, ipeakprev; | ||||
|         t_float errleft, errright; | ||||
|         fpreal++; | ||||
|         fpimag++; | ||||
|         re1 = re2; | ||||
|         re2 = re3; | ||||
|         re3 = fpreal->w_float; | ||||
|         im1 = im2; | ||||
|         im2 = im3; | ||||
|         im3 = fpimag->w_float; | ||||
|         if (count < 2) continue; | ||||
|         pow1 = pow2; | ||||
|         pow2 = pow3; | ||||
|         pow3 = pow4; | ||||
|         pow4 = pow5; | ||||
|             /* get Hanning-windowed spectrum by convolution */ | ||||
|         windreal = re2 - 0.5 * (re1 + re3); | ||||
|         windimag = im2 - 0.5 * (im1 + im3); | ||||
|         pow5 = windreal * windreal + windimag * windimag; | ||||
|         /* if (count < 30) post("power %f", pow5); */ | ||||
|         if (count < 5) continue; | ||||
|             /* check for a peak.  The actual bin is count-3. */ | ||||
|         if (pow3 <= pow2 || pow3 <= pow4 || pow3 <= pow1 || pow3 <= pow5 | ||||
|             || pow3 < powthresh) | ||||
|                 continue; | ||||
|             /* go back for the raw FFT values around the peak. */ | ||||
|         rpeak = fpreal[-3].w_float; | ||||
|         rpeaknext = fpreal[-2].w_float; | ||||
|         rpeakprev = fpreal[-4].w_float; | ||||
|         ipeak = fpimag[-3].w_float; | ||||
|         ipeaknext = fpimag[-2].w_float; | ||||
|         ipeakprev = fpimag[-4].w_float; | ||||
|             /* recalculate Hanning-windowed spectrum by convolution */ | ||||
|         windreal = rpeak - 0.5 * (rpeaknext + rpeakprev); | ||||
|         windimag = ipeak - 0.5 * (ipeaknext + ipeakprev); | ||||
|          | ||||
|         detune = ((rpeakprev - rpeaknext) * | ||||
|             (2.0 * rpeak - rpeakprev - rpeaknext) + | ||||
|                 (ipeakprev - ipeaknext) * | ||||
|                     (2.0 * ipeak - ipeakprev - ipeaknext)) / | ||||
|                         (4.0 * pow3); | ||||
|         /* if (count < 30) post("detune %f", detune); */ | ||||
|         if (detune > 0.7 || detune < -0.7) continue; | ||||
|             /* the frequency is the sum of the bin frequency and detuning */  | ||||
|         freqout = fperbin * ((t_float)(count-3) + detune); | ||||
|         pidetune = pi * detune; | ||||
|         sinpidetune = sin(pidetune); | ||||
|         cospidetune = cos(pidetune); | ||||
|         ampcorrect = 1.0 / hanning(pidetune, sinpidetune); | ||||
|                 /* Multiply by 2 to get real-sinusoid peak amplitude 
 | ||||
|                 and divide by N to normalize FFT */ | ||||
|         ampcorrect *= 2. * oneovern; | ||||
|             /* amplitude is peak height, corrected for Hanning window shape */ | ||||
| 
 | ||||
|         ampout = ampcorrect * sqrt(pow3); | ||||
|         ampoutreal = ampcorrect * | ||||
|             (windreal * cospidetune - windimag * sinpidetune); | ||||
|         ampoutimag = ampcorrect * | ||||
|             (windreal * sinpidetune + windimag * cospidetune); | ||||
|         if (errthresh > 0) | ||||
|         { | ||||
|             /* post("peak %f %f", freqout, ampout); */ | ||||
|             errleft = peakerror(fpreal-4, fpimag-4, pidetune+pi, | ||||
|                 2. * oneovern, ampoutreal, ampoutimag); | ||||
|             errright = peakerror(fpreal-2, fpimag-2, pidetune-pi, | ||||
|                 2. * oneovern,  ampoutreal, ampoutimag); | ||||
|             relativeerror = (errleft + errright)/(ampout * ampout); | ||||
|             if (relativeerror > errthresh) continue; | ||||
|         } | ||||
|         /* post("power %f, error %f, relative %f",
 | ||||
|             pow3, errleft + errright, relativeerror); */ | ||||
|         *fpfreq++ = freqout; | ||||
|         *fpamp++ = ampout; | ||||
|         *fpampre++ = ampoutreal; | ||||
|         *fpampim++ = ampoutimag; | ||||
|         if (++peakcount == npeak) break; | ||||
|     } | ||||
|     *nfound = peakcount; | ||||
| } | ||||
| 
 | ||||
| static void pique_list(t_pique *x, t_symbol *s, int argc, t_atom *argv) | ||||
| { | ||||
|     int npts = atom_getintarg(0, argc, argv); | ||||
|     t_symbol *symreal = atom_getsymbolarg(1, argc, argv); | ||||
|     t_symbol *symimag = atom_getsymbolarg(2, argc, argv); | ||||
|     int npeak = atom_getintarg(3, argc, argv); | ||||
|     int n; | ||||
|     t_garray *a; | ||||
|     t_word *fpreal, *fpimag; | ||||
|     if (npts < 8 || npeak < 1) error("pique: bad npoints or npeak"); | ||||
|     if (npeak > x->x_n) npeak = x->x_n; | ||||
|     if (!(a = (t_garray *)pd_findbyclass(symreal, garray_class)) || | ||||
|         !garray_getfloatwords(a, &n, &fpreal) || | ||||
|             n < npts) | ||||
|                 error("%s: missing or bad array", symreal->s_name); | ||||
|     else if (!(a = (t_garray *)pd_findbyclass(symimag, garray_class)) || | ||||
|         !garray_getfloatwords(a, &n, &fpimag) || | ||||
|             n < npts) | ||||
|                 error("%s: missing or bad array", symimag->s_name); | ||||
|     else | ||||
|     { | ||||
|         int nfound, i; | ||||
|         t_float *fpfreq = x->x_freq; | ||||
|         t_float *fpamp = x->x_amp; | ||||
|         t_float *fpampre = x->x_ampre; | ||||
|         t_float *fpampim = x->x_ampim; | ||||
|         pique_doit(npts, fpreal, fpimag, npeak, | ||||
|             &nfound, fpfreq, fpamp, fpampre, fpampim, x->x_errthresh); | ||||
|         for (i = 0; i < nfound; i++, fpamp++, fpfreq++, fpampre++, fpampim++) | ||||
|         { | ||||
|             t_atom at[5]; | ||||
|             SETFLOAT(at, (t_float)i); | ||||
|             SETFLOAT(at+1, *fpfreq); | ||||
|             SETFLOAT(at+2, *fpamp); | ||||
|             SETFLOAT(at+3, *fpampre); | ||||
|             SETFLOAT(at+4, *fpampim); | ||||
|             outlet_list(x->x_obj.ob_outlet, &s_list, 5, at);    | ||||
|         } | ||||
|     } | ||||
| } | ||||
| 
 | ||||
| static void pique_errthresh(t_pique *x, t_floatarg f) | ||||
| { | ||||
|     x->x_errthresh = f; | ||||
| } | ||||
| 
 | ||||
| static void pique_free(t_pique *x) | ||||
| { | ||||
|     int n = x->x_n; | ||||
|     t_freebytes(x->x_freq, n * sizeof(*x->x_freq)); | ||||
|     t_freebytes(x->x_amp, n * sizeof(*x->x_amp)); | ||||
|     t_freebytes(x->x_ampre, n * sizeof(*x->x_ampre)); | ||||
|     t_freebytes(x->x_ampim, n * sizeof(*x->x_ampim)); | ||||
| } | ||||
| 
 | ||||
| void pique_setup(void) | ||||
| { | ||||
|     pique_class = class_new(gensym("pique"), (t_newmethod)pique_new, | ||||
|         (t_method)pique_free, sizeof(t_pique),0, A_DEFFLOAT, 0); | ||||
|     class_addlist(pique_class, pique_list); | ||||
|     class_addmethod(pique_class, (t_method)pique_errthresh, | ||||
|         gensym("errthresh"), A_FLOAT, 0); | ||||
|     post("pique 0.1 for PD version 23"); | ||||
| } | ||||
| 
 | ||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue