diff options
Diffstat (limited to 'blinkenlights')
| -rw-r--r-- | blinkenlights/INSTALL | 15 | ||||
| -rw-r--r-- | blinkenlights/blinkenlights-help.pd | 156 | ||||
| -rw-r--r-- | blinkenlights/blinkenlights.c | 869 |
3 files changed, 0 insertions, 1040 deletions
diff --git a/blinkenlights/INSTALL b/blinkenlights/INSTALL deleted file mode 100644 index 218e125..0000000 --- a/blinkenlights/INSTALL +++ /dev/null @@ -1,15 +0,0 @@ -untar in /my/pd/dir/externs - -cd /my/pd/dir/externs/blinkenlights - -make clean - -make - -make install - -open help-blinkenlights.pd - -Thanx for getting here. -Yves/ -comments and bugs @ ydegoyon@free.fr diff --git a/blinkenlights/blinkenlights-help.pd b/blinkenlights/blinkenlights-help.pd deleted file mode 100644 index 32baca0..0000000 --- a/blinkenlights/blinkenlights-help.pd +++ /dev/null @@ -1,156 +0,0 @@ -#N canvas 484 81 885 735 10; -#X text 334 640 Part of unauthorized PD; -#X text 480 570 blinkenlights is a blinkenlights movies player; -#X text 480 584 but it's also a pixel grid than you can use for ASCII -art...; -#X text 480 600 Constructor : blinkenlights <width> <height> <x pixel -size> <y pixel size>; -#X msg 125 10 create; -#X msg 182 10 destroy; -#X text 274 11 Create/destroy the window; -#X msg 125 129 background 78 34 12; -#X text 275 131 Set the background color [RGB]; -#X text 275 154 Set the foreground color [RGB]; -#X msg 121 223 pixon \$1 \$2; -#X msg 284 222 bang; -#X msg 285 266 bang; -#X msg 122 267 pixoff \$1 \$2; -#X obj 87 618 blinkenlights 18 8 32 32; -#X msg 125 152 foreground 124 78 89; -#X obj 347 277 hsl 32 8 1 32 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 0 1; -#X obj 336 250 vsl 8 32 1 32 0 0 empty empty empty 0 -8 0 8 -262144 --1 -1 0 1; -#X text 355 257 Set a pixel off; -#X text 352 213 Set a pixel on; -#X obj 346 232 hsl 32 8 1 32 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 1600 1; -#X obj 335 205 vsl 8 32 1 32 0 0 empty empty empty 0 -8 0 8 -262144 --1 -1 1400 1; -#X msg 338 309 bang; -#X obj 400 320 hsl 32 8 1 32 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 0 1; -#X obj 389 293 vsl 8 32 1 32 0 0 empty empty empty 0 -8 0 8 -262144 --1 -1 0 1; -#X text 410 303 Set a pixel in a particular color; -#X msg 118 310 pixel \$1 \$2 34 23 109; -#X obj 120 338 + 1; -#X obj 217 338 + 1; -#X obj 316 338 random 255; -#X obj 395 338 random 255; -#X obj 470 338 random 255; -#X msg 118 360 pixel \$1 \$2 \$3 \$4 \$5; -#X obj 267 359 pack f f f f f; -#X obj 464 360 t b b b b b; -#X msg 593 339 stop; -#X text 634 342 Random drawing; -#X msg 547 339 bang; -#X obj 548 360 metro 10; -#X obj 146 338 random 32; -#X obj 246 337 random 32; -#X msg 125 107 clear; -#X text 274 105 Clear the area; -#X text 122 187 ============================================ Pixel -Functions; -#X text 552 187 ========================================; -#X text 550 -6 ========================================; -#X text 539 472 ========================================; -#X text 112 472 =========================================== Movies -Functions; -#X text 122 -6 =========================================== Grid Actions -; -#X obj 214 222 pack f f; -#X obj 215 266 pack f f; -#X obj 275 310 pack f f; -#X msg 125 81 xsize 32; -#X msg 192 81 ysize 32; -#X text 274 79 Set the pixel x & y size; -#X msg 127 33 width 24; -#X msg 125 58 height 24; -#X text 275 37 Set the width ( number of pixels ); -#X text 275 56 Set the height ( number of pixels ); -#X msg 127 495 open ./blm/ascii_people.blm; -#X msg 335 495 play; -#X msg 377 495 stop; -#X msg 127 522 open \$1; -#X msg 418 495 next; -#X obj 458 494 metro 100; -#X msg 531 495 bang; -#X msg 571 494 stop; -#X obj 188 521 openpanel; -#X obj 261 522 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X floatatom 615 495 5 0 0 0 - - -; -#X text 534 401 ========================================; -#X text 116 400 =============================================== VJ -function; -#X msg 132 444 vj \$1; -#X msg 363 444 goto \$1; -#X obj 366 423 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 5600 1; -#X obj 132 424 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 -1; -#X text 507 420 <- look! you can also scratch the film!; -#X text 530 434 be sure the window is created first....; -#X text 154 420 <- switch to the scratch mode; -#X text 333 654 Comments and bugs @ ydegoyon@free.fr and chun@goto10.org -; -#X connect 4 0 14 0; -#X connect 5 0 14 0; -#X connect 7 0 14 0; -#X connect 10 0 14 0; -#X connect 11 0 49 0; -#X connect 12 0 50 0; -#X connect 13 0 14 0; -#X connect 15 0 14 0; -#X connect 16 0 50 0; -#X connect 17 0 12 0; -#X connect 17 0 50 1; -#X connect 20 0 49 0; -#X connect 21 0 11 0; -#X connect 21 0 49 1; -#X connect 22 0 51 0; -#X connect 23 0 51 0; -#X connect 24 0 22 0; -#X connect 24 0 51 1; -#X connect 26 0 14 0; -#X connect 27 0 33 0; -#X connect 28 0 33 1; -#X connect 29 0 33 2; -#X connect 30 0 33 3; -#X connect 31 0 33 4; -#X connect 32 0 14 0; -#X connect 33 0 32 0; -#X connect 34 0 39 0; -#X connect 34 1 40 0; -#X connect 34 2 29 0; -#X connect 34 3 30 0; -#X connect 34 4 31 0; -#X connect 35 0 38 0; -#X connect 37 0 38 0; -#X connect 38 0 34 0; -#X connect 39 0 27 0; -#X connect 40 0 28 0; -#X connect 41 0 14 0; -#X connect 49 0 10 0; -#X connect 50 0 13 0; -#X connect 51 0 26 0; -#X connect 52 0 14 0; -#X connect 53 0 14 0; -#X connect 55 0 14 0; -#X connect 56 0 14 0; -#X connect 59 0 14 0; -#X connect 60 0 14 0; -#X connect 61 0 14 0; -#X connect 62 0 14 0; -#X connect 63 0 14 0; -#X connect 64 0 63 0; -#X connect 65 0 64 0; -#X connect 66 0 64 0; -#X connect 67 0 62 0; -#X connect 68 0 67 0; -#X connect 69 0 64 1; -#X connect 72 0 14 0; -#X connect 73 0 14 0; -#X connect 74 0 73 0; -#X connect 75 0 72 0; diff --git a/blinkenlights/blinkenlights.c b/blinkenlights/blinkenlights.c deleted file mode 100644 index 03abda9..0000000 --- a/blinkenlights/blinkenlights.c +++ /dev/null @@ -1,869 +0,0 @@ -/* ---------------------- blinkenlights~ -------------------------------------- */ -/* */ -/* Blinkenlights is a BL movies player but also a pixel grid */ -/* Written by Yves Degoyon (ydegoyon@free.fr). */ -/* */ -/* 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. */ -/* */ -/* See file LICENSE for further informations on licensing terms. */ -/* */ -/* 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/* */ -/* Based on PureData by Miller Puckette and others. */ -/* */ -/* Currently listening : */ -/* Pop Group : We Are All Prostitutes */ -/* Culturcide : Bruce */ -/* ---------------------------------------------------------------------------- */ - -//added functions: -//"static void blinkenlights_findframes(t_blinkenlights *x)" -//this is to remember the frame positions in the .blm file - -//"static void blinkenlights_goto(t_blinkenlights* x, t_float frame)" -//with a "goto $1" message, you can stratch the blm film. note that the -//range of $1 is 0 to 1 - - -#include <sys/types.h> -#include <string.h> -#include <stdio.h> -#include <errno.h> -#include <stdlib.h> -#include <fcntl.h> -#include <sys/stat.h> -#ifndef __APPLE__ -#include <malloc.h> -#endif -#include <ctype.h> -#include <unistd.h> -#include <time.h> -#include <sys/time.h> - -#include "m_pd.h" /* standard pd stuff */ -#include "g_canvas.h" /* some pd's graphical functions */ - -static char *blinkenlights_version = "blinkenlights: a blinkenlights movies player version 0.2 ( bugs @ ydegoyon@free.fr and chun@goto10.org )"; - -static int guidebug=0; - -#define SYS_VGUI2(a,b) if (guidebug) \ - post(a,b);\ - sys_vgui(a,b) - -#define SYS_VGUI3(a,b,c) if (guidebug) \ - post(a,b,c);\ - sys_vgui(a,b,c) - -#define SYS_VGUI4(a,b,c,d) if (guidebug) \ - post(a,b,c,d);\ - sys_vgui(a,b,c,d) - -#define SYS_VGUI5(a,b,c,d,e) if (guidebug) \ - post(a,b,c,d,e);\ - sys_vgui(a,b,c,d,e) - -#define SYS_VGUI6(a,b,c,d,e,f) if (guidebug) \ - post(a,b,c,d,e,f);\ - sys_vgui(a,b,c,d,e,f) - -#define SYS_VGUI7(a,b,c,d,e,f,g) if (guidebug) \ - post(a,b,c,d,e,f,g);\ - sys_vgui(a,b,c,d,e,f,g) - -#define SYS_VGUI8(a,b,c,d,e,f,g,h) if (guidebug) \ - post(a,b,c,d,e,f,g,h);\ - sys_vgui(a,b,c,d,e,f,g,h) - -#define SYS_VGUI9(a,b,c,d,e,f,g,h,i) if (guidebug) \ - post(a,b,c,d,e,f,g,h,i);\ - sys_vgui(a,b,c,d,e,f,g,h,i) - -#define SYS_VGUI10(a,b,c,d,e,f,g,h,i,j) if (guidebug) \ - post(a,b,c,d,e,f,g,h,i,j);\ - sys_vgui(a,b,c,d,e,f,g,h,i,j) - -#define BL_BACKGROUND_COLOR "#000000" -#define BL_FOREGROUND_COLOR "#00FF00" -#define BL_MAX_LENGTH 1024 - -static t_class *blinkenlights_class; - -typedef struct _blinkenlights -{ - t_object x_obj; - t_int x_width; /* number of pixels ( width ) */ - t_int x_height; /* number of pixels ( height) */ - t_int x_xsize; /* x size of each pixel */ - t_int x_ysize; /* y size of each pixel */ - char *x_background; /* color of the background #RRGGBB */ - char *x_foreground; /* color of the foreground #RRGGBB */ - t_int x_ecanvas; /* flag that indicates if the canvas has been created */ - t_glist *x_glist; /* graphic context */ - FILE *x_filed; /* file descriptor */ - t_int x_timer; /* timer read from bl movie */ - t_int *x_frame; /* frame contents */ - t_clock *x_clock; /* clock used for reading frames */ - t_outlet *outlet_bang; - t_int frame_no; - t_int frame_pos[BL_MAX_LENGTH]; - t_clock *x_clock2; - t_int x_timer2; - t_float frame_inc; - -} t_blinkenlights; - -static void blinkenlights_close(t_blinkenlights *x); - - /* clean up */ -static void blinkenlights_free(t_blinkenlights *x) -{ - post( "blinkenlights : freeing colors" ); - if ( x->x_background ) freebytes( x->x_background, 8 ); - if ( x->x_foreground ) freebytes( x->x_foreground, 8 ); - post( "blinkenlights : closing file" ); - blinkenlights_close(x); - post( "blinkenlights : cancelling clock" ); - if ( x->x_clock != NULL ) - { - clock_unset( x->x_clock ); - clock_free( x->x_clock ); - } - if ( x->x_clock2 != NULL ) - { - clock_unset( x->x_clock2 ); - clock_free( x->x_clock2 ); - } - post( "blinkenlights : done" ); -} - -static void *blinkenlights_new(t_float fwidth, t_float fheight, t_float fxpixsize, t_float fypixsize ) -{ - t_blinkenlights *x = (t_blinkenlights *)pd_new(blinkenlights_class); - if ( fwidth <= 0 ) { - post( "blinkenlights: wrong creation argument : width : %f", fwidth ); - return NULL; - } - if ( fheight <= 0 ) { - post( "blinkenlights: wrong creation argument : height : %f", fheight ); - return NULL; - } - if ( fxpixsize <= 0 ) { - post( "blinkenlights: wrong creation argument : x pixel size : %f", fxpixsize ); - return NULL; - } - if ( fypixsize <= 0 ) { - post( "blinkenlights: wrong creation argument : y pixel size : %f", fypixsize ); - return NULL; - } - x->x_width = (int) fwidth; - x->x_height = (int) fheight; - x->x_xsize = (int) fxpixsize; - x->x_ysize = (int) fypixsize; - x->x_ecanvas = 0; - x->x_filed = NULL; - x->x_frame = NULL; - x->x_clock = NULL; - x->x_glist = (t_glist *) canvas_getcurrent(); - x->x_background = (char*) getbytes( 8 ); - strncpy( x->x_background, BL_BACKGROUND_COLOR, 7 ); - x->x_background[7] = '\0'; - x->x_foreground = (char*) getbytes( 8 ); - strncpy( x->x_foreground, BL_FOREGROUND_COLOR, 7 ); - x->x_foreground[7] = '\0'; - x->x_timer2 = 40; - x->frame_inc = 0; - - x->outlet_bang = outlet_new(&x->x_obj, &s_bang); - - return(x); -} - -static void blinkenlights_draw_new(t_blinkenlights* x) -{ - t_canvas *canvas=glist_getcanvas(x->x_glist); - t_int xi, yi; - - SYS_VGUI4("toplevel .x%x -width %d -height %d -borderwidth 0 -background #000000\n", x, - x->x_width*x->x_xsize, x->x_height*x->x_ysize ); - SYS_VGUI2("frame .x%x.m -relief raised -bd 2\n", x); - SYS_VGUI2("wm title .x%x blinkenlights\n", x); - - SYS_VGUI4("canvas .x%x.c -width %d -height %d\n", - x, - x->x_width*x->x_xsize, x->x_height*x->x_ysize ); - x->x_ecanvas = 1; - - for ( xi=1; xi<=x->x_width; xi++ ) - { - for ( yi=1; yi<=x->x_height; yi++ ) - { - SYS_VGUI10(".x%x.c create rectangle %d %d %d %d -fill %s -outline #555555 -tags %xPIX%.5d%.5d\n", - x, - (xi-1)*x->x_xsize, (yi-1)*x->x_ysize, - xi*x->x_xsize, yi*x->x_ysize, - x->x_background, - x, xi, yi); - } - } - - SYS_VGUI2("pack .x%x.c -side left -expand 1 -fill both\n", x); - SYS_VGUI2("pack .x%x.m -side top -fill x\n", x); - SYS_VGUI2("wm geometry .x%x +0+0\n", x); - SYS_VGUI2("wm geometry .x%x +0+0\n", x); - -} - -static void blinkenlights_create(t_blinkenlights* x) -{ - - if ( x->x_ecanvas ) - { - post("blinkenlights : create : canvas already exists" ); - return; - } - - blinkenlights_draw_new(x); - -} - -static void blinkenlights_erase(t_blinkenlights* x) -{ - t_canvas *canvas=glist_getcanvas(x->x_glist); - t_int xi, yi; - - for ( xi=1; xi<=x->x_width; xi++ ) - { - for ( yi=1; yi<=x->x_height; yi++ ) - { - SYS_VGUI5(".x%x.c delete %xPIX%.5d%.5d\n", x, x, xi, yi); - } - } - SYS_VGUI2("destroy .x%x\n", x); - x->x_ecanvas=0; -} - -static void blinkenlights_destroy(t_blinkenlights* x) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : destroy : canvas does not exist" ); - return; - } - - blinkenlights_erase(x); -} - -static void blinkenlights_width(t_blinkenlights* x, t_float fwidth) -{ - if ( fwidth <= 0 ) { - post( "blinkenlights~: wrong width : ignored" ); - return; - } else { - if ( x->x_width == (int)fwidth ) return; - x->x_width=(int)fwidth; - } - if (x->x_ecanvas) blinkenlights_erase( x ); - blinkenlights_draw_new( x ); -} - -static void blinkenlights_height(t_blinkenlights* x, t_float fheight) -{ - if ( fheight <= 0 ) { - post( "blinkenlights~: wrong height : ignored" ); - return; - } else { - if ( x->x_height == (int)fheight ) return; - x->x_height=(int)fheight; - } - if (x->x_ecanvas) blinkenlights_erase( x ); - blinkenlights_draw_new( x ); -} - -static void blinkenlights_xsize(t_blinkenlights* x, t_float fxsize) -{ - if ( fxsize <= 0 ) { - post( "blinkenlights~: wrong x pixel size : ignored" ); - return; - } else { - if ( x->x_xsize == (int)fxsize ) return; - x->x_xsize=(int)fxsize; - } - if (x->x_ecanvas) blinkenlights_erase( x ); - blinkenlights_draw_new( x ); -} - -static void blinkenlights_ysize(t_blinkenlights* x, t_float fysize) -{ - if ( fysize <= 0 ) { - post( "blinkenlights~: wrong y pixel size : ignored" ); - return; - } else { - if ( x->x_ysize == (int)fysize ) return; - x->x_ysize=(int)fysize; - } - if (x->x_ecanvas) blinkenlights_erase( x ); - blinkenlights_draw_new( x ); -} - -static void blinkenlights_background(t_blinkenlights* x, t_float fR, t_float fG, t_float fB) -{ - if ( fR <0 || fR>255 ) - { - post("blinkenlights : wrong color component : fR : %d", fR); - return; - } - if ( fG <0 || fG>255 ) - { - post("blinkenlights : wrong color component : fG : %d", fG); - return; - } - if ( fB <0 || fB>255 ) - { - post("blinkenlights : wrong color component : fB : %d", fB); - return; - } - sprintf( x->x_background, "#%.2x%.2x%.2x", (int)fR, (int)fG, (int)fB ); - post("blinkenlights : background color set to : %s", x->x_background ); -} - -static void blinkenlights_foreground(t_blinkenlights* x, t_float fR, t_float fG, t_float fB) -{ - if ( fR <0 || fR>255 ) - { - post("blinkenlights : wrong color component : fR : %d", fR); - return; - } - if ( fG <0 || fG>255 ) - { - post("blinkenlights : wrong color component : fG : %d", fG); - return; - } - if ( fB <0 || fB>255 ) - { - post("blinkenlights : wrong color component : fB : %d", fB); - return; - } - sprintf( x->x_foreground, "#%.2x%.2x%.2x", (int)fR, (int)fG, (int)fB ); - post("blinkenlights : foreground color set to : %s", x->x_foreground ); -} - -static void blinkenlights_pixon(t_blinkenlights* x, t_float fX, t_float fY) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : pixon : canvas does not exist" ); - return; - } - if ( fX<1 || fX>x->x_width ) - { - post("blinkenlights : pixon : wrong x coordinate : %d : should be in [1,%d]", (int)fX, x->x_width ); - return; - } - if ( fY<1 || fY>x->x_height ) - { - post("blinkenlights : pixon : wrong y coordinate : %d : should be in [1,%d]", (int)fY, x->x_height ); - return; - } - SYS_VGUI6(".x%x.c itemconfigure %xPIX%.5d%.5d -fill %s\n", x, x, (int)fX, (int)fY, x->x_foreground ); -} - -static void blinkenlights_pixoff(t_blinkenlights* x, t_float fX, t_float fY) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : pixoff : canvas does not exist" ); - return; - } - if ( fX<1 || fX>x->x_width ) - { - post("blinkenlights : pixoff : wrong x coordinate : %d : should be in [1,%d]", (int)fX, x->x_width ); - return; - } - if ( fY<1 || fY>x->x_height ) - { - post("blinkenlights : pixoff : wrong y coordinate : %d : should be in [1,%d]", (int)fY, x->x_height ); - return; - } - SYS_VGUI6(".x%x.c itemconfigure %xPIX%.5d%.5d -fill %s\n", x, x, (int)fX, (int)fY, x->x_background ); -} - -static void blinkenlights_pixel(t_blinkenlights* x, t_float fX, t_float fY, t_float fR, t_float fG, t_float fB) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : pixel : canvas does not exist" ); - return; - } - if ( fX<1 || fX>x->x_width ) - { - post("blinkenlights : pixel : wrong x coordinate : %d : should be in [1,%d]", (int)fX, x->x_width ); - return; - } - if ( fY<1 || fY>x->x_height ) - { - post("blinkenlights : pixel : wrong y coordinate : %d : should be in [1,%d]", (int)fY, x->x_height ); - return; - } - if ( fR <0 || fR>255 ) - { - post("blinkenlights : pixel : wrong color component : fR : %d", fR); - return; - } - if ( fG <0 || fG>255 ) - { - post("blinkenlights : pixel : wrong color component : fG : %d", fG); - return; - } - if ( fB <0 || fB>255 ) - { - post("blinkenlights : pixel : wrong color component : fB : %d", fB); - return; - } - SYS_VGUI8(".x%x.c itemconfigure %xPIX%.5d%.5d -fill #%.2X%.2X%.2X\n", x, x, (int)fX, (int)fY, (int)fR, (int)fG, (int)fB ); -} - -static void blinkenlights_clear(t_blinkenlights* x) -{ - t_int xi, yi; - - for ( xi=1; xi<=x->x_width; xi++ ) - { - for ( yi=1; yi<=x->x_height; yi++ ) - { - blinkenlights_pixoff( x, xi, yi ); - } - } -} - - /* close the current movie */ -static void blinkenlights_close(t_blinkenlights *x) -{ - /* closing previous file descriptor */ - if ( x->x_filed != NULL ) { - if(fclose(x->x_filed) < 0) - { - perror( "blinkenlights : closing file" ); - } - x->x_filed = NULL; - } - if ( x->x_frame ) - { - freebytes( x->x_frame, x->x_width*x->x_height*sizeof(t_int) ); - x->x_frame = NULL; - } -} - - /* read the next frame */ -static void blinkenlights_readframe(t_blinkenlights *x) -{ - char *lineread = (char*) getbytes( BL_MAX_LENGTH ); - t_int flineno = 0; - t_int width, height, nwidth; - - //post( "blinkenlights: being readframe:>%s<", lineread ); - - if ( !x->x_ecanvas ) - { - post("blinkenlights : next : canvas does not exist" ); - return; - } - - if ( x->x_filed == NULL ) - { - post( "blinkenlights : no file is opened for reading a frame" ); - blinkenlights_close(x); - return; - } - - // skip header and empty lines - while ( lineread[0] == '#' || lineread[0] == '\n' || lineread[0] == '\0' ) - { - - //post( "blinkenlights : skipped line : >%s<", lineread ); - if ( fgets( lineread, BL_MAX_LENGTH, x->x_filed ) == 0 ) - { - post( "blinkenlights : end of file detected : looping..." ); - fseek( x->x_filed, 0L, SEEK_SET ); - outlet_bang(x->outlet_bang); - } - } - - if ( lineread[0] != '@' ) - { - post( "blinkenlights : format error : should find a time lime here : @XXX : got : >%s<", lineread ); - blinkenlights_close(x); - return; - } - else - { - x->x_timer = atoi( lineread+1 ); - // post( "blinkenlights : setting timer to %d", x->x_timer ); - } - - // read the contents of one frame - - // when reading first frame the height and width are read from the file - height = 0; - width = 0; - while ( 1 ) - { - - if ( fgets( lineread, BL_MAX_LENGTH, x->x_filed ) == NULL ) - { - post( "blinkenlights : EOF not expected here !!! "); - blinkenlights_close(x); - return; - } - else - { - if ( (lineread[0] == '\0') || (lineread[0] == '#') || (lineread[0] == '\n') ) break; - // post( "blinkenlights : lineread : %s", lineread ); - - nwidth = strlen( lineread )-1; // because of the carriage return - flineno++; - height = flineno; - if ( ( nwidth != width ) && ( width != 0 ) ) - { - post( "blinkenlights : weird file : width has changed (nwidth=%d) (width=%d)", nwidth, width ); - blinkenlights_close( x ); - return; - } - width = nwidth; - if ( x->x_frame != NULL ) - { - t_int pint = 0; - t_int newvalue; - - while ( pint < width ) - { - newvalue = (int) *(lineread+pint) - 48 /* ascii value for '0' */; - if ( newvalue != *(x->x_frame+(flineno-1)*x->x_width+pint ) ) - { - *(x->x_frame+(flineno-1)*x->x_width+pint ) = newvalue; - switch ( newvalue ) - { - case 0: - // post( "pixoff %d %d", pint+1, flineno ); - blinkenlights_pixoff( x, pint+1, flineno ); - break; - case 1: - // post( "pixon %d %d", pint+1, flineno ); - blinkenlights_pixon( x, pint+1, flineno ); - break; - default: - // post("blinkenlights : wrong value found for pixel : %d (c=%c)", newvalue, *(lineread+pint) ); - break; - } - } - pint++; - } - } - if ( x->x_frame == NULL ) x->x_height++; - } - } - if ( x->x_frame == NULL ) - { - if ( x->x_filed != NULL ) if ( fseek(x->x_filed, 0L, SEEK_SET) < 0 ) - { - post( "blinkenlights : could not rewind file" ); - blinkenlights_close( x ); - return; - } - blinkenlights_width(x, width); - blinkenlights_height(x, height); - x->x_frame = ( t_int* ) getbytes( x->x_width*x->x_height*sizeof(t_int) ); - blinkenlights_readframe(x); - } - - if ( lineread ) freebytes( lineread, BL_MAX_LENGTH ); -} -//------------------------------------------------------------------------- -//--chun's functions begin here... -//------------------------------------------------------------------------- -/* remember all the frame positions */ -static void blinkenlights_findframes(t_blinkenlights *x) -{ - int i =0; - - x->frame_no = 0; - - for(i=0;;i++) - { - char *lineread = (char*) getbytes( BL_MAX_LENGTH ); - - fgets( lineread, BL_MAX_LENGTH, x->x_filed ); - if(strlen(lineread) == 0) break; - - if(lineread[0] == '@') - { - x->frame_pos[x->frame_no] = ftell(x->x_filed); - x->frame_no++; - } - if (lineread) freebytes( lineread, BL_MAX_LENGTH ); - } - fseek( x->x_filed, 0L, SEEK_SET ); - post("the end:: %d frames!", x->frame_no); -} - -//------------------------------------------------------------------------- -static void blinkenlights_goto(t_blinkenlights* x) -{ - //char *lineread = (char*) getbytes( BL_MAX_LENGTH ); - char lineread[BL_MAX_LENGTH]; - int current_frame = x->frame_pos[(int)(x->frame_inc * (x->frame_no-1))]; - int i, n, width, newvalue, height, nwidth; - - t_int flineno = 0; - - fseek(x->x_filed, current_frame, SEEK_SET); - - height = 0; - width = 0; - while ( 1 ) - { - - if ( fgets( lineread, BL_MAX_LENGTH, x->x_filed ) == NULL ) - { - post( "blinkenlights : EOF not expected here !!! "); - blinkenlights_close(x); - return; - } - else - { - if ( (lineread[0] == '\0') || (lineread[0] == '#') || (lineread[0] == '\n') ) break; - // post( "blinkenlights : lineread : %s", lineread ); - - nwidth = strlen( lineread )-1; // because of the carriage return - flineno++; - height = flineno; - if ( ( nwidth != width ) && ( width != 0 ) ) - { - post( "blinkenlights : weird file : width has changed (nwidth=%d) (width=%d)", nwidth, width ); - blinkenlights_close( x ); - return; - } - width = nwidth; - if ( x->x_frame != NULL ) - { - t_int pint = 0; - t_int newvalue; - - while ( pint < width ) - { - newvalue = (int) *(lineread+pint) - 48 /* ascii value for '0' */; - if ( newvalue != *(x->x_frame+(flineno-1)*x->x_width+pint ) ) - { - *(x->x_frame+(flineno-1)*x->x_width+pint ) = newvalue; - switch ( newvalue ) - { - case 0: - // post( "pixoff %d %d", pint+1, flineno ); - blinkenlights_pixoff( x, pint+1, flineno ); - break; - case 1: - // post( "pixon %d %d", pint+1, flineno ); - blinkenlights_pixon( x, pint+1, flineno ); - break; - default: - // post("blinkenlights : wrong value found for pixel : %d (c=%c)", newvalue, *(lineread+pint) ); - break; - } - } - pint++; - } - } - if ( x->x_frame == NULL ) x->x_height++; - } - } - if ( x->x_frame == NULL ) - { - if ( x->x_filed != NULL ) if ( fseek(x->x_filed, 0L, SEEK_SET) < 0 ) - { - post( "blinkenlights : could not rewind file" ); - blinkenlights_close( x ); - return; - } - blinkenlights_width(x, width); - blinkenlights_height(x, height); - x->x_frame = ( t_int* ) getbytes( x->x_width*x->x_height*sizeof(t_int) ); - blinkenlights_readframe(x); - } - -} - -static void blinkenlights_frame_pos(t_blinkenlights* x, t_float pos) -{ - if(pos > 1 | pos < 0) post ("dude, don't be crazy!"); - else x->frame_inc = pos;; - //post("frame %d", x->frame_inc); -} - -static void blinkenlights_timer2(t_blinkenlights* x, t_float timer) -{ - x->x_timer2 = timer; - //post("frame %d", x->frame_inc); -} - - /* open movie */ -static void blinkenlights_open(t_blinkenlights *x, t_symbol *sfile) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : open : canvas does not exist" ); - return; - } - - //---------------------------------- - /* closing previous file descriptor */ - if ( x->x_filed != NULL ) { - if(fclose(x->x_filed) < 0) - { - perror( "blinkenlights : closing file" ); - } - x->x_filed = NULL; - } - if ( x->x_frame ) - { - blinkenlights_clear(x); - } - - //-------------------------------- - - if ( ( x->x_filed = fopen( sfile->s_name, "r" ) ) == NULL ) - { - error( "blinkenlights : cannot open >%s<", sfile->s_name); - return; - } - post( "blinkenlights : opened >%s<", sfile->s_name); - // don't read the first frame when open.. - //blinkenlights_readframe(x); - blinkenlights_findframes(x); -} - - /* play frames */ -static void blinkenlights_playframes(t_blinkenlights *x) -{ - blinkenlights_readframe( x ); - clock_delay( x->x_clock, (double)x->x_timer ); -} - -/* play frames2 */ -static void blinkenlights_playframes2(t_blinkenlights *x) -{ - blinkenlights_goto(x); - clock_delay( x->x_clock2, (double)x->x_timer2 ); -} - - /* play movie */ -static void blinkenlights_play(t_blinkenlights *x) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : play : canvas does not exist" ); - return; - } - - if ( x->x_filed == NULL ) - { - post( "blinkenlights : no file is opened for playing" ); - blinkenlights_close(x); - return; - } - - if ( x->x_clock == NULL ) x->x_clock = clock_new( x, (t_method)blinkenlights_playframes); - clock_delay( x->x_clock, (double)x->x_timer ); -} - - /* vj movie */ -static void blinkenlights_vj(t_blinkenlights *x, t_float start_vj) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : play : canvas does not exist" ); - return; - } - - if ( x->x_filed == NULL ) - { - post( "blinkenlights : no file is opened for playing" ); - blinkenlights_close(x); - return; - } - - if(start_vj) - { - if ( x->x_clock2 == NULL ) x->x_clock2 = clock_new( x, (t_method)blinkenlights_playframes2); - clock_delay( x->x_clock2, (double)x->x_timer2 ); - } - else - { - clock_unset( x->x_clock2 ); - } -} - - /* stop movie */ -static void blinkenlights_stop(t_blinkenlights *x) -{ - if ( !x->x_ecanvas ) - { - post("blinkenlights : play : canvas does not exist" ); - return; - } - - if ( x->x_filed == NULL ) - { - post( "blinkenlights : no file is opened for playing" ); - blinkenlights_close(x); - return; - } - - if ( x->x_clock != NULL ) - { - clock_unset( x->x_clock ); - } -} - - /* jump to next frame */ -static void blinkenlights_next(t_blinkenlights *x) -{ - blinkenlights_readframe(x); -} - -void blinkenlights_setup(void) -{ - post(blinkenlights_version); - blinkenlights_class = class_new(gensym("blinkenlights"), (t_newmethod)blinkenlights_new, - (t_method)blinkenlights_free, - sizeof(t_blinkenlights), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_width, gensym("width"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_height, gensym("height"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_xsize, gensym("xsize"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_ysize, gensym("ysize"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_open, gensym("open"), A_SYMBOL, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_create, gensym("create"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_destroy, gensym("destroy"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_next, gensym("next"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_play, gensym("play"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_stop, gensym("stop"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_frame_pos, gensym("goto"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_vj, gensym("vj"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_timer2, gensym("timer2"), A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_background, gensym("background"), A_FLOAT, A_FLOAT, A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_foreground, gensym("foreground"), A_FLOAT, A_FLOAT, A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_destroy, gensym("destroy"), 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_pixon, gensym("pixon"), A_FLOAT, A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_pixoff, gensym("pixoff"), A_FLOAT, A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_pixel, gensym("pixel"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0); - class_addmethod( blinkenlights_class, (t_method)blinkenlights_clear, gensym("clear"), 0); -} |