C
C	First, save a few things, then get the coordinates
C
	XSCALE = XSCALT
	YSCALE = YSCALT
	XOFFC = XOFFT
	YOFFC = YOFFT
C
	CALL PARSCO (IERR,STRNG2,LSTRN2,2,COOR(1,9),ORIG)
	IF (IERR .EQ. 0) GOTO 10
	CALL ERRPRT('  MPRECT',IERR,1,'Decoding coordinates')
	GOTO 210
10	IF (PORIGN) GO TO 210
	X1 = COOR(1,9)
	Y1 = COOR(2,9)
	X2 = COOR(3,9)
	Y2 = COOR(4,9)
C
C	now do what we asked for (physical units)
C
	XSCALE = 1.0
	YSCALE = 1.0
	XOFFC = 0.0
	YOFFC = 0.0
	IF (KREBOX .EQ. 0) GOTO 100
C
C	first is the box
C
	CALL VECTOR (FLOAT(NIBREL),FLOAT(LINREL),5)
	CALL VECTOR (X1,Y1,1)
	CALL VECTOR (X1,Y2,2)
	CALL VECTOR (X2,Y2,2)
	CALL VECTOR (X2,Y1,2)
	CALL VECTOR (X1,Y1,2)
C
C	now shading, if any
C
100	IF (KRESHD .EQ. 0) GOTO 200
	CALL MPSHAD(X1,Y1,X2,Y2,KRESHD,REDIST,NIBRES,LINRES)
C
C	now restore things to a normal state of affairs
C
200	CALL VECTOR(X1,Y1,1)			! get that pen up
210	RETURN
	END