Pd-cvs September 2006

pd-cvs@lists.iem.at

19 participants
346 discussions

externals/iem/comport/comport comport.c,1.21,1.22
by Martin Peach 24 Sep '06

24 Sep '06

Update of /cvsroot/pure-data/externals/iem/comport/comport In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9288 Modified Files: comport.c Log Message: Added comport_enum for Windows version Index: comport.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/comport/comport/comport.c,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** comport.c 11 Sep 2006 22:36:50 -0000 1.21 --- comport.c 24 Sep 2006 21:18:43 -0000 1.22 *************** *** 12,15 **** --- 12,16 ---- MP 20060709 All status goes out the status outlet when an info message is received MP 20060824 added clock_delay call in comport_devicename + MP 20060924 added comport_enum to list available ports in Windows */ *************** *** 199,202 **** --- 200,204 ---- static HANDLE open_serial(unsigned int com_num, t_comport *x); static HANDLE close_serial(t_comport *x); + static void comport_enum(void); #else static int open_serial(unsigned int com_num, t_comport *x); *************** *** 1238,1241 **** --- 1240,1272 ---- } + #ifdef _WIN32 + static void comport_enum(void) + { + HANDLE fd; + char device_name[10]; + unsigned int i; + DWORD dw; + + for(i = 1; i < COMPORT_MAX; i++) + { + sprintf(device_name, "\\\\.\\COM%d", i);/* the recommended way to specify COMs above 9 */ + fd = CreateFile( device_name, + GENERIC_READ | GENERIC_WRITE, + 0, + 0, + OPEN_EXISTING, + FILE_FLAG_OVERLAPPED, + 0); + dw = 0L; + if(fd == INVALID_HANDLE_VALUE) + dw = GetLastError(); + else + CloseHandle(fd); + if (dw == 0)post("\t%d - COM%d (free)", i, i); + else if (dw == ERROR_ACCESS_DENIED)post("\t%d - COM%d (in use)", i, i); + } + } + #endif // WIN32 + static void comport_output_print(t_comport *x) { *************** *** 1244,1253 **** post("[comport]: available serial ports:"); #ifdef _WIN32 ! post("\t0 - COM1"); ! for(i=1; i<COMPORT_MAX; i++) ! { ! /* TODO: this should actually probe ports */ ! post("\t%d - COM%s", i, i); ! } #else glob_t glob_buffer; --- 1275,1279 ---- post("[comport]: available serial ports:"); #ifdef _WIN32 ! comport_enum(); #else glob_t glob_buffer;

1 0

packages/patches remove_doubleclick_as_rightclick-0.39.2.patch, NONE, 1.1
by Hans-Christoph Steiner 24 Sep '06

24 Sep '06

Update of /cvsroot/pure-data/packages/patches In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10591 Added Files: remove_doubleclick_as_rightclick-0.39.2.patch Log Message: remove doubleclick as rightclick on Mac OS X since the OS provides a standard method to rightclick with one-button mice --- NEW FILE: remove_doubleclick_as_rightclick-0.39.2.patch --- Index: g_editor.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_editor.c,v retrieving revision 1.13 diff -u -w -r1.13 g_editor.c --- g_editor.c 15 Sep 2005 03:17:27 -0000 1.13 +++ g_editor.c 24 Sep 2006 17:12:48 -0000 @@ -1027,12 +1027,6 @@ #define ALTMOD 4 #define RIGHTCLICK 8 -/* on one-button-mouse machines, you can use double click to - mean right click (which gets the popup menu.) Do this for Mac. */ -#ifdef MACOSX -#define SIMULATERIGHTCLICK -#endif - static double canvas_upclicktime; static int canvas_upx, canvas_upy; #define DCLICKINTERVAL 0.25 @@ -1067,11 +1061,7 @@ if (doit && !runmode && xpos == canvas_upx && ypos == canvas_upy && sys_getrealtime() - canvas_upclicktime < DCLICKINTERVAL) -#ifdef SIMULATERIGHTCLICK - rightclick = 1; -#else doublemod = 1; -#endif x->gl_editor->e_lastmoved = 0; if (doit) {

1 0

externals/pdp README-12,NONE,1.1
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23727 Added Files: README-12 Log Message: pdp: README-12 --- NEW FILE: README-12 --- This is `old' pdp. Adapted from the version 0.12.4 released on 09-Jul-2004. As you might know, i started working on Packet Forth about two years ago. This has shifted my opinion as to what PDP should be quite a bit. In order not to annoy people using the old PDP with my new and exciting insights about forth, I declare this version to be the `stable' PDP 12. The DEC PDP 13 never existed, so this might have been a sign... For people interested in packet forth, check http://zwizwa.goto10.org for more information. Stable PDP might include some additions from PF later on, but main focus right now is stability. Groet, Tom Mon Oct 31 16:53:49 EST 2005

1 0

externals/pdp/opengl/doc reference_opengl.txt,NONE,1.1
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp/opengl/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23292/opengl/doc Added Files: reference_opengl.txt Log Message: pdp: missing files --- NEW FILE: reference_opengl.txt ---

1 0

externals/pdp/doc/misc rawout.txt,NONE,1.1
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp/doc/misc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23292/doc/misc Added Files: rawout.txt Log Message: pdp: missing files --- NEW FILE: rawout.txt --- How to use [pdp_rawout] to record video --------------------------------------- Some observations * pdp is a real time performance tool * ffmpeg and mencoder are very nice pieces of software that solve the video encoding problem * encoding video is cpu intensive * large harddisks are cheap For these reason, I decide to not implement container/codec recording in pdp. Using [pdp_rawout] and [pdp_rawout~] it is possible to dump video and audio streams directly to harddisk using the minimal amount of cpu time. There they can be picked up later by tools like mencoder and ffmpeg. ( For playback, pdp supports only libquicktime, which is, next to mjpegtools, a good solution for frame-based seekable video files. Since version 0.9.4 libquicktime supposedly supports AVI playback and record. Streaming playback and more efficient block codecs can be supported externally using [pdp_rawin] ) FFMPEG ------ FFMPEG is the 'industry standard' for open source video encoding. Its core components are libavcodec and libavformat, which implement the coder/decoder and container format handling. The latter two are used in a lot of other projects, like MPlayer and libquicktime. Send a video stream through [pdp_convert bitmap/i420/*] then stream it to disk using [pdp_rawout /tmp/video.i420] while you are performing. You can convert it to divx avi using ffmpeg -an -r 25 -s 320x240 -f rawvideo -i video.i420 video.avi To include audio, use [pdp_rawout~ 2 /tmp/audio.s16] to stream audio to disk. You can convert it with ffmpeg using ffmpeg -ar 44100 -ac 2 -f s16le -i audio.s16 audio.mp3 Doing both at the same time: ffmpeg -r 25 -s 320x240 -f rawvideo -i video.i420 -ar 44100 -ac 2 -f s16le -i audio.s16 -vcodec mjpeg -b 3000 clip.avi Note: i didn't figure out how to make ffmpeg read yv12 encoded files. However, pdp supports the bitmap/i420/* format. The latter is also the data format used in the yuv4mpeg protocol from the mjpeg tools. Codecs and Bitrates ------------------- The preferred codec to use during the editing stage is motion JPEG. If you have the space, use raw files, but i haven't figured out how to make them portable. The most portable mjpeg format seems to be wrapped in a mov. This is the format used in cinelerra. Uncompressed 320x240x25 yv12/i420 is 2.88 mbyte/sec A decent mjpeg compresion rate is 4:1, giving 720 kbyte/sec = 5760 kbit/sec with practically no loss of quality. 3000 and 2000 kbps are still acceptable. Sometimes it might be interesting to create DV files. These have a tighter binding to TV norms PAL and NTSC, and seem to be a standard at this moment. DV gives about 13gig/hour or 3 mbyte/sec. The actual rate is 5:1 compression at 25 Mbps (video only). Adding audio, timecode, etc.. comes to about 29 Mbps. (TODO: how to create DV files) The preferred distribution codec is either DIVX or H.264 (don't confuse with H.263 which is aimed at low bitrate video conferencing) A/V sync -------- The key to A/V sync is the observation that the ratio between audio and video frequency (samplerate and framerate), is a _rational_ one. This enables to have perfect sync: there are no roundoff errors since the relation between audio and video sample times can be computed exactly. The object [pdp_metro~] can be used to produce a locked video clock, given a rational framerate. It can produce a video clock that is compatible with standard A/V rates. For example the awkward 29.97Hz video rate is exactly supported as 29970/1000. Note that the 44.1kHz audio rate does not yield simple fractions for standard NTSC and PAL/SECAM framerates. I.e. in DV you have to use 48kHz. Enabling arbitrary long buffering (bufsize -1) in [pdp_rawout] and using [pdp_metro~] with the correct sample rate and video frame rate should produce perfect A/V sync without dropouts if your harddisk can keep up on the average. MJPEGTOOLS ---------- I mainly use lavtrans for converting the avi/mjpeg file made with ffmpeg to quicktime format. This should be readable by most video editing software. I had some problems with sharing th avi/mjpeg files themselves. To convert the avi file to mov use: lavtrans -o clip.mov -f q clip.avi Mplayer/Mencoder ---------------- The MPlayer project uses libavcodec, and even distributes a copy with the MPlayer source. You'll need mencoder mainly if you want to use an encoder that's not in the ffmpeg package (lavcodec), or what to do some format conversion that's not supported by ffmpeg directly. Of course mplayer is handy for inspecting raw files. To play a raw video stream try: mplayer -rawvideo on:w=320:h=240:fps=25 video.i420 To encode video only using the ffmpeg (lavc) mjpeg codec (it is possible to use yv12 here, using the format=yv12 option) mencoder -rawvideo on:w=320:h=240:fps=25 video.i420 -ovc lavc -lavcopts vcodec=mjpeg -o clip.avi links ----- http://mjpeg.sourceforge.net/ http://ffmpeg.sourceforge.net/index.php http://libquicktime.sourceforge.net/ http://www.mplayerhq.hu http://libdv.sourceforge.net/ http://solarmuri.ssl.berkeley.edu/~fisher/public/manuscripts/scientific-mov… http://mpeg4ip.sourceforge.net/ http://heroinewarrior.com/cinelerra.php3 http://www.adamwilt.com/DV-tech.html

1 0

externals/pdp bootstrap,NONE,1.1
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22551 Added Files: bootstrap Log Message: pdp: boodstrap file --- NEW FILE: bootstrap --- chmod +x buildall bin/* autoconf cd scaf autoconf cd ..

1 0

externals/pdp Makefile.config,1.6,NONE configure,1.5,NONE
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20725 Removed Files: Makefile.config configure Log Message: pdp: removed stale Makefile.config and configure from cvs --- configure DELETED --- --- Makefile.config DELETED ---

1 0

externals/pdp/modules/generic pdp_metro.c,NONE,1.1
by Tom Schouten 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/externals/pdp/modules/generic In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18425 Added Files: pdp_metro.c Log Message: added missing file pdp/pdp_metro.c --- NEW FILE: pdp_metro.c --- /* * Pure Data Packet module. Standard sync rates. * Copyright (c) by Tom Schouten <pdp(a)zzz.kotnet.org> * * 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. * */ /* pdp_metro this is the main audio/video sync module. use this if you need to produce synchronized raw output. this uses 'industry standard' integer sampling ratios. it works like this. for example, the most awkward 30 * 999/1000 Hz rate. */ #include "pdp.h" typedef struct _metro_struct { t_object x_obj; t_float x_f; t_clock *x_clock; t_outlet *x_outlet; t_int x_count; // current count for (upsampled) audio ticks t_int x_den; // video framerate denominator and nominator t_int x_nom; } t_metro; static t_int *metro_perform(t_int *w); #define DSP_ARG(type, name, source) type name = (type)source static void metro_dsp(t_metro *x, t_signal **sp) { dsp_add(metro_perform, 3, x, sp[0]->s_n, (int)sys_getsr()); } static t_int *metro_perform(t_int *w){ DSP_ARG(t_metro*, x, w[1]); DSP_ARG(t_int, n, w[2]); DSP_ARG(t_int, sr, w[3]); t_int period = sr * x->x_nom; t_int upsample = x->x_den; t_int dobang = 0; //fprintf(stderr, "%d/%d\t%d\t%d\n", x->x_den, x->x_nom, x->x_count, period); x->x_count += n * upsample; while (x->x_count > period) { dobang = 1; x->x_count -= period; } if (dobang) clock_set(x->x_clock, 0); return w+4; } static void metro_tick(t_metro *x) { outlet_bang(x->x_outlet); } static void metro_reset(t_metro *x){ x->x_count = 0; } static void metro_fps(t_metro *x, t_float fden, t_float fnom) { int den = (int)fden; int nom = (int)fnom; if (den < 1) den = 1; if (nom < 1) nom = 1; x->x_den = den; x->x_nom = nom; } static void metro_free(t_metro *x) { clock_unset(x->x_clock); } static t_class *metro_class; static void *metro_new(t_symbol *s, int argc, t_atom *argv) { t_metro *x = (t_metro *)pd_new(metro_class); x->x_outlet = outlet_new(&x->x_obj, &s_bang); x->x_clock = clock_new(x, (t_method)metro_tick); x->x_count = 0; metro_fps(x, 1, 1); return (void *)x; } #ifdef __cplusplus extern "C" { #endif void pdp_metro_setup(void) { metro_class = class_new(gensym("pdp_metro~"), (t_newmethod)metro_new, (t_method)metro_free, sizeof(t_metro), 0, A_NULL); CLASS_MAINSIGNALIN(metro_class, t_metro, x_f); class_addmethod(metro_class, (t_method)metro_tick, gensym("tick"), A_NULL); class_addmethod(metro_class, (t_method)metro_dsp, gensym("dsp"), A_NULL); class_addmethod(metro_class, (t_method)metro_fps, gensym("fps"), A_FLOAT, A_DEFFLOAT, A_NULL); } #ifdef __cplusplus } #endif

1 0

pd/src desire.tk,1.1.2.480,1.1.2.481
by chunlee 23 Sep '06

23 Sep '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1603 Modified Files: Tag: devel_0_39 desire.tk Log Message: some more hacks for drawing array... Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.480 retrieving revision 1.1.2.481 diff -C2 -d -r1.1.2.480 -r1.1.2.481 *** desire.tk 22 Sep 2006 16:41:55 -0000 1.1.2.480 --- desire.tk 22 Sep 2006 23:37:36 -0000 1.1.2.481 *************** *** 2142,2145 **** --- 2142,2150 ---- if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target} mset {type id detail} $target + # graphical array is different with iemgui in the way that there is no bounding box + # a array consists of a bunch of horizontal bars over the canvas it belongs to + # so as soon as the target does not return the Array anymore, nothing will get to its drawing + # method. so i put a tk canvas behind all the bars, so that the target will always return + # the Array id.. if {$id != ""} {if {[$id class] == "Array"} {$id motion $x $y $f $target; return}} switch $@action { *************** *** 2670,2673 **** --- 2675,2680 ---- } else { if {[$self focus] != ""} {[$self focus] unclick $x $y $f $target} + mset {type id detail} $target + if {$id != ""} {if {[$id class] == "Array"} {$id unclick $x $y $f $target; return}} } $self adjust_scrollbars *************** *** 4504,4507 **** --- 4511,4515 ---- set @length 0 set @data {} + set @draw 0 } *************** *** 4528,4532 **** set i 0 #cheats ! $self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] -outline red -fill white foreach val $@data { set y [expr $c_height - ((($val+abs($yfrom))/($yto-($yfrom)) * $c_height))] --- 4536,4541 ---- set i 0 #cheats ! if {[$@canvas editmode]} {set bg [$@canvas look bgedit]} else {set bg [$@canvas look bgrun]} ! $self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] -outline red -fill $bg foreach val $@data { set y [expr $c_height - ((($val+abs($yfrom))/($yto-($yfrom)) * $c_height))] *************** *** 4544,4553 **** } ! def Array click {x y f target} {puts "click on array........."} def Array motion {x y f target} { mset {c_width c_height} [$@canvas get_dimen] set width [expr $c_width / $@length] set i [format %d [expr int($x/$width)]] - puts " drawing this elem::: $i -> $width" set x1 [expr $width * $i] set x2 [expr $x1 + $width] --- 4553,4563 ---- } ! def Array click {x y f target} {set @draw 1} ! def Array unclick {x y f target} {set @draw 0} def Array motion {x y f target} { + if {!$@draw} return mset {c_width c_height} [$@canvas get_dimen] set width [expr $c_width / $@length] set i [format %d [expr int($x/$width)]] set x1 [expr $width * $i] set x2 [expr $x1 + $width] *************** *** 4555,4559 **** $self item elem${i} line $line -fill [$@canvas look compfg] -width 2 -tags " $self ${self}elem${i} " ! } def Array length= {val} {set @length $val} --- 4565,4571 ---- $self item elem${i} line $line -fill [$@canvas look compfg] -width 2 -tags " $self ${self}elem${i} " ! #hack.. ! if {[$@canvas editmode]} {set bg [$@canvas look bgedit]} else {set bg [$@canvas look bgrun]} ! $self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] -outline red -fill $bg } def Array length= {val} {set @length $val}

1 0

pd/src desire.tk,1.1.2.479,1.1.2.480
by chunlee 22 Sep '06

22 Sep '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5665 Modified Files: Tag: devel_0_39 desire.tk Log Message: more on array Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.479 retrieving revision 1.1.2.480 diff -C2 -d -r1.1.2.479 -r1.1.2.480 *** desire.tk 22 Sep 2006 14:08:12 -0000 1.1.2.479 --- desire.tk 22 Sep 2006 16:41:55 -0000 1.1.2.480 *************** *** 2142,2145 **** --- 2142,2146 ---- if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target} mset {type id detail} $target + if {$id != ""} {if {[$id class] == "Array"} {$id motion $x $y $f $target; return}} switch $@action { move { *************** *** 4526,4530 **** puts "data: $@data" set i 0 ! # $self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] -outline red -fill white foreach val $@data { set y [expr $c_height - ((($val+abs($yfrom))/($yto-($yfrom)) * $c_height))] --- 4527,4532 ---- puts "data: $@data" set i 0 ! #cheats ! $self item RECT polygon [list 0 0 $c_width 0 $c_width $c_height 0 $c_height] -outline red -fill white foreach val $@data { set y [expr $c_height - ((($val+abs($yfrom))/($yto-($yfrom)) * $c_height))] *************** *** 4533,4537 **** set line [list $x1 $y $x2 $y] set tag ${self}${i} ! $self item elem${i} line $line -fill [$@canvas look compfg] -width 2 -tags "$self" incr i } --- 4535,4539 ---- set line [list $x1 $y $x2 $y] set tag ${self}${i} ! $self item elem${i} line $line -fill [$@canvas look compfg] -width 2 -tags "$self ${self}elem${i}" incr i } *************** *** 4542,4547 **** } ! def Array click {x y f target} {set @action "move"; puts "action:: $@action";puts "click on array........."} ! def Array motion {x y f target} {} def Array length= {val} {set @length $val} def Array name= {val} {set @name $val} --- 4544,4560 ---- } ! def Array click {x y f target} {puts "click on array........."} ! def Array motion {x y f target} { ! mset {c_width c_height} [$@canvas get_dimen] ! set width [expr $c_width / $@length] ! set i [format %d [expr int($x/$width)]] ! puts " drawing this elem::: $i -> $width" ! set x1 [expr $width * $i] ! set x2 [expr $x1 + $width] ! set line [list $x1 $y $x2 $y] ! ! $self item elem${i} line $line -fill [$@canvas look compfg] -width 2 -tags " $self ${self}elem${i} " ! ! } def Array length= {val} {set @length $val} def Array name= {val} {set @name $val}

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
35
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 September 2006