Repatch (from linux) of OSX IRAF

1 files changed, 40 insertions, 0 deletions

diff --git a/pkg/plot/crtpict/plotimage.x b/pkg/plot/crtpict/plotimage.x
new file mode 100644
index 00000000..add1ed8a
--- /dev/null
+++ b/pkg/plot/crtpict/plotimage.x
@@ -0,0 +1,40 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	"wdes.h"
+include	"crtpict.h"
+
+# CRT_PLOT_IMAGE - Plot the image, graphics and greyscale portion of
+# each image to be transformed.
+
+procedure crt_plot_image (gp, im, image, cl)
+
+pointer	gp			# Graphics descriptor
+pointer	im			# Pointer to image
+char	image[SZ_FNAME]		# Image filename
+pointer	cl			# Pointer to structure of cl parameters
+
+pointer	sp, wdes
+errchk	crt_establish_transform, crt_transform_image
+errchk  crt_draw_graphics, crt_draw_greyscale
+
+begin
+	call smark (sp)
+	call salloc (wdes, LEN_WDES, TY_STRUCT)
+	call strcpy (image, W_IMSECT(wdes), W_SZIMSECT)
+
+	if (IMAGE_FRACTION(cl) > EPSILON) {
+	    call crt_establish_transform (gp, im, cl, wdes)
+	    call crt_transform_image (gp, im, wdes, cl)
+	}
+
+	if (GRAPHICS_FRACTION(cl) > EPSILON)  {
+	    call crt_draw_graphics (gp, im, cl, wdes)
+	}
+
+	if (GREYSCALE_FRACTION(cl) > EPSILON) {
+	    call crt_draw_greyscale (gp, cl)
+	}
+
+	call sfree (sp)
+end