1 files changed, 93 insertions, 0 deletions
diff --git a/lcms2mt/utils/samples/mkgrayer.c b/lcms2mt/utils/samples/mkgrayer.c
new file mode 100644
index 000000000..46e928618
--- /dev/null
+++ b/lcms2mt/utils/samples/mkgrayer.c
@@ -0,0 +1,93 @@
+//
+//  Little cms
+//  Copyright (C) 1998-2003 Marti Maria
+//
+// Permission is hereby granted, free of charge, to any person obtaining 
+// a copy of this software and associated documentation files (the "Software"), 
+// to deal in the Software without restriction, including without limitation 
+// the rights to use, copy, modify, merge, publish, distribute, sublicense, 
+// and/or sell copies of the Software, and to permit persons to whom the Software 
+// is furnished to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be included in 
+// all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO 
+// THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE 
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION 
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION 
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+#include "lcms.h"
+
+
+
+static
+int Forward(register WORD In[], register WORD Out[], register LPVOID Cargo)
+{	
+    cmsCIELab Lab;
+
+
+    cmsLabEncoded2Float(&Lab, In);
+
+	if (fabs(Lab.a) < 3 && fabs(Lab.b) < 3) {
+		
+		double L_01 = Lab.L / 100.0;
+	    WORD K;
+
+		if (L_01 > 1) L_01 = 1;
+		K = (WORD) floor(L_01* 65535.0 + 0.5);
+
+		Out[0] = Out[1] = Out[2] = K; 
+	}
+	else {
+		Out[0] = 0xFFFF; Out[1] = 0; Out[2] = 0; 
+	}
+
+	return TRUE;
+}
+
+
+
+
+	
+int main(int argc, char *argv[])
+{
+	LPLUT BToA0;
+	cmsHPROFILE hProfile;
+
+	fprintf(stderr, "Creating interpol2.icc...");
+
+	unlink("interpol2.icc");
+	hProfile = cmsOpenProfileFromFile("interpol2.icc", "w8");
+
+
+    BToA0 = cmsAllocLUT();
+
+	cmsAlloc3DGrid(BToA0, 17, 3, 3);
+	    
+	cmsSample3DGrid(BToA0, Forward, NULL, 0);
+			
+    cmsAddTag(hProfile, icSigBToA0Tag, BToA0);
+	                                
+	cmsSetColorSpace(hProfile, icSigRgbData);
+    cmsSetPCS(hProfile, icSigLabData);
+    cmsSetDeviceClass(hProfile, icSigOutputClass);
+
+	cmsAddTag(hProfile, icSigProfileDescriptionTag, "Interpolation test");
+    cmsAddTag(hProfile, icSigCopyrightTag,          "Copyright (c) HP 2007. All rights reserved.");
+    cmsAddTag(hProfile, icSigDeviceMfgDescTag,      "Little cms");    
+    cmsAddTag(hProfile, icSigDeviceModelDescTag,    "Interpolation test profile");
+
+	
+	cmsCloseProfile(hProfile);
+    
+	cmsFreeLUT(BToA0);
+	
+	fprintf(stderr, "Done.\n");
+
+	return 0;
+}