SUBROUTINE MPSHAD(X1,Y1,X2,Y2,ISHADE,DIST,NIB,LINP) C C This subroutine shades in a rectangle defined by the oposite C corners (X1,Y1) --> (X2,Y2). Lines are drawn in the direction C specified by ISHADE: 1 = -45 degrees C 2 = 0 degrees (vertical) C 4 = 45 degrees C 10 = 90 degrees (horizontal) C lines are DIST apart, drawn with the given NIBs and LINe Pattern. C C H Gregg C Mich State Univ C C=============================================================================== C