Add HDRI support.

2 files changed, 69 insertions, 18 deletions

diff --git a/dmagick/c/magickType.d b/dmagick/c/magickType.d
index 6f3a17b..1c0d332 100644
--- a/dmagick/c/magickType.d
+++ b/dmagick/c/magickType.d
@@ -10,7 +10,11 @@ extern (C)
 		 * Quantum is an alias for the smallest integer that can hold
 		 * a pixel channel.
 		 */
-		alias ubyte     Quantum;
+		version(MagickCore_HDRI)
+			alias float Quantum;
+		else
+			alias ubyte Quantum;
+
 		alias ptrdiff_t SignedQuantum;
 
 		static if ( MagickLibVersion >= 0x680 )
@@ -22,7 +26,7 @@ extern (C)
 		 * The largest value that fits in a Quantum, This is the same
 		 * as Quantum.max except when the Quantum dept is 64 bits.
 		 */
-		enum QuantumRange = Quantum.max;
+		enum QuantumRange = ubyte.max;
 		enum MAGICKCORE_QUANTUM_DEPTH = 8;
 		enum MaxColormapSize = 256;
 
@@ -38,7 +42,11 @@ extern (C)
 		 * Quantum is an alias for the smallest integer that can hold
 		 * a pixel channel.
 		 */
-		alias uint   Quantum;
+		version(MagickCore_HDRI)
+			alias float Quantum;
+		else
+			alias uint  Quantum;
+
 		alias double SignedQuantum;
 		alias double MagickRealType;
 
@@ -46,7 +54,7 @@ extern (C)
 		 * The largest value that fits in a Quantum, This is the same
 		 * as Quantum.max except when the Quantum dept is 64 bits.
 		 */
-		enum QuantumRange = Quantum.max;
+		enum QuantumRange = uint.max;
 		enum MAGICKCORE_QUANTUM_DEPTH = 32;
 		enum MaxColormapSize = 65536;
 
@@ -88,7 +96,11 @@ extern (C)
 		 * Quantum is an alias for the smallest integer that can hold
 		 * a pixel channel.
 		 */
-		alias ushort    Quantum;
+		version(MagickCore_HDRI)
+			alias float  Quantum;
+		else
+			alias ushort Quantum;
+
 		alias ptrdiff_t SignedQuantum;
 
 		static if ( MagickLibVersion >= 0x680 )
@@ -100,7 +112,7 @@ extern (C)
 		 * The largest value that fits in a Quantum, This is the same
 		 * as Quantum.max except when the Quantum dept is 64 bits.
 		 */
-		enum QuantumRange = Quantum.max;
+		enum QuantumRange = ushort.max;
 		enum MAGICKCORE_QUANTUM_DEPTH = 16;
 		enum MaxColormapSize = 65536;
 
diff --git a/dmagick/c/quantum.d b/dmagick/c/quantum.d
index a7b14b3..f86d59c 100644
--- a/dmagick/c/quantum.d
+++ b/dmagick/c/quantum.d
@@ -70,23 +70,62 @@ extern(C)
 	alias ClampToQuantum RoundToQuantum;
 	static pure nothrow Quantum ClampToQuantum(const MagickRealType value)
 	{
-		if (value <= 0.0)
-			return(cast(Quantum) 0);
-		if (value >= cast(MagickRealType) QuantumRange)
-			return(cast(Quantum) QuantumRange);
-		return(cast(Quantum) (value+0.5));
+		version(MagickCore_HDRI)
+		{
+			return value;
+		}
+		else
+		{
+			if (value <= 0.0)
+				return(cast(Quantum) 0);
+			if (value >= cast(MagickRealType) QuantumRange)
+				return(cast(Quantum) QuantumRange);
+			return(cast(Quantum) (value+0.5));
+		}
 	}
 
 	static pure nothrow ubyte ScaleQuantumToChar(const Quantum quantum)
 	{
-		static if ( MagickQuantumDepth == 8 )
-			return quantum;
-		else static if ( MagickQuantumDepth == 16 )
-			return cast(ubyte) (((quantum+128UL)-((quantum+128UL) >> 8)) >> 8);
-		else static if ( MagickQuantumDepth == 32 )
-			return cast(ubyte) (quantum+8421504UL/16843009UL );
+		version(MagickCore_HDRI)
+		{
+			if ( quantum <= 0 )
+				return 0;
+			static if ( MagickQuantumDepth == 8 )
+			{
+				if ( quantum >= 255 )
+					return 255;
+				return cast(ubyte)(quantum+0.5);
+			}
+			else static if ( MagickQuantumDepth == 16 )
+			{
+				if ( quantum/257 >= 255)
+					return 255;
+				return cast(ubyte)(quantum/257+0.5);
+			}
+			else static if ( MagickQuantumDepth == 32 )
+			{
+				if ( quantum/16843009 >= 255)
+					return 255;
+				return cast(ubyte)(quantum/16843009+0.5);
+			}
+			else
+			{
+				if ( quantum/72340172838076673 >= 255)
+					return 255;
+				return cast(ubyte)(quantum/72340172838076673+0.5);
+			}
+		}
 		else
-			return cast(ubyte) (quantum/72340172838076673.0+0.5);
+		{
+			static if ( MagickQuantumDepth == 8 )
+				return quantum;
+			else static if ( MagickQuantumDepth == 16 )
+				return cast(ubyte) (((quantum+128UL)-((quantum+128UL) >> 8)) >> 8);
+			else static if ( MagickQuantumDepth == 32 )
+				return cast(ubyte) (quantum+8421504UL/16843009UL );
+			else
+				return cast(ubyte) (quantum/72340172838076673.0+0.5);
+		}
 	}
 
 	static pure nothrow Quantum ScaleCharToQuantum(ubyte value)