more vips7 compat macros

Author: jcupitt

CHANGELOG.md

@@ -15,6 +15,7 @@
 - better recover after crash sorting
 - fix an infobar race
 - program: add find unresolved syms
+- lots more vips7 compat macros
 
 ## 9.0.12 2025/08/21
 

share/nip4/start/_vips7compat.def

@@ -26,6 +26,11 @@ im_clip2s x = vips_call9 "cast" [x, "short"] [];
 im_clip2f x = vips_call9 "cast" [x, "float"] [];
 
 im_scale x = vips_call9 "scale" [x] [];
+im_scaleps x = vips_call9 "scale" [x] [
+		$log => true
+	];
+
+im_invert in = vips_call9 "invert" [in] [];
 
 im_replicate in across down = vips_call9 "replicate" [in, across, down] [];
 
@@ -130,11 +135,18 @@ im_XYZ2Yxy x = vips_call9 "XYZ2Yxy" [x] [];
 im_Yxy2XYZ x = vips_call9 "Yxy2XYZ" [x] [];
 
 im_XYZ2UCS = im_LCh2UCS @ im_Lab2LCh @ im_XYZ2Lab;
+im_UCS2XYZ = im_Lab2XYZ @ im_LCh2Lab @ im_UCS2LCh;
 im_sRGB2XYZ = im_scRGB2XYZ @ im_sRGB2scRGB;
 im_XYZ2sRGB = im_scRGB2sRGB @ im_XYZ2scRGB;
 im_Lab2UCS = im_LCh2UCS @ im_Lab2LCh;
 im_UCS2Lab = im_LCh2Lab @ im_UCS2LCh;
 
+im_LabQ2disp in disp = vips_call9 "LabQ2sRGB" [in] [];
+im_Lab2disp in disp = (im_XYZ2sRGB @ im_Lab2XYZ) in;
+im_XYZ2disp in disp = im_XYZ2sRGB in;
+im_disp2Lab in disp = (im_XYZ2Lab @ im_sRGB2XYZ) in;
+im_disp2XYZ in disp = im_sRGB2XYZ in;
+
 im_icc_import x profile intent
 	= vips_call9 "icc_import" [x] [
 		$intent => intent,
@@ -238,6 +250,28 @@ im_convsep_f in matrix
 		$precision => "float"
 	];
 
+im_compass in matrix
+	= vips_call9 "compass" [in, matrix] [
+		$times => 8,
+		$angle => "d45",
+		$precision => "integer"
+	];
+
+im_lindetect in matrix
+	= vips_call9 "compass" [in, matrix] [
+		$times => 4,
+		$angle => "d45",
+		$precision => "integer"
+	];
+
+im_gradient in matrix
+	= vips_call9 "compass" [in, matrix] [
+		$times => 2,
+		$angle => "d90",
+		$combine => "sum",
+		$precision => "integer"
+	];
+
 im_rotate_dmask45 matrix
 	= im_vips2mask matrix'
 {
@@ -372,6 +406,23 @@ im_stdif in a m0 b s0 xw yw
 		$a => a
 	];
 
+im_stdif_raw = im_stdif;
+
+im_rad2float filename
+	= vips_call9 "rad2float" [filename] [];
+
+im_csv2vips filename
+	= vips_call9 "csvload" [filename] [
+	];
+
+im_binfile filename out width height bands offset
+	= vips_call9 "rawload" [filename, out, width, height, bands] [
+		$offset => offset
+	];
+
+im_video_v4l1 device channel brightness colour contrast hue ngrabs
+	= error "no v4l support";
+
 im_histgr in band_number
 	= vips_call9 "hist_find" [in] [
 		$band => band_number
@@ -646,6 +697,10 @@ im_global_balance in gamma
 		$int_output => true
 	];
 
+im_remosaic in old_str new_str
+	= vips_call9 "remosaic" [in, old_str new_str] [
+	];
+
 im_system_image in in_format out_format command
 	= vips_call9 "system" [command] [
 		$in => [in],