Distorted Android

//////////////////////////////////////////////////////////////////////////////////////////////

// Copyright 2018 Leszek Koltunski                                                          //

//                                                                                          //

// This file is part of Distorted.                                                          //

//                                                                                          //

// Distorted 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.                                                      //

//                                                                                          //

// Distorted 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 Distorted.  If not, see <http://www.gnu.org/licenses/>.                       //

//////////////////////////////////////////////////////////////////////////////////////////////

precision highp float;

precision highp uint;

#if __VERSION__ != 100

out vec4 fragColor;           // The output color

in vec2 v_TexCoordinate;      // Interpolated texture coordinate per fragment.

in vec2 v_Pixel;              // location of the current fragment, in pixels

#define TEXTURE texture

#define FRAG_COLOR fragColor

#else

varying vec2 v_TexCoordinate; // Interpolated texture coordinate per fragment.

varying vec2 v_Pixel;         // location of the current fragment, in pixels

#define TEXTURE texture2D

#define FRAG_COLOR gl_FragColor

#endif

uniform sampler2D u_Texture;

uniform sampler2D u_DepthTexture;

//////////////////////////////////////////////////////////////////////////////////////////////

// per-pixel linked list. Order Independent Transparency.

uniform ivec2 u_Size;

uniform uint u_numRecords;

layout (binding=0, offset=0) uniform atomic_uint u_Counter;  // initialize to 0

layout (std430,binding=1) buffer linkedlist  // first (u_Size.x*u_Size.y) uints - head pointers,

  {                                          // one for each pixel in the Output rectangle.

  uint u_Records[];                          //

  };                                         // Next 3*u_numRecords uints - actual linked list, i.e.

                                             // triplets of (pointer,depth,rgba).

//////////////////////////////////////////////////////////////////////////////////////////////

// Concurrent insert to a linked list. Tim Harris, 'pragmatic implementation of non-blocking

// linked-lists', 2001.

// This arranges fragments by decreasing 'depth', so one would think - from back to front, but

// in main() below the depth is mapped with S*(1-depth)/2, so it is really front to back.

void insert( vec2 ij, uint depth, uint rgba )

  {

  uint ptr = atomicCounterIncrement(u_Counter)-1u;

  if( ptr<u_numRecords )

    {/*

    uint color;

    vec2 c = vec2(0.0,1.0);

    uint rgb = ((uint(255.0*c.x))<<16u) + uint(255.0*c.y);

         if(  rgb       ==  0u ) color = (255u<<24u) + (255u<<16u) + 255u;

    else if( (rgb&255u) ==  0u ) color = (255u<<24u) + 255u;

    else if( (rgb&255u) <= 50u ) color = (255u<<16u) + 255u;

    else if( (rgb&255u) == 255u) color = (255u<<16u) + (255u<< 8u) + 255u;

    else                         color = (255u<< 8u) + 255u;

*/

vec4 c= vec4(1.0,1.0,0.0,1.0);

uint color = ((uint(255.0*c.r))<<24u) + ((uint(255.0*c.g))<<16u) + ((uint(255.0*c.b))<<8u) + uint(255.0*c.a);

    ptr = 3u*ptr + uint(u_Size.x*u_Size.y);

    u_Records[ptr   ] = 0u;

    u_Records[ptr+1u] = depth;

    u_Records[ptr+2u] = rgba;

    uint index = uint(ij.x + ij.y * float(u_Size.x));

    u_Records[index] = ptr;

    }

/*

  uint ptr = atomicCounterIncrement(u_Counter)-1u;

  if( ptr<u_numRecords )

    {

    ptr = 3u*ptr + uint(u_Size.x*u_Size.y);

    u_Records[ptr+1u] = depth;

    u_Records[ptr+2u] = rgba;

    memoryBarrier();

    uint prev = uint(ij.x + ij.y * float(u_Size.x));

    uint curr = u_Records[prev];

/*

    while (true)

      {

      if ( curr==0u || depth > u_Records[curr+1u] )  // need to insert here

        {

        u_Records[ptr] = curr; // next of new record is curr

        memoryBarrier();

        uint res = atomicCompSwap( u_Records[prev], curr, ptr );

/*

        if (res==curr) break;      // done!

        else           curr = res; // could not insert! retry from same place in list

        }

      else // advance in list

        {

        prev = curr;

        curr = u_Records[prev];

        }

      }

*/

//    }

  }

//////////////////////////////////////////////////////////////////////////////////////////////

uint convert(vec4 c)

  {

  return ((uint(255.0*c.r))<<24u) + ((uint(255.0*c.g))<<16u) + ((uint(255.0*c.b))<<8u) + uint(255.0*c.a);

  }

//////////////////////////////////////////////////////////////////////////////////////////////

void main()                    		

  {

  vec4 frag  = TEXTURE(u_Texture     , v_TexCoordinate);

  float depth= TEXTURE(u_DepthTexture, v_TexCoordinate).r;

  if( frag.a > 0.95 )

    {

    gl_FragDepth = depth;

    FRAG_COLOR   = frag;

    }

  else if( frag.a > 0.0 )

    {

    const float S= 2147483647.0; // max signed int. Could probably be max unsigned int but this is enough.

    insert(v_Pixel, uint(S*(1.0-depth)/2.0), convert(frag) );

    discard;

    }

  }