@@ -34,6 +34,8 @@ im_invert in = vips_call9 "invert" [in] [];
3434
3535im_replicate in across down = vips_call9 "replicate" [in, across, down] [];
3636
37+ im_read_point in x y = vips_call9 "getpoint" [in, x, y] [];
38+
3739im_copy_set im t xr yr xo yo
3840 = vips_call9 "copy" [im] [
3941 $interpretation => t,
@@ -245,6 +247,11 @@ im_convsep in matrix
245247 $precision => "integer"
246248 ];
247249
250+ im_aconvsep in matrix
251+ = vips_call9 "convsep" [in, matrix] [
252+ $precision => "approximate"
253+ ];
254+
248255im_convsep_f in matrix
249256 = vips_call9 "convsep" [in, matrix] [
250257 $precision => "float"
@@ -408,8 +415,11 @@ im_stdif in a m0 b s0 xw yw
408415
409416im_stdif_raw = im_stdif;
410417
411- im_rad2float filename
412- = vips_call9 "rad2float" [filename] [];
418+ im_rad2float in
419+ = vips_call9 "rad2float" [in] [];
420+
421+ im_float2rad in
422+ = vips_call9 "float2rad" [in] [];
413423
414424im_csv2vips filename
415425 = vips_call9 "csvload" [filename] [
@@ -564,8 +574,15 @@ im_tone_build_range in_max out_max Lb Lw Ps Pm Ph S M H
564574 $H => H
565575 ];
566576
567- // this was never ported to vips8 and is a bit useless
568- im_zerox in flag = error "im_zerox: not implemented";
577+ // not useful and not in vips8
578+ im_tone_analyse in Ps Pm Ph S M H
579+ = error "not implemented";
580+ im_tone_map in lut
581+ = error "not implemented";
582+ im_zerox in flag
583+ = error "not implemented";
584+ im_icc_ac2rc in profile
585+ = error "not implemented";
569586
570587im_cntlines in dir
571588 = vips_call9 "countlines" [in, dir] [
@@ -590,6 +607,10 @@ im_affinei_all in interpolate a b c d dx dy
590607 $idy => dy
591608 ];
592609
610+ im_zoom in x y
611+ = vips_call9 "zoom" [in, x, y] [
612+ ];
613+
593614im_project in
594615 = vips_call9 "project" [in] [
595616 ];
@@ -736,6 +757,9 @@ im_draw_flood in start_x start_y ink
736757im_draw_line image x1 y1 x2 y2 ink
737758 = vips_call9 "draw_line" [image, ink, x1, y1, x2, y2] [];
738759
760+ im_draw_rect image left top width height fill ink
761+ = vips_call9 "draw_rect" [image, ink, left, top, width, height] [];
762+
739763im_draw_circle image cx cy radius fill ink
740764 = vips_call9 "draw_circle" [image, ink, cx, cy, radius] [
741765 $fill => fill != 0
0 commit comments