Pd-cvs August 2006

pd-cvs@lists.iem.at

15 participants
462 discussions

externals/creb/modules Makefile, 1.5, 1.6 eadsr~.c, 1.5, 1.6 ead~.c, 1.5, 1.6 ear~.c, 1.5, 1.6 extlib_util.h, 1.4, 1.5
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb/modules In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv360/creb/modules Modified Files: Makefile eadsr~.c ead~.c ear~.c extlib_util.h Log Message: removed envelope_utils.c - moved milliseconds_2_one_minus_realpole() to extlib_util.h as static inline Index: eadsr~.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/eadsr~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** eadsr~.c 22 Aug 2006 00:58:25 -0000 1.5 --- eadsr~.c 25 Aug 2006 23:07:37 -0000 1.6 *************** *** 179,213 **** } - /* - * Utility functions for exponential decay - * Copyright (c) 2000-2003 by Tom Schouten - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ - - - #include "extlib_util.h" - - float milliseconds_2_one_minus_realpole(float time) - { - float r; - - if (time < 0.0f) time = 0.0f; - r = -expm1(1000.0f * log(ENVELOPE_RANGE) / (sys_getsr() * time)); - if (!(r < 1.0f)) r = 1.0f; - - //post("%f",r); - return r; - } --- 179,180 ---- Index: ear~.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/ear~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ear~.c 22 Aug 2006 00:58:25 -0000 1.5 --- ear~.c 25 Aug 2006 23:07:37 -0000 1.6 *************** *** 141,175 **** } - /* - * Utility functions for exponential decay - * Copyright (c) 2000-2003 by Tom Schouten - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ - - - #include "extlib_util.h" - - float milliseconds_2_one_minus_realpole(float time) - { - float r; - - if (time < 0.0f) time = 0.0f; - r = -expm1(1000.0f * log(ENVELOPE_RANGE) / (sys_getsr() * time)); - if (!(r < 1.0f)) r = 1.0f; - - //post("%f",r); - return r; - } --- 141,142 ---- Index: extlib_util.h =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/extlib_util.h,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** extlib_util.h 25 Aug 2006 22:38:42 -0000 1.4 --- extlib_util.h 25 Aug 2006 23:07:37 -0000 1.5 *************** *** 32,36 **** /* convert milliseconds to 1-p, with p a real pole */ ! float milliseconds_2_one_minus_realpole(float time); --- 32,46 ---- /* convert milliseconds to 1-p, with p a real pole */ ! static inline float milliseconds_2_one_minus_realpole(float time) ! { ! float r; ! ! if (time < 0.0f) time = 0.0f; ! r = -expm1(1000.0f * log(ENVELOPE_RANGE) / (sys_getsr() * time)); ! if (!(r < 1.0f)) r = 1.0f; ! ! //post("%f",r); ! return r; ! } Index: ead~.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/ead~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ead~.c 22 Aug 2006 00:58:25 -0000 1.5 --- ead~.c 25 Aug 2006 23:07:37 -0000 1.6 *************** *** 157,192 **** gensym("decay"), A_FLOAT, 0); } - - /* - * Utility functions for exponential decay - * Copyright (c) 2000-2003 by Tom Schouten - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ - - - #include "extlib_util.h" - - float milliseconds_2_one_minus_realpole(float time) - { - float r; - - if (time < 0.0f) time = 0.0f; - r = -expm1(1000.0f * log(ENVELOPE_RANGE) / (sys_getsr() * time)); - if (!(r < 1.0f)) r = 1.0f; - - //post("%f",r); - return r; - } --- 157,158 ---- Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/Makefile,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Makefile 15 Aug 2006 15:11:51 -0000 1.5 --- Makefile 25 Aug 2006 23:07:37 -0000 1.6 *************** *** 11,15 **** dwt.o cmath.o \ \ ! envelope_util.o setup.o --- 11,15 ---- dwt.o cmath.o \ \ ! setup.o

1 0

pd/src desire.tk,1.1.2.406,1.1.2.407
by chunlee 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32120 Modified Files: Tag: devel_0_39 desire.tk Log Message: more on font bomb Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.406 retrieving revision 1.1.2.407 diff -C2 -d -r1.1.2.406 -r1.1.2.407 *** desire.tk 25 Aug 2006 16:24:35 -0000 1.1.2.406 --- desire.tk 25 Aug 2006 23:06:10 -0000 1.1.2.407 *************** *** 511,514 **** --- 511,515 ---- set font(name) courier set font(style) normal + set font(italic) 0 set font(str2) "-*-courier-medium--normal--%d-*" set font(str) [format -*-courier-medium--normal--%d-* $font(size)] *************** *** 5850,5877 **** def* FontBombDialog get_xlfd {name style size} { - #global bold italic fontsize set fstring "" ! set facename [.$self.font.list.box get [.$self.font.list.box curselection]] if {$style == "bold"} { ! set fstring "*-$facename-bold" } else { ! set fstring "*-$facename-medium" } ! if {$style == "italic"} { ! if {$facename == "Helvetica" || $facename == "Courier"} { ! set fstring "$fstring-o-normal--$size-*" } else { ! set fstring "$fstring-i-normal--$size-*" } } else { ! set fstring "$fstring-r-normal--$size-*" } - return $fstring } ! def* FontBombDialog resetfont {} { global font ! set xlfd [$self get_xlfd $font(name) $font(style) $@size] ! .$self.font2.preview.entry configure -font $xlfd } --- 5851,5880 ---- def* FontBombDialog get_xlfd {name style size} { set fstring "" ! set list_pos [.$self.font.list.box curselection] ! if {$list_pos != ""} {set @font [.$self.font.list.box get [.$self.font.list.box curselection]]} if {$style == "bold"} { ! set fstring "*-$@font-bold" } else { ! set fstring "*-$@font-medium" } ! if {$@italic} { ! if {$@font == "Helvetica" || $@font == "Courier"} { ! set @str "$fstring-o-normal--$size-*" ! set @str2 "$fstring-o-normal--%d-*" } else { ! set @str "$fstring-i-normal--$size-*" ! set @str2 "$fstring-i-normal--%d-*" } } else { ! set @str "$fstring-r-normal--$size-*" ! set @str2 "$fstring-r-normal--%d-*" } } ! def* FontBombDialog update {} { global font ! $self get_xlfd $@font $@style $@size ! .$self.font2.preview.canvas itemconfigure ${self}TEXT -font $@str } *************** *** 5882,5897 **** $f.font.size.entry delete 0 end $f.font.size.entry insert 0 $@size puts "$font(size)" } def* FontBombDialog init {} { global font ! super reset cancel apply ok ! #$self add .fontbomb [say "fontbomb"] set f .$self - #wm geometry $f 346x334 bind all <KeyPress-F1> help - #set fontsize $font(size) set @size $font(size) set bold 0 set italic 0 --- 5885,5936 ---- $f.font.size.entry delete 0 end $f.font.size.entry insert 0 $@size + $self update puts "$font(size)" } + def* FontBombDialog style {style} { + if {$style != "italic"} { + if {$style == $@style} { set @style "normal" } else { set @style $style} + } + $self update + } + + def* FontBombDialog update_size {} { + set size [.$self.font.size.entry get] + puts " size $size" + if [regexp {^[0-9]+$} $size] {set @size $size} + $self update + } + + def* FontBombDialog apply {} { + global font + $self get_xlfd $@font $@style $@size + set font(size) $@size + set font(name) $@font + set font(style) $@style + set font(italic) $@italic + set font(str) $@str + set font(str2) $@str2 + set font(width) [font measure $@str W] + set font(height) [font metrics $@str -linespace] + puts " font :: $@font" + puts " size :: $@size" + puts " style :: $@style" + puts " italic :: $@italic" + puts " str :: $@str" + puts " str2 :: $@str2" + + } + def* FontBombDialog init {} { global font ! super cancel ok set f .$self bind all <KeyPress-F1> help set @size $font(size) + set @font $font(name) + set @style $font(style) + set @italic $font(italic) + set @fstr $font(str) set bold 0 set italic 0 *************** *** 5905,5909 **** # Insert the font names into the list box ! foreach name {Charter Clean Courier Helvetica Lucida LucidaBright\ LucidaTypewriter {New Century Schoolbook} Symbol Times\ fixed terminal} { --- 5944,5948 ---- # Insert the font names into the list box ! foreach name {Schumacher Utopia Charter Clean Courier Helvetica Lucida LucidaBright\ LucidaTypewriter {New Century Schoolbook} Symbol Times\ fixed terminal} { *************** *** 5911,5939 **** } ! bind $f.font.list.box <ButtonRelease-1> "$self resetfont" frame $f.font.size pack [label $f.font.size.label -text "Size:"] -side left pack [entry $f.font.size.entry -relief sunken -textvariable fontsize -width 4] -side left pack [scrollbar $f.font.size.scroll -command "$self changesize"] -side right -fill y $f.font.size.entry insert 0 $@size frame $f.font.style pack [label $f.font.style.label -text "Style:"] -side left -fill y ! pack [checkbutton $f.font.style.bold -text "Bold" -variable bold -command resetFont] -side top ! pack [checkbutton $f.font.style.italic -text "Italic" -variable italic -command resetFont] -side top frame $f.font2 frame $f.font2.preview pack [label $f.font2.preview.label -text "Preview:"] -side left -fill y ! pack [entry $f.font2.preview.entry -width 10 -relief sunken -textvariable previewtext] -side right ! $f.font2.preview.entry insert 0 "D351r3D474" ! ! pack $f.font.list -side left -fill y pack $f.font.size -side top -fill x pack $f.font.style -side top -fill x pack $f.font2.preview -side bottom - pack $f.font -side top pack $f.font2 -side bottom --- 5950,5978 ---- } ! bind $f.font.list.box <ButtonRelease-1> "$self update" frame $f.font.size pack [label $f.font.size.label -text "Size:"] -side left pack [entry $f.font.size.entry -relief sunken -textvariable fontsize -width 4] -side left + bind $f.font.size.entry <KeyPress-Return> "$self update_size" pack [scrollbar $f.font.size.scroll -command "$self changesize"] -side right -fill y + $f.font.size.entry delete 0 end $f.font.size.entry insert 0 $@size frame $f.font.style pack [label $f.font.style.label -text "Style:"] -side left -fill y ! pack [checkbutton $f.font.style.bold -text "Bold" -variable bold -command "$self style bold"] -side top ! pack [checkbutton $f.font.style.italic -text "Italic" -variable @italic -command "$self style italic"] -side top frame $f.font2 frame $f.font2.preview pack [label $f.font2.preview.label -text "Preview:"] -side left -fill y ! pack [canvas $f.font2.preview.canvas -width 200 -height 50 -relief sunken -borderwidth 1] -side right ! $f.font2.preview.canvas create text 10 25 -tags ${self}TEXT -anchor w -text "DesireData" -font $@fstr ! pack $f.font.list -side left -fill y pack $f.font.size -side top -fill x pack $f.font.style -side top -fill x pack $f.font2.preview -side bottom pack $f.font -side top pack $f.font2 -side bottom

1 0

externals/creb/system Makefile, 1.1.1.1, NONE envelope_util.c, 1.1.1.1, NONE setup.c, 1.4, NONE
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb/system In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22208/system Removed Files: Makefile envelope_util.c setup.c Log Message: creb: removed garbage system/ and include/ files --- Makefile DELETED --- --- setup.c DELETED --- --- envelope_util.c DELETED ---

1 0

externals/creb/include Makefile, 1.1.1.1, NONE extlib_util.h, 1.3, NONE filters.h, 1.1, NONE
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb/include In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22208/include Removed Files: Makefile extlib_util.h filters.h Log Message: creb: removed garbage system/ and include/ files --- extlib_util.h DELETED --- --- Makefile DELETED --- --- filters.h DELETED ---

1 0

externals/creb configure.ac,1.1,1.2
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22208 Modified Files: configure.ac Log Message: creb: removed garbage system/ and include/ files Index: configure.ac =================================================================== RCS file: /cvsroot/pure-data/externals/creb/configure.ac,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** configure.ac 12 Sep 2003 22:22:31 -0000 1.1 --- configure.ac 25 Aug 2006 22:38:42 -0000 1.2 *************** *** 1,3 **** ! AC_INIT(system/setup.c) AC_PROG_CC AC_HEADER_STDC --- 1,3 ---- ! AC_INIT(modules/setup.c) AC_PROG_CC AC_HEADER_STDC

1 0

[PD-cvs] externals/creb/modules extlib_util.h, 1.3, 1.4 fdn~.c, 1.2, 1.3 ffpoly.c, 1.3, 1.4 permut~.c, 1.2, 1.3
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb/modules In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22208/modules Modified Files: extlib_util.h fdn~.c ffpoly.c permut~.c Log Message: creb: removed garbage system/ and include/ files Index: extlib_util.h =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/extlib_util.h,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** extlib_util.h 22 Aug 2006 00:54:41 -0000 1.3 --- extlib_util.h 25 Aug 2006 22:38:42 -0000 1.4 *************** *** 18,22 **** */ ! #ifndef CREB_EXTLIB_UTIL_H #define CREB_EXTLIB_UTIL_H --- 18,22 ---- */ ! #ifndef CREB_EXTLIB_UTIL_H #define CREB_EXTLIB_UTIL_H *************** *** 48,51 **** - #endif /* CREB_EXTLIB_UTIL_H */ --- 48,51 ---- #endif /* CREB_EXTLIB_UTIL_H */ + Index: permut~.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/permut~.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** permut~.c 15 Aug 2006 15:11:52 -0000 1.2 --- permut~.c 25 Aug 2006 22:38:42 -0000 1.3 *************** *** 31,35 **** { char c_type; ! int *c_permutationtable; int c_blocksize; } t_permutctl; --- 31,35 ---- { char c_type; ! t_int *c_permutationtable; int c_blocksize; } t_permutctl; *************** *** 63,67 **** int N = x->x_ctl.c_blocksize; int mask = N-1; ! int *p = x->x_ctl.c_permutationtable; int r, last = 0; --- 63,67 ---- int N = x->x_ctl.c_blocksize; int mask = N-1; ! t_int *p = x->x_ctl.c_permutationtable; int r, last = 0; *************** *** 104,108 **** if (x->x_ctl.c_permutationtable) free(x->x_ctl.c_permutationtable); ! x->x_ctl.c_permutationtable = (int *)malloc(sizeof(int)*size); x->x_ctl.c_blocksize = size; --- 104,108 ---- if (x->x_ctl.c_permutationtable) free(x->x_ctl.c_permutationtable); ! x->x_ctl.c_permutationtable = (t_int *)malloc(sizeof(int)*size); x->x_ctl.c_blocksize = size; Index: fdn~.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/fdn~.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** fdn~.c 15 Aug 2006 15:11:52 -0000 1.2 --- fdn~.c 25 Aug 2006 22:38:42 -0000 1.3 *************** *** 330,334 **** int mask = x->x_ctl.c_bufsize - 1; int start = x->x_ctl.c_tap[0]; ! int *tap = x->x_ctl.c_tap; float *length = x->x_ctl.c_length; float scale = sys_getsr() * .001f; --- 330,334 ---- int mask = x->x_ctl.c_bufsize - 1; int start = x->x_ctl.c_tap[0]; ! t_int *tap = x->x_ctl.c_tap; float *length = x->x_ctl.c_length; float scale = sys_getsr() * .001f; Index: ffpoly.c =================================================================== RCS file: /cvsroot/pure-data/externals/creb/modules/ffpoly.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ffpoly.c 15 Aug 2006 15:11:52 -0000 1.3 --- ffpoly.c 25 Aug 2006 22:38:42 -0000 1.4 *************** *** 50,54 **** int fo = x->x_field_order; int po = x->x_poly_order; ! int* c = x->x_coef; int i, out; --- 50,54 ---- int fo = x->x_field_order; int po = x->x_poly_order; ! t_int* c = x->x_coef; int i, out; *************** *** 136,140 **** x->x_field_order = fieldorder; ! x->x_coef = (int *)malloc((x->x_poly_order + 1) * sizeof(int)); /* set poly to f(x) = x */ --- 136,140 ---- x->x_field_order = fieldorder; ! x->x_coef = (t_int *)malloc((x->x_poly_order + 1) * sizeof(int)); /* set poly to f(x) = x */

1 0

externals/creb/include/dspi DSPI.h, 1.1.1.1, NONE DSPIcomplex.h, 1.2, NONE DSPIfilters.h, 1.1.1.1, NONE
by Tom Schouten 26 Aug '06

26 Aug '06

Update of /cvsroot/pure-data/externals/creb/include/dspi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22208/include/dspi Removed Files: DSPI.h DSPIcomplex.h DSPIfilters.h Log Message: creb: removed garbage system/ and include/ files --- DSPIcomplex.h DELETED --- --- DSPI.h DELETED --- --- DSPIfilters.h DELETED ---

1 0

pd/src/locale italiano.tcl,1.1.2.2,1.1.2.3
by Mathieu Bouchard 25 Aug '06

25 Aug '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31762 Modified Files: Tag: devel_0_39 italiano.tcl Log Message: fixes so that this file can be used in DesireData. Index: italiano.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/italiano.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** italiano.tcl 22 Dec 2005 19:19:23 -0000 1.1.2.2 --- italiano.tcl 25 Aug 2006 17:19:46 -0000 1.1.2.3 *************** *** 62,277 **** ! ### phase 2 ! ! say_namespace summary { ! say_category IEMGUI ! say bng "Bang Box" ! say tgl "Toggle Box" ! say nbx "Number Box (IEM)" ! say hsl "Slider (Orizzontale)" ! say vsl "Slider (Verticale)" ! say hradio "Choice Box (Orizzontale)" ! say vradio "Choice Box (Verticale)" ! say cnv "Canvas (IEM)" ! say vu "Vumeter" ! say dropper "Drag-and-Drop Box" ! ! say_category GLUE ! say bang "invia un bang" ! say float "salva e richiama un numero in virgola mobile" ! say symbol "salva e richiama un simbolo" ! say int "salva e richiama un numero intero" ! say send "invia un messaggio ad un oggetto con nome" ! say receive "cattura i messaggi inviati" ! say select "invia un bang quando i numeri o i simboli combaciano" ! say route "instrada i messaggi in base al primo elemento della lista" ! say pack "impacchetta i valori in un messaggio" ! say unpack "ricava gli elementi di un pacchetto" ! say trigger "converte i messaggi ed esegue in sequenza" ! say spigot "connessione interrompibile" ! say moses "divide un flusso numerico" ! say until "meccanismo per creare un ciclo" ! say print "stampa messaggi in console" ! say makefilename "formatta un simbolo con argomenti" ! say change "rimuove le ripetizioni numeriche da un flusso" ! say swap "scambia tra loro due numeri" ! say value "valore numerico condiviso" ! ! say_category TIME ! say delay "invia un messaggio dopo un ritardo temporale" ! say metro "invia un messaggio periodicamente" ! say line "invia una serie di numeri interpolati linearmente" ! say timer "misura intervalli di tempo" ! say cputime "misura l'utilizzo della CPU" ! say realtime "misura il tempo reale" ! say pipe "linea di ritardo dinamicamente dimensionabile per numeri" ! ! say_category MATH ! say + "somma" ! say - "sottrai" ! say * "moltiplica" ! say {/ div} "dividi" ! say {% mod} "resto delal divisione intera" ! say pow "esponenziale" ! say == "uguale?" ! say != "non uguale?" ! say > "maggiore?" ! say < "minore?" ! say >= "non maggiore?" ! say <= "non minore?" ! say & "congiunzione binaria (and)" ! say | "disgiunzione binaria (or)" ! say && "congiunzione logica (and)" ! say || "disgiunzione logica (or)" ! say mtof "da MIDI a Hertz" ! say mtof "da Hertz a MIDI" ! say powtodb "da Watts a dB" ! say dbtopow "da dB a Watts" ! say rmstodb "da Volts a dB" ! say dbtorms "da dB a Volts" ! say {sin cos tan atan atan2 sqrt} "trigonometria" ! say log "logaritmo di Eulero" ! say exp "esponenziale di Eulero" ! say abs "valore assoluto" ! say random "valore casuale" ! say max "il maggiore tra due numeri" ! say min "il minore tra due numeri" ! say clip "forza un numero dentro un intervallo" ! ! say_category MIDI ! say {notein ctlin pgmin bendin touchin polytouchin midiin sysexin} \ ! "MIDI input" ! say {noteout ctlout pgmout bendout touchout polytouchout midiout} \ ! "MIDI output" ! say makenote \ ! "crea e metti in coda un messaggio \"note off\" corrispondente a questo note-on" ! say stripnote "togli i messaggi di \"note off\"" ! ! say_category TABLES ! say tabread "leggi un valore da una tabella" ! say tabread4 "leggi un valore da una tabella con interpolazione su 4 punti" ! say tabwrite "scrivi un valore in una tabella" ! say soundfiler "leggi e scrivi tabelle in file audio" ! ! say_category MISC ! say loadbang "bang al caricamento" ! say serial "controllo per la porta seriale (solo per NT)" ! say netsend "manda messaggi su internet" ! say netreceive "riceve messaggi da internet" ! say qlist "sequencer di messaggi" ! say textfile "convertitore di file in messaggi" ! say openpanel ""Apri" dialog" ! say savepanel ""salva con nome" dialog" ! say bag "insieme di numeri" ! say poly "allocazione polifonica di voci" ! say {key keyup} "valori numerici da tastiera" ! say keyname "valori in simboli da tastiera" ! ! say_category "AUDIO MATH" ! for word {+ - * /} {say $word~ "[say $word] (per segnali)"} ! say max~ "il valore massimo" ! say min~ "il valore minimo" ! say clip~ "costringe il segnale all'interno di un intervallo" ! say q8_rsqrt~ "radice quadrata reciproca veloce (attenzione -- 8 bits!)" ! say q8_sqrt~ "radice quadrata veloce (attenzione -- 8 bits!)" ! say wrap~ "wraparound (fractional part, sort of)" ! say fft~ "Trasformata di Fourier complessa discreta" ! say ifft~ "Trasformata di Fourier complessa discreta inversa" ! say rfft~ "Trasformata di Fourier reale discreta" ! say rifft~ "Trasformata di Fourier reale discreta inversa" ! say framp~ "output a ramp for each block" ! for word {mtof ftom rmstodb dbtorms rmstopow powtorms} { ! say $word~ "[say $word] (per segnali)" ! } ! } ! ! ! ### phase 3 ! ! say_namespace summary { ! say_category "AUDIO GLUE" ! say dac~ "audio output" ! say adc~ "audio input" ! say sig~ "converte numeri in segnali audio" ! say line~ "genera una rampa sui segnali" ! say vline~ "line~ con maggiore precisione" ! say threshold~ "avverte il superamento di una soglia" ! say snapshot~ "converte un segnale in numero" ! say vsnapshot~ "snapshot~ con maggiore precisione" ! say bang~ "invia un bang dopo ogni blicco DSP" ! say samplerate~ "invia la frequenza di campionamento" ! say send~ "invia segnali" ! say receive~ "riceve segnali da send~" ! say throw~ "aggiunge il segnale ad un bus" ! say catch~ "legge il segnale da un bus" ! say block~ "specifica la dimensione del blocco DSP" ! say switch~ "attiva o disattiva la computazione DSP in questa finestra" ! say readsf~ "riproduzione di un file audio" ! say writesf~ "registrazione di un file audio" ! ! say_category "AUDIO OSCILLATORS AND TABLES" ! say phasor~ "oscillatore a onda triangolare" ! say {cos~ osc~} "oscillatore a onda sinusoidale" ! say tabwrite~ "scrive il segnale in una tabella" ! say tabplay~ "riproduce il segnale registrato in una tabella (senza trasportare)" ! say tabread~ "legge il segnale da una tabella senza interpolazione" ! say tabread4~ "legge il segnale da una tabella con interpolazione su 4 punti" ! say tabosc4~ "oscillatore wavetable" ! say tabsend~ "scrive continuamente un blocco su una tabella" ! say tabreceive~ "legge continuamente un blocco da una tabella" ! ! say_category "AUDIO FILTERS" ! say vcf~ "filtro a voltaggio controllato" ! say noise~ "rumore bianco" ! say env~ "indicatore di inviluppo" ! say hip~ "filtro passa alto" ! say lop~ "filtro passa basso" ! say bp~ "filtro a banda passante" ! say biquad~ "filtro biquadratico" ! say samphold~ "campiona e trattiene un segnale" ! say print~ "scrive uno o più blocchi sulla console" ! say rpole~ "raw real-valued one-pole filter" ! say rzero~ "raw real-valued one-zero filter" ! say rzero_rev~ "[say rzero~] (time-reversed)" ! say cpole~ "[say rpole~] (complex-valued)" ! say czero~ "[say rzero~] (complex-valued)" ! say czero_rev~ "[say rzero_rev~] (complex-valued)" ! ! say_category "AUDIO DELAY" ! say delwrite~ "scrive una linea di ritardo" ! say delread~ "legge una linea di ritardo" ! say vd~ "legge una linea di ritardo con tempo variabile" ! ! say_category "SUBWINDOWS" ! say pd "definisce una sottofinestra" ! say table "un vettore di numeri in una sottofinestra" ! say inlet "aggiunge un inlet" ! say outlet "aggiunge un outlet" ! say inlet~ "[say inlet] (per segnali)" ! say outlet~ "[say outlet] (per segnali)" ! ! say_category "DATA TEMPLATES" ! say struct "definisce una struttura dati" ! say {drawcurve filledcurve} "disegna una curva" ! say {drawpolygon filledpolygon} "disegna un poligono" ! say plot "disegna un vettore" ! say drawnumber "stampa un valore numerico" ! ! say_category "ACCESSING DATA" ! say pointer "puntatore ad un oggetto che appartiene ad un template" ! say get "ottiene una proprietà numerica" ! say set "imposta una proprietà numerica" ! say element "ottiene una proprietà vettore" ! say getsize "imposta una proprietà vettore" ! say setsize "cambia le dimensioni di un vettore" ! say append "aggiunge un elemento ad una lista" ! say sublist "ottiene un puntatore da una lista che è un elemento di un'altro scalare" ! say scalar "disegna uno scalare sulla finestra" ! ! say_category "OBSOLETE" ! say scope~ "(usa tabwrite~)" ! say namecanvas "" ;# what was this anyway? ! say template "(usa struct)" ! } ! ! say cannot "non posso" --- 62,277 ---- ! ### phase 2 ! ! say_namespace summary { ! say_category IEMGUI ! say bng "Bang Box" ! say tgl "Toggle Box" ! say nbx "Number Box (IEM)" ! say hsl "Slider (Orizzontale)" ! say vsl "Slider (Verticale)" ! say hradio "Choice Box (Orizzontale)" ! say vradio "Choice Box (Verticale)" ! say cnv "Canvas (IEM)" ! say vu "Vumeter" ! say dropper "Drag-and-Drop Box" ! ! say_category GLUE ! say bang "invia un bang" ! say float "salva e richiama un numero in virgola mobile" ! say symbol "salva e richiama un simbolo" ! say int "salva e richiama un numero intero" ! say send "invia un messaggio ad un oggetto con nome" ! say receive "cattura i messaggi inviati" ! say select "invia un bang quando i numeri o i simboli combaciano" ! say route "instrada i messaggi in base al primo elemento della lista" ! say pack "impacchetta i valori in un messaggio" ! say unpack "ricava gli elementi di un pacchetto" ! say trigger "converte i messaggi ed esegue in sequenza" ! say spigot "connessione interrompibile" ! say moses "divide un flusso numerico" ! say until "meccanismo per creare un ciclo" ! say print "stampa messaggi in console" ! say makefilename "formatta un simbolo con argomenti" ! say change "rimuove le ripetizioni numeriche da un flusso" ! say swap "scambia tra loro due numeri" ! say value "valore numerico condiviso" ! ! say_category TIME ! say delay "invia un messaggio dopo un ritardo temporale" ! say metro "invia un messaggio periodicamente" ! say line "invia una serie di numeri interpolati linearmente" ! say timer "misura intervalli di tempo" ! say cputime "misura l'utilizzo della CPU" ! say realtime "misura il tempo reale" ! say pipe "linea di ritardo dinamicamente dimensionabile per numeri" ! ! say_category MATH ! say + "somma" ! say - "sottrai" ! say * "moltiplica" ! say {/ div} "dividi" ! say {% mod} "resto delal divisione intera" ! say pow "esponenziale" ! say == "uguale?" ! say != "non uguale?" ! say > "maggiore?" ! say < "minore?" ! say >= "non maggiore?" ! say <= "non minore?" ! say & "congiunzione binaria (and)" ! say | "disgiunzione binaria (or)" ! say && "congiunzione logica (and)" ! say || "disgiunzione logica (or)" ! say mtof "da MIDI a Hertz" ! say mtof "da Hertz a MIDI" ! say powtodb "da Watts a dB" ! say dbtopow "da dB a Watts" ! say rmstodb "da Volts a dB" ! say dbtorms "da dB a Volts" ! say {sin cos tan atan atan2 sqrt} "trigonometria" ! say log "logaritmo di Eulero" ! say exp "esponenziale di Eulero" ! say abs "valore assoluto" ! say random "valore casuale" ! say max "il maggiore tra due numeri" ! say min "il minore tra due numeri" ! say clip "forza un numero dentro un intervallo" ! ! say_category MIDI ! say {notein ctlin pgmin bendin touchin polytouchin midiin sysexin} \ ! "MIDI input" ! say {noteout ctlout pgmout bendout touchout polytouchout midiout} \ ! "MIDI output" ! say makenote \ ! "crea e metti in coda un messaggio \"note off\" corrispondente a questo note-on" ! say stripnote "togli i messaggi di \"note off\"" ! ! say_category TABLES ! say tabread "leggi un valore da una tabella" ! say tabread4 "leggi un valore da una tabella con interpolazione su 4 punti" ! say tabwrite "scrivi un valore in una tabella" ! say soundfiler "leggi e scrivi tabelle in file audio" ! ! say_category MISC ! say loadbang "bang al caricamento" ! say serial "controllo per la porta seriale (solo per NT)" ! say netsend "manda messaggi su internet" ! say netreceive "riceve messaggi da internet" ! say qlist "sequencer di messaggi" ! say textfile "convertitore di file in messaggi" ! say openpanel "\"Apri\" dialog" ! say savepanel "\"salva con nome\" dialog" ! say bag "insieme di numeri" ! say poly "allocazione polifonica di voci" ! say {key keyup} "valori numerici da tastiera" ! say keyname "valori in simboli da tastiera" ! ! say_category "AUDIO MATH" ! foreach word {+ - * /} {say $word~ "[say $word] (per segnali)"} ! say max~ "il valore massimo" ! say min~ "il valore minimo" ! say clip~ "costringe il segnale all'interno di un intervallo" ! say q8_rsqrt~ "radice quadrata reciproca veloce (attenzione -- 8 bits!)" ! say q8_sqrt~ "radice quadrata veloce (attenzione -- 8 bits!)" ! say wrap~ "wraparound (fractional part, sort of)" ! say fft~ "Trasformata di Fourier complessa discreta" ! say ifft~ "Trasformata di Fourier complessa discreta inversa" ! say rfft~ "Trasformata di Fourier reale discreta" ! say rifft~ "Trasformata di Fourier reale discreta inversa" ! say framp~ "output a ramp for each block" ! foreach word {mtof ftom rmstodb dbtorms rmstopow powtorms} { ! say $word~ "[say $word] (per segnali)" ! } ! } ! ! ! ### phase 3 ! ! say_namespace summary { ! say_category "AUDIO GLUE" ! say dac~ "audio output" ! say adc~ "audio input" ! say sig~ "converte numeri in segnali audio" ! say line~ "genera una rampa sui segnali" ! say vline~ "line~ con maggiore precisione" ! say threshold~ "avverte il superamento di una soglia" ! say snapshot~ "converte un segnale in numero" ! say vsnapshot~ "snapshot~ con maggiore precisione" ! say bang~ "invia un bang dopo ogni blicco DSP" ! say samplerate~ "invia la frequenza di campionamento" ! say send~ "invia segnali" ! say receive~ "riceve segnali da send~" ! say throw~ "aggiunge il segnale ad un bus" ! say catch~ "legge il segnale da un bus" ! say block~ "specifica la dimensione del blocco DSP" ! say switch~ "attiva o disattiva la computazione DSP in questa finestra" ! say readsf~ "riproduzione di un file audio" ! say writesf~ "registrazione di un file audio" ! ! say_category "AUDIO OSCILLATORS AND TABLES" ! say phasor~ "oscillatore a onda triangolare" ! say {cos~ osc~} "oscillatore a onda sinusoidale" ! say tabwrite~ "scrive il segnale in una tabella" ! say tabplay~ "riproduce il segnale registrato in una tabella (senza trasportare)" ! say tabread~ "legge il segnale da una tabella senza interpolazione" ! say tabread4~ "legge il segnale da una tabella con interpolazione su 4 punti" ! say tabosc4~ "oscillatore wavetable" ! say tabsend~ "scrive continuamente un blocco su una tabella" ! say tabreceive~ "legge continuamente un blocco da una tabella" ! ! say_category "AUDIO FILTERS" ! say vcf~ "filtro a voltaggio controllato" ! say noise~ "rumore bianco" ! say env~ "indicatore di inviluppo" ! say hip~ "filtro passa alto" ! say lop~ "filtro passa basso" ! say bp~ "filtro a banda passante" ! say biquad~ "filtro biquadratico" ! say samphold~ "campiona e trattiene un segnale" ! say print~ "scrive uno o più blocchi sulla console" ! say rpole~ "raw real-valued one-pole filter" ! say rzero~ "raw real-valued one-zero filter" ! say rzero_rev~ "[say rzero~] (time-reversed)" ! say cpole~ "[say rpole~] (complex-valued)" ! say czero~ "[say rzero~] (complex-valued)" ! say czero_rev~ "[say rzero_rev~] (complex-valued)" ! ! say_category "AUDIO DELAY" ! say delwrite~ "scrive una linea di ritardo" ! say delread~ "legge una linea di ritardo" ! say vd~ "legge una linea di ritardo con tempo variabile" ! ! say_category "SUBWINDOWS" ! say pd "definisce una sottofinestra" ! say table "un vettore di numeri in una sottofinestra" ! say inlet "aggiunge un inlet" ! say outlet "aggiunge un outlet" ! say inlet~ "[say inlet] (per segnali)" ! say outlet~ "[say outlet] (per segnali)" ! ! say_category "DATA TEMPLATES" ! say struct "definisce una struttura dati" ! say {drawcurve filledcurve} "disegna una curva" ! say {drawpolygon filledpolygon} "disegna un poligono" ! say plot "disegna un vettore" ! say drawnumber "stampa un valore numerico" ! ! say_category "ACCESSING DATA" ! say pointer "puntatore ad un oggetto che appartiene ad un template" ! say get "ottiene una proprietà numerica" ! say set "imposta una proprietà numerica" ! say element "ottiene una proprietà vettore" ! say getsize "imposta una proprietà vettore" ! say setsize "cambia le dimensioni di un vettore" ! say append "aggiunge un elemento ad una lista" ! say sublist "ottiene un puntatore da una lista che è un elemento di un'altro scalare" ! say scalar "disegna uno scalare sulla finestra" ! ! say_category "OBSOLETE" ! say scope~ "(usa tabwrite~)" ! say namecanvas "" ;# what was this anyway? ! say template "(usa struct)" ! } ! ! say cannot "non posso"

1 0

pd/src desire.tk,1.1.2.405,1.1.2.406
by chunlee 25 Aug '06

25 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11425 Modified Files: Tag: devel_0_39 desire.tk Log Message: first attempt on the font bomb Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.405 retrieving revision 1.1.2.406 diff -C2 -d -r1.1.2.405 -r1.1.2.406 *** desire.tk 25 Aug 2006 13:46:32 -0000 1.1.2.405 --- desire.tk 25 Aug 2006 16:24:35 -0000 1.1.2.406 *************** *** 509,512 **** --- 509,514 ---- #-----------------------------------------------------------------------------------# set font(size) 12 + set font(name) courier + set font(style) normal set font(str2) "-*-courier-medium--normal--%d-*" set font(str) [format -*-courier-medium--normal--%d-* $font(size)] *************** *** 617,621 **** set key(Canvas:paths) "" set key(Canvas:text_editor) "Ctrl+t" ! set key(Canvas:font_bomb) "" set key(Canvas:audio_on) "Ctrl+slash" set key(Canvas:audio_off) "Ctrl+period" --- 619,623 ---- set key(Canvas:paths) "" set key(Canvas:text_editor) "Ctrl+t" ! set key(Canvas:font_bomb) "Ctrl+F" set key(Canvas:audio_on) "Ctrl+slash" set key(Canvas:audio_off) "Ctrl+period" *************** *** 1445,1448 **** --- 1447,1452 ---- def Canvas history {} {return $@history} + def* Canvas font_bomb {} {FontBombDialog new_as fontbomb} + #-----------------------------------------------------------------------------------# *************** *** 5840,5844 **** --- 5844,5943 ---- $self page_select 1 } + ############ font bomb ########### + class_new FontBombDialog {Dialog} + + + def* FontBombDialog get_xlfd {name style size} { + #global bold italic fontsize + set fstring "" + set facename [.$self.font.list.box get [.$self.font.list.box curselection]] + if {$style == "bold"} { + set fstring "*-$facename-bold" + } else { + set fstring "*-$facename-medium" + } + if {$style == "italic"} { + if {$facename == "Helvetica" || $facename == "Courier"} { + set fstring "$fstring-o-normal--$size-*" + } else { + set fstring "$fstring-i-normal--$size-*" + } + } else { + set fstring "$fstring-r-normal--$size-*" + } + return $fstring + } + + def* FontBombDialog resetfont {} { + global font + set xlfd [$self get_xlfd $font(name) $font(style) $@size] + .$self.font2.preview.entry configure -font $xlfd + } + + def* FontBombDialog changesize {y} { + global font + set f .$self + set @size [expr $@size - $y] + $f.font.size.entry delete 0 end + $f.font.size.entry insert 0 $@size + puts "$font(size)" + } + + def* FontBombDialog init {} { + global font + super reset cancel apply ok + #$self add .fontbomb [say "fontbomb"] + set f .$self + #wm geometry $f 346x334 + bind all <KeyPress-F1> help + #set fontsize $font(size) + set @size $font(size) + set bold 0 + set italic 0 + set previewtext "Sample text" + + frame $f.font + pack [label $f.font.label -text "Name:" -anchor w] -side top -fill x + frame $f.font.list + pack [listbox $f.font.list.box -relief sunken -yscrollcommand "$f.font.list.scroll set"] -side left + pack [scrollbar $f.font.list.scroll -relief sunken -command "$f.font.list.box yview"] -side right -fill y + + # Insert the font names into the list box + foreach name {Charter Clean Courier Helvetica Lucida LucidaBright\ + LucidaTypewriter {New Century Schoolbook} Symbol Times\ + fixed terminal} { + $f.font.list.box insert end $name + } + + bind $f.font.list.box <ButtonRelease-1> "$self resetfont" + + frame $f.font.size + pack [label $f.font.size.label -text "Size:"] -side left + pack [entry $f.font.size.entry -relief sunken -textvariable fontsize -width 4] -side left + pack [scrollbar $f.font.size.scroll -command "$self changesize"] -side right -fill y + $f.font.size.entry insert 0 $@size + + frame $f.font.style + pack [label $f.font.style.label -text "Style:"] -side left -fill y + pack [checkbutton $f.font.style.bold -text "Bold" -variable bold -command resetFont] -side top + pack [checkbutton $f.font.style.italic -text "Italic" -variable italic -command resetFont] -side top + + frame $f.font2 + frame $f.font2.preview + pack [label $f.font2.preview.label -text "Preview:"] -side left -fill y + pack [entry $f.font2.preview.entry -width 10 -relief sunken -textvariable previewtext] -side right + $f.font2.preview.entry insert 0 "D351r3D474" + + + pack $f.font.list -side left -fill y + pack $f.font.size -side top -fill x + pack $f.font.style -side top -fill x + pack $f.font2.preview -side bottom + + pack $f.font -side top + pack $f.font2 -side bottom + + } ############ other stuff #########

1 0

externals/postlude/flib/src cc~.c,1.2,1.3 flib.h,1.5,1.6
by Jamie Bullock 25 Aug '06

25 Aug '06

Update of /cvsroot/pure-data/externals/postlude/flib/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29337 Modified Files: cc~.c flib.h Log Message: Corrected freq domain cc~ (provided by Charles Henry) Index: flib.h =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/flib/src/flib.h,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** flib.h 30 May 2006 13:42:23 -0000 1.5 --- flib.h 25 Aug 2006 15:49:30 -0000 1.6 *************** *** 22,26 **** #include <string.h> ! #define VERSION "0.83" void sc_tilde_setup(void); --- 22,26 ---- #include <string.h> ! #define VERSION "0.84" void sc_tilde_setup(void); Index: cc~.c =================================================================== RCS file: /cvsroot/pure-data/externals/postlude/flib/src/cc~.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** cc~.c 30 May 2006 13:42:23 -0000 1.2 --- cc~.c 25 Aug 2006 15:49:29 -0000 1.3 *************** *** 31,35 **** ! #include "flib.h" #define SQ(a) (a * a) --- 31,38 ---- ! #include <math.h> ! #include <stdlib.h> ! #include <stdio.h> ! #include <m_pd.h> #define SQ(a) (a * a) *************** *** 41,47 **** t_int delay; t_int is_freq_domain; ! t_float *buffer2Nsig1, *buffer2Nsig2; t_float *output_prev_block; ! t_int is_new; t_int n; } t_cc; --- 44,50 ---- t_int delay; t_int is_freq_domain; ! t_float *bufferNsig1, *bufferNsig2; t_float *output_prev_block; ! t_int is_new_or_rszd; t_int n; } t_cc; *************** *** 113,158 **** t_sample *out = (t_sample *)(w[4]); t_int size = (int) w[5]; - x->n = size; t_int size2 = size*2; t_int half = size/2; t_float *expsig1 = NULL; t_float *revsig2 = NULL; t_float temp, temp2; t_int i=0; - t_int thrhalf; // This stuff here sets up two buffers to hold the previous N samples // To get the usual overlapping block (2) design on each input ! if (x->is_new) { ! x->buffer2Nsig1=getbytes(size*sizeof(t_float)); ! x->buffer2Nsig2=getbytes(size*sizeof(t_float)); ! x->output_prev_block=getbytes(size*sizeof(t_float)); ! x->is_new=0; ! } ! // Here we set the buffers for the next round ! for(i=half; i < size; i++) ! { ! x->buffer2Nsig1[i]=sig1[i]; ! x->buffer2Nsig2[i]=sig2[i]; } - // The two signals are created, nonzero on 0 to 1/4 and 3/4 to 1 - // Using a block size of 2N, --size2 ! expsig1=(float *) getbytes(size2*sizeof(float)); ! revsig2=(float *) getbytes(size2*sizeof(float)); - // Loops for assignment of old values in buffer + new block - thrhalf = 3*half; for (i=0; i < half ; i++) { ! expsig1[i]=x->buffer2Nsig1[i]; ! revsig2[i]=0; } for (i=half; i < size ; i++) { ! expsig1[i]=x->buffer2Nsig1[i]; ! revsig2[i]=sig2[size-i]; /// Needs revision here, not too clear } expsig1[size]=sig1[0]; --- 116,176 ---- t_sample *out = (t_sample *)(w[4]); t_int size = (int) w[5]; t_int size2 = size*2; t_int half = size/2; + t_int thrhalf = 3*half; t_float *expsig1 = NULL; t_float *revsig2 = NULL; t_float temp, temp2; t_int i=0; + if (x->n!=size) + { + x->n = size; + x->is_new_or_rszd=1; + } + // This stuff here sets up two buffers to hold the previous N samples // To get the usual overlapping block (2) design on each input ! if (x->is_new_or_rszd) { ! if (x->bufferNsig1!=NULL) ! { ! freebytes(x->bufferNsig1,size*sizeof(t_float)); ! freebytes(x->bufferNsig2,size*sizeof(t_float)); ! freebytes(x->output_prev_block,size*sizeof(t_float)); ! } ! x->bufferNsig1=getbytes(size*sizeof(t_float)); ! x->bufferNsig2=getbytes(size*sizeof(t_float)); ! x->output_prev_block=getbytes(size*sizeof(t_float)); ! for(i=0; i<size; i++) ! { ! x->bufferNsig1[i]=0; ! x->bufferNsig2[i]=0; ! x->output_prev_block[i]=0; ! } ! x->is_new_or_rszd=0; } ! // The two signals are created, using a block size of 2N, --size2 ! // expsig1 is the expanded signal1 x->bufferNsig1 + sig1 ! // revsig2 is the reversed signal2 (reversed about i=0) ! // it is made 0.0 on 0 to half and thrhalf to size2 ! ! ! expsig1=(t_float *) getbytes(size2*sizeof(t_float)); ! revsig2=(t_float *) getbytes(size2*sizeof(t_float)); ! ! // Loops for assignment of old values in new block + buffer for (i=0; i < half ; i++) { ! expsig1[i]=x->bufferNsig1[i]; ! revsig2[i]=0.0; } for (i=half; i < size ; i++) { ! expsig1[i]=x->bufferNsig1[i]; ! revsig2[i]=sig2[size-i]; } expsig1[size]=sig1[0]; *************** *** 161,212 **** { expsig1[i]=sig1[i-size]; ! revsig2[i]=x->buffer2Nsig2[size2-i]; } for (i=thrhalf; i < size2 ; i++) { expsig1[i]=sig1[i-size]; ! revsig2[i]=0; } - // fft the two blocks and multiply them mayer_realfft(size2, expsig1); mayer_realfft(size2, revsig2); ! expsig1[0]*=revsig2[0]; expsig1[size]*=revsig2[size]; ! for(i=1; i < size2; i++) { temp=expsig1[i]; temp2=expsig1[size2-i]; expsig1[i]=temp*revsig2[i]-temp2*revsig2[size2-i]; ! expsig1[size2-i]=temp*revsig2[size2-i]+temp2*revsig2[i]; } - // ifft mayer_realifft(size2, expsig1); - // format the output: this section formats the ouptut either as // a simple cc or as a running cc ! if (x->is_freq_domain == 1) ! { ! for(i=0; i < half; i++) { ! out[i]=expsig1[i]/size2; ! out[half + i]=expsig1[half + i]/size2; } ! } else { ! for(i=0; i < half; i++) { ! out[i]=x->output_prev_block[i] + expsig1[i]/size2; ! out[half + i]=x->output_prev_block[half + i] + expsig1[half + i]/size2; ! x->output_prev_block[i] = out[i]; ! x->output_prev_block[half + i] = out[half + i]; } - } ! freebytes(expsig1, size2*sizeof(float)); ! freebytes(revsig2, size2*sizeof(float)); return(w+6); - } --- 179,237 ---- { expsig1[i]=sig1[i-size]; ! revsig2[i]=x->bufferNsig2[size2-i]; } for (i=thrhalf; i < size2 ; i++) { expsig1[i]=sig1[i-size]; ! revsig2[i]=0.0; ! } ! // Here we set the buffers for the next round ! for(i=0; i < size; i++) ! { ! x->bufferNsig1[i]=(t_float) sig1[i]; ! x->bufferNsig2[i]=(t_float) sig2[i]; } // fft the two blocks and multiply them mayer_realfft(size2, expsig1); mayer_realfft(size2, revsig2); ! expsig1[0]*=revsig2[0]; expsig1[size]*=revsig2[size]; ! ! ! for(i=1; i < size; i++) { temp=expsig1[i]; temp2=expsig1[size2-i]; expsig1[i]=temp*revsig2[i]-temp2*revsig2[size2-i]; ! expsig1[size2-i]=-1.0*(temp*revsig2[size2-i]+temp2*revsig2[i]); } // ifft + mayer_realifft(size2, expsig1); // format the output: this section formats the ouptut either as // a simple cc or as a running cc ! if (x->is_freq_domain == 1) { ! for(i=0; i < half; i++) ! { ! out[i]=expsig1[thrhalf+i]/size2; ! out[half + i]=expsig1[i]/size2; ! } } ! else { ! for(i=0; i < half; i++) ! { ! out[i]=x->output_prev_block[i] + expsig1[thrhalf+i]/size2; ! out[half + i]=x->output_prev_block[half + i] + expsig1[i]/size2; ! x->output_prev_block[i] = out[i]; ! x->output_prev_block[half + i] = out[half + i]; ! } } ! freebytes(expsig1, size2*sizeof(t_float)); ! freebytes(revsig2, size2*sizeof(t_float)); return(w+6); } *************** *** 250,256 **** inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); outlet_new(&x->x_obj, &s_signal); ! x->is_new=1; ! x->buffer2Nsig1=NULL; ! x->buffer2Nsig2=NULL; x->output_prev_block=NULL; return (void *)x; --- 275,281 ---- inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); outlet_new(&x->x_obj, &s_signal); ! x->is_new_or_rszd=1; ! x->bufferNsig1=NULL; ! x->bufferNsig2=NULL; x->output_prev_block=NULL; return (void *)x; *************** *** 259,268 **** static void cc_free(t_cc *x) { ! if (x->buffer2Nsig1 != NULL) ! freebytes(x->buffer2Nsig1, x->n*sizeof(float)); ! if (x->buffer2Nsig2 != NULL) ! freebytes(x->buffer2Nsig2, x->n*sizeof(float)); if (x->output_prev_block != NULL) ! freebytes(x->output_prev_block, x->n*sizeof(float)); } --- 284,293 ---- static void cc_free(t_cc *x) { ! if (x->bufferNsig1 != NULL) ! freebytes(x->bufferNsig1, x->n*sizeof(t_float)); ! if (x->bufferNsig2 != NULL) ! freebytes(x->bufferNsig2, x->n*sizeof(t_float)); if (x->output_prev_block != NULL) ! freebytes(x->output_prev_block, x->n*sizeof(t_float)); } *************** *** 281,282 **** --- 306,308 ---- } +

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
47
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs August 2006