blob: 04c0e147ef59d1f39ff001749fcecee0620a89c4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "zdisplay.h"
# ZRGBIM -- Set RGB display.
procedure zrgbim (red_chan, green_chan, blue_chan)
int red_chan[ARB], green_chan[ARB], blue_chan[ARB]
int device
begin
device = red_chan[1] / DEVCODE
switch (device) {
case IIS_CHAN:
call iisrgb (red_chan, green_chan, blue_chan)
}
end
|
