1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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
|
