added texture mixing tests

time to gather everything

puredata/extra/fog.frag

@@ -0,0 +1,146 @@
+/////////////////////////start Pd Header
+// 2015 Sofy Yuditskaya
+// put all the shadertoy constants here for ease of use
+
+uniform vec3      iResolution;           // viewport resolution (in pixels)
+uniform float     iTime;           // shader playback time (in seconds)
+uniform vec4      iMouse;                // mouse pixel coords. xy: current (if MLB down), zw: click
+
+// changed samplerXX to sampler2D so it would be recognized, you can also change it to samplerCube as needed
+
+// uniform sampler2D iChannel0;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel1;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel2;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel3;          // input channel. XX = 2D/Cube
+
+// uniform vec4      iDate;                 // (year, month, day, time in seconds)
+// uniform float     iSampleRate;           // sound sample rate (i.e., 44100)
+
+void mainImage(out vec4 fragColor, in vec2 fragCoord);
+
+// changelog for Pd:
+//running mainImage() from main()
+// declared Shadertoy's usual variables above
+// declared iChannel0...3 variables individually
+
+void main(  )
+{
+    mainImage(gl_FragColor, gl_FragCoord.xy);
+}
+//paste ShaderToy code below
+/////////////////////////end Pd Header
+
+// Created by inigo quilez - iq/2013
+// License Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
+
+uniform float MARCH_DIST ;//     2.5
+uniform int MARCH_COUNT ;//    20
+uniform int SCATTER_DEPTH ;//  10
+uniform float SCATTER_DIST ;//   2.5
+uniform float SPHERE_RADIUS ;//  4.0
+uniform float SPHERE_DENSITY ;// 3.0
+//#define LIGHT_POS vec3(1.0 * cos(iTime), 10.0, 15.0)
+#define LIGHT_COLOR vec3(1.0, 1.0, 1.0)
+uniform float LIGHT_COLOR_SCALE ;// 1.2  
+#define ABSORPTION_COLOR vec3(1.0, 1.0, 1.0) 
+uniform float ABSORPTION_COLOR_SCALE ;// 0.0028
+#define VOLUME_COLOR vec3(1.0, 1.0, 1.0)
+uniform float VOLUME_COLOR_SCALE ;//0.045 * 
+#define BG_COLOR vec3(0.2, 0.2, 0.2)
+uniform float BG_COLOR_SCALE ;
+uniform float NOISE_SCALE;// 1.2
+
+
+float hash(float n)
+{
+    return fract(sin(n)*43758.5453);
+}
+
+float noise(in vec3 x)
+{
+    vec3 p = floor(x);
+    vec3 f = fract(x);
+
+    f = f * f * (3.0 - 2.0 * f);
+ 
+    float n = p.x + p.y * 57.0 + 113.0 * p.z;
+
+    float res = mix(mix(mix( hash(n+  0.0), hash(n+  1.0),f.x),
+                        mix( hash(n+ 57.0), hash(n+ 58.0),f.x),f.y),
+                    mix(mix( hash(n+113.0), hash(n+114.0),f.x),
+                        mix( hash(n+170.0), hash(n+171.0),f.x),f.y),f.z);
+    return res;
+}
+
+float fbm( vec3 p )
+{
+    float f;
+    f += 0.2500*noise( p ); p = p*2.03;
+    f += 0.1250*noise( p );
+    return f;
+}
+
+float get_density_at_pos(vec3 p)
+{
+    float d = (SPHERE_RADIUS - length(p)) / SPHERE_RADIUS;
+    float noise_mult = fbm(NOISE_SCALE * (p + vec3(-1.*iTime, 0.0, 0.5*iTime)));
+    return clamp(noise_mult * SPHERE_DENSITY * d, 0.0, 1.0);
+}
+
+//TODO: actual Rayleigh scattering
+vec3 get_scatter_color(vec3 p)
+{
+    float absorption = 0.0;
+    vec2 m = 2.0 * iMouse.xy / iResolution.xy - 1.0;
+    vec3 light_pos = vec3(20.0 * m, 10.0);
+    vec3 light_dir = normalize(light_pos - p);
+    
+    float t = 0.0;
+    float rd = SCATTER_DIST / float(SCATTER_DEPTH);
+    
+    for(int i = 0; i < SCATTER_DEPTH; i++)
+    {
+    	vec3 sp = p + t * light_dir;
+        float d = get_density_at_pos(sp);
+        absorption += d;
+    	t+= rd;
+    }
+    
+   
+    return clamp((LIGHT_COLOR * LIGHT_COLOR_SCALE) * (VOLUME_COLOR * VOLUME_COLOR_SCALE ) - absorption * (ABSORPTION_COLOR * ABSORPTION_COLOR_SCALE), 0.0, 1.0);
+}
+
+
+void mainImage( out vec4 fragColor, in vec2 fragCoord )
+{
+	//1 : retrieve the fragment's coordinates
+	vec2 uv = ( fragCoord.xy / iResolution.xy ) * 2.0 - 1.0;
+	//preserve aspect ratio
+	uv.x *= iResolution.x / iResolution.y;
+
+
+	//2 : camera position and ray direction
+	vec3 pos = vec3( 0.,0.,-3.);
+	vec3 dir = normalize( vec3( uv, 1. ) );
+
+	vec3 ip;
+    float t = 0.0;
+    float density = 0.0;
+    vec3 march_color = BG_COLOR;
+    float rd = MARCH_DIST / float(MARCH_COUNT);
+    for(int i = 0; i < MARCH_COUNT; i++)
+    {
+        ip = pos + dir * t;
+        float d = get_density_at_pos(ip);
+
+        density += d;
+        vec3 c = get_scatter_color(ip);
+        march_color += density * c;
+        t += rd;
+    }
+    
+
+	//4 : apply color to this fragment
+	fragColor = vec4(march_color, 1.0);
+
+}

puredata/extra/fogBlack.frag

@@ -0,0 +1,140 @@
+/////////////////////////start Pd Header
+// 2015 Sofy Yuditskaya
+// put all the shadertoy constants here for ease of use
+
+uniform vec3      iResolution;           // viewport resolution (in pixels)
+uniform float     iTime;           // shader playback time (in seconds)
+uniform vec4      iMouse;                // mouse pixel coords. xy: current (if MLB down), zw: click
+uniform float	  SPHERE_DENSITY;	
+
+// changed samplerXX to sampler2D so it would be recognized, you can also change it to samplerCube as needed
+
+// uniform sampler2D iChannel0;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel1;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel2;          // input channel. XX = 2D/Cube
+// uniform sampler2D iChannel3;          // input channel. XX = 2D/Cube
+
+// uniform vec4      iDate;                 // (year, month, day, time in seconds)
+// uniform float     iSampleRate;           // sound sample rate (i.e., 44100)
+
+void mainImage(out vec4 fragColor, in vec2 fragCoord);
+
+// changelog for Pd:
+//running mainImage() from main()
+// declared Shadertoy's usual variables above
+// declared iChannel0...3 variables individually
+
+void main(  )
+{
+    mainImage(gl_FragColor, gl_FragCoord.xy);
+}
+//paste ShaderToy code below
+/////////////////////////end Pd Header
+#define MARCH_DIST      2.5
+#define MARCH_COUNT     20
+#define SCATTER_DEPTH   10
+#define SCATTER_DIST    2.5
+#define SPHERE_RADIUS   2.
+// #define SPHERE_DENSITY  2.5
+//#define LIGHT_POS vec3(1.0 * cos(iTime), 10.0, 15.0)
+#define LIGHT_COLOR 1.7 * vec4(1.0, 1.0,1., 0.)
+#define ABSORPTION_COLOR 0.0028 * vec4(0.1, 0.1, 0.1, 0.5)
+#define VOLUME_COLOR 0.045 * vec4(0.5, 0.5, 0.5,0.)
+#define NOISE_SCALE 1.2
+#define BG_COLOR 1.3 * vec4(0.05, 0.05, 0.050, 0.05)
+
+float hash(float n)
+{
+    return fract(sin(n)*43758.5453);
+}
+
+float noise(in vec3 x)
+{
+    vec3 p = floor(x);
+    vec3 f = fract(x);
+
+    f = f * f * (3.0 - 2.0 * f);
+ 
+    float n = p.x + p.y * 57.0 + 113.0 * p.z;
+
+    float res = mix(mix(mix( hash(n+  0.0), hash(n+  1.0),f.x),
+                        mix( hash(n+ 57.0), hash(n+ 58.0),f.x),f.y),
+                    mix(mix( hash(n+113.0), hash(n+114.0),f.x),
+                        mix( hash(n+170.0), hash(n+171.0),f.x),f.y),f.z);
+    return res;
+}
+
+float fbm( vec3 p )
+{
+    float f;
+    f  = 0.5000*noise( p ); p = p*2.02;
+    f += 0.2500*noise( p ); p = p*2.03;
+    f += 0.1250*noise( p );
+    return f;
+}
+
+float get_density_at_pos(vec3 p)
+{
+    float d = (SPHERE_RADIUS - length(p)) / SPHERE_RADIUS;
+    float noise_mult = fbm(NOISE_SCALE * (p + vec3(0.0, 0.0, 0.3*iTime)));
+    return clamp(noise_mult * SPHERE_DENSITY * d, 0.0, 1.0);
+}
+
+//TODO: actual Rayleigh scattering
+vec4 get_scatter_color(vec3 p)
+{
+    float absorption = 0.0;
+    vec2 m = 2.0 * iMouse.xy / iResolution.xy - 1.0;
+    vec3 light_pos = vec3(20.0 * m, 10.0);
+    vec3 light_dir = normalize(light_pos - p);
+    
+    float t = 0.0;
+    float rd = SCATTER_DIST / float(SCATTER_DEPTH);
+    
+    for(int i = 0; i < SCATTER_DEPTH; i++)
+    {
+    	vec3 sp = p + t * light_dir;
+        float d = get_density_at_pos(sp);
+        absorption += d;
+    	t+= rd;
+    }
+    
+   
+    return clamp(LIGHT_COLOR * VOLUME_COLOR - absorption * ABSORPTION_COLOR, 0.0, 1.0);
+}
+
+
+void mainImage( out vec4 fragColor, in vec2 fragCoord )
+{
+	//1 : retrieve the fragment's coordinates
+	vec2 uv = ( fragCoord.xy / iResolution.xy ) * 2.0 - 1.0;
+	//preserve aspect ratio
+	uv.x *= iResolution.x / iResolution.y;
+
+
+	//2 : camera position and ray direction
+	vec3 pos = vec3( 0.,0.,-3.);
+	vec3 dir = normalize( vec3( uv, 1. ) );
+
+	vec3 ip;
+    float t = 0.0;
+    float density = 0.0;
+    vec4 march_color = BG_COLOR;
+    float rd = MARCH_DIST / float(MARCH_COUNT);
+    for(int i = 0; i < MARCH_COUNT; i++)
+    {
+        ip = pos + dir * t;
+        float d = get_density_at_pos(ip);
+
+        density += d;
+        vec4 c = get_scatter_color(ip);
+        march_color += density * c;
+        t += rd;
+    }
+    
+
+	//4 : apply color to this fragment
+	fragColor = vec4(1. - march_color);
+	fragColor.a = fragColor.r ;
+
+}

puredata/extra/spout/spout-help.pd

@@ -0,0 +1,54 @@
+#N canvas 635 313 887 581 10;
+#X obj 337 391 spoutReceive truc;
+#X obj 229 170 gemwin;
+#X obj 309 181 gemhead;
+#X msg 227 130 create \, 1 \, frame 60;
+#X msg 174 133 destroy;
+#X obj 769 439 spoutSend tata;
+#X obj 761 386 gemhead;
+#X obj 345 214 gemframebuffer;
+#X obj 341 311 translateXYZ 0 0 -4;
+#X msg 424 142 rectangle 1 \, dimen 1024 1024;
+#X msg 815 397 set ratata;
+#X obj 600 429 pix_texture;
+#X obj 600 511 cube 1;
+#X obj 585 298 gemhead 51;
+#X obj 322 279 spigot 1;
+#X obj 370 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 600 471 rotateXYZ 20 20 20;
+#X obj 702 417 f;
+#X obj 702 438 + 1;
+#X obj 693 387 b;
+#X obj 419 104 loadbang;
+#X obj 533 367 gemframebuffer;
+#X obj 533 388 translateXYZ 0 0 -4;
+#X msg 419 359 set toto;
+#X connect 2 0 7 0;
+#X connect 2 0 14 0;
+#X connect 3 0 1 0;
+#X connect 4 0 1 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 0;
+#X connect 7 1 11 1;
+#X connect 8 0 0 0;
+#X connect 9 0 7 0;
+#X connect 9 0 21 0;
+#X connect 10 0 5 0;
+#X connect 11 0 16 0;
+#X connect 13 0 11 0;
+#X connect 13 0 19 0;
+#X connect 13 0 21 0;
+#X connect 14 0 0 0;
+#X connect 15 0 14 1;
+#X connect 16 0 12 0;
+#X connect 17 0 18 0;
+#X connect 18 0 17 1;
+#X connect 18 0 16 2;
+#X connect 18 0 16 3;
+#X connect 19 0 17 0;
+#X connect 20 0 9 0;
+#X connect 21 0 22 0;
+#X connect 21 1 5 1;
+#X connect 22 0 11 0;
+#X connect 23 0 0 0;

puredata/extra/spout/spoutReceive.cpp

@@ -0,0 +1,148 @@
+////////////////////////////////////////////////////////
+//
+// GEM - Graphics Environment for Multimedia
+//
+// Implementation file
+//
+// Copyright (c) 2002-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
+//	zmoelnig@iem.kug.ac.at
+//  For information on usage and redistribution, and for a DISCLAIMER
+//  *  OF ALL WARRANTIES, see the file, "GEM.LICENSE.TERMS"
+//
+//  this file has been generated...
+////////////////////////////////////////////////////////
+
+#include "spoutReceive.h"
+
+CPPEXTERN_NEW_WITH_ONE_ARG(spoutReceive, t_symbol*,A_DEFSYM);
+/////////////////////////////////////////////////////////
+//
+// GEMglViewport
+//
+/////////////////////////////////////////////////////////
+// Constructor
+//
+spoutReceive :: spoutReceive	(t_symbol* s)
+{
+	w=512;
+	h=512;
+	texture=false;
+	bInitialized	= false;
+	spoutreceiver = GetSpout();        // Create a Spout receiver object
+
+	bMemoryMode = false;
+	if (strlen(s->s_name)!=0){s2=s;texture=true;}
+	m_outTexInfo = outlet_new(this->x_obj, 0);
+
+}
+/////////////////////////////////////////////////////////
+// Destructor
+//
+spoutReceive :: ~spoutReceive () {
+	if(num != 0) glDeleteTextures(1, &num);
+	spoutreceiver->ReleaseReceiver(); 
+	delete spoutreceiver;
+	spoutreceiver = NULL;
+
+}
+
+/////////////////////////////////////////////////////////
+// Render
+//
+void spoutReceive :: render(GemState *state) {
+	
+	unsigned int width=500, height=500;
+	if(!bInitialized) {
+			sym[0]=NULL;
+		if(spoutreceiver->CreateReceiver(sym, width, height, false)) {
+			//bMemoryMode = spoutreceiver->GetMemoryShareMode();
+			w=width;
+			h=height;
+			//initTexture();
+
+			bInitialized = true;
+			if (texture)setMess(s2);
+			return; 
+		} 
+		else {
+		}
+	}
+
+	if(bInitialized) {
+	//initTexture();
+		spoutreceiver->DrawSharedTexture();	
+		
+	}
+}
+			
+void spoutReceive::initTexture()
+{
+if(num != 0) {
+		glDeleteTextures(1, &num);
+		num = 0;
+	}
+
+	glGenTextures(1, &num);
+	glBindTexture(GL_TEXTURE_RECTANGLE, num);
+	glTexParameterf(GL_TEXTURE_RECTANGLE, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+	glTexParameterf(GL_TEXTURE_RECTANGLE, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
+	glTexParameteri(GL_TEXTURE_RECTANGLE, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+	glTexParameteri(GL_TEXTURE_RECTANGLE, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+	if(bMemoryMode)
+		glTexImage2D(GL_TEXTURE_RECTANGLE, 0,  GL_RGB, w, h, 0, GL_RGB, GL_UNSIGNED_BYTE, NULL);
+	else
+		glTexImage2D(GL_TEXTURE_RECTANGLE, 0,  GL_RGBA,w, h, 0, GL_RGBA, GL_UNSIGNED_BYTE, NULL);
+	glBindTexture(GL_TEXTURE_RECTANGLE, 0);
+
+
+}
+
+/////////////////////////////////////////////////////////
+// Variables
+//
+
+void spoutReceive :: setMess(t_symbol*indexed) {
+ int index, nSenders;
+ char* SenderName;
+ int MaxSize = 64;
+ unsigned int width, height;
+ HANDLE hShareHandle;
+ DWORD dwFormat;
+ //nSenders = spoutreceiver->GetSenderCount();
+ SenderName=indexed->s_name;
+		spoutreceiver->GetSenderInfo(SenderName,
+										width, height,
+										hShareHandle, dwFormat);
+		strcpy(sym,SenderName);
+		//spoutreceiver->SetActiveSender(sym);
+		spoutreceiver->ReleaseReceiver();
+		spoutreceiver->CreateReceiver(sym, width, height, false);
+		//bMemoryMode = spoutreceiver->GetMemoryShareMode();
+			w=width;
+			h=height;
+			//initTexture();
+			bInitialized = true;
+}
+void spoutReceive :: infoMess()
+{
+	post("spoutReceive v.1 by ArNO Courcelle, 01/2015 \n enjoy!");
+}
+/////////////////////////////////////////////////////////
+// static member functions
+//
+
+void spoutReceive :: obj_setupCallback(t_class *classPtr) {
+		class_addmethod(classPtr, reinterpret_cast<t_method>(&spoutReceive::setMessCallback),
+					gensym("set"), A_SYMBOL, A_NULL);
+		class_addmethod(classPtr, reinterpret_cast<t_method>(&spoutReceive::info),
+					gensym("info"), A_NULL);
+}
+
+void spoutReceive :: setMessCallback(void *data, t_symbol*indexed)
+{
+	GetMyClass(data)->setMess(indexed);
+}
+void spoutReceive :: info (void* data)
+{
+	 GetMyClass(data)->infoMess();//post("spoutReceive v.1 by ArNO Courcelle, 01/2014 n/");
+}

puredata/extra/spout/spoutReceive.h

@@ -0,0 +1,67 @@
+ /* ------------------------------------------------------------------
+  * GEM - Graphics Environment for Multimedia
+  *
+  *  Copyright (c) 2002-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
+  *	zmoelnig@iem.kug.ac.at
+  *  For information on usage and redistribution, and for a DISCLAIMER
+  *  OF ALL WARRANTIES, see the file, "GEM.LICENSE.TERMS"
+  *
+  *  this file has been generated...
+  * ------------------------------------------------------------------
+  */
+
+#ifndef _INCLUDE__GEM_OPENGL_spoutReceive_H_
+#define _INCLUDE__GEM_OPENGL_spoutReceive_H_
+
+#include "Base/GemGLBase.h"
+//nclude "ofxSpout.h"
+//#include "ofxSpout.h"
+#include "SpoutLibrary.h"
+#include <string>
+/*
+ CLASS
+	spoutReceive
+ */
+
+class GEM_EXTERN spoutReceive : public GemBase
+{
+	CPPEXTERN_HEADER(spoutReceive, GemBase);
+
+	public:
+	  // Constructor
+	  spoutReceive (t_symbol* s);	// CON
+
+	protected:
+	  // Destructor
+	  virtual ~spoutReceive ();
+	  virtual void	render (GemState *state);
+	t_symbol* s2;
+	char sym[256];
+	GLuint spoutTexture;
+	GLuint num;
+	int h,w,mode;
+	//bool isTextureShared;
+	bool texture;
+	bool bMemoryMode;
+	GLuint sendertexture;			// Local OpenGL texture used for sharing
+	bool bInitialized;				// Initialization result
+	bool bMemoryShare;	
+	t_symbol *m_bindname;
+	void initTexture();
+	static void setMessCallback  (void*data, t_symbol*indexed);
+	static void info(void* data);
+	void infoMess();
+	virtual void setMess(t_symbol*indexed);
+	private:
+	t_outlet	*m_outTexInfo;
+
+	// we need some inlets
+//	t_inlet         *m_inTexID;
+//	bool InitGLtexture(GLuint &texID, unsigned int width, unsigned int height);
+
+	SPOUTLIBRARY *spoutreceiver;  // A Spout receiver object
+	//Spout test;
+	// static member functions
+
+};
+#endif // for header file

puredata/extra/spout/spoutSend.cpp

@@ -0,0 +1,107 @@
+////////////////////////////////////////////////////////
+//
+// GEM - Graphics Environment for Multimedia
+//
+// Implementation file
+//
+// Copyright (c) 2002-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
+//	zmoelnig@iem.kug.ac.at
+//  For information on usage and redistribution, and for a DISCLAIMER
+//  *  OF ALL WARRANTIES, see the file, "GEM.LICENSE.TERMS"
+//
+//  this file has been generated...
+////////////////////////////////////////////////////////
+
+#include "spoutSend.h"
+
+CPPEXTERN_NEW_WITH_ONE_ARG(spoutSend, t_symbol*,A_DEFSYM);
+
+/////////////////////////////////////////////////////////
+// Constructor
+//
+spoutSend :: spoutSend	(t_symbol* s) 
+{
+	w=512;
+	h=512;
+	sym = s;
+	texture=false;
+	bInitialized	= false;							
+	m_inTexID  = inlet_new(this->x_obj, &this->x_obj->ob_pd, &s_float, gensym("texture"));
+	spoutsender = GetSpout();
+	 	if(!spoutsender) {
+	 		post("spout init failed");
+	 	}
+			
+	sendertexture = 0;
+}
+/////////////////////////////////////////////////////////
+// Destructor
+//
+spoutSend :: ~spoutSend () {
+	spoutsender->ReleaseSender(); 
+	delete spoutsender;
+	spoutsender = NULL;
+
+}
+
+/////////////////////////////////////////////////////////
+// Render
+//
+void spoutSend :: render(GemState *state) {
+
+	if(!bInitialized) {
+		// Create the sender
+		bInitialized = spoutsender->CreateSender(sym->s_name, h, w);
+	}
+		if(bInitialized) {if(texture!=false){
+		spoutsender->SendTexture(spoutTexture, num,w, h);
+		}
+	}
+}
+
+/////////////////////////////////////////////////////////
+// Variables
+//
+void spoutSend :: heightMess(t_floatarg id, t_floatarg Theight,  t_floatarg Twidth, t_floatarg Tnum, t_floatarg Tmode) {
+	spoutTexture=int(id);
+	h=int(Twidth);
+	w=int(Theight);
+	num=int(Tnum);
+	mode=Tmode;
+	texture=true;
+}
+void spoutSend :: setMess(t_symbol*indexed) {
+	sym=indexed;
+	bInitialized=false;
+	spoutsender->ReleaseSender(); 
+
+}
+void spoutSend :: infoMess()
+{
+	post("spoutSend v.1 by ArNO Courcelle, 01/2015 \n enjoy!");
+}
+/////////////////////////////////////////////////////////
+// static member functions
+//
+
+void spoutSend :: obj_setupCallback(t_class *classPtr) {
+		class_addmethod(classPtr, reinterpret_cast<t_method>(&spoutSend::setMessCallback),
+					gensym("set"), A_SYMBOL, A_NULL);
+    class_addmethod(classPtr, reinterpret_cast<t_method>(&spoutSend::heightMessCallback),
+					gensym("texture"), A_FLOAT,A_FLOAT,A_FLOAT,A_FLOAT,A_FLOAT, A_NULL);
+	class_addmethod(classPtr, reinterpret_cast<t_method>(&spoutSend::info),
+					gensym("info"), A_NULL);
+}
+void spoutSend :: info (void* data)
+{
+	 GetMyClass(data)->infoMess();//post("spoutSend v.1 by ArNO Courcelle, 01/2014 n/");
+}
+void spoutSend :: setMessCallback(void *data, t_symbol*indexed)
+{
+	GetMyClass(data)->setMess(indexed);
+}
+
+void spoutSend :: heightMessCallback(void *data, t_floatarg Tsize, t_floatarg Theight,  t_floatarg Twidth, t_floatarg Tnum, t_floatarg Tmode)
+{
+    GetMyClass(data)->heightMess((Tsize),static_cast<int>(Theight),static_cast<int>(Twidth),static_cast<int>(Tnum),static_cast<int>(Tmode));
+}

puredata/extra/spout/spoutSend.h

@@ -0,0 +1,63 @@
+ /* ------------------------------------------------------------------
+  * GEM - Graphics Environment for Multimedia
+  *
+  *  Copyright (c) 2002-2011 IOhannes m zmölnig. forum::für::umläute. IEM. zmoelnig@iem.at
+  *	zmoelnig@iem.kug.ac.at
+  *  For information on usage and redistribution, and for a DISCLAIMER
+  *  OF ALL WARRANTIES, see the file, "GEM.LICENSE.TERMS"
+  *
+  *  this file has been generated...
+  * ------------------------------------------------------------------
+  */
+
+#ifndef _INCLUDE__GEM_OPENGL_spoutSend_H_
+#define _INCLUDE__GEM_OPENGL_spoutSend_H_
+
+#include "Base/GemBase.h"
+//nclude "ofxSpout.h"
+//#include "ofxSpout.h"
+#include "SpoutLibrary.h"
+/*
+ CLASS
+	spoutSend
+ */
+
+class GEM_EXTERN spoutSend : public GemBase
+{
+	CPPEXTERN_HEADER(spoutSend, GemBase);
+
+	public:
+	  // Constructor
+	  spoutSend (t_symbol* s);	// CON
+
+	protected:
+	  // Destructor
+	  virtual ~spoutSend ();
+	  virtual void	render (GemState *state);
+	t_symbol* sym;
+	GLuint spoutTexture;
+	GLuint num;
+	int h,w,mode;
+	//bool isTextureShared;
+	bool texture;
+	GLuint sendertexture;			// Local OpenGL texture used for sharing
+	bool bInitialized;				// Initialization result
+	bool bMemoryShare;	
+	t_symbol *m_bindname;
+	static void info(void* data);
+	void infoMess();
+	static void setMessCallback  (void*data, t_symbol*indexed);
+	static void heightMessCallback(void *data, t_floatarg Tsize, t_floatarg Theight,  t_floatarg Twidth, t_floatarg Tnum, t_floatarg Tmode);
+	virtual void setMess(t_symbol*indexed);
+	virtual void  heightMess(t_floatarg Tsize, t_floatarg Theight,  t_floatarg Twidth, t_floatarg Tnum, t_floatarg Tmode);
+	private:
+
+	// we need some inlets
+	t_inlet         *m_inTexID;
+	bool InitGLtexture(GLuint &texID, unsigned int width, unsigned int height);
+
+		SPOUTLIBRARY *spoutsender; // A sender object
+		char sendername[256];      // Sender name
+
+};
+#endif // for header file

puredata/main.pd

@@ -0,0 +1,309 @@
+#N canvas 508 109 1120 796 10;
+#X declare -path ../externals/rc-patches/extra -path ../externals/rc-patches/rc
+-path ../externals/rc-patches/rc-patches;
+#X declare -path ../externals/rjlib/rj -path ../externals/pd;
+#X obj 8 9 cnv 15 360 180 empty empty Setup 5 12 0 14 -233017 -66577
+0;
+#X msg 92 123 reset;
+#X text 135 122 reset the window;
+#N canvas 0 22 386 154 externals 0;
+#X text 14 16 add search paths to local libraries here;
+#X obj 16 47 declare -path ../externals/rc-patches/extra -path ../externals/rc-patches/rc
+-path ../externals/rc-patches/rc-patches;
+#X obj 15 106 declare -path ../externals/rjlib/rj -path ../externals/pd
+;
+#X restore 275 20 pd externals;
+#X msg 49 391 print;
+#X obj 99 391 change;
+#X msg 99 418 link \$1;
+#X obj 99 293 loadbang;
+#X text 154 423 link the fragment shader id;
+#X text 115 360 load the fragment shader;
+#X text 111 624 run the shader program;
+#X text 257 47 2015 Dan Wilcox;
+#X obj 22 147 gemwin;
+#X msg 31 77 create \, 1;
+#X msg 97 78 destroy;
+#X obj 22 46 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X text 35 652 shader affects things below it in render chain;
+#X floatatom 421 202 5 0 0 0 - - -, f 5;
+#X obj 420 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 441 27 loadbang;
+#X obj 448 75 + 1;
+#X text 417 502 2016 Sofy Yuditskaya;
+#X obj 421 259 gemmouse;
+#X floatatom 421 285 5 0 0 0 - - -, f 5;
+#X floatatom 457 283 5 0 0 0 - - -, f 5;
+#X obj 439 316 t b a;
+#X obj 421 336 pack f f;
+#X msg 433 407 iChannel0 3;
+#X msg 421 226 iTime \$1;
+#X obj 24 360 glsl_fragment;
+#X obj 123 445 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 322 515 SPHERE_DENSITY \$1;
+#X floatatom 287 513 5 0 0 0 - - -, f 5;
+#X floatatom 285 469 5 0 0 0 - - -, f 5;
+#X msg 320 471 NOISE_SCALE \$1;
+#X floatatom 285 434 5 0 0 0 - - -, f 5;
+#X msg 320 436 SPHERE_RADIUS \$1;
+#X obj 420 51 metro 40;
+#X obj 420 75 f;
+#X msg 485 49 0;
+#X floatatom 267 115 5 0 0 0 - - -, f 5;
+#X msg 190 155 view \$1 0 4 0 0 0 0 1 0;
+#X floatatom 71 667 5 0 0 0 - - -, f 5;
+#X obj 204 704 translateXYZ 0 0 0;
+#X obj 22 603 glsl_program;
+#X obj 24 242 gemhead;
+#X obj 275 220 gemhead;
+#X obj 275 251 pix_texture;
+#X obj 32 682 gemframebuffer;
+#X msg 311 198 rectangle 1;
+#X obj 32 703 translateXYZ 0 0 -4;
+#X obj 275 302 rotateXYZ;
+#X floatatom 238 208 5 0 0 0 - - -, f 5;
+#X obj 275 272 translateXYZ 0 0 4;
+#X obj 275 332 sphere 10 50;
+#X floatatom 361 316 5 0 0 0 - - -, f 5;
+#X obj 692 277 pix_film;
+#X obj 771 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 771 195 openpanel;
+#X msg 759 238 0;
+#X obj 785 335 gemhead;
+#X obj 871 327 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 871 353 openpanel;
+#X obj 692 318 pix_mask;
+#X obj 692 237 alpha;
+#X msg 772 214 colorspace RGBA \, open \$1 \, auto 1;
+#X obj 786 376 pix_film;
+#X msg 872 372 colorspace RGBA \, open \$1;
+#X obj 692 339 alpha;
+#X obj 692 369 pix_coloralpha;
+#X msg 421 356 iMouse \$1 \$2 0 0;
+#X floatatom 572 381 5 0 0 0 - - -, f 5;
+#X msg 572 403 iMouse \$1 \$1 0 0;
+#X msg 648 611 print;
+#X obj 698 611 change;
+#X msg 698 638 link \$1;
+#X obj 698 513 loadbang;
+#X text 714 580 load the fragment shader;
+#X text 710 844 run the shader program;
+#X text 634 872 shader affects things below it in render chain;
+#X obj 722 665 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X floatatom 670 887 5 0 0 0 - - -, f 5;
+#X obj 620 945 pix_texture;
+#X obj 621 923 translateXYZ 0 0 -4;
+#X msg 99 322 open fog.frag;
+#X msg 699 542 open fogBlack.frag;
+#X obj 692 428 pix_texture;
+#X floatatom 75 19 5 0 0 0 - - -, f 5;
+#X floatatom 801 655 5 0 0 0 - - -, f 5;
+#X floatatom 817 700 5 0 0 0 - - -, f 5;
+#X msg 852 702 NOISE_SCALE \$1;
+#X obj 623 580 glsl_fragment;
+#X obj 624 840 glsl_program;
+#X msg 126 33 color 1 0 0;
+#X obj 529 879 scale 0.5;
+#X obj 623 485 alpha;
+#X obj 623 462 gemhead 50;
+#X obj 692 196 gemhead 2;
+#X msg 827 245 auto 0;
+#X obj 23 814 cnv 15 250 130 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 30 828 t a b;
+#X msg 62 849 snap;
+#X obj 30 897 t a b;
+#X msg 244 902 1;
+#X text 78 826 later usage;
+#X text 77 811 snapshot and store image for;
+#X obj 615 987 cnv 15 250 130 empty empty empty 20 12 0 14 -233017
+-66577 0;
+#X obj 622 1001 t a b;
+#X msg 654 1022 snap;
+#X obj 622 1090 t a b;
+#X msg 836 1095 1;
+#X text 670 999 later usage;
+#X text 669 984 snapshot and store image for;
+#X obj 622 1115 pix_buffer_write \$0-framebuffer2;
+#X obj 39 1068 t a b;
+#X msg 94 1069 1;
+#X text 191 1030 fetch framebuffer-pix;
+#X obj 304 1028 t a b;
+#X msg 359 1029 1;
+#X text 456 1030 fetch framebuffer-pix;
+#X obj 39 1027 t a a;
+#X obj 34 740 pix_texture;
+#X obj 35 775 square 4;
+#X obj 327 886 gemhead 30;
+#X obj 621 902 gemframebuffer;
+#X msg 669 736 iResolution 256 256 0 \, MARCH_DIST 2.5 \, MARCH_COUNT
+20 \, SCATTER_DEPTH 10 \, SCATTER_DIST 2.5 \, SPHERE_RADIUS 2 \, SPHERE_DENSITY
+3 \, LIGHT_COLOR_SCALE 1.2 \, ABSORPTION_COLOR_SCALE 1 \, VOLUME_COLOR_SCALE
+0.045 \, NOISE_SCALE 1.2;
+#X obj 621 1046 pix_snap;
+#X msg 272 556 iResolution 256 256 0 \, MARCH_DIST 2.5 \, MARCH_COUNT
+20 \, SCATTER_DEPTH 10 \, SCATTER_DIST 2.5 \, SPHERE_RADIUS 4 \, SPHERE_DENSITY
+1 \, LIGHT_COLOR_SCALE 0.82 \, ABSORPTION_COLOR_SCALE 0.004 \, VOLUME_COLOR_SCALE
+0.055 \, NOISE_SCALE 1.2;
+#X obj 623 1144 pix_buffer \$0-framebuffer2 2;
+#X obj 39 974 gemhead;
+#X obj 30 922 pix_buffer_write \$0-framebuffer;
+#X obj 31 951 pix_buffer \$0-framebuffer 2;
+#X obj 30 872 pix_snap;
+#X obj 39 997 alpha;
+#X obj 872 974 pix_buffer_read \$0-framebuffer2;
+#X obj 819 906 random 4;
+#X obj 819 929 - 2;
+#X obj 776 902 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 621 970 square 4;
+#X obj 621 1069 pix_motionblur;
+#X obj 421 141 / 500;
+#X floatatom 747 1044 5 0 0 0 - - -, f 5;
+#X msg 336 732 iResolution 256 256 0 \, SPHERE_DENSITY 3;
+#X msg 836 657 SPHERE_DENSITY \$1;
+#X obj 68 1148 pix_mask;
+#X obj 39 1093 pix_buffer_read \$0-framebuffer;
+#X obj 304 1053 pix_buffer_read \$0-framebuffer2;
+#X obj 350 915 pix_gain;
+#X floatatom 418 858 5 0 0 0 - - -, f 5;
+#X msg 413 888 \$1 \$1 \$1 \$1;
+#X obj 990 536 vsl 15 128 0.1 10 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 0 1;
+#X obj 349 937 pix_texture;
+#X obj 349 965 square 4;
+#X obj 692 449 rectangle 6 4;
+#X connect 1 0 12 0;
+#X connect 4 0 44 0;
+#X connect 5 0 6 0;
+#X connect 6 0 30 0;
+#X connect 6 0 44 0;
+#X connect 7 0 84 0;
+#X connect 13 0 12 0;
+#X connect 13 0 27 0;
+#X connect 14 0 12 0;
+#X connect 15 0 12 0;
+#X connect 17 0 28 0;
+#X connect 18 0 37 0;
+#X connect 19 0 18 0;
+#X connect 20 0 38 1;
+#X connect 22 0 23 0;
+#X connect 22 1 24 0;
+#X connect 23 0 26 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 25 1 26 1;
+#X connect 26 0 70 0;
+#X connect 28 0 44 0;
+#X connect 28 0 92 0;
+#X connect 29 0 44 0;
+#X connect 29 1 5 0;
+#X connect 31 0 44 0;
+#X connect 32 0 31 0;
+#X connect 33 0 34 0;
+#X connect 34 0 44 0;
+#X connect 35 0 36 0;
+#X connect 36 0 44 0;
+#X connect 37 0 38 0;
+#X connect 38 0 20 0;
+#X connect 38 0 140 0;
+#X connect 39 0 38 1;
+#X connect 40 0 41 0;
+#X connect 41 0 12 0;
+#X connect 44 0 48 0;
+#X connect 45 0 29 0;
+#X connect 47 0 53 0;
+#X connect 48 0 50 0;
+#X connect 49 0 47 0;
+#X connect 50 0 121 0;
+#X connect 52 0 51 1;
+#X connect 53 0 51 0;
+#X connect 55 0 51 3;
+#X connect 56 0 86 0;
+#X connect 56 2 59 0;
+#X connect 57 0 58 0;
+#X connect 58 0 65 0;
+#X connect 59 0 56 1;
+#X connect 60 0 66 0;
+#X connect 61 0 62 0;
+#X connect 62 0 67 0;
+#X connect 64 0 56 0;
+#X connect 65 0 56 0;
+#X connect 66 0 63 1;
+#X connect 67 0 66 0;
+#X connect 71 0 72 0;
+#X connect 72 0 44 0;
+#X connect 73 0 92 0;
+#X connect 74 0 75 0;
+#X connect 75 0 80 0;
+#X connect 75 0 92 0;
+#X connect 76 0 85 0;
+#X connect 82 0 138 0;
+#X connect 83 0 82 0;
+#X connect 84 0 29 0;
+#X connect 85 0 91 0;
+#X connect 86 0 153 0;
+#X connect 87 0 93 0;
+#X connect 88 0 143 0;
+#X connect 89 0 90 0;
+#X connect 90 0 92 0;
+#X connect 91 0 92 0;
+#X connect 91 1 74 0;
+#X connect 92 0 124 0;
+#X connect 93 0 12 0;
+#X connect 95 0 91 0;
+#X connect 96 0 95 0;
+#X connect 97 0 64 0;
+#X connect 98 0 56 0;
+#X connect 100 0 132 0;
+#X connect 100 1 101 0;
+#X connect 101 0 132 0;
+#X connect 102 0 130 0;
+#X connect 102 1 103 0;
+#X connect 103 0 130 1;
+#X connect 107 0 126 0;
+#X connect 107 1 108 0;
+#X connect 108 0 126 0;
+#X connect 109 0 113 0;
+#X connect 109 1 110 0;
+#X connect 110 0 113 1;
+#X connect 114 0 145 0;
+#X connect 114 1 115 0;
+#X connect 115 0 145 1;
+#X connect 117 0 146 0;
+#X connect 117 1 118 0;
+#X connect 118 0 146 1;
+#X connect 120 0 114 0;
+#X connect 120 1 117 0;
+#X connect 121 0 122 0;
+#X connect 122 0 100 0;
+#X connect 124 0 83 0;
+#X connect 125 0 92 0;
+#X connect 126 0 139 0;
+#X connect 127 0 44 0;
+#X connect 129 0 133 0;
+#X connect 132 0 102 0;
+#X connect 133 0 120 0;
+#X connect 135 0 136 0;
+#X connect 136 0 83 1;
+#X connect 137 0 135 0;
+#X connect 138 0 107 0;
+#X connect 139 0 109 0;
+#X connect 140 0 17 0;
+#X connect 141 0 139 1;
+#X connect 142 0 92 0;
+#X connect 143 0 92 0;
+#X connect 144 0 147 0;
+#X connect 145 0 144 0;
+#X connect 146 0 144 1;
+#X connect 147 0 151 0;
+#X connect 148 0 149 0;
+#X connect 149 0 147 2;
+#X connect 150 0 88 0;
+#X connect 151 0 152 0;