TEKMAP generates a 2 dimensional filled-area map on a Tektronics 41xx series compatible terminal using "panels" via calls to TEKBOX. It can only be used on compatible terminals. The routine TERSCL can be used to compute (ix,iy) and (jx,jy). Calls TEKBO to plot array elements. Displayed map will be clipped to terminal display area.
CALL TEKMAP(a,dx,dy,nx,ny,ix,iy,bx,by)
a (I): index array a(dx,dy) for rectangular color/pattern
to be displayed (see Tektronics manual)
< -15 : blank
-15 to 0 : solid color
1 to 16 : predetermined pattern
50 to 174 : dither pattern
dx,dy (I): dimension of a array
nx,ny (I): portion of a array to display
ix,iy (I): lower-left corner of map in Tektronics coordinates
(0 <= ix,iy < 4096)
bx,by (R): size of individual panel in Tektronics coordinates
(0 < bx,by < 4096)