three.js/examples/jsm/loaders/RGBMLoader.js

import {
	DataTextureLoader,
	RGBAFormat,
	LinearFilter,
	CubeTexture,
	HalfFloatType,
	DataUtils
} from 'three';

class RGBMLoader extends DataTextureLoader {

	constructor( manager ) {

		super( manager );

		this.type = HalfFloatType;
		this.maxRange = 7; // more information about this property at https://iwasbeingirony.blogspot.com/2010/06/difference-between-rgbm-and-rgbd.html

	}

	setDataType( value ) {

		this.type = value;
		return this;

	}

	setMaxRange( value ) {

		this.maxRange = value;
		return this;

	}

	loadCubemap( urls, onLoad, onProgress, onError ) {

		const texture = new CubeTexture();

		for ( let i = 0; i < 6; i ++ ) {

			texture.images[ i ] = undefined;

		}

		let loaded = 0;

		const scope = this;

		function loadTexture( i ) {

			scope.load( urls[ i ], function ( image ) {

				texture.images[ i ] = image;

				loaded ++;

				if ( loaded === 6 ) {

					texture.needsUpdate = true;

					if ( onLoad ) onLoad( texture );

				}

			}, undefined, onError );

		}

		for ( let i = 0; i < urls.length; ++ i ) {

			loadTexture( i );

		}

		texture.type = this.type;
		texture.format = RGBAFormat;
		texture.minFilter = LinearFilter;
		texture.generateMipmaps = false;

		return texture;

	}

	loadCubemapAsync( urls, onProgress ) {

		return new Promise( ( resolve, reject ) => {

			this.loadCubemap( urls, resolve, onProgress, reject );

		} );

	}

	parse( buffer ) {

		const img = UPNG.decode( buffer );
		const rgba = UPNG.toRGBA8( img )[ 0 ];

		const data = new Uint8Array( rgba );
		const size = img.width * img.height * 4;

		const output = ( this.type === HalfFloatType ) ? new Uint16Array( size ) : new Float32Array( size );

		// decode RGBM

		for ( let i = 0; i < data.length; i += 4 ) {

			const r = data[ i + 0 ] / 255;
			const g = data[ i + 1 ] / 255;
			const b = data[ i + 2 ] / 255;
			const a = data[ i + 3 ] / 255;

			if ( this.type === HalfFloatType ) {

				output[ i + 0 ] = DataUtils.toHalfFloat( Math.min( r * a * this.maxRange, 65504 ) );
				output[ i + 1 ] = DataUtils.toHalfFloat( Math.min( g * a * this.maxRange, 65504 ) );
				output[ i + 2 ] = DataUtils.toHalfFloat( Math.min( b * a * this.maxRange, 65504 ) );
				output[ i + 3 ] = DataUtils.toHalfFloat( 1 );

			} else {

				output[ i + 0 ] = r * a * this.maxRange;
				output[ i + 1 ] = g * a * this.maxRange;
				output[ i + 2 ] = b * a * this.maxRange;
				output[ i + 3 ] = 1;

			}

		}

		return {
			width: img.width,
			height: img.height,
			data: output,
			format: RGBAFormat,
			type: this.type,
			flipY: true
		};

	}

}

// from https://github.com/photopea/UPNG.js (MIT License)

var UPNG = {};

UPNG.toRGBA8 = function ( out ) {

	var w = out.width, h = out.height;
	if ( out.tabs.acTL == null ) return [ UPNG.toRGBA8.decodeImage( out.data, w, h, out ).buffer ];

	var frms = [];
	if ( out.frames[ 0 ].data == null ) out.frames[ 0 ].data = out.data;

	var len = w * h * 4, img = new Uint8Array( len ), empty = new Uint8Array( len ), prev = new Uint8Array( len );
	for ( var i = 0; i < out.frames.length; i ++ ) {

		var frm = out.frames[ i ];
		var fx = frm.rect.x, fy = frm.rect.y, fw = frm.rect.width, fh = frm.rect.height;
		var fdata = UPNG.toRGBA8.decodeImage( frm.data, fw, fh, out );

		if ( i != 0 ) for ( var j = 0; j < len; j ++ ) prev[ j ] = img[ j ];

		if ( frm.blend == 0 ) UPNG._copyTile( fdata, fw, fh, img, w, h, fx, fy, 0 );
		else if ( frm.blend == 1 ) UPNG._copyTile( fdata, fw, fh, img, w, h, fx, fy, 1 );

		frms.push( img.buffer.slice( 0 ) );

		if ( frm.dispose == 1 ) UPNG._copyTile( empty, fw, fh, img, w, h, fx, fy, 0 );
		else if ( frm.dispose == 2 ) for ( var j = 0; j < len; j ++ ) img[ j ] = prev[ j ];

	}

	return frms;

};

UPNG.toRGBA8.decodeImage = function ( data, w, h, out ) {

	var area = w * h, bpp = UPNG.decode._getBPP( out );
	var bpl = Math.ceil( w * bpp / 8 );	// bytes per line

	var bf = new Uint8Array( area * 4 ), bf32 = new Uint32Array( bf.buffer );
	var ctype = out.ctype, depth = out.depth;
	var rs = UPNG._bin.readUshort;

	if ( ctype == 6 ) { // RGB + alpha

		var qarea = area << 2;
		if ( depth == 8 ) for ( var i = 0; i < qarea; i += 4 ) {

			bf[ i ] = data[ i ]; bf[ i + 1 ] = data[ i + 1 ]; bf[ i + 2 ] = data[ i + 2 ]; bf[ i + 3 ] = data[ i + 3 ];

		}

		if ( depth == 16 ) for ( var i = 0; i < qarea; i ++ ) {

			bf[ i ] = data[ i << 1 ];

		}

	} else if ( ctype == 2 ) {	// RGB

		var ts = out.tabs[ 'tRNS' ];
		if ( ts == null ) {

			if ( depth == 8 ) for ( var i = 0; i < area; i ++ ) {

				var ti = i * 3; bf32[ i ] = ( 255 << 24 ) | ( data[ ti + 2 ] << 16 ) | ( data[ ti + 1 ] << 8 ) | data[ ti ];

			}

			if ( depth == 16 ) for ( var i = 0; i < area; i ++ ) {

				var ti = i * 6; bf32[ i ] = ( 255 << 24 ) | ( data[ ti + 4 ] << 16 ) | ( data[ ti + 2 ] << 8 ) | data[ ti ];

			}

		} else {

			var tr = ts[ 0 ], tg = ts[ 1 ], tb = ts[ 2 ];
			if ( depth == 8 ) for ( var i = 0; i < area; i ++ ) {

				var qi = i << 2, ti = i * 3; bf32[ i ] = ( 255 << 24 ) | ( data[ ti + 2 ] << 16 ) | ( data[ ti + 1 ] << 8 ) | data[ ti ];
				if ( data[ ti ] == tr && data[ ti + 1 ] == tg && data[ ti + 2 ] == tb ) bf[ qi + 3 ] = 0;

			}

			if ( depth == 16 ) for ( var i = 0; i < area; i ++ ) {

				var qi = i << 2, ti = i * 6; bf32[ i ] = ( 255 << 24 ) | ( data[ ti + 4 ] << 16 ) | ( data[ ti + 2 ] << 8 ) | data[ ti ];
				if ( rs( data, ti ) == tr && rs( data, ti + 2 ) == tg && rs( data, ti + 4 ) == tb ) bf[ qi + 3 ] = 0;

			}

		}

	} else if ( ctype == 3 ) {	// palette

		var p = out.tabs[ 'PLTE' ], ap = out.tabs[ 'tRNS' ], tl = ap ? ap.length : 0;
		//console.log(p, ap);
		if ( depth == 1 ) for ( var y = 0; y < h; y ++ ) {

			var s0 = y * bpl, t0 = y * w;
			for ( var i = 0; i < w; i ++ ) {

				var qi = ( t0 + i ) << 2, j = ( ( data[ s0 + ( i >> 3 ) ] >> ( 7 - ( ( i & 7 ) << 0 ) ) ) & 1 ), cj = 3 * j; bf[ qi ] = p[ cj ]; bf[ qi + 1 ] = p[ cj + 1 ]; bf[ qi + 2 ] = p[ cj + 2 ]; bf[ qi + 3 ] = ( j < tl ) ? ap[ j ] : 255;

			}

		}

		if ( depth == 2 ) for ( var y = 0; y < h; y ++ ) {

			var s0 = y * bpl, t0 = y * w;
			for ( var i = 0; i < w; i ++ ) {

				var qi = ( t0 + i ) << 2, j = ( ( data[ s0 + ( i >> 2 ) ] >> ( 6 - ( ( i & 3 ) << 1 ) ) ) & 3 ), cj = 3 * j; bf[ qi ] = p[ cj ]; bf[ qi + 1 ] = p[ cj + 1 ]; bf[ qi + 2 ] = p[ cj + 2 ]; bf[ qi + 3 ] = ( j < tl ) ? ap[ j ] : 255;

			}

		}

		if ( depth == 4 ) for ( var y = 0; y < h; y ++ ) {

			var s0 = y * bpl, t0 = y * w;
			for ( var i = 0; i < w; i ++ ) {

				var qi = ( t0 + i ) << 2, j = ( ( data[ s0 + ( i >> 1 ) ] >> ( 4 - ( ( i & 1 ) << 2 ) ) ) & 15 ), cj = 3 * j; bf[ qi ] = p[ cj ]; bf[ qi + 1 ] = p[ cj + 1 ]; bf[ qi + 2 ] = p[ cj + 2 ]; bf[ qi + 3 ] = ( j < tl ) ? ap[ j ] : 255;

			}

		}

		if ( depth == 8 ) for ( var i = 0; i < area; i ++ ) {

			var qi = i << 2, j = data[ i ], cj = 3 * j; bf[ qi ] = p[ cj ]; bf[ qi + 1 ] = p[ cj + 1 ]; bf[ qi + 2 ] = p[ cj + 2 ]; bf[ qi + 3 ] = ( j < tl ) ? ap[ j ] : 255;

		}

	} else if ( ctype == 4 ) {	// gray + alpha

		if ( depth == 8 ) for ( var i = 0; i < area; i ++ ) {

			var qi = i << 2, di = i << 1, gr = data[ di ]; bf[ qi ] = gr; bf[ qi + 1 ] = gr; bf[ qi + 2 ] = gr; bf[ qi + 3 ] = data[ di + 1 ];

		}

		if ( depth == 16 ) for ( var i = 0; i < area; i ++ ) {

			var qi = i << 2, di = i << 2, gr = data[ di ]; bf[ qi ] = gr; bf[ qi + 1 ] = gr; bf[ qi + 2 ] = gr; bf[ qi + 3 ] = data[ di + 2 ];

		}

	} else if ( ctype == 0 ) {	// gray

		var tr = out.tabs[ 'tRNS' ] ? out.tabs[ 'tRNS' ] : - 1;
		for ( var y = 0; y < h; y ++ ) {

			var off = y * bpl, to = y * w;
			if ( depth == 1 ) for ( var x = 0; x < w; x ++ ) {

				var gr = 255 * ( ( data[ off + ( x >>> 3 ) ] >>> ( 7 - ( x & 7 ) ) ) & 1 ), al = ( gr == tr * 255 ) ? 0 : 255; bf32[ to + x ] = ( al << 24 ) | ( gr << 16 ) | ( gr << 8 ) | gr;

			}
			else if ( depth == 2 ) for ( var x = 0; x < w; x ++ ) {

				var gr = 85 * ( ( data[ off + ( x >>> 2 ) ] >>> ( 6 - ( ( x & 3 ) << 1 ) ) ) & 3 ), al = ( gr == tr * 85 ) ? 0 : 255; bf32[ to + x ] = ( al << 24 ) | ( gr << 16 ) | ( gr << 8 ) | gr;

			}
			else if ( depth == 4 ) for ( var x = 0; x < w; x ++ ) {

				var gr = 17 * ( ( data[ off + ( x >>> 1 ) ] >>> ( 4 - ( ( x & 1 ) << 2 ) ) ) & 15 ), al = ( gr == tr * 17 ) ? 0 : 255; bf32[ to + x ] = ( al << 24 ) | ( gr << 16 ) | ( gr << 8 ) | gr;

			}
			else if ( depth == 8 ) for ( var x = 0; x < w; x ++ ) {

				var gr = data[ off + x ], al = ( gr == tr ) ? 0 : 255; bf32[ to + x ] = ( al << 24 ) | ( gr << 16 ) | ( gr << 8 ) | gr;

			}
			else if ( depth == 16 ) for ( var x = 0; x < w; x ++ ) {

				var gr = data[ off + ( x << 1 ) ], al = ( rs( data, off + ( x << 1 ) ) == tr ) ? 0 : 255; bf32[ to + x ] = ( al << 24 ) | ( gr << 16 ) | ( gr << 8 ) | gr;

			}

		}

	}

	//console.log(Date.now()-time);
	return bf;

};



UPNG.decode = function ( buff ) {

	var data = new Uint8Array( buff ), offset = 8, bin = UPNG._bin, rUs = bin.readUshort, rUi = bin.readUint;
	var out = { tabs: {}, frames: [] };
	var dd = new Uint8Array( data.length ), doff = 0;	 // put all IDAT data into it
	var fd, foff = 0;	// frames
	var text, keyw, bfr;

	var mgck = [ 0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a ];
	for ( var i = 0; i < 8; i ++ ) if ( data[ i ] != mgck[ i ] ) throw new Error( 'The input is not a PNG file!' );

	while ( offset < data.length ) {

		var len = bin.readUint( data, offset ); offset += 4;
		var type = bin.readASCII( data, offset, 4 ); offset += 4;
		//console.log(type,len);

		if ( type == 'IHDR' ) {

			UPNG.decode._IHDR( data, offset, out );

		} else if ( type == 'CgBI' ) {

			out.tabs[ type ] = data.slice( offset, offset + 4 );

		} else if ( type == 'IDAT' ) {

			for ( var i = 0; i < len; i ++ ) dd[ doff + i ] = data[ offset + i ];
			doff += len;

		} else if ( type == 'acTL' ) {

			out.tabs[ type ] = { num_frames: rUi( data, offset ), num_plays: rUi( data, offset + 4 ) };
			fd = new Uint8Array( data.length );

		} else if ( type == 'fcTL' ) {

			if ( foff != 0 ) {

				var fr = out.frames[ out.frames.length - 1 ];
				fr.data = UPNG.decode._decompress( out, fd.slice( 0, foff ), fr.rect.width, fr.rect.height ); foff = 0;

			}

			var rct = { x: rUi( data, offset + 12 ), y: rUi( data, offset + 16 ), width: rUi( data, offset + 4 ), height: rUi( data, offset + 8 ) };
			var del = rUs( data, offset + 22 ); del = rUs( data, offset + 20 ) / ( del == 0 ? 100 : del );
			var frm = { rect: rct, delay: Math.round( del * 1000 ), dispose: data[ offset + 24 ], blend: data[ offset + 25 ] };
			//console.log(frm);
			out.frames.push( frm );

		} else if ( type == 'fdAT' ) {

			for ( var i = 0; i < len - 4; i ++ ) fd[ foff + i ] = data[ offset + i + 4 ];
			foff += len - 4;

		} else if ( type == 'pHYs' ) {

			out.tabs[ type ] = [ bin.readUint( data, offset ), bin.readUint( data, offset + 4 ), data[ offset + 8 ] ];

		} else if ( type == 'cHRM' ) {

			out.tabs[ type ] = [];
			for ( var i = 0; i < 8; i ++ ) out.tabs[ type ].push( bin.readUint( data, offset + i * 4 ) );

		} else if ( type == 'tEXt' || type == 'zTXt' ) {

			if ( out.tabs[ type ] == null ) out.tabs[ type ] = {};
			var nz = bin.nextZero( data, offset );
			keyw = bin.readASCII( data, offset, nz - offset );
			var tl = offset + len - nz - 1;
			if ( type == 'tEXt' ) text = bin.readASCII( data, nz + 1, tl );
			else {

				bfr = UPNG.decode._inflate( data.slice( nz + 2, nz + 2 + tl ) );
				text = bin.readUTF8( bfr, 0, bfr.length );

			}

			out.tabs[ type ][ keyw ] = text;

		} else if ( type == 'iTXt' ) {

			if ( out.tabs[ type ] == null ) out.tabs[ type ] = {};
			var nz = 0, off = offset;
			nz = bin.nextZero( data, off );
			keyw = bin.readASCII( data, off, nz - off ); off = nz + 1;
			var cflag = data[ off ]; off += 2;
			nz = bin.nextZero( data, off );
			bin.readASCII( data, off, nz - off ); off = nz + 1;
			nz = bin.nextZero( data, off );
			bin.readUTF8( data, off, nz - off ); off = nz + 1;
			var tl = len - ( off - offset );
			if ( cflag == 0 ) text = bin.readUTF8( data, off, tl );
			else {

				bfr = UPNG.decode._inflate( data.slice( off, off + tl ) );
				text = bin.readUTF8( bfr, 0, bfr.length );

			}

			out.tabs[ type ][ keyw ] = text;

		} else if ( type == 'PLTE' ) {

			out.tabs[ type ] = bin.readBytes( data, offset, len );

		} else if ( type == 'hIST' ) {

			var pl = out.tabs[ 'PLTE' ].length / 3;
			out.tabs[ type ] = []; for ( var i = 0; i < pl; i ++ ) out.tabs[ type ].push( rUs( data, offset + i * 2 ) );

		} else if ( type == 'tRNS' ) {

			if ( out.ctype == 3 ) out.tabs[ type ] = bin.readBytes( data, offset, len );
			else if ( out.ctype == 0 ) out.tabs[ type ] = rUs( data, offset );
			else if ( out.ctype == 2 ) out.tabs[ type ] = [ rUs( data, offset ), rUs( data, offset + 2 ), rUs( data, offset + 4 ) ];
			//else console.log("tRNS for unsupported color type",out.ctype, len);

		} else if ( type == 'gAMA' ) out.tabs[ type ] = bin.readUint( data, offset ) / 100000;
		else if ( type == 'sRGB' ) out.tabs[ type ] = data[ offset ];
		else if ( type == 'bKGD' ) {

			if ( out.ctype == 0 || out.ctype == 4 ) out.tabs[ type ] = [ rUs( data, offset ) ];
			else if ( out.ctype == 2 || out.ctype == 6 ) out.tabs[ type ] = [ rUs( data, offset ), rUs( data, offset + 2 ), rUs( data, offset + 4 ) ];
			else if ( out.ctype == 3 ) out.tabs[ type ] = data[ offset ];

		} else if ( type == 'IEND' ) {

			break;

		}

		//else {  console.log("unknown chunk type", type, len);  out.tabs[type]=data.slice(offset,offset+len);  }
		offset += len;
		bin.readUint( data, offset ); offset += 4;

	}

	if ( foff != 0 ) {

		var fr = out.frames[ out.frames.length - 1 ];
		fr.data = UPNG.decode._decompress( out, fd.slice( 0, foff ), fr.rect.width, fr.rect.height );

	}

	out.data = UPNG.decode._decompress( out, dd, out.width, out.height );

	delete out.compress; delete out.interlace; delete out.filter;
	return out;

};

UPNG.decode._decompress = function ( out, dd, w, h ) {

	var bpp = UPNG.decode._getBPP( out ), bpl = Math.ceil( w * bpp / 8 ), buff = new Uint8Array( ( bpl + 1 + out.interlace ) * h );
	if ( out.tabs[ 'CgBI' ] ) dd = UPNG.inflateRaw( dd, buff );
	else dd = UPNG.decode._inflate( dd, buff );

	if ( out.interlace == 0 ) dd = UPNG.decode._filterZero( dd, out, 0, w, h );
	else if ( out.interlace == 1 ) dd = UPNG.decode._readInterlace( dd, out );

	return dd;

};

UPNG.decode._inflate = function ( data, buff ) {

	var out = UPNG[ 'inflateRaw' ]( new Uint8Array( data.buffer, 2, data.length - 6 ), buff ); return out;

};

UPNG.inflateRaw = function () {

	var H = {}; H.H = {}; H.H.N = function ( N, W ) {

		var R = Uint8Array, i = 0, m = 0, J = 0, h = 0, Q = 0, X = 0, u = 0, w = 0, d = 0, v, C;
		if ( N[ 0 ] == 3 && N[ 1 ] == 0 ) return W ? W : new R( 0 ); var V = H.H, n = V.b, A = V.e, l = V.R, M = V.n, I = V.A, e = V.Z, b = V.m, Z = W == null;
		if ( Z )W = new R( N.length >>> 2 << 5 ); while ( i == 0 ) {

			i = n( N, d, 1 ); m = n( N, d + 1, 2 ); d += 3; if ( m == 0 ) {

				if ( ( d & 7 ) != 0 )d += 8 - ( d & 7 );
				var D = ( d >>> 3 ) + 4, q = N[ D - 4 ] | N[ D - 3 ] << 8; if ( Z )W = H.H.W( W, w + q ); W.set( new R( N.buffer, N.byteOffset + D, q ), w ); d = D + q << 3;
				w += q; continue
				;

			}

			if ( Z )W = H.H.W( W, w + ( 1 << 17 ) ); if ( m == 1 ) {

				v = b.J; C = b.h; X = ( 1 << 9 ) - 1; u = ( 1 << 5 ) - 1;

			}

			if ( m == 2 ) {

				J = A( N, d, 5 ) + 257;
				h = A( N, d + 5, 5 ) + 1; Q = A( N, d + 10, 4 ) + 4; d += 14; var j = 1; for ( var c = 0; c < 38; c += 2 ) {

					b.Q[ c ] = 0; b.Q[ c + 1 ] = 0;

				}

				for ( var c = 0;
					c < Q; c ++ ) {

					var K = A( N, d + c * 3, 3 ); b.Q[ ( b.X[ c ] << 1 ) + 1 ] = K; if ( K > j )j = K
					;

				}

				d += 3 * Q; M( b.Q, j ); I( b.Q, j, b.u ); v = b.w; C = b.d;
				d = l( b.u, ( 1 << j ) - 1, J + h, N, d, b.v ); var r = V.V( b.v, 0, J, b.C ); X = ( 1 << r ) - 1; var S = V.V( b.v, J, h, b.D ); u = ( 1 << S ) - 1; M( b.C, r );
				I( b.C, r, v ); M( b.D, S ); I( b.D, S, C )
				;

			}

			while ( ! 0 ) {

				var T = v[ e( N, d ) & X ]; d += T & 15; var p = T >>> 4; if ( p >>> 8 == 0 ) {

					W[ w ++ ] = p;

				} else if ( p == 256 ) {

					break;

				} else {

					var z = w + p - 254;
					if ( p > 264 ) {

						var _ = b.q[ p - 257 ]; z = w + ( _ >>> 3 ) + A( N, d, _ & 7 ); d += _ & 7;

					}

					var $ = C[ e( N, d ) & u ]; d += $ & 15; var s = $ >>> 4, Y = b.c[ s ], a = ( Y >>> 4 ) + n( N, d, Y & 15 );
					d += Y & 15; while ( w < z ) {

						W[ w ] = W[ w ++ - a ]; W[ w ] = W[ w ++ - a ]; W[ w ] = W[ w ++ - a ]; W[ w ] = W[ w ++ - a ];

					}

					w = z
					;

				}

			}

		}

		return W.length == w ? W : W.slice( 0, w )
		;

	};

	H.H.W = function ( N, W ) {

		var R = N.length; if ( W <= R ) return N; var V = new Uint8Array( R << 1 ); V.set( N, 0 ); return V;

	};

	H.H.R = function ( N, W, R, V, n, A ) {

		var l = H.H.e, M = H.H.Z, I = 0; while ( I < R ) {

			var e = N[ M( V, n ) & W ]; n += e & 15; var b = e >>> 4;
			if ( b <= 15 ) {

				A[ I ] = b; I ++;

			} else {

				var Z = 0, m = 0; if ( b == 16 ) {

					m = 3 + l( V, n, 2 ); n += 2; Z = A[ I - 1 ];

				} else if ( b == 17 ) {

					m = 3 + l( V, n, 3 );
					n += 3
					;

				} else if ( b == 18 ) {

					m = 11 + l( V, n, 7 ); n += 7;

				}

				var J = I + m; while ( I < J ) {

					A[ I ] = Z; I ++;

				}

			}

		}

		return n
		;

	};

	H.H.V = function ( N, W, R, V ) {

		var n = 0, A = 0, l = V.length >>> 1;
		while ( A < R ) {

			var M = N[ A + W ]; V[ A << 1 ] = 0; V[ ( A << 1 ) + 1 ] = M; if ( M > n )n = M; A ++;

		}

		while ( A < l ) {

			V[ A << 1 ] = 0; V[ ( A << 1 ) + 1 ] = 0; A ++;

		}

		return n
		;

	};

	H.H.n = function ( N, W ) {

		var R = H.H.m, V = N.length, n, A, l, M, I, e = R.j; for ( var M = 0; M <= W; M ++ )e[ M ] = 0; for ( M = 1; M < V; M += 2 )e[ N[ M ] ] ++;
		var b = R.K; n = 0; e[ 0 ] = 0; for ( A = 1; A <= W; A ++ ) {

			n = n + e[ A - 1 ] << 1; b[ A ] = n;

		}

		for ( l = 0; l < V; l += 2 ) {

			I = N[ l + 1 ]; if ( I != 0 ) {

				N[ l ] = b[ I ];
				b[ I ] ++
				;

			}

		}

	};

	H.H.A = function ( N, W, R ) {

		var V = N.length, n = H.H.m, A = n.r; for ( var l = 0; l < V; l += 2 ) if ( N[ l + 1 ] != 0 ) {

			var M = l >> 1, I = N[ l + 1 ], e = M << 4 | I, b = W - I, Z = N[ l ] << b, m = Z + ( 1 << b );
			while ( Z != m ) {

				var J = A[ Z ] >>> 15 - W; R[ J ] = e; Z ++;

			}

		}

	};

	H.H.l = function ( N, W ) {

		var R = H.H.m.r, V = 15 - W; for ( var n = 0; n < N.length;
			n += 2 ) {

			var A = N[ n ] << W - N[ n + 1 ]; N[ n ] = R[ A ] >>> V;

		}

	};

	H.H.M = function ( N, W, R ) {

		R = R << ( W & 7 ); var V = W >>> 3; N[ V ] |= R; N[ V + 1 ] |= R >>> 8;

	};

	H.H.I = function ( N, W, R ) {

		R = R << ( W & 7 ); var V = W >>> 3; N[ V ] |= R; N[ V + 1 ] |= R >>> 8; N[ V + 2 ] |= R >>> 16;

	};

	H.H.e = function ( N, W, R ) {

		return ( N[ W >>> 3 ] | N[ ( W >>> 3 ) + 1 ] << 8 ) >>> ( W & 7 ) & ( 1 << R ) - 1;

	};

	H.H.b = function ( N, W, R ) {

		return ( N[ W >>> 3 ] | N[ ( W >>> 3 ) + 1 ] << 8 | N[ ( W >>> 3 ) + 2 ] << 16 ) >>> ( W & 7 ) & ( 1 << R ) - 1;

	};

	H.H.Z = function ( N, W ) {

		return ( N[ W >>> 3 ] | N[ ( W >>> 3 ) + 1 ] << 8 | N[ ( W >>> 3 ) + 2 ] << 16 ) >>> ( W & 7 );

	};

	H.H.i = function ( N, W ) {

		return ( N[ W >>> 3 ] | N[ ( W >>> 3 ) + 1 ] << 8 | N[ ( W >>> 3 ) + 2 ] << 16 | N[ ( W >>> 3 ) + 3 ] << 24 ) >>> ( W & 7 );

	};

	H.H.m = function () {

		var N = Uint16Array, W = Uint32Array;
		return { K: new N( 16 ), j: new N( 16 ), X: [ 16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15 ], S: [ 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31, 35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 999, 999, 999 ], T: [ 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 0, 0, 0, 0 ], q: new N( 32 ), p: [ 1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193, 257, 385, 513, 769, 1025, 1537, 2049, 3073, 4097, 6145, 8193, 12289, 16385, 24577, 65535, 65535 ], z: [ 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 0, 0 ], c: new W( 32 ), J: new N( 512 ), _: [], h: new N( 32 ), $: [], w: new N( 32768 ), C: [], v: [], d: new N( 32768 ), D: [], u: new N( 512 ), Q: [], r: new N( 1 << 15 ), s: new W( 286 ), Y: new W( 30 ), a: new W( 19 ), t: new W( 15e3 ), k: new N( 1 << 16 ), g: new N( 1 << 15 ) }
		;

	}();
	( function () {

		var N = H.H.m, W = 1 << 15; for ( var R = 0; R < W; R ++ ) {

			var V = R; V = ( V & 2863311530 ) >>> 1 | ( V & 1431655765 ) << 1;
			V = ( V & 3435973836 ) >>> 2 | ( V & 858993459 ) << 2; V = ( V & 4042322160 ) >>> 4 | ( V & 252645135 ) << 4; V = ( V & 4278255360 ) >>> 8 | ( V & 16711935 ) << 8;
			N.r[ R ] = ( V >>> 16 | V << 16 ) >>> 17
			;

		}

		function n( A, l, M ) {

			while ( l -- != 0 )A.push( 0, M )
			;

		}

		for ( var R = 0; R < 32; R ++ ) {

			N.q[ R ] = N.S[ R ] << 3 | N.T[ R ];
			N.c[ R ] = N.p[ R ] << 4 | N.z[ R ]
			;

		}

		n( N._, 144, 8 ); n( N._, 255 - 143, 9 ); n( N._, 279 - 255, 7 ); n( N._, 287 - 279, 8 ); H.H.n( N._, 9 );
		H.H.A( N._, 9, N.J ); H.H.l( N._, 9 ); n( N.$, 32, 5 ); H.H.n( N.$, 5 ); H.H.A( N.$, 5, N.h ); H.H.l( N.$, 5 ); n( N.Q, 19, 0 ); n( N.C, 286, 0 );
		n( N.D, 30, 0 ); n( N.v, 320, 0 )
		;

	}() );

	return H.H.N
	;

}();


UPNG.decode._readInterlace = function ( data, out ) {

	var w = out.width, h = out.height;
	var bpp = UPNG.decode._getBPP( out ), cbpp = bpp >> 3, bpl = Math.ceil( w * bpp / 8 );
	var img = new Uint8Array( h * bpl );
	var di = 0;

	var starting_row = [ 0, 0, 4, 0, 2, 0, 1 ];
	var starting_col = [ 0, 4, 0, 2, 0, 1, 0 ];
	var row_increment = [ 8, 8, 8, 4, 4, 2, 2 ];
	var col_increment = [ 8, 8, 4, 4, 2, 2, 1 ];

	var pass = 0;
	while ( pass < 7 ) {

		var ri = row_increment[ pass ], ci = col_increment[ pass ];
		var sw = 0, sh = 0;
		var cr = starting_row[ pass ]; while ( cr < h ) {

			cr += ri; sh ++;

		}

		var cc = starting_col[ pass ]; while ( cc < w ) {

			cc += ci; sw ++;

		}

		var bpll = Math.ceil( sw * bpp / 8 );
		UPNG.decode._filterZero( data, out, di, sw, sh );

		var y = 0, row = starting_row[ pass ];
		var val;

		while ( row < h ) {

			var col = starting_col[ pass ];
			var cdi = ( di + y * bpll ) << 3;

			while ( col < w ) {

				if ( bpp == 1 ) {

					val = data[ cdi >> 3 ]; val = ( val >> ( 7 - ( cdi & 7 ) ) ) & 1;
					img[ row * bpl + ( col >> 3 ) ] |= ( val << ( 7 - ( ( col & 7 ) << 0 ) ) );

				}

				if ( bpp == 2 ) {

					val = data[ cdi >> 3 ]; val = ( val >> ( 6 - ( cdi & 7 ) ) ) & 3;
					img[ row * bpl + ( col >> 2 ) ] |= ( val << ( 6 - ( ( col & 3 ) << 1 ) ) );

				}

				if ( bpp == 4 ) {

					val = data[ cdi >> 3 ]; val = ( val >> ( 4 - ( cdi & 7 ) ) ) & 15;
					img[ row * bpl + ( col >> 1 ) ] |= ( val << ( 4 - ( ( col & 1 ) << 2 ) ) );

				}

				if ( bpp >= 8 ) {

					var ii = row * bpl + col * cbpp;
					for ( var j = 0; j < cbpp; j ++ ) img[ ii + j ] = data[ ( cdi >> 3 ) + j ];

				}

				cdi += bpp; col += ci;

			}

			y ++; row += ri;

		}

		if ( sw * sh != 0 ) di += sh * ( 1 + bpll );
		pass = pass + 1;

	}

	return img;

};

UPNG.decode._getBPP = function ( out ) {

	var noc = [ 1, null, 3, 1, 2, null, 4 ][ out.ctype ];
	return noc * out.depth;

};

UPNG.decode._filterZero = function ( data, out, off, w, h ) {

	var bpp = UPNG.decode._getBPP( out ), bpl = Math.ceil( w * bpp / 8 ), paeth = UPNG.decode._paeth;
	bpp = Math.ceil( bpp / 8 );

	var i, di, type = data[ off ], x = 0;

	if ( type > 1 ) data[ off ] = [ 0, 0, 1 ][ type - 2 ];
	if ( type == 3 ) for ( x = bpp; x < bpl; x ++ ) data[ x + 1 ] = ( data[ x + 1 ] + ( data[ x + 1 - bpp ] >>> 1 ) ) & 255;

	for ( var y = 0; y < h; y ++ ) {

		i = off + y * bpl; di = i + y + 1;
		type = data[ di - 1 ]; x = 0;

		if ( type == 0 ) for ( ; x < bpl; x ++ ) data[ i + x ] = data[ di + x ];
		else if ( type == 1 ) {

			for ( ; x < bpp; x ++ ) data[ i + x ] = data[ di + x ];
						   for ( ; x < bpl; x ++ ) data[ i + x ] = ( data[ di + x ] + data[ i + x - bpp ] );

		} else if ( type == 2 ) {

			for ( ; x < bpl; x ++ ) data[ i + x ] = ( data[ di + x ] + data[ i + x - bpl ] );

		} else if ( type == 3 ) {

			for ( ; x < bpp; x ++ ) data[ i + x ] = ( data[ di + x ] + ( data[ i + x - bpl ] >>> 1 ) );
			               for ( ; x < bpl; x ++ ) data[ i + x ] = ( data[ di + x ] + ( ( data[ i + x - bpl ] + data[ i + x - bpp ] ) >>> 1 ) );

		} else {

			for ( ; x < bpp; x ++ ) data[ i + x ] = ( data[ di + x ] + paeth( 0, data[ i + x - bpl ], 0 ) );
						   for ( ; x < bpl; x ++ ) data[ i + x ] = ( data[ di + x ] + paeth( data[ i + x - bpp ], data[ i + x - bpl ], data[ i + x - bpp - bpl ] ) );

		}

	}

	return data;

};

UPNG.decode._paeth = function ( a, b, c ) {

	var p = a + b - c, pa = ( p - a ), pb = ( p - b ), pc = ( p - c );
	if ( pa * pa <= pb * pb && pa * pa <= pc * pc ) return a;
	else if ( pb * pb <= pc * pc ) return b;
	return c;

};

UPNG.decode._IHDR = function ( data, offset, out ) {

	var bin = UPNG._bin;
	out.width = bin.readUint( data, offset ); offset += 4;
	out.height = bin.readUint( data, offset ); offset += 4;
	out.depth = data[ offset ]; offset ++;
	out.ctype = data[ offset ]; offset ++;
	out.compress = data[ offset ]; offset ++;
	out.filter = data[ offset ]; offset ++;
	out.interlace = data[ offset ]; offset ++;

};

UPNG._bin = {
	nextZero: function ( data, p ) {

		while ( data[ p ] != 0 ) p ++; return p;

	},
	readUshort: function ( buff, p ) {

		return ( buff[ p ] << 8 ) | buff[ p + 1 ];

	},
	writeUshort: function ( buff, p, n ) {

		buff[ p ] = ( n >> 8 ) & 255; buff[ p + 1 ] = n & 255;

	},
	readUint: function ( buff, p ) {

		return ( buff[ p ] * ( 256 * 256 * 256 ) ) + ( ( buff[ p + 1 ] << 16 ) | ( buff[ p + 2 ] << 8 ) | buff[ p + 3 ] );

	},
	writeUint: function ( buff, p, n ) {

		buff[ p ] = ( n >> 24 ) & 255; buff[ p + 1 ] = ( n >> 16 ) & 255; buff[ p + 2 ] = ( n >> 8 ) & 255; buff[ p + 3 ] = n & 255;

	},
	readASCII: function ( buff, p, l ) {

		var s = ''; for ( var i = 0; i < l; i ++ ) s += String.fromCharCode( buff[ p + i ] ); return s;

	},
	writeASCII: function ( data, p, s ) {

		for ( var i = 0; i < s.length; i ++ ) data[ p + i ] = s.charCodeAt( i );

	},
	readBytes: function ( buff, p, l ) {

		var arr = []; for ( var i = 0; i < l; i ++ ) arr.push( buff[ p + i ] ); return arr;

	},
	pad: function ( n ) {

		return n.length < 2 ? '0' + n : n;

	},
	readUTF8: function ( buff, p, l ) {

		var s = '', ns;
		for ( var i = 0; i < l; i ++ ) s += '%' + UPNG._bin.pad( buff[ p + i ].toString( 16 ) );
		try {

			ns = decodeURIComponent( s );

		} catch ( e ) {

			return UPNG._bin.readASCII( buff, p, l );

		}

		return ns;

	}
};
UPNG._copyTile = function ( sb, sw, sh, tb, tw, th, xoff, yoff, mode ) {

	var w = Math.min( sw, tw ), h = Math.min( sh, th );
	var si = 0, ti = 0;
	for ( var y = 0; y < h; y ++ )
		for ( var x = 0; x < w; x ++ ) {

			if ( xoff >= 0 && yoff >= 0 ) {

				si = ( y * sw + x ) << 2; ti = ( ( yoff + y ) * tw + xoff + x ) << 2;

			} else {

				si = ( ( - yoff + y ) * sw - xoff + x ) << 2; ti = ( y * tw + x ) << 2;

			}

			if ( mode == 0 ) {

				tb[ ti ] = sb[ si ]; tb[ ti + 1 ] = sb[ si + 1 ]; tb[ ti + 2 ] = sb[ si + 2 ]; tb[ ti + 3 ] = sb[ si + 3 ];

			} else if ( mode == 1 ) {

				var fa = sb[ si + 3 ] * ( 1 / 255 ), fr = sb[ si ] * fa, fg = sb[ si + 1 ] * fa, fb = sb[ si + 2 ] * fa;
				var ba = tb[ ti + 3 ] * ( 1 / 255 ), br = tb[ ti ] * ba, bg = tb[ ti + 1 ] * ba, bb = tb[ ti + 2 ] * ba;

				var ifa = 1 - fa, oa = fa + ba * ifa, ioa = ( oa == 0 ? 0 : 1 / oa );
				tb[ ti + 3 ] = 255 * oa;
				tb[ ti + 0 ] = ( fr + br * ifa ) * ioa;
				tb[ ti + 1 ] = ( fg + bg * ifa ) * ioa;
				tb[ ti + 2 ] = ( fb + bb * ifa ) * ioa;

			} else if ( mode == 2 ) {	// copy only differences, otherwise zero

				var fa = sb[ si + 3 ], fr = sb[ si ], fg = sb[ si + 1 ], fb = sb[ si + 2 ];
				var ba = tb[ ti + 3 ], br = tb[ ti ], bg = tb[ ti + 1 ], bb = tb[ ti + 2 ];
				if ( fa == ba && fr == br && fg == bg && fb == bb ) {

					tb[ ti ] = 0; tb[ ti + 1 ] = 0; tb[ ti + 2 ] = 0; tb[ ti + 3 ] = 0;

				} else {

					tb[ ti ] = fr; tb[ ti + 1 ] = fg; tb[ ti + 2 ] = fb; tb[ ti + 3 ] = fa;

				}

			} else if ( mode == 3 ) {	// check if can be blended

				var fa = sb[ si + 3 ], fr = sb[ si ], fg = sb[ si + 1 ], fb = sb[ si + 2 ];
				var ba = tb[ ti + 3 ], br = tb[ ti ], bg = tb[ ti + 1 ], bb = tb[ ti + 2 ];
				if ( fa == ba && fr == br && fg == bg && fb == bb ) continue;
				//if(fa!=255 && ba!=0) return false;
				if ( fa < 220 && ba > 20 ) return false;

			}

		}

	return true;

};

export { RGBMLoader };