path: root/blinkenlights/blinkenlights.c

/* ---------------------- 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 MACOSX
#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);
}