aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/src/gem.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'externals/gridflow/src/gem.cxx')
-rw-r--r--externals/gridflow/src/gem.cxx202
1 files changed, 0 insertions, 202 deletions
diff --git a/externals/gridflow/src/gem.cxx b/externals/gridflow/src/gem.cxx
deleted file mode 100644
index 4d1d00c3..00000000
--- a/externals/gridflow/src/gem.cxx
+++ /dev/null
@@ -1,202 +0,0 @@
-/*
- $Id: gem.c 4621 2009-11-01 21:18:17Z matju $
-
- GridFlow
- Copyright (c) 2001-2009 by Mathieu Bouchard
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
-
- See file ../COPYING for further informations on licensing terms.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-*/
-
-#include "gridflow.hxx.fcs"
-#include <GL/gl.h>
-/* summarising GEM's headers: GemState.h and GemPixUtil.h */
-struct imageStruct {
- imageStruct(); ~imageStruct();
- unsigned char* allocate(size_t size); unsigned char* allocate();
- unsigned char* reallocate(size_t size); unsigned char* reallocate();
- void clear();
- GLint xsize, ysize, csize;
- GLenum type, format;
- int notowned;
- void copy2Image(imageStruct *to) const;
- void copy2ImageStruct(imageStruct *to) const; // copy the imageStruct (but not the actual data)
- void refreshImage(imageStruct *to);
- void swapRedBlue ();
- void convertTo (imageStruct*to, GLenum dest_format=0);
- void convertFrom(imageStruct*from, GLenum dest_format=0);
- unsigned char *data;
- private:
- unsigned char *pdata;
- size_t datasize;
- public:
- GLboolean upsidedown;
-};
-struct pixBlock {
- pixBlock();
- imageStruct image;
- int newimage, newfilm;
-};
-class TexCoord {
- public:
- TexCoord() : s(0.f), t(0.f) {}
- TexCoord(float s_, float t_) : s(s_), t(t_) {}
- float s,t;
-};
-class GemState {
- public:
- int dirty, inDisplayList, lighting, smooth, texture;
- pixBlock *image;
- TexCoord *texCoords;
- int numTexCoords, multiTexUnits;
- float tickTime;
- GLenum drawType;
- int stackDepth[4];
- int VertexDirty;
- GLfloat *VertexArray; int VertexArraySize; int VertexArrayStride;
- GLfloat *ColorArray; int HaveColorArray;
- GLfloat *NormalArray; int HaveNormalArray;
- GLfloat *TexCoordArray; int HaveTexCoordArray;
- GemState();
- ~GemState();
- float texCoordX(int num) const {if (texture && numTexCoords > num) return texCoords[num].s; else return 0.;}
- float texCoordY(int num) const {if (texture && numTexCoords > num) return texCoords[num].t; else return 0.;}
- void reset();
-};
-/* end of summary */
-
-// in 0: gem
-// in 1: grid
-// out 0: gem
-\class GridToPix : FObject {
- P<BitPacking> bit_packing3;
- P<BitPacking> bit_packing4;
- pixBlock m_pixBlock;
- \attr bool yflip;
- \decl 0 gem_state (...);
- void render(GemState *state) {state->image = &m_pixBlock;}
- void startRendering () {m_pixBlock.newimage = 1;}
- GridToPix (BFObject *bself, MESSAGE) : FObject(bself,MESSAGE2) {
- yflip = false;
- imageStruct &im = m_pixBlock.image = imageStruct();
- im.ysize = 1;
- im.xsize = 1;
- im.csize = 4;
- im.format = GL_RGBA;
- im.type = GL_UNSIGNED_BYTE;
- im.allocate();
- *(int*)im.data = 0x0000ff;
- uint32 mask[4] = {0x0000ff,0x00ff00,0xff0000,0x000000};
- bit_packing3 = new BitPacking(is_le(),4,3,mask);
- bit_packing4 = new BitPacking(is_le(),4,4,mask);
- }
- ~GridToPix () {}
- \grin 1 int
-};
-\def 0 gem_state (...) {
- if (argc==2) render((GemState *)(void *)argv[1]); else startRendering();
- outlet_anything(bself->te_outlet,gensym("gem_state"),argc,argv);
-}
-GRID_INLET(1) {
- if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels");
- int c = in->dim->get(2);
- if (c!=3 && c!=4) RAISE("expecting 3 or 4 channels (got %d)",in->dim->get(2));
- in->set_chunk(1);
- imageStruct &im = m_pixBlock.image;
- im.clear();
- im.ysize = in->dim->get(0);
- im.xsize = in->dim->get(1);
- im.type = GL_UNSIGNED_BYTE;
- switch (in->dim->get(2)) {
- case 1: im.csize = 1; im.format = GL_LUMINANCE; break;
- case 3: im.csize = 4; im.format = GL_RGBA; break;
- case 4: im.csize = 4; im.format = GL_RGBA; break;
- default: RAISE("you shouldn't see this error message.");
- }
- im.allocate();
-} GRID_FLOW {
- uint8 *buf = (uint8 *)m_pixBlock.image.data;
- /*!@#$ it would be nice to skip the bitpacking when we can */
- long sxc = in->dim->prod(1);
- long sx = in->dim->v[1];
- long sy = in->dim->v[0];
- BitPacking *bp = in->dim->get(2)==3 ? bit_packing3 : bit_packing4;
- imageStruct &im = m_pixBlock.image;
- if (yflip) {for (long y= dex/sxc; n; data+=sxc, n-=sxc, y++) bp->pack(sx,data,buf+y*sx*im.csize);}
- else {for (long y=sy-1-dex/sxc; n; data+=sxc, n-=sxc, y--) bp->pack(sx,data,buf+y*sx*im.csize);}
-} GRID_END
-\end class {install("#to_pix",2,1); add_creator("#export_pix");}
-
-//------------------------------------------------------------------------
-
-\class GridFromPix : FObject {
- P<BitPacking> bit_packing;
- \attr bool yflip;
- \attr NumberTypeE cast;
- int channels;
- GridFromPix () : FObject(0,0,0,0) {RAISE("don't call this. this exists only to make GEM happy.");}
- GridFromPix (BFObject *bself, MESSAGE) : FObject(bself,MESSAGE2) {
- uint32 mask[4] = {0x0000ff,0x00ff00,0xff0000,0x000000};
- bit_packing = new BitPacking(is_le(),4,3,mask);
- yflip = false;
- cast = int32_e;
- channels = 3;
- }
- virtual ~GridFromPix () {}
- \decl 0 gem_state (...);
- \decl 0 colorspace (t_symbol *s);
- void render(GemState *state) {
- if (!state->image) {::post("gemstate has no pix"); return;}
- imageStruct &im = state->image->image;
- if (im.format != GL_RGBA ) {::post("can't produce grid from pix format %d",im.format); return;}
- if (im.type != GL_UNSIGNED_BYTE) {::post("can't produce grid from pix type %d", im.type ); return;}
- int32 v[] = { im.ysize, im.xsize, channels };
- GridOutlet out(this,0,new Dim(3,v),cast);
- long sxc = im.xsize*channels;
- long sy = v[0];
- if (channels==3) {
- #define FOO(T) {T buf[sxc]; \
- for (int y=0; y<v[0]; y++) { \
- uint8 *data = (uint8 *)im.data+im.xsize*im.csize*(yflip?y:sy-1-y); \
- bit_packing->unpack(im.xsize,data,buf); out.send(sxc,buf);}}
- TYPESWITCH(cast,FOO,)
- #undef FOO
- } else {
- for (int y=0; y<v[0]; y++) out.send(sxc,(uint8 *)im.data+sxc*(yflip?y:sy-1-y));
- }
- }
-};
-\def 0 colorspace (t_symbol *s) {
- if (s==gensym("rgb" )) channels=3; else
- if (s==gensym("rgba")) channels=4; else
- RAISE("unknown colorspace '%s'",s->s_name);
-}
-\def 0 gem_state (...) {if (argc==2) render((GemState *)(void *)argv[1]);}
-\end class {install("#from_pix",2,1); add_creator("#import_pix");}
-
-//------------------------------------------------------------------------
-
-void startup_gem () {
- \startall
-}
-
-/*
-virtual void processRGBAImage(imageStruct &image) {}
-virtual void processRGBImage (imageStruct &image) {}
-virtual void processGrayImage(imageStruct &image) {}
-virtual void processYUVImage (imageStruct &image) {}
-*/
-
generated by cgit v1.2.1 (git 2.18.0) at 2024-07-08 07:11:18 +0000