- Reestructuración de ficheros y directorios general
- merge v0.01 --> Añadido fileselector - Añadidas fuentes de Gem y Pure Data - pix2jpg incluído en Gem. Archivos de construcción de Gem modificados. - Añadido fichero ompiling.txt con instrucciones de compilación
This commit is contained in:
Santi Noreña
parent
c9adfd020b
commit
e85d191b46
3100 changed files with 775434 additions and 3073 deletions
38
Gem/plugins/videoSGI/Makefile.am
Normal file
38
Gem/plugins/videoSGI/Makefile.am
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
|
||||
ACLOCAL_AMFLAGS = -I $(top_srcdir)/m4
|
||||
AM_CPPFLAGS = -I$(top_srcdir)/src @GEM_EXTERNAL_CPPFLAGS@
|
||||
|
||||
pkglib_LTLIBRARIES=
|
||||
gemhelpdir=$(pkglibdir)
|
||||
dist_gemhelp_DATA =
|
||||
|
||||
if IRIX
|
||||
pkglib_LTLIBRARIES+=gem_videoSGI.la
|
||||
dist_gemhelp_DATA +=sgi-videoplugin.pd
|
||||
endif
|
||||
|
||||
gem_videoSGI_la_CXXFLAGS =
|
||||
gem_videoSGI_la_LDFLAGS = -module -avoid-version -shared
|
||||
if WINDOWS
|
||||
gem_videoSGI_la_LDFLAGS += -no-undefined
|
||||
endif
|
||||
gem_videoSGI_la_LIBADD =
|
||||
|
||||
# RTE
|
||||
gem_videoSGI_la_CXXFLAGS += @GEM_RTE_CFLAGS@ @GEM_ARCH_CXXFLAGS@
|
||||
gem_videoSGI_la_LDFLAGS += @GEM_RTE_LIBS@ @GEM_ARCH_LDFLAGS@
|
||||
# flags for building Gem externals
|
||||
gem_videoSGI_la_CXXFLAGS += @GEM_EXTERNAL_CFLAGS@
|
||||
gem_videoSGI_la_LIBADD += -L$(top_builddir) @GEM_EXTERNAL_LIBS@
|
||||
# gem_videoSGI_la @MOREFLAGS@
|
||||
|
||||
# Dependencies
|
||||
## none
|
||||
|
||||
# convenience symlinks
|
||||
include $(srcdir)/../symlink_ltlib.mk
|
||||
|
||||
|
||||
### SOURCES
|
||||
gem_videoSGI_la_SOURCES= videoSGI.cpp videoSGI.h
|
||||
|
||||
2
Gem/plugins/videoSGI/sgi-videoplugin.pd
Normal file
2
Gem/plugins/videoSGI/sgi-videoplugin.pd
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
#N canvas 8 49 505 112 10;
|
||||
#X text 89 47 Nothing special about this backend...;
|
||||
401
Gem/plugins/videoSGI/videoSGI.cpp
Normal file
401
Gem/plugins/videoSGI/videoSGI.cpp
Normal file
|
|
@ -0,0 +1,401 @@
|
|||
////////////////////////////////////////////////////////
|
||||
//
|
||||
// GEM - Graphics Environment for Multimedia
|
||||
//
|
||||
// zmoelnig@iem.kug.ac.at
|
||||
//
|
||||
// Implementation file
|
||||
//
|
||||
// Copyright (c) 1997-1998 Mark Danks.
|
||||
// Copyright (c) Günther Geiger.
|
||||
// Copyright (c) 2001-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
|
||||
// For information on usage and redistribution, and for a DISCLAIMER OF ALL
|
||||
// WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
#ifdef HAVE_CONFIG_H
|
||||
# include "config.h"
|
||||
#endif
|
||||
|
||||
|
||||
#include "videoSGI.h"
|
||||
#include "plugins/PluginFactory.h"
|
||||
using namespace gem::plugins;
|
||||
|
||||
#include "Gem/RTE.h"
|
||||
|
||||
#ifdef HAVE_VL_VL_H
|
||||
# include <unistd.h>
|
||||
# include <dmedia/vl_vino.h>
|
||||
|
||||
REGISTER_VIDEOFACTORY("sgi", videoSGI);
|
||||
|
||||
|
||||
/*
|
||||
from pix_indycam:
|
||||
|
||||
"zoom" -> zoomMess
|
||||
"bright" -> brightMess
|
||||
"contrast" -> contrastMess
|
||||
"hue" -> hueMess
|
||||
"sat" -> satMess
|
||||
*/
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
//
|
||||
// video
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
// Constructor
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
videoSGI :: videoSGI()
|
||||
: videoBase("sgi", 0),
|
||||
m_haveVideo(0), m_swap(1), m_colorSwap(0),
|
||||
m_svr(NULL), m_drn(NULL), m_src(NULL), m_path(NULL)
|
||||
{
|
||||
provide("indy");
|
||||
provide("analog");
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////
|
||||
// Destructor
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
videoSGI :: ~videoSGI()
|
||||
{
|
||||
stopTransfer();
|
||||
close();
|
||||
cleanPixBlock();
|
||||
}
|
||||
|
||||
bool videoSGI :: openDevice()
|
||||
{
|
||||
// Connect to the daemon
|
||||
if ( !(m_svr = vlOpenVideo("")) )
|
||||
{
|
||||
error("GEM: videoSGI: Unable to open video");
|
||||
goto cleanup;
|
||||
}
|
||||
// Set up a drain node in memory
|
||||
m_drn = vlGetNode(m_svr, VL_DRN, VL_MEM, VL_ANY);
|
||||
|
||||
// Set up a source node on any video source
|
||||
m_src = vlGetNode(m_svr, VL_SRC, VL_VIDEO, VL_ANY);
|
||||
|
||||
// Create a path using the first device that will support it
|
||||
m_path = vlCreatePath(m_svr, VL_ANY, m_src, m_drn);
|
||||
|
||||
// Set up the hardware for and define the usage of the path
|
||||
if ( (vlSetupPaths(m_svr, (VLPathList)&m_path, 1, VL_SHARE, VL_SHARE)) < 0 )
|
||||
{
|
||||
error("GEM: videoSGI: Unable to setup video path");
|
||||
goto cleanup;
|
||||
}
|
||||
|
||||
// Set the packing to RGBA
|
||||
VLControlValue val;
|
||||
|
||||
// first try to see if it can handle RGBA format
|
||||
|
||||
// according to vl.h, this is really RGBA (OpenGL format)
|
||||
val.intVal = VL_PACKING_ABGR_8;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_PACKING, &val) )
|
||||
{
|
||||
// nope, so try ABGR, and set the color swapping
|
||||
// according to vl.h, this is really ABGR (IrisGL format)
|
||||
val.intVal = VL_PACKING_RGBA_8;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_PACKING, &val) )
|
||||
{
|
||||
post("GEM: videoSGI: Unable to set the video packing");
|
||||
goto cleanup;
|
||||
}
|
||||
post("GEM: videoSGI: Video has to color swap (ABGR to RGBA)");
|
||||
m_colorSwap = 1;
|
||||
}
|
||||
|
||||
// Get the video size
|
||||
|
||||
VLControlValue value;
|
||||
if(m_width>0) {
|
||||
value.xyVal.x = m_width;
|
||||
value.xyVal.y = m_height;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_SIZE, &value) ) {
|
||||
vlGetControl(m_svr, m_path, m_drn, VL_SIZE, &value);
|
||||
|
||||
post("GEM: videoSGI: dimen error: wanted %dx%d got %dx%d", m_width, m_height, value.xyVal.x, value.xyVal.y);
|
||||
m_width =value.xyVal.x;
|
||||
m_height=value.xyVal.y;
|
||||
}
|
||||
}
|
||||
vlGetControl(m_svr, m_path, m_drn, VL_SIZE, &value);
|
||||
m_width =value.xyVal.x;
|
||||
m_height=value.xyVal.y;
|
||||
|
||||
m_pixBlock.image.xsize = m_width;
|
||||
m_pixBlock.image.ysize = m_height;
|
||||
m_pixBlock.image.reallocate();
|
||||
|
||||
return true;
|
||||
cleanup:
|
||||
|
||||
closeDevice();
|
||||
return false;
|
||||
}
|
||||
|
||||
void videoSGI :: closeDevice() {
|
||||
m_src=NULL;
|
||||
m_drn=NULL;
|
||||
if(m_svr) {
|
||||
if(m_path)
|
||||
vlDestroyPath(m_svr, m_path);
|
||||
|
||||
vlCloseVideo(m_svr);
|
||||
}
|
||||
|
||||
m_path=NULL;
|
||||
m_svr=NULL;
|
||||
}
|
||||
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////
|
||||
// render
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
pixBlock *videoSGI::getFrame(void) {
|
||||
{
|
||||
if(!(m_haveVideo && m_capturing))return NULL;
|
||||
|
||||
VLInfoPtr info = vlGetLatestValid(m_svr, m_buffer);
|
||||
while (!info)
|
||||
{
|
||||
sginap(1);
|
||||
info = vlGetLatestValid(m_svr, m_buffer);
|
||||
}
|
||||
|
||||
// Get a pointer to the frame
|
||||
unsigned char *dataPtr = (unsigned char *)(vlGetActiveRegion(m_svr, m_buffer, info));
|
||||
m_pixBlock.image.fromABGR(dataPtr);
|
||||
|
||||
// free the frame
|
||||
vlPutFree(m_svr, m_buffer);
|
||||
|
||||
m_pixBlock.newimage = 1;
|
||||
return &m_pixBlock;
|
||||
|
||||
}
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////
|
||||
// startTransfer
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
bool videoSGI :: startTransfer()
|
||||
{
|
||||
if(NULL=m_svr || NULL=m_path || NULL==m_drn || NULL=m_src)return false;
|
||||
|
||||
// Create and register a buffer for 1 frame
|
||||
m_buffer = vlCreateBuffer(m_svr, m_path, m_drn, 1);
|
||||
if ( !m_buffer )
|
||||
{
|
||||
error("GEM: videoSGI: Unable to allocate buffer");
|
||||
return false;
|
||||
}
|
||||
|
||||
vlRegisterBuffer(m_svr, m_path, m_drn, m_buffer);
|
||||
|
||||
// Begin the data transfer
|
||||
if ( vlBeginTransfer(m_svr, m_path, 0, NULL) )
|
||||
{
|
||||
error("GEM: videoSGI: Unable to start video transfer");
|
||||
vlDeregisterBuffer(m_svr, m_path, m_drn, m_buffer);
|
||||
vlDestroyBuffer(m_svr, m_buffer);
|
||||
return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////
|
||||
// stopTransfer
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
bool videoSGI :: stopTransfer()
|
||||
{
|
||||
if ( !m_capturing ) return false;
|
||||
if(NULL=m_svr || NULL=m_path || NULL==m_drn || NULL=m_src)return false;
|
||||
|
||||
// Clean up the buffer
|
||||
vlEndTransfer(m_svr, m_path);
|
||||
vlDeregisterBuffer(m_svr, m_path, m_drn, m_buffer);
|
||||
vlDestroyBuffer(m_svr, m_buffer);
|
||||
m_buffer=NULL;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
#if 0
|
||||
////////////////////////////////////////////////////////
|
||||
// offsetMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoSGI :: offsetMess(int x, int y)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
post("GEM: videoSGI: Connect to video first");
|
||||
return;
|
||||
}
|
||||
|
||||
// stop the transfer and destroy the buffer
|
||||
if ( !stopTransfer() )
|
||||
{
|
||||
post("GEM: videoSGI: error stopping transfer");
|
||||
return;
|
||||
}
|
||||
|
||||
VLControlValue value;
|
||||
value.xyVal.x = x;
|
||||
value.xyVal.y = y;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_OFFSET, &value) )
|
||||
{
|
||||
post("GEM: videoSGI: offset error");
|
||||
startTransfer();
|
||||
return;
|
||||
}
|
||||
|
||||
// start the transfer and rebuild the buffer
|
||||
if ( !startTransfer() )
|
||||
{
|
||||
post("GEM: videoSGI: error starting transfer");
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
// zoomMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoINDY :: zoomMess(int num, int denom)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
error("Connect to video first");
|
||||
return;
|
||||
}
|
||||
VLControlValue value;
|
||||
value.fractVal.numerator = num;
|
||||
value.fractVal.denominator = denom;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_ZOOM, &value) )
|
||||
error("zoom error");
|
||||
}
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
// brightMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoINDY :: brightMess(int val)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
error("Connect to video first");
|
||||
return;
|
||||
}
|
||||
VLControlValue value;
|
||||
value.intVal = val;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_BRIGHTNESS, &value) )
|
||||
error("problem setting brightness");
|
||||
}
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
// contrastMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoINDY :: contrastMess(int val)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
error("Connect to video first");
|
||||
return;
|
||||
}
|
||||
VLControlValue value;
|
||||
value.intVal = val;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_CONTRAST, &value) )
|
||||
error("problem setting contrast");
|
||||
}
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
// hueMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoINDY :: hueMess(int val)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
error("Connect to video first");
|
||||
return;
|
||||
}
|
||||
VLControlValue value;
|
||||
value.intVal = val;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_HUE, &value) )
|
||||
error("problem setting hue");
|
||||
}
|
||||
|
||||
/////////////////////////////////////////////////////////
|
||||
// satMess
|
||||
//
|
||||
/////////////////////////////////////////////////////////
|
||||
void videoINDY :: satMess(int val)
|
||||
{
|
||||
if (!m_haveVideo)
|
||||
{
|
||||
error("Connect to video first");
|
||||
return;
|
||||
}
|
||||
VLControlValue value;
|
||||
value.intVal = val;
|
||||
if ( vlSetControl(m_svr, m_path, m_src, VL_VINO_INDYCAM_SATURATION, &value) )
|
||||
error("problem setting saturation");
|
||||
}
|
||||
|
||||
|
||||
#endif
|
||||
///////////////////////////////////////////////////////
|
||||
// dimenMess
|
||||
//
|
||||
////////////////////////////////////////////////////////
|
||||
bool videoSGI :: setDimen(int x, int y, int leftmargin, int rightmargin, int topmargin, int bottommargin){
|
||||
{
|
||||
bool result=true;
|
||||
m_width=x;
|
||||
m_height=y
|
||||
|
||||
if(NULL=m_svr || NULL=m_path || NULL==m_drn || NULL=m_src)return false;
|
||||
if(!m_capturing)return false;
|
||||
|
||||
stopTransfer();
|
||||
|
||||
VLControlValue value;
|
||||
value.xyVal.x = m_width;
|
||||
value.xyVal.y = m_height;
|
||||
if ( vlSetControl(m_svr, m_path, m_drn, VL_SIZE, &value) ) {
|
||||
vlGetControl(m_svr, m_path, m_drn, VL_SIZE, &value);
|
||||
|
||||
post("GEM: videoSGI: dimen error: wanted %dx%d got %dx%d", m_width, m_height, value.xyVal.x, value.xyVal.y);
|
||||
m_width =value.xyVal.x;
|
||||
m_height=value.xyVal.y;
|
||||
result=false;
|
||||
}
|
||||
m_pixBlock.image.xsize = m_width;
|
||||
m_pixBlock.image.ysize = m_height;
|
||||
m_pixBlock.image.reallocate();
|
||||
|
||||
start();
|
||||
return result;
|
||||
}
|
||||
#else /* !HAVE_VL_VL_H */
|
||||
videoSGI :: videoSGI() : videoBase("") { }
|
||||
videoSGI :: ~videoSGI() { }
|
||||
#endif /* !HAVE_VL_VL_H */
|
||||
83
Gem/plugins/videoSGI/videoSGI.h
Normal file
83
Gem/plugins/videoSGI/videoSGI.h
Normal file
|
|
@ -0,0 +1,83 @@
|
|||
/*-----------------------------------------------------------------
|
||||
|
||||
GEM - Graphics Environment for Multimedia
|
||||
|
||||
Load an video into a pix block
|
||||
|
||||
Copyright (c) 1997-1999 Mark Danks. mark@danks.org
|
||||
Copyright (c) Günther Geiger. geiger@epy.co.at
|
||||
Copyright (c) 2001-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
|
||||
For information on usage and redistribution, and for a DISCLAIMER OF ALL
|
||||
WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
|
||||
|
||||
Linux version by Miller Puckette. msp@ucsd.edu
|
||||
|
||||
-----------------------------------------------------------------*/
|
||||
|
||||
#ifndef _INCLUDE_GEMPLUGIN__VIDEOSGI_VIDEOSGI_H_
|
||||
#define _INCLUDE_GEMPLUGIN__VIDEOSGI_VIDEOSGI_H_
|
||||
|
||||
#include "plugins/videoBase.h"
|
||||
|
||||
#ifdef HAVE_VL_VL_H
|
||||
# include <vl/vl.h>
|
||||
#endif
|
||||
|
||||
/*-----------------------------------------------------------------
|
||||
-------------------------------------------------------------------
|
||||
CLASS
|
||||
pix_video
|
||||
|
||||
captures a video on SGI machines
|
||||
|
||||
KEYWORDS
|
||||
pix
|
||||
|
||||
-----------------------------------------------------------------*/
|
||||
namespace gem { namespace plugins {
|
||||
class GEM_EXPORT videoSGI : public videoBase {
|
||||
public:
|
||||
//////////
|
||||
// Constructor
|
||||
videoSGI(void);
|
||||
|
||||
//////////
|
||||
// Destructor
|
||||
virtual ~videoSGI(void);
|
||||
|
||||
#ifdef HAVE_VL_VL_H
|
||||
////////
|
||||
// open the video-device
|
||||
virtual bool openDevice(void);
|
||||
virtual void closeDevice(void);
|
||||
|
||||
//////////
|
||||
// Start up the video device
|
||||
// [out] int - returns 0 if bad
|
||||
bool startTransfer(void);
|
||||
//////////
|
||||
// Stop the video device
|
||||
// [out] int - returns 0 if bad
|
||||
bool stopTransfer(void);
|
||||
|
||||
//////////
|
||||
// get the next frame
|
||||
pixBlock *getFrame(void);
|
||||
|
||||
//////////
|
||||
// Set the video dimensions
|
||||
virtual bool setDimen(int x, int y, int leftmargin, int rightmargin, int topmargin, int bottommargin);
|
||||
|
||||
|
||||
protected:
|
||||
|
||||
VLServer m_svr;
|
||||
VLPath m_path;
|
||||
VLNode m_src;
|
||||
VLNode m_drn;
|
||||
VLBuffer m_buffer;
|
||||
#endif /*HAVE_VL_VL_H */
|
||||
};
|
||||
};};
|
||||
|
||||
#endif // for header file
|
||||
Loading…
Add table
Add a link
Reference in a new issue