[PD-cvs] SF.net SVN: pure-data: [9894] trunk/externals/pdvjtools
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Sat May 24 03:55:37 CEST 2008
Revision: 9894
http://pure-data.svn.sourceforge.net/pure-data/?rev=9894&view=rev
Author: eighthave
Date: 2008-05-23 18:55:37 -0700 (Fri, 23 May 2008)
Log Message:
-----------
renamed helpfile to standard name; renamed C++ file to .cc for easier building, since the other C++ extenrals built with Pd-extended are .cc
Added Paths:
-----------
trunk/externals/pdvjtools/pix_preview/pix_preview-help.pd
trunk/externals/pdvjtools/videogrid/videogrid.cc
Removed Paths:
-------------
trunk/externals/pdvjtools/pix_preview/help-pix_preview.pd
trunk/externals/pdvjtools/videogrid/videogrid.cpp
Deleted: trunk/externals/pdvjtools/pix_preview/help-pix_preview.pd
===================================================================
--- trunk/externals/pdvjtools/pix_preview/help-pix_preview.pd 2008-05-24 01:51:05 UTC (rev 9893)
+++ trunk/externals/pdvjtools/pix_preview/help-pix_preview.pd 2008-05-24 01:55:37 UTC (rev 9894)
@@ -1,77 +0,0 @@
-#N canvas 0 25 1247 665 10;
-#X obj 419 -161 cnv 15 250 350 empty empty empty 20 12 0 14 -228992
--66577 0;
-#X text 423 -178 Example:;
-#X obj 564 122 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577
-0;
-#N canvas 0 0 450 300 gemwin 0;
-#X obj 132 136 gemwin;
-#X obj 67 89 outlet;
-#X obj 67 10 inlet;
-#X msg 67 70 set destroy;
-#X msg 132 112 create \, 1;
-#X msg 198 112 destroy;
-#X msg 156 71 set create;
-#X obj 67 41 route create;
-#X connect 2 0 7 0;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 5 0 0 0;
-#X connect 6 0 1 0;
-#X connect 7 0 3 0;
-#X connect 7 0 4 0;
-#X connect 7 1 6 0;
-#X connect 7 1 5 0;
-#X restore 569 161 pd gemwin;
-#X msg 569 142 destroy;
-#X text 565 121 Create window:;
-#X obj 421 -130 cnv 15 155 250 empty empty empty 20 12 0 14 -24198
--66577 0;
-#X obj 421 -155 gemhead;
-#X obj 421 142 pix_texture;
-#X obj 433 -125 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144
--1 -1;
-#X text 475 -161 open a supported;
-#X text 476 -150 movie-clip;
-#X obj 446 69 unpack 0 0 0;
-#X floatatom 436 92 5 0 0 3 length - -;
-#X floatatom 485 92 5 0 0 3 width - -;
-#X floatatom 535 92 5 0 0 3 height - -;
-#X obj 490 50 bng 15 250 50 0 empty empty end_reached 20 7 0 10 -262144
--1 -1;
-#X floatatom 472 15 5 0 10000 1 frame# - -;
-#X obj 433 -96 openpanel;
-#X msg 433 -76 open \$1;
-#X obj 421 164 rectangle 4 3;
-#X obj 421 33 pix_film;
-#X msg 439 -33 auto \$1;
-#X obj 439 -51 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
-1;
-#X msg 450 -9 colorspace Grey;
-#X obj 121 101 pix_preview;
-#X obj 520 -36 loadbang;
-#X obj 50 -136 metro 140;
-#X obj 45 -165 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X connect 3 0 4 0;
-#X connect 4 0 3 0;
-#X connect 7 0 21 0;
-#X connect 8 0 20 0;
-#X connect 9 0 18 0;
-#X connect 12 0 13 0;
-#X connect 12 1 14 0;
-#X connect 12 2 15 0;
-#X connect 16 0 17 0;
-#X connect 17 0 21 1;
-#X connect 18 0 19 0;
-#X connect 19 0 21 0;
-#X connect 21 0 8 0;
-#X connect 21 0 25 0;
-#X connect 21 1 12 0;
-#X connect 21 2 16 0;
-#X connect 22 0 21 0;
-#X connect 23 0 22 0;
-#X connect 24 0 21 0;
-#X connect 26 0 23 0;
-#X connect 27 0 25 0;
-#X connect 28 0 27 0;
Copied: trunk/externals/pdvjtools/pix_preview/pix_preview-help.pd (from rev 9891, trunk/externals/pdvjtools/pix_preview/help-pix_preview.pd)
===================================================================
--- trunk/externals/pdvjtools/pix_preview/pix_preview-help.pd (rev 0)
+++ trunk/externals/pdvjtools/pix_preview/pix_preview-help.pd 2008-05-24 01:55:37 UTC (rev 9894)
@@ -0,0 +1,77 @@
+#N canvas 0 25 1247 665 10;
+#X obj 419 -161 cnv 15 250 350 empty empty empty 20 12 0 14 -228992
+-66577 0;
+#X text 423 -178 Example:;
+#X obj 564 122 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577
+0;
+#N canvas 0 0 450 300 gemwin 0;
+#X obj 132 136 gemwin;
+#X obj 67 89 outlet;
+#X obj 67 10 inlet;
+#X msg 67 70 set destroy;
+#X msg 132 112 create \, 1;
+#X msg 198 112 destroy;
+#X msg 156 71 set create;
+#X obj 67 41 route create;
+#X connect 2 0 7 0;
+#X connect 3 0 1 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 1 0;
+#X connect 7 0 3 0;
+#X connect 7 0 4 0;
+#X connect 7 1 6 0;
+#X connect 7 1 5 0;
+#X restore 569 161 pd gemwin;
+#X msg 569 142 destroy;
+#X text 565 121 Create window:;
+#X obj 421 -130 cnv 15 155 250 empty empty empty 20 12 0 14 -24198
+-66577 0;
+#X obj 421 -155 gemhead;
+#X obj 421 142 pix_texture;
+#X obj 433 -125 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144
+-1 -1;
+#X text 475 -161 open a supported;
+#X text 476 -150 movie-clip;
+#X obj 446 69 unpack 0 0 0;
+#X floatatom 436 92 5 0 0 3 length - -;
+#X floatatom 485 92 5 0 0 3 width - -;
+#X floatatom 535 92 5 0 0 3 height - -;
+#X obj 490 50 bng 15 250 50 0 empty empty end_reached 20 7 0 10 -262144
+-1 -1;
+#X floatatom 472 15 5 0 10000 1 frame# - -;
+#X obj 433 -96 openpanel;
+#X msg 433 -76 open \$1;
+#X obj 421 164 rectangle 4 3;
+#X obj 421 33 pix_film;
+#X msg 439 -33 auto \$1;
+#X obj 439 -51 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
+1;
+#X msg 450 -9 colorspace Grey;
+#X obj 121 101 pix_preview;
+#X obj 520 -36 loadbang;
+#X obj 50 -136 metro 140;
+#X obj 45 -165 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X connect 3 0 4 0;
+#X connect 4 0 3 0;
+#X connect 7 0 21 0;
+#X connect 8 0 20 0;
+#X connect 9 0 18 0;
+#X connect 12 0 13 0;
+#X connect 12 1 14 0;
+#X connect 12 2 15 0;
+#X connect 16 0 17 0;
+#X connect 17 0 21 1;
+#X connect 18 0 19 0;
+#X connect 19 0 21 0;
+#X connect 21 0 8 0;
+#X connect 21 0 25 0;
+#X connect 21 1 12 0;
+#X connect 21 2 16 0;
+#X connect 22 0 21 0;
+#X connect 23 0 22 0;
+#X connect 24 0 21 0;
+#X connect 26 0 23 0;
+#X connect 27 0 25 0;
+#X connect 28 0 27 0;
Copied: trunk/externals/pdvjtools/videogrid/videogrid.cc (from rev 9893, trunk/externals/pdvjtools/videogrid/videogrid.cpp)
===================================================================
--- trunk/externals/pdvjtools/videogrid/videogrid.cc (rev 0)
+++ trunk/externals/pdvjtools/videogrid/videogrid.cc 2008-05-24 01:55:37 UTC (rev 9894)
@@ -0,0 +1,1574 @@
+
+/*
+videogrid external for Puredatai
+Lluis Gomez i Bigorda :: lluis-at-hangar.org
+Sergi Lario Loyo :: slario-at-gmail.com
+
+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 3 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, see <http://www.gnu.org/licenses/>.
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <dirent.h>
+#include <string.h>
+#include <unistd.h>
+#include <math.h>
+
+/* incloure les definicions de variables i
+ prototipus de dades i de funcions de puredata */
+#include "m_pd.h"
+/* incloure estructures de dades i capceleres de funcions gàfiques bàsiques de pd */
+#include "g_canvas.h"
+/* incloure estructures de dades i capceleres de funcions per traballar amb threads */
+#include "pthread.h"
+
+/*ffmpeg includes*/
+#include <ffmpeg/avcodec.h>
+#include <ffmpeg/avformat.h>
+
+/*libquicktime includes*/
+//#include <quicktime/lqt.h>
+//#include <quicktime/colormodels.h>
+#include <lqt/lqt.h>
+#include <lqt/colormodels.h>
+
+
+/* &&&&&&&&&&&&&&&&&&&&&&&&&&&&& VIDEOGRID &&&&&&&&&&&&&&&&&&&&&&&&&&&&& */
+
+/* definició de l'amplada i l'alçada d'una casella */
+#define W_CELL 60
+#define H_CELL 40
+
+/* definició del gruix en pixels del marc del tauler */
+#define GRUIX 2
+
+/* nombre de caracters per el nom del path del fitxer */
+#define BYTESNOMFITXER 512
+
+/* 8bits clamp rgb values */
+
+#define CLAMP8(x) (((x)<0) ? 0 : ((x>255)? 255 : (x)))
+
+#define BYTESNOMFITXERIMATGE 512
+#define BYTESTIPUSFROMAT 4
+
+#define FORMAT_MINIATURA "ppm"
+#define PATH_TEMPORAL "/tmp/vigrid_"
+#define BYTES_NUM_TEMP 4
+
+typedef char pathimage[BYTESNOMFITXERIMATGE];
+
+typedef char tipus_format[BYTESTIPUSFROMAT];
+
+#ifdef __cplusplus
+extern "C" int convertir_img_ff(pathimage pathFitxer, tipus_format f, int W, int H, int posi);
+#endif
+
+void SaveFrame(AVFrame *pFrame, int width, int height, int W, int H, int posi)
+{
+ FILE *pFile;
+ char szFilename[32];
+ int nN = posi;
+
+ /*int cont=0;*/
+
+ char nNstr[BYTES_NUM_TEMP];
+ pathimage ig_path = PATH_TEMPORAL;
+
+ sprintf(nNstr, "%d", nN);
+ strcat(ig_path,nNstr);
+ strcat(ig_path,".");
+ strcat(ig_path,FORMAT_MINIATURA);
+
+ // Open file
+ sprintf(szFilename, ig_path);
+ pFile=fopen(szFilename, "wb");
+ if(pFile==NULL)
+ return;
+
+ // Write header
+ fprintf(pFile, "P6\n%d %d\n255\n", W, H);
+
+
+ int w = width;
+ int h = height;
+ float k = (width/W);
+ float l = (height/H);
+ int i,j,y,x,realx;
+
+ // Write pixel data
+ for(y=0; y<H; y=y++) {
+ for(x=0; x<W; x=x++) {
+ realx = ((x*k)+(3-((int)(x*k)%3)))*3;
+ fwrite((pFrame->data[0]+(int)(y*l)*pFrame->linesize[0])+realx, 1, 3, pFile);
+ }
+ }
+
+ // for (i=0;i<(l*H);i=i+l) {
+ // for (j=0;j<(k*W);j=j+k) {
+ // fwrite(pFrame->data[0]+(i*pFrame->linesize[0]+j), 1, 3, pFile);
+ // }
+ // }
+
+ // Close file
+ fclose(pFile);
+}
+
+extern "C" {
+int convertir_img_ff(pathimage pathFitxer, tipus_format f, int W, int H, int posi)
+{
+ AVFormatContext *pFormatCtx;
+ int i, videoStream;
+ AVCodecContext *pCodecCtx;
+ AVCodec *pCodec;
+ AVFrame *pFrame;
+ AVFrame *pFrameRGB;
+ AVPacket packet;
+ int frameFinished;
+ int numBytes;
+ uint8_t *buffer;
+
+ int nN = posi;
+
+ // Register all formats and codecs
+ av_register_all();
+
+ // Open video file
+ if(av_open_input_file(&pFormatCtx, pathFitxer, NULL, 0, NULL)!=0)
+ return -1; // Couldn't open file
+
+
+ // Retrieve stream information
+ if(av_find_stream_info(pFormatCtx)<0)
+ return -1; // Couldn't find stream information
+
+ // Dump information about file onto standard error
+ dump_format(pFormatCtx, 0, pathFitxer, false);
+
+ // Find the first video stream
+ videoStream=-1;
+ for(i=0; i<pFormatCtx->nb_streams; i++)
+ if(pFormatCtx->streams[i]->codec->codec_type==CODEC_TYPE_VIDEO)
+ {
+ videoStream=i;
+ break;
+ }
+ if(videoStream==-1)
+ return -1; // Didn't find a video stream
+
+ // Get a pointer to the codec context for the video stream
+ pCodecCtx=pFormatCtx->streams[videoStream]->codec;
+
+ // Find the decoder for the video stream
+ pCodec=avcodec_find_decoder(pCodecCtx->codec_id);
+ if(pCodec==NULL)
+ return -1; // Codec not found
+
+ // Open codec
+ if(avcodec_open(pCodecCtx, pCodec)<0)
+ return -1; // Could not open codec
+
+ // Hack to correct wrong frame rates that seem to be generated by some
+ // codecs
+ // if(pCodecCtx->frame_rate>1000 && pCodecCtx->frame_rate_base==1)
+ // pCodecCtx->frame_rate_base=1000;
+
+ // Allocate video frame
+ pFrame=avcodec_alloc_frame();
+
+ // Allocate an AVFrame structure
+ pFrameRGB=avcodec_alloc_frame();
+ if(pFrameRGB==NULL)
+ return -1;
+
+ // Determine required buffer size and allocate buffer
+ numBytes=avpicture_get_size(PIX_FMT_RGB24, pCodecCtx->width,
+ pCodecCtx->height);
+ buffer=new uint8_t[numBytes];
+
+ // Assign appropriate parts of buffer to image planes in pFrameRGB
+ avpicture_fill((AVPicture *)pFrameRGB, buffer, PIX_FMT_RGB24,
+ pCodecCtx->width, pCodecCtx->height);
+
+ // Read frames and save first five frames to disk
+ av_read_frame(pFormatCtx, &packet);
+ // Is this a packet from the video stream?
+ if(packet.stream_index==videoStream)
+ {
+ // Decode video frame
+ avcodec_decode_video(pCodecCtx, pFrame, &frameFinished,
+ packet.data, packet.size);
+
+ // Did we get a video frame?
+ if(frameFinished)
+ {
+ // Convert the image from its native format to RGB
+ img_convert((AVPicture *)pFrameRGB, PIX_FMT_RGB24,
+ (AVPicture*)pFrame, pCodecCtx->pix_fmt, pCodecCtx->width,
+ pCodecCtx->height);
+
+ // Save the frame to disk
+ SaveFrame(pFrameRGB, pCodecCtx->width, pCodecCtx->height, W, H, posi);
+ }
+ }
+
+ // Free the packet that was allocated by av_read_frame
+ av_free_packet(&packet);
+ // Read frames and save first five frames to disk
+ av_read_frame(pFormatCtx, &packet);
+ // Is this a packet from the video stream?
+ if(packet.stream_index==videoStream)
+ {
+ // Decode video frame
+ avcodec_decode_video(pCodecCtx, pFrame, &frameFinished,
+ packet.data, packet.size);
+
+ // Did we get a video frame?
+ if(frameFinished)
+ {
+ // Convert the image from its native format to RGB
+ img_convert((AVPicture *)pFrameRGB, PIX_FMT_RGB24,
+ (AVPicture*)pFrame, pCodecCtx->pix_fmt, pCodecCtx->width,
+ pCodecCtx->height);
+
+ // Save the frame to disk
+ SaveFrame(pFrameRGB, pCodecCtx->width, pCodecCtx->height, W, H, posi);
+ }
+ }
+
+ // Free the packet that was allocated by av_read_frame
+ av_free_packet(&packet);
+ //}
+
+ // Free the RGB image
+ delete [] buffer;
+ av_free(pFrameRGB);
+
+ // Free the YUV frame
+ av_free(pFrame);
+
+ // Close the codec
+ avcodec_close(pCodecCtx);
+
+ // Close the video file
+ av_close_input_file(pFormatCtx);
+
+ return 0;
+}
+}
+
+
+int convertir_img(pathimage pathFitxer, tipus_format f, int W, int H, int posi){
+ /*
+ Quicktime per les conversions
+ */
+
+ /* RGB vectors */
+ unsigned char * qt_rows[3];
+ /* YUV vesctor frame */
+ unsigned char *qt_frame = NULL;
+ /* quicktime decoder */
+ quicktime_t *qt;
+ /* quicktime color model */
+ int qt_cmodel;
+
+ int nN = posi;
+ int x_vwidth = 0;
+ int x_vheight = 0;
+ /* convertir(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN); */
+ qt = quicktime_open(pathFitxer, 1, 0);
+
+ if (!(qt)){
+ /* post("videogrid: error opening qt file"); */
+ return -1;
+ }
+
+ if (!quicktime_has_video(qt)) {
+ /* post("videogrid: no video stream"); */
+ quicktime_close(qt);
+ return -1;
+
+ }
+ else if (!quicktime_supported_video(qt,0)) {
+ /* post("videogrid: unsupported video codec\n"); */
+ quicktime_close(qt);
+ return -1;
+ }
+ else
+ {
+ qt_cmodel = BC_YUV420P;
+ x_vwidth = quicktime_video_width(qt,0);
+ x_vheight = quicktime_video_height(qt,0);
+
+
+ free(qt_frame);
+ qt_frame = (unsigned char*)malloc(x_vwidth*x_vheight*4);
+
+ int size = x_vwidth * x_vheight;
+ qt_rows[0] = &qt_frame[0];
+ qt_rows[2] = &qt_frame[size];
+ qt_rows[1] = &qt_frame[size + (size>>2)];
+
+ quicktime_set_cmodel(qt, qt_cmodel);
+ }
+
+ /* int length = quicktime_video_length(qt,0); */
+ /* int Vpos = quicktime_video_position(qt,0); */
+ lqt_decode_video(qt, qt_rows, 0);
+
+ switch(qt_cmodel){
+ case BC_YUV420P:
+ printf(" ");
+ /* post("videogrid: qt colormodel : BC_YUV420P"); */
+
+ /* per a fer la miniatura
+ cada k colomnes pillem una
+ cada l files pillem una */
+ int w = x_vwidth;
+ int h = x_vheight;
+ int k = (w/W);
+ int l = (h/H);
+
+ /*int cont=0;*/
+
+ char nNstr[BYTES_NUM_TEMP];
+ pathimage ig_path = PATH_TEMPORAL;
+
+ sprintf(nNstr, "%d", nN);
+ strcat(ig_path,nNstr);
+ strcat(ig_path,".");
+ strcat(ig_path,FORMAT_MINIATURA);
+ /* printf("Creacio de la imatge %s ...",ig_path); */
+ /* escriu el contingut de data a un arxiu. */
+ FILE *fp = fopen(ig_path, "w");
+ fprintf (fp, "P6\n%d %d\n255\n", W, H);
+
+ int i,j,y,u,v,r,g,b;
+
+ for (i=0;i<(l*H);i=i+l) {
+ for (j=0;j<(k*W);j=j+k) {
+ y=qt_rows[0][(w*i+j)];
+ u=qt_rows[1][(w/2)*(i/2)+(j/2)];
+ v=qt_rows[2][(w/2)*(i/2)+(j/2)];
+ r = CLAMP8(y + 1.402 *(v-128));
+ g = CLAMP8(y - 0.34414 *(u-128) - 0.71414 *(v-128));
+ b = CLAMP8(y + 1.772 *(u-128));
+ fprintf (fp, "%c%c%c", r,g,b);
+ }
+ }
+
+ /* escriu el contingut de data a un arxiu.*/
+ fclose (fp);
+ }
+ return 0;
+}
+
+
+typedef char path[BYTESNOMFITXER];
+
+
+/* estructura de dades: un node de la cua */
+struct node
+{
+ /* nom del path de la imatge */
+ path pathFitxer;
+ /* apuntador al següent node en cua */
+ struct node *seguent;
+};
+
+/* definició del tipus node */
+typedef struct node Node;
+
+/* estructures i tipus de dades de la cua */
+/* definició del tipus de cua */
+typedef struct
+{
+ Node *davanter;
+ Node *final;
+}Cua;
+
+/* declaracions de les funcions */
+
+/* crea una cua */
+void crearCua(Cua *cua);
+/* encuara un element al final de la cua */
+void encuar (Cua *cua, path x);
+/* elimina un element de la cua */
+int desencuar (Cua *cua);
+/* retorna si la cua és buida */
+int cuaBuida(Cua *cua);
+/* elimina el contingut de la cua */
+void eliminarCua(Cua *cua);
+/* retorna el nombre de nodes de la cua */
+int numNodes(Cua *cua);
+/* escriu el contingut de la cua */
+void escriuCua(Cua *cua);
+
+
+/* implementació de les funcions */
+void crearCua(Cua *cua)
+{
+ cua->davanter=cua->final=NULL;
+}
+
+/* funció que encua el node al final de la cua */
+void encuar (Cua *cua, path x)
+{
+ Node *nou;
+ nou=(Node*)malloc(sizeof(Node));
+ strcpy(nou->pathFitxer,x);
+ nou->seguent=NULL;
+ if(cuaBuida(cua))
+ {
+ cua->davanter=nou;
+ }
+ else
+ cua->final->seguent=nou;
+ cua->final=nou;
+}
+
+/* elimina l'element del principi de la cua */
+int desencuar (Cua *cua)
+{
+ if(!cuaBuida(cua))
+ {
+ Node *nou;
+ nou=cua->davanter;
+ cua->davanter=cua->davanter->seguent;
+ free(nou);
+ return 1;
+ }
+ else
+ {
+ /* printf("Cua buida\a\n"); */
+ return 0;
+ }
+
+}
+
+/* funció que retorna si la cua és buida */
+int cuaBuida(Cua *cua)
+{
+ return (cua->davanter==NULL);
+}
+
+/* elimina el contingut de la cua */
+void eliminarCua(Cua *cua)
+{
+ while (!cuaBuida(cua)) desencuar(cua);
+ printf("Cua eliminada\n");
+}
+
+/* funció que retorna el nombre de nodes de la cua */
+int numNodes(Cua *cua)
+{
+ int contador=0;
+ Node *actual;
+ actual=cua->davanter;
+ if(actual) contador=1;
+ while((actual)&&(actual != cua->final)){
+ contador ++;
+ actual = actual->seguent;
+ }
+ return (contador);
+}
+
+/* funció que escriu la cua de nodes per la sortida estàndard */
+void escriuCua(Cua *cua)
+{
+ if(!cuaBuida(cua))
+ {
+ Node *actual;
+ actual=cua->davanter;
+ printf("CUA DE NODES\n[");
+ do{
+ printf("#%s#",actual->pathFitxer);
+ actual = actual->seguent;
+ }while(actual);
+ printf("]\n");
+
+ }
+ else
+ printf("Cua buida\n");
+}
+
+
+/* crear un apuntador al nou objecte */
+static t_class *videogrid_class;
+/* indica el nombre de videogrid creats - utilitzat per diferenciar el nom d'instàncies d'objectes del mateix tipus */
+static int videogridcount = 0;
+
+/* definició de la classe i la seva estructura de dades */
+
+typedef struct _videogrid {
+ t_object x_obj;
+ /* declaració de la sortida de l'objecte */
+ t_outlet *x_sortida;
+ /* llista d'objectes gràfics */
+ t_glist *x_glist;
+ /* nombre de files */
+ int x_num_fil;
+ /* nombre de columnes */
+ int x_num_col;
+ /* posició de la última imatge en el tauler */
+ int x_ultima_img;
+ /* path del directori actual */
+ path x_dir_actual;
+ /* path del directori a canviar */
+ path x_dir_canvi;
+ /* posicio ultim al directori actual */
+ int x_dir_pos;
+ /* apuntador al primer element posicionat al tauler */
+ Node *x_tauler_primer;
+ /* cua d'imatges */
+ Cua x_cua;
+ /* nom de l'objecte */
+ t_symbol *x_name;
+ /* color de fons */
+ t_symbol *x_color_fons;
+ /* color del marge */
+ t_symbol *x_color_marc;
+ /* mutex per evitar concurrencia sobre la cua al accedir diferents threads*/
+ pthread_mutex_t x_lock;
+ /* v 0.2 -- posicó de la cel·la seleccionada */
+ int x_pos_selected;
+ /* v 0.2 -- color de seleccio */
+ t_symbol *x_color_grasp;
+
+} t_videogrid;
+
+void load_tk_procs () {
+ // ########### procediments per videogrid -- slario(at)gmail.com [a partir del codi del grid de l'Ives: ydegoyon(at)free.fr] #########
+ sys_gui("proc videogrid_apply {id} {\n");
+ // strip "." from the TK id to make a variable name suffix
+ sys_gui("set vid [string trimleft $id .]\n");
+ // for each variable, make a local variable to hold its name...
+ sys_gui("set var_graph_name [concat graph_name_$vid]\n");
+ sys_gui("global $var_graph_name\n");
+ sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
+ sys_gui("global $var_graph_num_fil\n");
+ sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
+ sys_gui("global $var_graph_num_col\n");
+ sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
+ sys_gui("global $var_graph_color_fons\n");
+ sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
+ sys_gui("global $var_graph_color_marc\n");
+ sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
+ sys_gui("global $var_graph_color_grasp\n");
+ sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_num_fil] [eval concat $$var_graph_num_col] [eval concat $$var_graph_color_fons] [eval concat $$var_graph_color_marc] [eval concat $$var_graph_color_grasp] \\;]\n");
+ // puts stderr $cmd
+ sys_gui("pd $cmd\n");
+ sys_gui("}\n");
+ sys_gui("proc videogrid_cancel {id} {\n");
+ sys_gui("set cmd [concat $id cancel \\;]\n");
+ // puts stderr $cmd
+ sys_gui("pd $cmd\n");
+ sys_gui("}\n");
+ sys_gui("proc videogrid_ok {id} {\n");
+ sys_gui("videogrid_apply $id\n");
+ sys_gui("videogrid_cancel $id\n");
+ sys_gui("}\n");
+ sys_gui("proc pdtk_videogrid_dialog {id name num_fil num_col color_fons color_marc color_grasp} {\n");
+ sys_gui("set vid [string trimleft $id .]\n");
+ sys_gui("set var_graph_name [concat graph_name_$vid]\n");
+ sys_gui("global $var_graph_name\n");
+ sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
+ sys_gui("global $var_graph_num_fil\n");
+ sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
+ sys_gui("global $var_graph_num_col\n");
+ sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
+ sys_gui("global $var_graph_color_fons\n");
+ sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
+ sys_gui("global $var_graph_color_marc\n");
+ sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
+ sys_gui("global $var_graph_color_grasp\n");
+ sys_gui("set $var_graph_name $name\n");
+ sys_gui("set $var_graph_num_fil $num_fil\n");
+ sys_gui("set $var_graph_num_col $num_col\n");
+ sys_gui("set $var_graph_color_fons $color_fons\n");
+ sys_gui("set $var_graph_color_marc $color_marc\n");
+ sys_gui("set $var_graph_color_grasp $color_grasp\n");
+ sys_gui("toplevel $id\n");
+ sys_gui("wm title $id {videogrid}\n");
+ sys_gui("wm protocol $id WM_DELETE_WINDOW [concat videogrid_cancel $id]\n");
+ sys_gui("label $id.label -text {VIDEOGRID PROPERTIES}\n");
+ sys_gui("pack $id.label -side top\n");
+ sys_gui("frame $id.buttonframe\n");
+ sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n");
+ sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"videogrid_cancel $id\"\n");
+ sys_gui("button $id.buttonframe.apply -text {Apply} -command \"videogrid_apply $id\"\n");
+ sys_gui("button $id.buttonframe.ok -text {OK} -command \"videogrid_ok $id\"\n");
+ sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n");
+ sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
+ sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
+ sys_gui("frame $id.1rangef\n");
+ sys_gui("pack $id.1rangef -side top\n");
+ sys_gui("label $id.1rangef.lname -text \"Name :\"\n");
+ sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 7\n");
+ sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
+ sys_gui("frame $id.2rangef\n");
+ sys_gui("pack $id.2rangef -side top\n");
+ sys_gui("label $id.2rangef.lnum_fil -text \"Rows :\"\n");
+ sys_gui("entry $id.2rangef.num_fil -textvariable $var_graph_num_fil -width 7\n");
+ sys_gui("pack $id.2rangef.lnum_fil $id.2rangef.num_fil -side left\n");
+ sys_gui("frame $id.3rangef\n");
+ sys_gui("pack $id.3rangef -side top\n");
+ sys_gui("label $id.3rangef.lnum_col -text \"Cols :\"\n");
+ sys_gui("entry $id.3rangef.num_col -textvariable $var_graph_num_col -width 7\n");
+ sys_gui("pack $id.3rangef.lnum_col $id.3rangef.num_col -side left\n");
+ sys_gui("frame $id.4rangef\n");
+ sys_gui("pack $id.4rangef -side top\n");
+ sys_gui("label $id.4rangef.lcolor_fons -text \"Bg Color :\"\n");
+ sys_gui("entry $id.4rangef.color_fons -textvariable $var_graph_color_fons -width 7\n");
+ sys_gui("pack $id.4rangef.lcolor_fons $id.4rangef.color_fons -side left\n");
+ sys_gui("frame $id.5rangef\n");
+ sys_gui("pack $id.5rangef -side top\n");
+ sys_gui("label $id.5rangef.lcolor_marc -text \"Border Color :\"\n");
+ sys_gui("entry $id.5rangef.color_marc -textvariable $var_graph_color_marc -width 7\n");
+ sys_gui("pack $id.5rangef.lcolor_marc $id.5rangef.color_marc -side left\n");
+ sys_gui("frame $id.6rangef\n");
+ sys_gui("pack $id.6rangef -side top\n");
+ sys_gui("label $id.6rangef.lcolor_grasp -text \"Sel Color :\"\n");
+ sys_gui("entry $id.6rangef.color_grasp -textvariable $var_graph_color_grasp -width 7\n");
+ sys_gui("pack $id.6rangef.lcolor_grasp $id.6rangef.color_grasp -side left\n");
+ sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("bind $id.2rangef.num_fil <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("bind $id.3rangef.num_col <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("bind $id.4rangef.color_fons <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("bind $id.5rangef.color_marc <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("bind $id.6rangef.color_grasp <KeyPress-Return> [concat videogrid_ok $id]\n");
+ sys_gui("focus $id.1rangef.name\n");
+ sys_gui("}\n");
+ sys_gui("proc table {w content args} {\n");
+ sys_gui("frame $w -bg black\n");
+ sys_gui("set r 0\n");
+ sys_gui("foreach row $content {\n");
+ sys_gui("set fields {}\n");
+ sys_gui("set c 0\n");
+ sys_gui("foreach col $row {\n");
+ // lappend fields [label $w.$r/$c -text $col]
+ sys_gui("set img [image create photo -file $col]\n");
+ sys_gui("lappend fields [label $w.$r/$c -image $img]\n");
+ sys_gui("incr c\n");
+ sys_gui("}\n");
+ sys_gui("eval grid $fields -sticky news -padx 1 -pady 1\n");
+ sys_gui("incr r\n");
+ sys_gui("}\n");
+ sys_gui("set w\n");
+ sys_gui("}\n");
+ sys_gui("proc pdtk_videogrid_table {id name num_fil num_col} {\n");
+ sys_gui("table .tauler {\n");
+ sys_gui("{sll80x60.gif 3160x120.gif sll80x60.gif}\n");
+ sys_gui("{sll80x60.gif sll80x60.gif sll80x60.gif}\n");
+ sys_gui("{sll80x60.ppm sll80x60.gif 3160x120.gif}\n");
+ sys_gui("}\n");
+ sys_gui("pack .tauler\n");
+ sys_gui("}\n");
+}
+
+/* calcula la posició x del tauler a partir de la posició de l'element de la cua (d'esquerra a dreta) */
+int getX(t_videogrid* x, int posCua){
+ int c = x->x_num_col;
+ int xpos = (posCua % c) * W_CELL + ((posCua % c) + 1) * GRUIX;
+ return(xpos + 1);
+}
+
+/* calcula la posició y del tauler a partir de la posició de l'element de la cua (de dalt a baix) */
+int getY(t_videogrid* x, int posCua){
+ int c = x->x_num_col;
+ int ypos = (posCua / c) * H_CELL + ((posCua / c) + 1) * GRUIX;
+ return(ypos + 1);
+}
+
+/* elimina les imatges temporals */
+void eliminar_imatges_temporals(int maxim){
+ FILE *fitxer;
+ path path_total;
+ int contador = 0;
+ char contador_str[BYTES_NUM_TEMP];
+ while(contador < maxim){
+ strcpy(path_total,PATH_TEMPORAL);
+ sprintf(contador_str,"%d", contador);
+ strcat(path_total,contador_str);
+ strcat(path_total,".");
+ strcat(path_total,FORMAT_MINIATURA);
+ /* elimina el fitxer si no hi ha cap problema */
+ if(unlink(path_total)){
+ /* post("Imatge temporal %s eliminada\n",path_total); */
+ }
+ contador++;
+ }
+ /* post("Videogrid: Imatges temporals eliminades\n",path_total); */
+}
+
+int format_adequat_v(path nomF){
+ int retorn = 0;
+ path ig_path = "";
+ strcat(ig_path,nomF);
+ char *t1;
+ path extensio = "";
+ for ( t1 = strtok(ig_path,".");
+ t1 != NULL;
+ t1 = strtok(NULL,".") )
+ strcpy(extensio,t1);
+ if(strcmp(extensio,"mov")==0) retorn = 1;
+ /*
+ if(strcmp(extensio,"eps")==0) retorn = 1;
+ if(strcmp(extensio,"gif")==0) retorn = 1;
+ if(strcmp(extensio,"jpg")==0) retorn = 1;
+ if(strcmp(extensio,"jpeg")==0) retorn = 1;
+ if(strcmp(extensio,"png")==0) retorn = 1;
+ if(strcmp(extensio,"ppm")==0) retorn = 1;
+ if(strcmp(extensio,"tif")==0) retorn = 1;
+ if(strcmp(extensio,"tiff")==0) retorn = 1;
+ */
+
+ return (retorn);
+}
+
+/* afegir una imatge al grid */
+void videogrid_afegir_imatge(t_videogrid *x, path entrada)
+{
+ int maxim;
+ char nNstr[BYTES_NUM_TEMP];
+ int pos = 0;
+ /* escriu l'argument entrat */
+ /* post("Afegint la imatge %s ...",entrada); */
+ maxim = x->x_num_fil * x->x_num_col;
+ path ig_path = PATH_TEMPORAL;
+
+ /* si hi ha tants nodes a la cua com el maxim */
+ if((numNodes(&x->x_cua)) >= maxim){
+ /* desencua */
+ int extret;
+ extret = desencuar(&x->x_cua);
+ /* obtenir la posició en la cua del nou node */
+ if(x->x_ultima_img == maxim-1) {
+ pos = 0;
+ }else{
+ pos = x->x_ultima_img+1;
+ }
+ sys_vgui(".x%x.c delete %xS%d\n", glist_getcanvas(x->x_glist), x, pos);
+ }
+ /* encua el nou node */
+ encuar(&x->x_cua, entrada);
+ /* si no és el primer element a encuar incrementem la posicio de la última imatge insertada */
+ if(numNodes(&x->x_cua) != 1) x->x_ultima_img ++;
+ /* si assoleix el maxim torna a començar, inicialitzant la posició en el tauler de la última imatge insertada */
+ if(x->x_ultima_img == maxim) x->x_ultima_img = 0;
+
+ /*
+ Quicktime per les conversions
+ */
+ int nN = x->x_ultima_img;
+ if (format_adequat_v(entrada) == 1) {
+ convertir_img(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
+ } else {
+ convertir_img_ff(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
+ }
+
+ sprintf(nNstr, "%d", nN);
+ strcat(ig_path,nNstr);
+ strcat(ig_path,".");
+ strcat(ig_path,FORMAT_MINIATURA);
+ /*printf("Creacio de la imatge %s ...",ig_path);*/
+ sys_vgui("image create photo img%x%d -file %s\n",x,nN,ig_path);
+ /* printf("1. Creacio de la imatge %s ...",ig_path); */
+ sys_vgui(".x%x.c create image %d %d -image img%x%d -tags %xS%d\n",
+ glist_getcanvas(x->x_glist),
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,nN) + (W_CELL/2),
+ text_ypix(&x->x_obj, x->x_glist) + getY(x,nN) + (H_CELL/2),
+ x,nN,x,nN);
+ /* printf("2. Creacio de la imatge %s ...",ig_path); */
+ if(nN == 0){
+ x->x_tauler_primer = x->x_cua.final;
+ /* post("Ara el primer del tauler es %s\n",x->x_tauler_primer->pathFitxer); */
+ }
+ /* printf("SURT de la creacio de la imatge %s ...",ig_path); */
+ /*
+ sys_vgui("image create photo img%x -file %s\n",x,entrada);
+ sys_vgui(".x%x.c create image %d %d -image img%x -tags %xS\n",
+ glist_getcanvas(glist),text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),x,x);
+ */
+}
+
+/* dibuixa videogrid */
+void videogrid_drawme(t_videogrid *x, t_glist *glist, int firsttime)
+{
+ /* post("Entra a drawme amb firsttime: %d", firsttime); */
+ if (firsttime) {
+ char name[MAXPDSTRING];
+ canvas_makefilename(glist_getcanvas(x->x_glist), x->x_name->s_name, name, MAXPDSTRING);
+ sys_vgui(".x%x.c create rectangle %d %d %d %d -fill %s -tags %xGRID -outline %s\n",
+ glist_getcanvas(glist),
+ text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
+ text_xpix(&x->x_obj, glist) + (x->x_num_col * W_CELL) + 1 + (x->x_num_col * GRUIX) + GRUIX, text_ypix(&x->x_obj, glist) + (x->x_num_fil * H_CELL) + 1 + (x->x_num_fil * GRUIX) + GRUIX,
+ x->x_color_fons->s_name, x,x->x_color_marc->s_name);
+
+ canvas_fixlinesfor(glist_getcanvas(glist), (t_text*)x);
+ /* si hi elements a la cua els afegeix (redimensió) */
+ if(!cuaBuida(&x->x_cua))
+ {
+ path ig_path;
+ int nN = 0;
+ char nNstr[BYTES_NUM_TEMP];
+ Node *actual;
+ actual=x->x_cua.davanter;
+ do{
+ strcpy(ig_path,PATH_TEMPORAL);
+ sprintf(nNstr, "%d", nN);
+ strcat(ig_path,nNstr);
+ strcat(ig_path,".");
+ strcat(ig_path,FORMAT_MINIATURA);
+ /* post("reestablint la imatge %s", actual->pathFitxer); */
+ // videogrid_afegir_imatge(x,actual->pathFitxer);
+ convertir_img(actual->pathFitxer,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
+ sys_vgui("image create photo img%x%d -file %s\n",x,nN,ig_path);
+ sys_vgui(".x%x.c create image %d %d -image img%x%d -tags %xS%d\n",
+ glist_getcanvas(x->x_glist),text_xpix(&x->x_obj, x->x_glist) + getX(x,nN) + (W_CELL/2), text_ypix(&x->x_obj, x->x_glist) + getY(x,nN) + (H_CELL/2),x,nN,x,nN);
+ actual = actual->seguent;
+ nN++;
+ }while(actual);
+ }
+ }
+ else {
+ sys_vgui(".x%x.c coords %xGRID %d %d %d %d\n", glist_getcanvas(glist), x, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),text_xpix(&x->x_obj, glist) + (x->x_num_col*W_CELL) + 1 + (x->x_num_col * GRUIX) + GRUIX, text_ypix(&x->x_obj, glist) + (x->x_num_fil*H_CELL) + 1 + (x->x_num_fil * GRUIX) + GRUIX);
+ if(!cuaBuida(&x->x_cua))
+ {
+ int contador = 0;
+ while(contador < numNodes(&x->x_cua)){
+ sys_vgui(".x%x.c coords %xS%d \
+ %d %d\n",
+ glist_getcanvas(glist), x, contador,
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,contador) + (W_CELL/2), text_ypix(&x->x_obj, x->x_glist) + getY(x,contador) + (H_CELL/2));
+ contador++;
+ }
+
+ /* char buf[800];
+ sprintf(buf, "pdtk_videogrid_table %%s %s %d %d\n", x->x_name->s_name, x->x_num_fil, x->x_num_col);
+ gfxstub_new(&x->x_obj.ob_pd, x, buf); */
+ }
+ if (x->x_pos_selected > -1){
+ sys_vgui(".x%x.c coords %xGRASP %d %d %d %d\n", glist_getcanvas(glist), x,
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected), text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected),
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected) + W_CELL, text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected) + H_CELL);
+ }
+ sys_vgui(".x%x.c delete %xLINIA\n", glist_getcanvas(x->x_glist), x);
+ }
+ int xI = text_xpix(&x->x_obj, glist);
+ int yI = text_ypix(&x->x_obj, glist);
+ int xF = xI + (x->x_num_col * W_CELL) + ((x->x_num_col + 1) * GRUIX);
+ int yF = yI + (x->x_num_fil * H_CELL) + ((x->x_num_fil + 1) * GRUIX);
+ int vlines = 0;
+ int xi = 0;
+ while(vlines < x->x_num_col){
+ xi = xI + getX(x,vlines) - GRUIX + 1;
+ sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xi, yI, xi, yF, x->x_color_marc->s_name,GRUIX,x);
+ vlines++;
+ }
+ xi = xi + W_CELL + GRUIX;
+ sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xi, yI, xi, yF, x->x_color_marc->s_name,GRUIX,x);
+ int hlines = 0;
+ int yi = 0;
+ while(hlines < x->x_num_fil){
+ yi = yI + ((H_CELL + GRUIX) * hlines) + 2;
+ sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xI, yi, xF, yi, x->x_color_marc->s_name,GRUIX,x);
+ hlines++;
+ }
+ yi = yi + H_CELL + GRUIX;
+ sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xI, yi, xF, yi, x->x_color_marc->s_name,GRUIX,x);
+}
+
+/* borra videogrid v 0.2 -- int toclear */
+void videogrid_erase(t_videogrid* x,t_glist* glist, int toclear)
+{
+ int maxim = x->x_num_fil * x->x_num_col;
+ path path_total;
+ char contador_str[BYTES_NUM_TEMP];
+ /* post("Entra a erase"); */
+ /* elimina les imatges */
+ int contador = 0;
+ while(contador < numNodes(&x->x_cua)){
+
+ sys_vgui(".x%x.c delete %xS%d\n", glist_getcanvas(x->x_glist), x, contador);
+ strcpy(path_total,PATH_TEMPORAL);
+ sprintf(contador_str,"%d", contador);
+ strcat(path_total,contador_str);
+ strcat(path_total,".");
+ strcat(path_total,FORMAT_MINIATURA);
+ if(unlink(path_total)){
+ /* post("Imatge temporal %s eliminada\n",path_total); */
+ }
+ contador++;
+ }
+
+ /* elimina el grid v 0.2 -- excepte quan es fa un clear */
+ if(toclear == 0){
+ sys_vgui(".x%x.c delete %xGRID\n", glist_getcanvas(glist), x);
+ sys_vgui(".x%x.c delete %xLINIA\n", glist_getcanvas(x->x_glist), x);
+ }
+ /* v 0.2 -- elimina el marc de la casella seleccionada */
+ if(x->x_pos_selected > -1){
+ sys_vgui(".x%x.c delete %xGRASP\n", glist_getcanvas(glist), x);
+ x->x_pos_selected = -1;
+ }
+ eliminar_imatges_temporals(maxim);
+}
+
+/* mètode de la clase que escriu un missatge al rebre un bang */
+void videogrid_bang(t_videogrid *x)
+{
+ /* post("Hello videogrid !!"); */
+ escriuCua(&x->x_cua);
+}
+
+/* mètode de la classe que es dispara al rebre una entrada de missatge amb [putvideo +string( com a paràmetre */
+void videogrid_putvideo(t_videogrid *x, t_symbol *entrada)
+{
+ /* comprova que existeixi el fitxer */
+ FILE *fitxer;
+ path e;
+ strcpy(e,entrada->s_name);
+ /* post("putvideo de %s\n", e); */
+
+ fitxer = fopen(e,"r");
+ if (!fitxer) {
+ post("Videogrid: Problem opening file %s.\n",e);
+ }
+ else {
+ /* post("s'encua la imatge %s\n", e); */
+ videogrid_afegir_imatge(x,e);
+ /*outlet_symbol(x->x_sortida, entrada);*/
+ }
+ /* post("putvideo amb img = %s\n", e); */
+}
+
+/* mètode de la classe que es dispara al rebre una entrada de missatge amb [putvideodir +string( com a paràmetre */
+void *videogrid_putvideodir_thread(void *z)
+{
+ t_videogrid *x = (t_videogrid *)z;
+ DIR *dirp;
+ struct dirent * direntp;
+ path nomImatge, directoriAnterior, pathActual;
+ int numEncuats = 0, numPosDir = 0;
+ int maxim;
+ if ((dirp = opendir(x->x_dir_canvi)) == NULL)
+ {
+ post("Videogrid: Can not open folder %s.\n", x->x_dir_canvi);
+ }else{
+ maxim = x->x_num_fil * x->x_num_col;
+ strcpy(directoriAnterior, x->x_dir_actual);
+ strcpy(x->x_dir_actual, x->x_dir_canvi);
+ /* si es el mateix directori entrat l'ultim busca la ultima imatge afegida per a seguir a encuant a partir d'ella en endavant */
+ if(strcmp(directoriAnterior, x->x_dir_actual) == 0){
+ /* post("Videogrid: Repeteix directori %s\n", x->x_dir_actual); */
+ while ( (direntp = readdir( dirp )) != NULL ){
+ /* es descarta el mateix directori, el directori anterior i tot el que no sigui un fitxer regular */
+ if((strcmp(direntp->d_name,"..") != 0)&&(strcmp(direntp->d_name,".") != 0)&&(direntp->d_type == DT_REG)){
+ /* incrementa la posició en el directori */
+ numPosDir++;
+ /* assolir la posició anterior en el directori */
+ if(numPosDir > x->x_dir_pos){
+ /* si el nombre de nodes encuats per aquest directori no supera el màxim encua el nou node */
+ if(numEncuats < maxim){
+ /* post("s'encua la imatge %s\n", direntp->d_name); */
+ /* concatena el path i el nom de la imatge */
+ strcpy(nomImatge,direntp->d_name);
+ strcpy(pathActual,x->x_dir_actual);
+ strcat(pathActual,"/");
+ strcat(pathActual,nomImatge);
+ pthread_mutex_lock(&x->x_lock);
+ videogrid_afegir_imatge(x, pathActual);
+ pthread_mutex_unlock(&x->x_lock);
+ /* incrementa en 1 per indicar el nombre de nodes encuats per aquest directori */
+ numEncuats++;
+ /* es desa la posició en el directori de l'últim node encuat */
+ x->x_dir_pos = numPosDir;
+ }
+ }
+ }
+ }
+ }else{
+ /* directori diferent omple la cua començant pel primer fitxer */
+ /* post("Videogrid: Nou directori %s \n", x->x_dir_actual); */
+ while ( (direntp = readdir( dirp )) != NULL ){
+ /* es descarta el mateix directori, el directori anterior i tot el que no sigui un fitxer regular */
+ if((strcmp(direntp->d_name,"..") != 0)&&(strcmp(direntp->d_name,".") != 0)&&(direntp->d_type == DT_REG)){
+ /* incrementa la posició en el directori */
+ numPosDir++;
+ /* si el nombre de nodes encuats per aquest directori no supera el màxim enca el nou node */
+ if(numEncuats < maxim){
+ /* post("s'encua la imatge %s\n", direntp->d_name); */
+ /* concatena el path i el nom de la imatge */
+ strcpy(nomImatge,direntp->d_name);
+ strcpy(pathActual,x->x_dir_actual);
+ strcat(pathActual,"/");
+ strcat(pathActual,nomImatge);
+ pthread_mutex_lock(&x->x_lock);
+ videogrid_afegir_imatge(x, pathActual);
+ pthread_mutex_unlock(&x->x_lock);
+ /* incrementa en 1 per indicar el nombre de nodes encuats per aquest directori */
+ numEncuats++;
+ /* es desa la posició en el directori de l'últim node encuat */
+ x->x_dir_pos = numPosDir;
+ }
+ }
+ }
+ }
+ /* si la posicio de l'actual es la de l'utim fitxer del directori, inicialitza la posició */
+ if(x->x_dir_pos >= numPosDir) x->x_dir_pos = 0;
+ closedir(dirp);
+ }
+ /* escriu l'argument entrat */
+ /* post("Obtenint imatges del directori: %s ...",x->x_dir_canvi); */
+ /* envia a la sorida l'argument entrat */
+ /* outlet_symbol(x->x_sortida, entrada); */
+ pthread_exit(NULL);
+}
+
+void videogrid_putvideodir(t_videogrid *x, t_symbol *entrada)
+{
+
+ pthread_t unthread;
+ pthread_attr_t unatribut;
+ pthread_attr_init( &unatribut );
+
+ strcpy(x->x_dir_canvi,entrada->s_name);
+
+ // ---------------- THREAD CREAT -------------------------
+ pthread_mutex_init(&x->x_lock, NULL);
+ // int pthread_create(pthread_t *thread, const pthread_attr_t *attr, void *(*start_routine)(void*), void *arg);
+ pthread_create(&unthread, &unatribut, videogrid_putvideodir_thread, (void *)x);
+ pthread_mutex_destroy(&x->x_lock);
+}
+
+
+/* v 0.2 -- mètode de la classe que desmarca la cel·la seleccionada */
+static void videogrid_ungrasp_selected(t_videogrid *x)
+{
+ /* post("Ungrasp selected thumb %d", x->x_pos_selected); */
+ if(x->x_pos_selected > -1) {
+ sys_vgui(".x%x.c delete %xGRASP\n", glist_getcanvas(x->x_glist), x);
+ x->x_pos_selected = -1;
+ }
+}
+
+/* v 0.2 -- mètode de la classe que marca la cel·la seleccionada */
+static void videogrid_grasp_selected(t_videogrid *x, int pos)
+{
+ /*printf("Grasp selected thumb %d", pos);*/
+ if(pos != x->x_pos_selected) {
+ videogrid_ungrasp_selected(x);
+ /* post("Grasp selected thumb %d", pos); */
+ x->x_pos_selected = pos;
+ /* nem per aqui ---- */
+ sys_vgui(".x%x.c create rectangle %d %d %d %d -fill {} -tags %xGRASP -outline %s -width %d\n",
+ glist_getcanvas(x->x_glist),
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected), text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected),
+ text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected) + W_CELL, text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected) + H_CELL,
+ x,x->x_color_grasp->s_name, GRUIX + 1);
+ canvas_fixlinesfor(glist_getcanvas(x->x_glist), (t_text*)x);
+ }
+}
+
+/* v 0.2 -- mètode de la classe que dispara l'element del taules en la posicio N [seek N( */
+void videogrid_seek(t_videogrid *x, t_floatarg postauler)
+{
+ /* post("seek a %d\n",postauler); */
+ path pathSortida;
+ Node *actual;
+ int contador = 0;
+ int maxim = x->x_num_fil * x->x_num_col;
+ /* obtenir el path per enviar a la sortida */
+ if((!cuaBuida(&x->x_cua))&&(postauler < numNodes(&x->x_cua))&&(postauler >= 0 )){
+ if(x->x_tauler_primer){
+ actual = x->x_tauler_primer;
+ while(contador <= postauler){
+ if(contador == postauler){
+ strcpy(pathSortida,actual->pathFitxer);
+ }
+ if(actual->seguent == NULL){
+ actual = x->x_cua.davanter;
+ }else{
+ actual = actual->seguent;
+ }
+ contador++;
+ }
+ outlet_symbol(x->x_sortida, gensym(pathSortida));
+ /* post("Esta a videogrid_click amb %d %d a la posicio %d\n", x_pos, y_pos, postauler);*/
+ /* v 0.2 -- marcar casella */
+ videogrid_grasp_selected(x, postauler);
+ }
+ }
+}
+
+static int videogrid_click(t_gobj *z, struct _glist *glist, int xpix, int ypix, int shift, int alt, int dbl, int doit)
+{
+ t_videogrid* x = (t_videogrid *)z;
+ int x_pos = xpix - text_xpix(&x->x_obj, x->x_glist);
+ int y_pos = ypix - text_ypix(&x->x_obj, x->x_glist);
+ int xa, ya, postauler;
+ if (doit)
+ {
+ /* obtenir la posicio en el tauler */
+ // -- v 0.2 -- midoficacio pel gruix del marc //
+ xa = ((x_pos) / (W_CELL + GRUIX + 1));
+ ya = ((y_pos) / (H_CELL + GRUIX + 1)) * x->x_num_col;
+ postauler = ya + xa;
+ // -- v 0.2 -- seleciona la casella disparant el path //
+ videogrid_seek(x, postauler);
+ }
+ return (1);
+}
+
+/* v 0.2 -- mètode de la classe que buida el tauler amb el missatge [clear ( */
+void videogrid_clear(t_videogrid *x)
+{
+ videogrid_erase(x, x->x_glist,1);
+ eliminarCua(&x->x_cua);
+ x->x_ultima_img = 0;
+ x->x_dir_pos = 0;
+ x->x_tauler_primer = NULL;
+ videogrid_drawme(x, x->x_glist, 0);
+}
+
+
+static void videogrid_getrect(t_gobj *z, t_glist *glist,int *xp1, int *yp1, int *xp2, int *yp2)
+{
+ int cols, fils;
+ t_videogrid* x = (t_videogrid*)z;
+ cols = x->x_num_col;
+ fils = x->x_num_fil;
+ *xp1 = text_xpix(&x->x_obj, glist);
+ *yp1 = text_ypix(&x->x_obj, glist);
+ *xp2 = text_xpix(&x->x_obj, glist) + (cols*W_CELL) + ((cols + 1) * GRUIX);
+ *yp2 = text_ypix(&x->x_obj, glist) + (fils*H_CELL) + ((fils + 1) * GRUIX);
+ /* post("Esta amb el ratoli en el punt %d %d %d %d o son els vetexs de la caixa... es/bd", xp1, yp1, xp2, yp2); */
+}
+
+static void videogrid_displace(t_gobj *z, t_glist *glist,int dx, int dy)
+{
+ /* post("Entra a displace amb dx %d i dy %d", dx, dy); */
+ t_videogrid *x = (t_videogrid *)z;
+ x->x_obj.te_xpix += dx;
+ x->x_obj.te_ypix += dy;
+ sys_vgui(".x%x.c coords %xGRID %d %d %d %d\n",
+ glist_getcanvas(glist), x,
+ text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
+ text_xpix(&x->x_obj, glist) + (x->x_num_col*W_CELL) + 1 + (x->x_num_col * GRUIX) + GRUIX, text_ypix(&x->x_obj, glist) + (x->x_num_fil*H_CELL) + 1 + (x->x_num_fil * GRUIX) + GRUIX);
+ videogrid_drawme(x, glist, 0);
+ canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
+}
+
+static void videogrid_select(t_gobj *z, t_glist *glist, int state)
+{
+ /* post("Entra select amb state %d", state); */
+ t_videogrid *x = (t_videogrid *)z;
+ if (state) {
+ /* post("Videogrid seleccionat"); */
+ sys_vgui(".x%x.c itemconfigure %xGRID -outline #0000FF\n", glist_getcanvas(glist), x);
+ }
+ else {
+ /* post("Videogrid deseleccionat"); */
+ sys_vgui(".x%x.c itemconfigure %xGRID -outline %s\n", glist_getcanvas(glist), x, x->x_color_marc->s_name);
+ }
+}
+
+static void videogrid_delete(t_gobj *z, t_glist *glist)
+{
+ /* post("Entra a delete"); */
+ t_text *x = (t_text *)z;
+ canvas_deletelinesfor(glist_getcanvas(glist), x);
+}
+
+static void videogrid_vis(t_gobj *z, t_glist *glist, int vis)
+{
+ /* post("Entra a vist amb vis %d", vis); */
+ t_videogrid* s = (t_videogrid*)z;
+ if (vis)
+ videogrid_drawme(s, glist, 1);
+ else
+ videogrid_erase(s,glist,0);
+}
+
+
+static void videogrid_save(t_gobj *z, t_binbuf *b)
+{
+ /* post("Entra a save"); */
+ t_videogrid *x = (t_videogrid *)z;
+ /* crea la cadena de paths per desar */
+ /* 100 possibles paths com a màxim a 512 cada path*/
+ /* char cadenaPaths[51200];*/
+ char *cadenaPaths, *cadenaPathsInicials;
+ path ultimPath = "";
+ cadenaPaths = (char *)malloc(51200*sizeof(char));
+ strcpy(cadenaPaths,"");
+ cadenaPathsInicials = (char *)malloc(51200*sizeof(char));
+ strcpy(cadenaPathsInicials,"");
+ /*strcpy(cadenaPaths,(char *)argv[5].a_w.w_symbol->s_name);*/
+ if(!cuaBuida(&x->x_cua))
+ {
+ Node *actual;
+ int maxim = x->x_num_fil * x->x_num_col;
+ int contador = x->x_ultima_img + 1;
+
+ if (contador > maxim) {
+ contador = 0;
+ }
+ /* printf("\n contador %d i maxim %d i laultimaPOS %d \n", contador, maxim, x->x_ultima_img); */
+ /*
+ strcat(cadenaPaths, actual->pathFitxer);
+ strcat(cadenaPaths, "1|\n");
+ contador ++;
+ */
+ /* prenem el davanter de la cua */
+ actual=x->x_cua.davanter;
+
+ while(contador < numNodes(&x->x_cua)){
+ /* afegim els paths del davanter fins a l'ultim node al tauler */
+ strcat(cadenaPaths, actual->pathFitxer);
+ strcat(cadenaPaths, "|");
+ actual = actual->seguent;
+ contador ++;
+ }
+ if(actual != x->x_cua.final){
+ /* ara resten els de de l'inici del tauler fins al final de la cua */
+ while(actual != x->x_cua.final){
+ strcat(cadenaPathsInicials, actual->pathFitxer);
+ strcat(cadenaPathsInicials, "|");
+ actual = actual->seguent;
+ }
+ /* afegeix l'últim */
+ strcat(ultimPath, actual->pathFitxer);
+ strcat(ultimPath, "|");
+ /* afegeix l'ultim de la cua */
+ strcat(cadenaPathsInicials, ultimPath);
+ }else{
+ if(x->x_ultima_img == 0){
+ strcat(ultimPath, actual->pathFitxer);
+ strcat(ultimPath, "|");
+ strcat(cadenaPathsInicials, ultimPath);
+ }
+ }
+ /* ordena el paths segons aparicio en el tauler */
+ strcat(cadenaPathsInicials, cadenaPaths);
+ /* DE MOMENT NO DESA ELS PATHS */
+ strcat(cadenaPathsInicials, "");
+ /* printf("%s",cadenaPathsInicials); */
+ }
+
+ binbuf_addv(b, "ssiissiisss", gensym("#X"),gensym("obj"),
+ x->x_obj.te_xpix, x->x_obj.te_ypix,
+ atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)),
+ x->x_name,x->x_num_fil,x->x_num_col,x->x_color_fons,x->x_color_marc,x->x_color_grasp,gensym(cadenaPathsInicials));
+ binbuf_addv(b, ";");
+}
+
+static void videogrid_properties(t_gobj *z, t_glist *owner)
+{
+ char buf[900];
+ t_videogrid *x=(t_videogrid *)z;
+
+ /* post("Es crida a pdtk_videogrid dialog passant nom = %s\n fils = %d \t cols = %d \t color fons = %s \t color marc = %s\n", x->x_name->s_name, x->x_num_fil, x->x_num_col, x->x_color_fons->s_name, x->x_color_marc->s_name); */
+ sprintf(buf, "pdtk_videogrid_dialog %%s %s %d %d %s %s %s\n",
+ x->x_name->s_name, x->x_num_fil, x->x_num_col, x->x_color_fons->s_name, x->x_color_marc->s_name, x->x_color_grasp->s_name);
+ /* post("videogrid_properties : %s", buf ); */
+ gfxstub_new(&x->x_obj.ob_pd, x, buf);
+}
+
+static void videogrid_dialog(t_videogrid *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int maxim, maxdigit;
+ int nfil = 0;
+ int ncol = 0;
+ if ( !x ) {
+ post("Videogrid: error_ Attempt to alter the properties of an object that does not exist.\n");
+ }
+ switch (argc) {
+ case 3:
+ /* versio inicial */
+ if (argv[0].a_type != A_SYMBOL || argv[1].a_type != A_FLOAT || argv[2].a_type != A_FLOAT)
+ {
+ post("Videogrid: error_ Some of the values are inconsistent in its data type.\n");
+ return;
+ }
+ x->x_name = argv[0].a_w.w_symbol;
+ nfil = (int)argv[1].a_w.w_float;
+ ncol = (int)argv[2].a_w.w_float;
+ break;
+ case 5:
+ /* versio 0.1 */
+ if (argv[0].a_type != A_SYMBOL || argv[1].a_type != A_FLOAT || argv[2].a_type != A_FLOAT || argv[3].a_type != A_SYMBOL || argv[4].a_type != A_SYMBOL)
+ {
+ post("Videogrid: error_ Some of the values are inconsistent in its data type.\n");
+ return;
+ }
+ x->x_name = argv[0].a_w.w_symbol;
+ nfil = (int)argv[1].a_w.w_float;
+ ncol = (int)argv[2].a_w.w_float;
+ x->x_color_fons = argv[3].a_w.w_symbol;
+ x->x_color_marc = argv[4].a_w.w_symbol;
+ break;
+ case 6:
+ /* versio 0.2 */
+ if (argv[0].a_type != A_SYMBOL || argv[1].a_type != A_FLOAT || argv[2].a_type != A_FLOAT || argv[3].a_type != A_SYMBOL || argv[4].a_type != A_SYMBOL || argv[5].a_type != A_SYMBOL)
+ {
+ post("Videogrid: error_ Some of the values are inconsistent in its data type.\n");
+ return;
+ }
+ x->x_name = argv[0].a_w.w_symbol;
+ nfil = (int)argv[1].a_w.w_float;
+ ncol = (int)argv[2].a_w.w_float;
+ x->x_color_fons = argv[3].a_w.w_symbol;
+ x->x_color_marc = argv[4].a_w.w_symbol;
+ x->x_color_grasp = argv[5].a_w.w_symbol;
+ break;
+ default:
+ /* no fa res */
+ break;
+ }
+ /* el màxim es fixa pel nombre de digits utilitzats pel nom de la imatge temporal */
+ maxdigit = pow(10,BYTES_NUM_TEMP);
+ if((nfil*ncol) <= maxdigit){
+ if((nfil*ncol) > 0){
+ x->x_num_fil = nfil;
+ x->x_num_col = ncol;
+ }else{
+ post("Videogrid: The number of rows and columns is less than the minimum allowed: 1 cell.\n",maxdigit);
+ }
+ }else{
+ post("Videogrid: The number of rows and columns exceeds the maximum allowed: a total of %d cells.\n",maxdigit);
+ }
+ /* post("Videogrid: Modified values\n name = %s\n rows = %d \t cols = %d.\n", x->x_name->s_name, x->x_num_fil, x->x_num_col); */
+ /* elimina els nodes no representables amb la nova configuració */
+ maxim = x->x_num_fil * x->x_num_col;
+ int extret;
+ videogrid_erase(x, x->x_glist,0);
+ /* si hi ha més nodes a la cua que el maxim */
+ while((numNodes(&x->x_cua)) > maxim){
+ /* desencuem */
+ extret = desencuar(&x->x_cua);
+ }
+ /* al reestablir el tamany del tauler cal saber la posició de l'últim element */
+ x->x_ultima_img = numNodes(&x->x_cua) - 1;
+ if (x->x_ultima_img < 0) x->x_ultima_img = 0;
+ x->x_tauler_primer = x->x_cua.davanter;
+ videogrid_drawme(x, x->x_glist, 1);
+}
+
+t_widgetbehavior videogrid_widgetbehavior;
+
+static void videogrid_setwidget(void)
+{
+ /* post("Entra a setwidget"); */
+ videogrid_widgetbehavior.w_getrectfn = videogrid_getrect;
+ videogrid_widgetbehavior.w_displacefn = videogrid_displace;
+ videogrid_widgetbehavior.w_selectfn = videogrid_select;
+ videogrid_widgetbehavior.w_activatefn = NULL;
+ videogrid_widgetbehavior.w_deletefn = videogrid_delete;
+ videogrid_widgetbehavior.w_visfn = videogrid_vis;
+ /* clic del ratoli */
+ videogrid_widgetbehavior.w_clickfn = videogrid_click;
+
+#if PD_MINOR_VERSION < 37
+ videogrid_widgetbehavior.w_savefn = videogrid_save;
+ videogrid_widgetbehavior.w_propertiesfn = videogrid_properties;
+#endif
+
+}
+
+/* el constructor de la classe*/
+static void *videogrid_new(t_symbol* name, int argc, t_atom *argv)
+{
+ /* instanciació del nou objecte */
+ t_videogrid *x = (t_videogrid *)pd_new(videogrid_class);
+ /* crea una sortida per l'objecte*/
+ x->x_sortida = outlet_new(&x->x_obj,&s_symbol);
+ /* s'obté el canvas de pd */
+ x->x_glist = (t_glist*) canvas_getcurrent();
+ /* posició en el tauler de la última imatge afegida */
+ x->x_ultima_img = 0;
+ /* posició de l'últim fitxer del directori encuat */
+ x->x_dir_pos = 0;
+ /* apuntador al primer element en el tauler */
+ x->x_tauler_primer = NULL;
+ x->x_pos_selected = -1;
+ /* fixa el nom de l'objecte */
+ char nom[15];
+ sprintf(nom, "videogrid%d", ++videogridcount);
+ name = gensym(nom);
+ x->x_name = name;
+ /* amb aquest nom es prepara per poder rebre dades */
+ pd_bind(&x->x_obj.ob_pd, x->x_name);
+ /* crea la cua de nodes */
+ crearCua(&x->x_cua);
+ post("NEW videogrid: created with %d parameters.\n", argc);
+
+ switch (argc) {
+ case 3:
+ /* versio inicial */
+ x->x_num_fil = (int)atom_getintarg(1, argc, argv);
+ x->x_num_col = (int)atom_getintarg(2, argc, argv);
+ x->x_color_fons = gensym("#F0F0F0");
+ x->x_color_marc = gensym("#0F0F0F");
+ x->x_color_grasp = gensym("#F1882B");
+ break;
+ case 5:
+ /* versio 0.1 */
+ x->x_num_fil = (int)atom_getintarg(1, argc, argv);
+ x->x_num_col = (int)atom_getintarg(2, argc, argv);
+ x->x_color_fons = argv[3].a_w.w_symbol;
+ x->x_color_marc = argv[4].a_w.w_symbol;
+ x->x_color_grasp = gensym("#F1882B");
+ break;
+ case 6:
+ /* versio 0.2 */
+ x->x_num_fil = (int)atom_getintarg(1, argc, argv);
+ x->x_num_col = (int)atom_getintarg(2, argc, argv);
+ x->x_color_fons = argv[3].a_w.w_symbol;
+ x->x_color_marc = argv[4].a_w.w_symbol;
+ x->x_color_grasp = argv[5].a_w.w_symbol;
+ break;
+ case 7:
+ /* versio 0.1 - paths dels elsements del tauler */
+ x->x_num_fil = (int)atom_getintarg(1, argc, argv);
+ x->x_num_col = (int)atom_getintarg(2, argc, argv);
+ x->x_color_fons = argv[3].a_w.w_symbol;
+ x->x_color_marc = argv[4].a_w.w_symbol;
+ x->x_color_grasp = argv[5].a_w.w_symbol;
+ /*
+ // -- llegir la cadena de paths | afegir els paths a la cua //
+ // -- ATENCIO! NO AFEGEIX ELS PATHS !!! //
+ char *cadenaPaths;
+ cadenaPaths = (char *)malloc(51200*sizeof(char));
+ strcpy(cadenaPaths,(char *)argv[6].a_w.w_symbol->s_name);
+ // -- printf("Es carreguen els paths %s --- %s **** %s\n", cadenaPaths, argv[5].a_w.w_symbol->s_name,argv[3].a_w.w_symbol->s_name); //
+ // -- split //
+ char *token;
+ t_symbol *tt;
+ for ( token = strtok(argv[6].a_w.w_symbol->s_name,"|");
+ token != NULL;
+ token = strtok(NULL,"|") ){
+ tt = gensym(token);
+ // -- printf("AFEGINT CARREGANT %s\n",tt->s_name); //
+ // -- imagegrid_putimg(x,tt); //
+ // -- ATENCIO! NO AFEGEIX ELS PATHS !!! //
+ // -- imagegrid_afegir_imatge(x,tt->s_name); //
+ }
+
+ token = strtok(cadenaPaths,"|");
+ while(token){
+ tt = gensym(token);
+ printf("AFEGINT CARREGANT %s\n",tt->s_name);
+ imagegrid_putimg(x,tt);
+ token = strtok(NULL,"|");
+ }
+ free(cadenaPaths);
+ */
+ break;
+
+ default:
+ /* crea un objecte nou per defecte */
+ /* post("NEW imagegrid created.\n"); */
+ /* fixa el nombre de files */
+ x->x_num_fil = 3;
+ /* fixa el nombre de columnes */
+ x->x_num_col = 5;
+ /* colors de fons i de marc*/
+ x->x_color_fons = gensym("#F0F0F0");
+ x->x_color_marc = gensym("#0F0F0F");
+ x->x_color_grasp = gensym("#F1882B");
+ break;
+ }
+ /* printf("S'ha instanciat un videogrid anomenat %s amb les caracteristiques seguents:",x->x_name->s_name);
+ printf("Nombre de files %d - Nombre de columnes: %d", x->x_num_fil, x->x_num_col); */
+
+ return (x);
+}
+
+static void videogrid_destroy(t_videogrid *x){
+ /* elimina el contingut de la cua */
+ eliminarCua(&x->x_cua);
+ post("Videogrid destroyed.\n");
+}
+
+/* generacio d'una nova classe */
+/* al carregar la nova llibreria my_lib pd intenta cridar la funció my_lib_setup */
+/* aquesta crea la nova classe i les seves propietats només un sol cop */
+
+extern "C"
+{
+void videogrid_setup(void)
+{
+ load_tk_procs();
+ /* post("Entra a setup per generar la classe videogrid"); */
+ /*
+ sense pas d'arguments
+ videogrid_class = class_new(gensym("videogrid"),
+ (t_newmethod)videogrid_new,
+ (t_method)videogrid_destroy,
+ sizeof(t_videogrid),
+ CLASS_DEFAULT,
+ A_DEFSYM,
+ 0);
+ amb pas d'arguments:
+ */
+ videogrid_class = class_new(gensym("videogrid"),
+ (t_newmethod)videogrid_new,
+ (t_method)videogrid_destroy,
+ sizeof(t_videogrid),
+ CLASS_DEFAULT,
+ A_GIMME,
+ 0);
+ /* class_new crea la nova classe retornant un punter al seu prototipus,
+ el primer argument es el nom simbolic de la classe,
+ el segon i tercer corresponen al constructor i destructor de la classe respectivament,
+ (el constructor instancia un objecte i inicialitza les seves dades cada cop que es crea un objecte
+ el destructor allibera la memoria reservada al destruid l'objecte per qualsevol causa)
+ el quart correspon a la mida de l'estructura de dades, per tal de poder reservar la memoria necessària,
+ el cinquè influeix en el mòde de representació gràfica del objectes. Per defecte CLASS_DEFAULT o ``0',
+ la resta d'arguments defineixen els arguments de l'objecte i el seu tipus, la llista acaba amb 0
+ */
+
+ /* afegeix el mètode helloworld_bang a la classe helloworld_class */
+ class_addbang(videogrid_class, videogrid_bang);
+
+ /* afegeix el mètode videogrid_putvideo a la classe videogrid per a entrades de missatge
+ que inicien amb putvideo i una cadena string com a argument */
+ class_addmethod(videogrid_class,(t_method)videogrid_putvideo,gensym("putvideo"), A_DEFSYMBOL, 0);
+
+ /* afegeix el mètode videogrid_putvideodir a la classe videogrid per a entrades de missatge
+ que inicien amb putvideodir i una cadena string com a argument */
+ class_addmethod(videogrid_class,(t_method)videogrid_putvideodir,gensym("putvideodir"), A_DEFSYMBOL, 0);
+ /* afegeix un metode per a modificar el valor de les propietats de l'objecte */
+ class_addmethod(videogrid_class, (t_method)videogrid_dialog, gensym("dialog"), A_GIMME, 0);
+ /* afegeix un metode per l'obtencio de la posicio del clic del ratolí */
+ class_addmethod(videogrid_class, (t_method)videogrid_click, gensym("click"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+ /* v 0.2 -- afegeix un metode netejar el contigut del tauler */
+ class_addmethod(videogrid_class, (t_method)videogrid_clear, gensym("clear"), A_GIMME, 0);
+ /* v 0.2 -- afegeix un metode seek #num per disparar */
+ class_addmethod(videogrid_class, (t_method)videogrid_seek, gensym("seek"), A_FLOAT, 0);
+ /* inicia el comportament de videogrid */
+ videogrid_setwidget();
+
+#if PD_MINOR_VERSION >= 37
+ class_setsavefn(videogrid_class,&videogrid_save);
+ class_setpropertiesfn(videogrid_class, videogrid_properties);
+#endif
+
+ /* afegeix el mètode videogrid_widgetbehavior al la classe videogrid per a la creació de l'element visual */
+ class_setwidget(videogrid_class,&videogrid_widgetbehavior);
+ class_sethelpsymbol(videogrid_class, gensym("videogrid.pd"));
+}
+}
Deleted: trunk/externals/pdvjtools/videogrid/videogrid.cpp
===================================================================
--- trunk/externals/pdvjtools/videogrid/videogrid.cpp 2008-05-24 01:51:05 UTC (rev 9893)
+++ trunk/externals/pdvjtools/videogrid/videogrid.cpp 2008-05-24 01:55:37 UTC (rev 9894)
@@ -1,1574 +0,0 @@
-
-/*
-videogrid external for Puredatai
-Lluis Gomez i Bigorda :: lluis-at-hangar.org
-Sergi Lario Loyo :: slario-at-gmail.com
-
-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 3 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, see <http://www.gnu.org/licenses/>.
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <dirent.h>
-#include <string.h>
-#include <unistd.h>
-#include <math.h>
-
-/* incloure les definicions de variables i
- prototipus de dades i de funcions de puredata */
-#include "m_pd.h"
-/* incloure estructures de dades i capceleres de funcions gàfiques bàsiques de pd */
-#include "g_canvas.h"
-/* incloure estructures de dades i capceleres de funcions per traballar amb threads */
-#include "pthread.h"
-
-/*ffmpeg includes*/
-#include <ffmpeg/avcodec.h>
-#include <ffmpeg/avformat.h>
-
-/*libquicktime includes*/
-//#include <quicktime/lqt.h>
-//#include <quicktime/colormodels.h>
-#include <lqt/lqt.h>
-#include <lqt/colormodels.h>
-
-
-/* &&&&&&&&&&&&&&&&&&&&&&&&&&&&& VIDEOGRID &&&&&&&&&&&&&&&&&&&&&&&&&&&&& */
-
-/* definició de l'amplada i l'alçada d'una casella */
-#define W_CELL 60
-#define H_CELL 40
-
-/* definició del gruix en pixels del marc del tauler */
-#define GRUIX 2
-
-/* nombre de caracters per el nom del path del fitxer */
-#define BYTESNOMFITXER 512
-
-/* 8bits clamp rgb values */
-
-#define CLAMP8(x) (((x)<0) ? 0 : ((x>255)? 255 : (x)))
-
-#define BYTESNOMFITXERIMATGE 512
-#define BYTESTIPUSFROMAT 4
-
-#define FORMAT_MINIATURA "ppm"
-#define PATH_TEMPORAL "/tmp/vigrid_"
-#define BYTES_NUM_TEMP 4
-
-typedef char pathimage[BYTESNOMFITXERIMATGE];
-
-typedef char tipus_format[BYTESTIPUSFROMAT];
-
-#ifdef __cplusplus
-extern "C" int convertir_img_ff(pathimage pathFitxer, tipus_format f, int W, int H, int posi);
-#endif
-
-void SaveFrame(AVFrame *pFrame, int width, int height, int W, int H, int posi)
-{
- FILE *pFile;
- char szFilename[32];
- int nN = posi;
-
- /*int cont=0;*/
-
- char nNstr[BYTES_NUM_TEMP];
- pathimage ig_path = PATH_TEMPORAL;
-
- sprintf(nNstr, "%d", nN);
- strcat(ig_path,nNstr);
- strcat(ig_path,".");
- strcat(ig_path,FORMAT_MINIATURA);
-
- // Open file
- sprintf(szFilename, ig_path);
- pFile=fopen(szFilename, "wb");
- if(pFile==NULL)
- return;
-
- // Write header
- fprintf(pFile, "P6\n%d %d\n255\n", W, H);
-
-
- int w = width;
- int h = height;
- float k = (width/W);
- float l = (height/H);
- int i,j,y,x,realx;
-
- // Write pixel data
- for(y=0; y<H; y=y++) {
- for(x=0; x<W; x=x++) {
- realx = ((x*k)+(3-((int)(x*k)%3)))*3;
- fwrite((pFrame->data[0]+(int)(y*l)*pFrame->linesize[0])+realx, 1, 3, pFile);
- }
- }
-
- // for (i=0;i<(l*H);i=i+l) {
- // for (j=0;j<(k*W);j=j+k) {
- // fwrite(pFrame->data[0]+(i*pFrame->linesize[0]+j), 1, 3, pFile);
- // }
- // }
-
- // Close file
- fclose(pFile);
-}
-
-extern "C" {
-int convertir_img_ff(pathimage pathFitxer, tipus_format f, int W, int H, int posi)
-{
- AVFormatContext *pFormatCtx;
- int i, videoStream;
- AVCodecContext *pCodecCtx;
- AVCodec *pCodec;
- AVFrame *pFrame;
- AVFrame *pFrameRGB;
- AVPacket packet;
- int frameFinished;
- int numBytes;
- uint8_t *buffer;
-
- int nN = posi;
-
- // Register all formats and codecs
- av_register_all();
-
- // Open video file
- if(av_open_input_file(&pFormatCtx, pathFitxer, NULL, 0, NULL)!=0)
- return -1; // Couldn't open file
-
-
- // Retrieve stream information
- if(av_find_stream_info(pFormatCtx)<0)
- return -1; // Couldn't find stream information
-
- // Dump information about file onto standard error
- dump_format(pFormatCtx, 0, pathFitxer, false);
-
- // Find the first video stream
- videoStream=-1;
- for(i=0; i<pFormatCtx->nb_streams; i++)
- if(pFormatCtx->streams[i]->codec->codec_type==CODEC_TYPE_VIDEO)
- {
- videoStream=i;
- break;
- }
- if(videoStream==-1)
- return -1; // Didn't find a video stream
-
- // Get a pointer to the codec context for the video stream
- pCodecCtx=pFormatCtx->streams[videoStream]->codec;
-
- // Find the decoder for the video stream
- pCodec=avcodec_find_decoder(pCodecCtx->codec_id);
- if(pCodec==NULL)
- return -1; // Codec not found
-
- // Open codec
- if(avcodec_open(pCodecCtx, pCodec)<0)
- return -1; // Could not open codec
-
- // Hack to correct wrong frame rates that seem to be generated by some
- // codecs
- // if(pCodecCtx->frame_rate>1000 && pCodecCtx->frame_rate_base==1)
- // pCodecCtx->frame_rate_base=1000;
-
- // Allocate video frame
- pFrame=avcodec_alloc_frame();
-
- // Allocate an AVFrame structure
- pFrameRGB=avcodec_alloc_frame();
- if(pFrameRGB==NULL)
- return -1;
-
- // Determine required buffer size and allocate buffer
- numBytes=avpicture_get_size(PIX_FMT_RGB24, pCodecCtx->width,
- pCodecCtx->height);
- buffer=new uint8_t[numBytes];
-
- // Assign appropriate parts of buffer to image planes in pFrameRGB
- avpicture_fill((AVPicture *)pFrameRGB, buffer, PIX_FMT_RGB24,
- pCodecCtx->width, pCodecCtx->height);
-
- // Read frames and save first five frames to disk
- av_read_frame(pFormatCtx, &packet);
- // Is this a packet from the video stream?
- if(packet.stream_index==videoStream)
- {
- // Decode video frame
- avcodec_decode_video(pCodecCtx, pFrame, &frameFinished,
- packet.data, packet.size);
-
- // Did we get a video frame?
- if(frameFinished)
- {
- // Convert the image from its native format to RGB
- img_convert((AVPicture *)pFrameRGB, PIX_FMT_RGB24,
- (AVPicture*)pFrame, pCodecCtx->pix_fmt, pCodecCtx->width,
- pCodecCtx->height);
-
- // Save the frame to disk
- SaveFrame(pFrameRGB, pCodecCtx->width, pCodecCtx->height, W, H, posi);
- }
- }
-
- // Free the packet that was allocated by av_read_frame
- av_free_packet(&packet);
- // Read frames and save first five frames to disk
- av_read_frame(pFormatCtx, &packet);
- // Is this a packet from the video stream?
- if(packet.stream_index==videoStream)
- {
- // Decode video frame
- avcodec_decode_video(pCodecCtx, pFrame, &frameFinished,
- packet.data, packet.size);
-
- // Did we get a video frame?
- if(frameFinished)
- {
- // Convert the image from its native format to RGB
- img_convert((AVPicture *)pFrameRGB, PIX_FMT_RGB24,
- (AVPicture*)pFrame, pCodecCtx->pix_fmt, pCodecCtx->width,
- pCodecCtx->height);
-
- // Save the frame to disk
- SaveFrame(pFrameRGB, pCodecCtx->width, pCodecCtx->height, W, H, posi);
- }
- }
-
- // Free the packet that was allocated by av_read_frame
- av_free_packet(&packet);
- //}
-
- // Free the RGB image
- delete [] buffer;
- av_free(pFrameRGB);
-
- // Free the YUV frame
- av_free(pFrame);
-
- // Close the codec
- avcodec_close(pCodecCtx);
-
- // Close the video file
- av_close_input_file(pFormatCtx);
-
- return 0;
-}
-}
-
-
-int convertir_img(pathimage pathFitxer, tipus_format f, int W, int H, int posi){
- /*
- Quicktime per les conversions
- */
-
- /* RGB vectors */
- unsigned char * qt_rows[3];
- /* YUV vesctor frame */
- unsigned char *qt_frame = NULL;
- /* quicktime decoder */
- quicktime_t *qt;
- /* quicktime color model */
- int qt_cmodel;
-
- int nN = posi;
- int x_vwidth = 0;
- int x_vheight = 0;
- /* convertir(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN); */
- qt = quicktime_open(pathFitxer, 1, 0);
-
- if (!(qt)){
- /* post("videogrid: error opening qt file"); */
- return -1;
- }
-
- if (!quicktime_has_video(qt)) {
- /* post("videogrid: no video stream"); */
- quicktime_close(qt);
- return -1;
-
- }
- else if (!quicktime_supported_video(qt,0)) {
- /* post("videogrid: unsupported video codec\n"); */
- quicktime_close(qt);
- return -1;
- }
- else
- {
- qt_cmodel = BC_YUV420P;
- x_vwidth = quicktime_video_width(qt,0);
- x_vheight = quicktime_video_height(qt,0);
-
-
- free(qt_frame);
- qt_frame = (unsigned char*)malloc(x_vwidth*x_vheight*4);
-
- int size = x_vwidth * x_vheight;
- qt_rows[0] = &qt_frame[0];
- qt_rows[2] = &qt_frame[size];
- qt_rows[1] = &qt_frame[size + (size>>2)];
-
- quicktime_set_cmodel(qt, qt_cmodel);
- }
-
- /* int length = quicktime_video_length(qt,0); */
- /* int Vpos = quicktime_video_position(qt,0); */
- lqt_decode_video(qt, qt_rows, 0);
-
- switch(qt_cmodel){
- case BC_YUV420P:
- printf(" ");
- /* post("videogrid: qt colormodel : BC_YUV420P"); */
-
- /* per a fer la miniatura
- cada k colomnes pillem una
- cada l files pillem una */
- int w = x_vwidth;
- int h = x_vheight;
- int k = (w/W);
- int l = (h/H);
-
- /*int cont=0;*/
-
- char nNstr[BYTES_NUM_TEMP];
- pathimage ig_path = PATH_TEMPORAL;
-
- sprintf(nNstr, "%d", nN);
- strcat(ig_path,nNstr);
- strcat(ig_path,".");
- strcat(ig_path,FORMAT_MINIATURA);
- /* printf("Creacio de la imatge %s ...",ig_path); */
- /* escriu el contingut de data a un arxiu. */
- FILE *fp = fopen(ig_path, "w");
- fprintf (fp, "P6\n%d %d\n255\n", W, H);
-
- int i,j,y,u,v,r,g,b;
-
- for (i=0;i<(l*H);i=i+l) {
- for (j=0;j<(k*W);j=j+k) {
- y=qt_rows[0][(w*i+j)];
- u=qt_rows[1][(w/2)*(i/2)+(j/2)];
- v=qt_rows[2][(w/2)*(i/2)+(j/2)];
- r = CLAMP8(y + 1.402 *(v-128));
- g = CLAMP8(y - 0.34414 *(u-128) - 0.71414 *(v-128));
- b = CLAMP8(y + 1.772 *(u-128));
- fprintf (fp, "%c%c%c", r,g,b);
- }
- }
-
- /* escriu el contingut de data a un arxiu.*/
- fclose (fp);
- }
- return 0;
-}
-
-
-typedef char path[BYTESNOMFITXER];
-
-
-/* estructura de dades: un node de la cua */
-struct node
-{
- /* nom del path de la imatge */
- path pathFitxer;
- /* apuntador al següent node en cua */
- struct node *seguent;
-};
-
-/* definició del tipus node */
-typedef struct node Node;
-
-/* estructures i tipus de dades de la cua */
-/* definició del tipus de cua */
-typedef struct
-{
- Node *davanter;
- Node *final;
-}Cua;
-
-/* declaracions de les funcions */
-
-/* crea una cua */
-void crearCua(Cua *cua);
-/* encuara un element al final de la cua */
-void encuar (Cua *cua, path x);
-/* elimina un element de la cua */
-int desencuar (Cua *cua);
-/* retorna si la cua és buida */
-int cuaBuida(Cua *cua);
-/* elimina el contingut de la cua */
-void eliminarCua(Cua *cua);
-/* retorna el nombre de nodes de la cua */
-int numNodes(Cua *cua);
-/* escriu el contingut de la cua */
-void escriuCua(Cua *cua);
-
-
-/* implementació de les funcions */
-void crearCua(Cua *cua)
-{
- cua->davanter=cua->final=NULL;
-}
-
-/* funció que encua el node al final de la cua */
-void encuar (Cua *cua, path x)
-{
- Node *nou;
- nou=(Node*)malloc(sizeof(Node));
- strcpy(nou->pathFitxer,x);
- nou->seguent=NULL;
- if(cuaBuida(cua))
- {
- cua->davanter=nou;
- }
- else
- cua->final->seguent=nou;
- cua->final=nou;
-}
-
-/* elimina l'element del principi de la cua */
-int desencuar (Cua *cua)
-{
- if(!cuaBuida(cua))
- {
- Node *nou;
- nou=cua->davanter;
- cua->davanter=cua->davanter->seguent;
- free(nou);
- return 1;
- }
- else
- {
- /* printf("Cua buida\a\n"); */
- return 0;
- }
-
-}
-
-/* funció que retorna si la cua és buida */
-int cuaBuida(Cua *cua)
-{
- return (cua->davanter==NULL);
-}
-
-/* elimina el contingut de la cua */
-void eliminarCua(Cua *cua)
-{
- while (!cuaBuida(cua)) desencuar(cua);
- printf("Cua eliminada\n");
-}
-
-/* funció que retorna el nombre de nodes de la cua */
-int numNodes(Cua *cua)
-{
- int contador=0;
- Node *actual;
- actual=cua->davanter;
- if(actual) contador=1;
- while((actual)&&(actual != cua->final)){
- contador ++;
- actual = actual->seguent;
- }
- return (contador);
-}
-
-/* funció que escriu la cua de nodes per la sortida estàndard */
-void escriuCua(Cua *cua)
-{
- if(!cuaBuida(cua))
- {
- Node *actual;
- actual=cua->davanter;
- printf("CUA DE NODES\n[");
- do{
- printf("#%s#",actual->pathFitxer);
- actual = actual->seguent;
- }while(actual);
- printf("]\n");
-
- }
- else
- printf("Cua buida\n");
-}
-
-
-/* crear un apuntador al nou objecte */
-static t_class *videogrid_class;
-/* indica el nombre de videogrid creats - utilitzat per diferenciar el nom d'instàncies d'objectes del mateix tipus */
-static int videogridcount = 0;
-
-/* definició de la classe i la seva estructura de dades */
-
-typedef struct _videogrid {
- t_object x_obj;
- /* declaració de la sortida de l'objecte */
- t_outlet *x_sortida;
- /* llista d'objectes gràfics */
- t_glist *x_glist;
- /* nombre de files */
- int x_num_fil;
- /* nombre de columnes */
- int x_num_col;
- /* posició de la última imatge en el tauler */
- int x_ultima_img;
- /* path del directori actual */
- path x_dir_actual;
- /* path del directori a canviar */
- path x_dir_canvi;
- /* posicio ultim al directori actual */
- int x_dir_pos;
- /* apuntador al primer element posicionat al tauler */
- Node *x_tauler_primer;
- /* cua d'imatges */
- Cua x_cua;
- /* nom de l'objecte */
- t_symbol *x_name;
- /* color de fons */
- t_symbol *x_color_fons;
- /* color del marge */
- t_symbol *x_color_marc;
- /* mutex per evitar concurrencia sobre la cua al accedir diferents threads*/
- pthread_mutex_t x_lock;
- /* v 0.2 -- posicó de la cel·la seleccionada */
- int x_pos_selected;
- /* v 0.2 -- color de seleccio */
- t_symbol *x_color_grasp;
-
-} t_videogrid;
-
-void load_tk_procs () {
- // ########### procediments per videogrid -- slario(at)gmail.com [a partir del codi del grid de l'Ives: ydegoyon(at)free.fr] #########
- sys_gui("proc videogrid_apply {id} {\n");
- // strip "." from the TK id to make a variable name suffix
- sys_gui("set vid [string trimleft $id .]\n");
- // for each variable, make a local variable to hold its name...
- sys_gui("set var_graph_name [concat graph_name_$vid]\n");
- sys_gui("global $var_graph_name\n");
- sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
- sys_gui("global $var_graph_num_fil\n");
- sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
- sys_gui("global $var_graph_num_col\n");
- sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
- sys_gui("global $var_graph_color_fons\n");
- sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
- sys_gui("global $var_graph_color_marc\n");
- sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
- sys_gui("global $var_graph_color_grasp\n");
- sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_num_fil] [eval concat $$var_graph_num_col] [eval concat $$var_graph_color_fons] [eval concat $$var_graph_color_marc] [eval concat $$var_graph_color_grasp] \\;]\n");
- // puts stderr $cmd
- sys_gui("pd $cmd\n");
- sys_gui("}\n");
- sys_gui("proc videogrid_cancel {id} {\n");
- sys_gui("set cmd [concat $id cancel \\;]\n");
- // puts stderr $cmd
- sys_gui("pd $cmd\n");
- sys_gui("}\n");
- sys_gui("proc videogrid_ok {id} {\n");
- sys_gui("videogrid_apply $id\n");
- sys_gui("videogrid_cancel $id\n");
- sys_gui("}\n");
- sys_gui("proc pdtk_videogrid_dialog {id name num_fil num_col color_fons color_marc color_grasp} {\n");
- sys_gui("set vid [string trimleft $id .]\n");
- sys_gui("set var_graph_name [concat graph_name_$vid]\n");
- sys_gui("global $var_graph_name\n");
- sys_gui("set var_graph_num_fil [concat graph_num_fil_$vid]\n");
- sys_gui("global $var_graph_num_fil\n");
- sys_gui("set var_graph_num_col [concat graph_num_col_$vid]\n");
- sys_gui("global $var_graph_num_col\n");
- sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
- sys_gui("global $var_graph_color_fons\n");
- sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
- sys_gui("global $var_graph_color_marc\n");
- sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
- sys_gui("global $var_graph_color_grasp\n");
- sys_gui("set $var_graph_name $name\n");
- sys_gui("set $var_graph_num_fil $num_fil\n");
- sys_gui("set $var_graph_num_col $num_col\n");
- sys_gui("set $var_graph_color_fons $color_fons\n");
- sys_gui("set $var_graph_color_marc $color_marc\n");
- sys_gui("set $var_graph_color_grasp $color_grasp\n");
- sys_gui("toplevel $id\n");
- sys_gui("wm title $id {videogrid}\n");
- sys_gui("wm protocol $id WM_DELETE_WINDOW [concat videogrid_cancel $id]\n");
- sys_gui("label $id.label -text {VIDEOGRID PROPERTIES}\n");
- sys_gui("pack $id.label -side top\n");
- sys_gui("frame $id.buttonframe\n");
- sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n");
- sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"videogrid_cancel $id\"\n");
- sys_gui("button $id.buttonframe.apply -text {Apply} -command \"videogrid_apply $id\"\n");
- sys_gui("button $id.buttonframe.ok -text {OK} -command \"videogrid_ok $id\"\n");
- sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n");
- sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
- sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
- sys_gui("frame $id.1rangef\n");
- sys_gui("pack $id.1rangef -side top\n");
- sys_gui("label $id.1rangef.lname -text \"Name :\"\n");
- sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 7\n");
- sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
- sys_gui("frame $id.2rangef\n");
- sys_gui("pack $id.2rangef -side top\n");
- sys_gui("label $id.2rangef.lnum_fil -text \"Rows :\"\n");
- sys_gui("entry $id.2rangef.num_fil -textvariable $var_graph_num_fil -width 7\n");
- sys_gui("pack $id.2rangef.lnum_fil $id.2rangef.num_fil -side left\n");
- sys_gui("frame $id.3rangef\n");
- sys_gui("pack $id.3rangef -side top\n");
- sys_gui("label $id.3rangef.lnum_col -text \"Cols :\"\n");
- sys_gui("entry $id.3rangef.num_col -textvariable $var_graph_num_col -width 7\n");
- sys_gui("pack $id.3rangef.lnum_col $id.3rangef.num_col -side left\n");
- sys_gui("frame $id.4rangef\n");
- sys_gui("pack $id.4rangef -side top\n");
- sys_gui("label $id.4rangef.lcolor_fons -text \"Bg Color :\"\n");
- sys_gui("entry $id.4rangef.color_fons -textvariable $var_graph_color_fons -width 7\n");
- sys_gui("pack $id.4rangef.lcolor_fons $id.4rangef.color_fons -side left\n");
- sys_gui("frame $id.5rangef\n");
- sys_gui("pack $id.5rangef -side top\n");
- sys_gui("label $id.5rangef.lcolor_marc -text \"Border Color :\"\n");
- sys_gui("entry $id.5rangef.color_marc -textvariable $var_graph_color_marc -width 7\n");
- sys_gui("pack $id.5rangef.lcolor_marc $id.5rangef.color_marc -side left\n");
- sys_gui("frame $id.6rangef\n");
- sys_gui("pack $id.6rangef -side top\n");
- sys_gui("label $id.6rangef.lcolor_grasp -text \"Sel Color :\"\n");
- sys_gui("entry $id.6rangef.color_grasp -textvariable $var_graph_color_grasp -width 7\n");
- sys_gui("pack $id.6rangef.lcolor_grasp $id.6rangef.color_grasp -side left\n");
- sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("bind $id.2rangef.num_fil <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("bind $id.3rangef.num_col <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("bind $id.4rangef.color_fons <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("bind $id.5rangef.color_marc <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("bind $id.6rangef.color_grasp <KeyPress-Return> [concat videogrid_ok $id]\n");
- sys_gui("focus $id.1rangef.name\n");
- sys_gui("}\n");
- sys_gui("proc table {w content args} {\n");
- sys_gui("frame $w -bg black\n");
- sys_gui("set r 0\n");
- sys_gui("foreach row $content {\n");
- sys_gui("set fields {}\n");
- sys_gui("set c 0\n");
- sys_gui("foreach col $row {\n");
- // lappend fields [label $w.$r/$c -text $col]
- sys_gui("set img [image create photo -file $col]\n");
- sys_gui("lappend fields [label $w.$r/$c -image $img]\n");
- sys_gui("incr c\n");
- sys_gui("}\n");
- sys_gui("eval grid $fields -sticky news -padx 1 -pady 1\n");
- sys_gui("incr r\n");
- sys_gui("}\n");
- sys_gui("set w\n");
- sys_gui("}\n");
- sys_gui("proc pdtk_videogrid_table {id name num_fil num_col} {\n");
- sys_gui("table .tauler {\n");
- sys_gui("{sll80x60.gif 3160x120.gif sll80x60.gif}\n");
- sys_gui("{sll80x60.gif sll80x60.gif sll80x60.gif}\n");
- sys_gui("{sll80x60.ppm sll80x60.gif 3160x120.gif}\n");
- sys_gui("}\n");
- sys_gui("pack .tauler\n");
- sys_gui("}\n");
-}
-
-/* calcula la posició x del tauler a partir de la posició de l'element de la cua (d'esquerra a dreta) */
-int getX(t_videogrid* x, int posCua){
- int c = x->x_num_col;
- int xpos = (posCua % c) * W_CELL + ((posCua % c) + 1) * GRUIX;
- return(xpos + 1);
-}
-
-/* calcula la posició y del tauler a partir de la posició de l'element de la cua (de dalt a baix) */
-int getY(t_videogrid* x, int posCua){
- int c = x->x_num_col;
- int ypos = (posCua / c) * H_CELL + ((posCua / c) + 1) * GRUIX;
- return(ypos + 1);
-}
-
-/* elimina les imatges temporals */
-void eliminar_imatges_temporals(int maxim){
- FILE *fitxer;
- path path_total;
- int contador = 0;
- char contador_str[BYTES_NUM_TEMP];
- while(contador < maxim){
- strcpy(path_total,PATH_TEMPORAL);
- sprintf(contador_str,"%d", contador);
- strcat(path_total,contador_str);
- strcat(path_total,".");
- strcat(path_total,FORMAT_MINIATURA);
- /* elimina el fitxer si no hi ha cap problema */
- if(unlink(path_total)){
- /* post("Imatge temporal %s eliminada\n",path_total); */
- }
- contador++;
- }
- /* post("Videogrid: Imatges temporals eliminades\n",path_total); */
-}
-
-int format_adequat_v(path nomF){
- int retorn = 0;
- path ig_path = "";
- strcat(ig_path,nomF);
- char *t1;
- path extensio = "";
- for ( t1 = strtok(ig_path,".");
- t1 != NULL;
- t1 = strtok(NULL,".") )
- strcpy(extensio,t1);
- if(strcmp(extensio,"mov")==0) retorn = 1;
- /*
- if(strcmp(extensio,"eps")==0) retorn = 1;
- if(strcmp(extensio,"gif")==0) retorn = 1;
- if(strcmp(extensio,"jpg")==0) retorn = 1;
- if(strcmp(extensio,"jpeg")==0) retorn = 1;
- if(strcmp(extensio,"png")==0) retorn = 1;
- if(strcmp(extensio,"ppm")==0) retorn = 1;
- if(strcmp(extensio,"tif")==0) retorn = 1;
- if(strcmp(extensio,"tiff")==0) retorn = 1;
- */
-
- return (retorn);
-}
-
-/* afegir una imatge al grid */
-void videogrid_afegir_imatge(t_videogrid *x, path entrada)
-{
- int maxim;
- char nNstr[BYTES_NUM_TEMP];
- int pos = 0;
- /* escriu l'argument entrat */
- /* post("Afegint la imatge %s ...",entrada); */
- maxim = x->x_num_fil * x->x_num_col;
- path ig_path = PATH_TEMPORAL;
-
- /* si hi ha tants nodes a la cua com el maxim */
- if((numNodes(&x->x_cua)) >= maxim){
- /* desencua */
- int extret;
- extret = desencuar(&x->x_cua);
- /* obtenir la posició en la cua del nou node */
- if(x->x_ultima_img == maxim-1) {
- pos = 0;
- }else{
- pos = x->x_ultima_img+1;
- }
- sys_vgui(".x%x.c delete %xS%d\n", glist_getcanvas(x->x_glist), x, pos);
- }
- /* encua el nou node */
- encuar(&x->x_cua, entrada);
- /* si no és el primer element a encuar incrementem la posicio de la última imatge insertada */
- if(numNodes(&x->x_cua) != 1) x->x_ultima_img ++;
- /* si assoleix el maxim torna a començar, inicialitzant la posició en el tauler de la última imatge insertada */
- if(x->x_ultima_img == maxim) x->x_ultima_img = 0;
-
- /*
- Quicktime per les conversions
- */
- int nN = x->x_ultima_img;
- if (format_adequat_v(entrada) == 1) {
- convertir_img(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
- } else {
- convertir_img_ff(entrada,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
- }
-
- sprintf(nNstr, "%d", nN);
- strcat(ig_path,nNstr);
- strcat(ig_path,".");
- strcat(ig_path,FORMAT_MINIATURA);
- /*printf("Creacio de la imatge %s ...",ig_path);*/
- sys_vgui("image create photo img%x%d -file %s\n",x,nN,ig_path);
- /* printf("1. Creacio de la imatge %s ...",ig_path); */
- sys_vgui(".x%x.c create image %d %d -image img%x%d -tags %xS%d\n",
- glist_getcanvas(x->x_glist),
- text_xpix(&x->x_obj, x->x_glist) + getX(x,nN) + (W_CELL/2),
- text_ypix(&x->x_obj, x->x_glist) + getY(x,nN) + (H_CELL/2),
- x,nN,x,nN);
- /* printf("2. Creacio de la imatge %s ...",ig_path); */
- if(nN == 0){
- x->x_tauler_primer = x->x_cua.final;
- /* post("Ara el primer del tauler es %s\n",x->x_tauler_primer->pathFitxer); */
- }
- /* printf("SURT de la creacio de la imatge %s ...",ig_path); */
- /*
- sys_vgui("image create photo img%x -file %s\n",x,entrada);
- sys_vgui(".x%x.c create image %d %d -image img%x -tags %xS\n",
- glist_getcanvas(glist),text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),x,x);
- */
-}
-
-/* dibuixa videogrid */
-void videogrid_drawme(t_videogrid *x, t_glist *glist, int firsttime)
-{
- /* post("Entra a drawme amb firsttime: %d", firsttime); */
- if (firsttime) {
- char name[MAXPDSTRING];
- canvas_makefilename(glist_getcanvas(x->x_glist), x->x_name->s_name, name, MAXPDSTRING);
- sys_vgui(".x%x.c create rectangle %d %d %d %d -fill %s -tags %xGRID -outline %s\n",
- glist_getcanvas(glist),
- text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
- text_xpix(&x->x_obj, glist) + (x->x_num_col * W_CELL) + 1 + (x->x_num_col * GRUIX) + GRUIX, text_ypix(&x->x_obj, glist) + (x->x_num_fil * H_CELL) + 1 + (x->x_num_fil * GRUIX) + GRUIX,
- x->x_color_fons->s_name, x,x->x_color_marc->s_name);
-
- canvas_fixlinesfor(glist_getcanvas(glist), (t_text*)x);
- /* si hi elements a la cua els afegeix (redimensió) */
- if(!cuaBuida(&x->x_cua))
- {
- path ig_path;
- int nN = 0;
- char nNstr[BYTES_NUM_TEMP];
- Node *actual;
- actual=x->x_cua.davanter;
- do{
- strcpy(ig_path,PATH_TEMPORAL);
- sprintf(nNstr, "%d", nN);
- strcat(ig_path,nNstr);
- strcat(ig_path,".");
- strcat(ig_path,FORMAT_MINIATURA);
- /* post("reestablint la imatge %s", actual->pathFitxer); */
- // videogrid_afegir_imatge(x,actual->pathFitxer);
- convertir_img(actual->pathFitxer,FORMAT_MINIATURA, W_CELL, H_CELL, nN);
- sys_vgui("image create photo img%x%d -file %s\n",x,nN,ig_path);
- sys_vgui(".x%x.c create image %d %d -image img%x%d -tags %xS%d\n",
- glist_getcanvas(x->x_glist),text_xpix(&x->x_obj, x->x_glist) + getX(x,nN) + (W_CELL/2), text_ypix(&x->x_obj, x->x_glist) + getY(x,nN) + (H_CELL/2),x,nN,x,nN);
- actual = actual->seguent;
- nN++;
- }while(actual);
- }
- }
- else {
- sys_vgui(".x%x.c coords %xGRID %d %d %d %d\n", glist_getcanvas(glist), x, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),text_xpix(&x->x_obj, glist) + (x->x_num_col*W_CELL) + 1 + (x->x_num_col * GRUIX) + GRUIX, text_ypix(&x->x_obj, glist) + (x->x_num_fil*H_CELL) + 1 + (x->x_num_fil * GRUIX) + GRUIX);
- if(!cuaBuida(&x->x_cua))
- {
- int contador = 0;
- while(contador < numNodes(&x->x_cua)){
- sys_vgui(".x%x.c coords %xS%d \
- %d %d\n",
- glist_getcanvas(glist), x, contador,
- text_xpix(&x->x_obj, x->x_glist) + getX(x,contador) + (W_CELL/2), text_ypix(&x->x_obj, x->x_glist) + getY(x,contador) + (H_CELL/2));
- contador++;
- }
-
- /* char buf[800];
- sprintf(buf, "pdtk_videogrid_table %%s %s %d %d\n", x->x_name->s_name, x->x_num_fil, x->x_num_col);
- gfxstub_new(&x->x_obj.ob_pd, x, buf); */
- }
- if (x->x_pos_selected > -1){
- sys_vgui(".x%x.c coords %xGRASP %d %d %d %d\n", glist_getcanvas(glist), x,
- text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected), text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected),
- text_xpix(&x->x_obj, x->x_glist) + getX(x,x->x_pos_selected) + W_CELL, text_ypix(&x->x_obj, x->x_glist) + getY(x,x->x_pos_selected) + H_CELL);
- }
- sys_vgui(".x%x.c delete %xLINIA\n", glist_getcanvas(x->x_glist), x);
- }
- int xI = text_xpix(&x->x_obj, glist);
- int yI = text_ypix(&x->x_obj, glist);
- int xF = xI + (x->x_num_col * W_CELL) + ((x->x_num_col + 1) * GRUIX);
- int yF = yI + (x->x_num_fil * H_CELL) + ((x->x_num_fil + 1) * GRUIX);
- int vlines = 0;
- int xi = 0;
- while(vlines < x->x_num_col){
- xi = xI + getX(x,vlines) - GRUIX + 1;
- sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xi, yI, xi, yF, x->x_color_marc->s_name,GRUIX,x);
- vlines++;
- }
- xi = xi + W_CELL + GRUIX;
- sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xi, yI, xi, yF, x->x_color_marc->s_name,GRUIX,x);
- int hlines = 0;
- int yi = 0;
- while(hlines < x->x_num_fil){
- yi = yI + ((H_CELL + GRUIX) * hlines) + 2;
- sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xI, yi, xF, yi, x->x_color_marc->s_name,GRUIX,x);
- hlines++;
- }
- yi = yi + H_CELL + GRUIX;
- sys_vgui(".x%x.c create line %d %d %d %d -fill %s -width %d -tag %xLINIA\n", glist_getcanvas(x->x_glist), xI, yi, xF, yi, x->x_color_marc->s_name,GRUIX,x);
-}
-
-/* borra videogrid v 0.2 -- int toclear */
-void videogrid_erase(t_videogrid* x,t_glist* glist, int toclear)
-{
- int maxim = x->x_num_fil * x->x_num_col;
- path path_total;
- char contador_str[BYTES_NUM_TEMP];
- /* post("Entra a erase"); */
- /* elimina les imatges */
- int contador = 0;
- while(contador < numNodes(&x->x_cua)){
-
- sys_vgui(".x%x.c delete %xS%d\n", glist_getcanvas(x->x_glist), x, contador);
- strcpy(path_total,PATH_TEMPORAL);
- sprintf(contador_str,"%d", contador);
- strcat(path_total,contador_str);
- strcat(path_total,".");
- strcat(path_total,FORMAT_MINIATURA);
- if(unlink(path_total)){
- /* post("Imatge temporal %s eliminada\n",path_total); */
- }
- contador++;
- }
-
- /* elimina el grid v 0.2 -- excepte quan es fa un clear */
- if(toclear == 0){
- sys_vgui(".x%x.c delete %xGRID\n", glist_getcanvas(glist), x);
- sys_vgui(".x%x.c delete %xLINIA\n", glist_getcanvas(x->x_glist), x);
- }
- /* v 0.2 -- elimina el marc de la casella seleccionada */
- if(x->x_pos_selected > -1){
- sys_vgui(".x%x.c delete %xGRASP\n", glist_getcanvas(glist), x);
- x->x_pos_selected = -1;
- }
- eliminar_imatges_temporals(maxim);
-}
-
-/* mètode de la clase que escriu un missatge al rebre un bang */
-void videogrid_bang(t_videogrid *x)
-{
- /* post("Hello videogrid !!"); */
- escriuCua(&x->x_cua);
-}
-
-/* mètode de la classe que es dispara al rebre una entrada de missatge amb [putvideo +string( com a paràmetre */
-void videogrid_putvideo(t_videogrid *x, t_symbol *entrada)
-{
- /* comprova que existeixi el fitxer */
- FILE *fitxer;
- path e;
- strcpy(e,entrada->s_name);
- /* post("putvideo de %s\n", e); */
-
- fitxer = fopen(e,"r");
- if (!fitxer) {
- post("Videogrid: Problem opening file %s.\n",e);
- }
- else {
- /* post("s'encua la imatge %s\n", e); */
- videogrid_afegir_imatge(x,e);
- /*outlet_symbol(x->x_sortida, entrada);*/
- }
- /* post("putvideo amb img = %s\n", e); */
-}
-
-/* mètode de la classe que es dispara al rebre una entrada de missatge amb [putvideodir +string( com a paràmetre */
-void *videogrid_putvideodir_thread(void *z)
-{
- t_videogrid *x = (t_videogrid *)z;
- DIR *dirp;
- struct dirent * direntp;
- path nomImatge, directoriAnterior, pathActual;
- int numEncuats = 0, numPosDir = 0;
- int maxim;
- if ((dirp = opendir(x->x_dir_canvi)) == NULL)
- {
- post("Videogrid: Can not open folder %s.\n", x->x_dir_canvi);
- }else{
- maxim = x->x_num_fil * x->x_num_col;
- strcpy(directoriAnterior, x->x_dir_actual);
- strcpy(x->x_dir_actual, x->x_dir_canvi);
- /* si es el mateix directori entrat l'ultim busca la ultima imatge afegida per a seguir a encuant a partir d'ella en endavant */
- if(strcmp(directoriAnterior, x->x_dir_actual) == 0){
- /* post("Videogrid: Repeteix directori %s\n", x->x_dir_actual); */
- while ( (direntp = readdir( dirp )) != NULL ){
- /* es descarta el mateix directori, el directori anterior i tot el que no sigui un fitxer regular */
- if((strcmp(direntp->d_name,"..") != 0)&&(strcmp(direntp->d_name,".") != 0)&&(direntp->d_type == DT_REG)){
- /* incrementa la posició en el directori */
- numPosDir++;
- /* assolir la posició anterior en el directori */
- if(numPosDir > x->x_dir_pos){
- /* si el nombre de nodes encuats per aquest directori no supera el màxim encua el nou node */
- if(numEncuats < maxim){
- /* post("s'encua la imatge %s\n", direntp->d_name); */
- /* concatena el path i el nom de la imatge */
- strcpy(nomImatge,direntp->d_name);
- strcpy(pathActual,x->x_dir_actual);
- strcat(pathActual,"/");
- strcat(pathActual,nomImatge);
- pthread_mutex_lock(&x->x_lock);
- videogrid_afegir_imatge(x, pathActual);
- pthread_mutex_unlock(&x->x_lock);
- /* incrementa en 1 per indicar el nombre de nodes encuats per aquest directori */
- numEncuats++;
- /* es desa la posició en el directori de l'últim node encuat */
- x->x_dir_pos = numPosDir;
- }
- }
- }
- }
- }else{
- /* directori diferent omple la cua començant pel primer fitxer */
@@ Diff output truncated at 100000 characters. @@
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list