compat/8.4/Tasks.def

254 			"find an RGB -> XYZ transform from an image of a colour chart" {
270 			mode = Option "Input LUT" [
271 				"Linearize from chart greyscale",
272 				"Fit intercept from chart greyscale",
273 				"Linear input, set brightness from chart",
280 			// measure chart image
289 			_true_grey_Y = map (extract 1) (drop 18 _true_XYZ.value);
295 			_camera_grey' = map (map (multiply (1 / _max_value))) _camera_grey;
296 			_true_grey_Y' = map (multiply (1 / 100)) _true_grey_Y;
298 				= Matrix (map2 cons _true_grey_Y' _camera_grey'), mode == 0
300 					mode == 1
315 			// map an image though the lineariser
317 				= hist_map linearising_lut.value x, mode == 0 || mode == 1
320 			// map the chart measurements though the lineariser
338 			_dEs = map abs_vec (_camera'' - _true_Lab).value;
352 			// normalise brightness ... in linear mode, we optionally don't
353 			// set the brightness from the Macbeth chart
355 				= x * scale, mode != 3
426 					= transpose [map mean (bandsplit x)];
442 			!all_equal (map get_format l) || !all_equal (map get_coding l)
444 			!foldr1 equal (map len l')
448 		all_equal l = all (map (equal (hd l)) (tl l));
451 		images = mkset pointer_equal (map get_image l);
458 		l' = map (find l) images;
469 		l' = map (sortc above) l;
484 		l' = map (sortc left) l;
733 			_scaled_ims = map (fn_so_apply im_in) _adjusted;