blob: e20689f160f16ba9e1ee7ebe86a57badb015cf5a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# DS_PMMAP -- Open a pixel mask READ_ONLY.
pointer procedure ds_pmmap (pmname, refim)
char pmname[ARB] #I Pixel mask name
pointer refim #I Reference image pointer
pointer sp, mname
pointer im, yt_mappm()
errchk yt_mappm
begin
call smark (sp)
call salloc (mname, SZ_FNAME, TY_CHAR)
im = yt_mappm (pmname, refim, "pmmatch", Memc[mname], SZ_FNAME)
call sfree (sp)
return (im)
end
|
