SUBROUTINE OCODE(X,Y,ICODE)
C
C	NAME: OCODE
C
C	LANGUAGE:  FORTRAN
C
C	OPERATING SYSTEM:  DEC VAX/VMS
C
C	ORDER NUMBER:  5448-SE
C
C	PART NUMBER:  000-025522-001  OCTOBER 1985
C
C	PRODUCT:  DEC VAX/VMS VERSAPLOT COLOR RANDOM 2.0
C
C	VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C	A XEROX COMPANY
C
C	Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C	"NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C	INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C	LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C	PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C	REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C	THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C	VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C	AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C	THE COPYRIGHT ACT OF 1976."
C
C	OCODE - RETURN A POINT'S OUT CODE RELATIVE TO A CLIPPING WINDOW
C
C	OCODE RECEIVES A POINT AND RETURNS A FOUR BIT OUT CODE WHICH
C	SPECIFIES THE LOCATION OF THE POINT RELATIVE TO THE WINDOW.
C
C	THE WORLD COORDINATE SYSTEM CAN BE DIVIDED INTO 9 REGIONS BY
C	EXTENDING THE EDGES OF THE CLIPPING WINDOW AS SHOWN BELOW. EACH
C	OF THESE REGIONS HAS A 4-BIT CODE.
C
C			  !               !
C			  !               !
C	       1001       !     1000      !       1010
C			  !               !
C	  --------------------------------------------------
C			  !               !
C			  !               !
C	       0001       !     0000      !       0010
C			  !               !
C			  !               !
C	  --------------------------------------------------
C			  !               !
C	       0101       !     0100      !       0110
C			  !               !
C			  !               !
C
C	THE FOUR BITS OF THE OUT CODE MEAN THE FOLLOWING IF SET:
C		FIRST BIT:	POINT IS TO THE LEFT OF THE LEFT EDGE
C		SECOND BIT:	POINT IS TO THE RIGHT OF THE RIGHT EDGE
C		THIRD BIT:	POINT IS BELOW THE BOTTOM EDGE
C		FOURTH BIT:	POINT IS ABOVE THE TOP EDGE
C
C	ENTRY: CALL OCODE(X,Y,ICODE)
C
C		X,Y       - COORDINATE OF POINT
C		ICODE    - OUT CODE RETURN VARIABLE
C
C	EXIT: ICODE = FOUR BIT OUT CODE FOR X,Y WITH RESPECT TO WINDOW
C
C	CALLS: NONE
C
C	CALLED BY: CLIP,TONE
C
C	COMMON USED:
C	/DVCOM/
C		R WIN()   - THE CURRENT VIEW WINDOW IN COMPUTATIONAL
C		            COORDINATES
C
C	LOCAL: NONE
C
	INCLUDE 'DVCOM.CMN'
C
C
C
	ICODE = 0
C
	IF (X .GE. WIN(1)) GO TO 10
C
C...	   POINT TO THE LEFT OF LEFT WINDOW EDGE
	   ICODE = 1
	   GO TO 20
C
   10	IF (X .LE. WIN(3)) GO TO 20
C
C...	   POINT TO THE RIGHT OF RIGHT WINDOW EDGE
	   ICODE = 2
C
   20	IF (Y .GE. WIN(2)) GO TO 30
C
C...	   POINT BELOW BOTTOM WINDOW EDGE
	   ICODE = ICODE + 4
	   GO TO 999
C
   30	IF (Y .LE. WIN(4)) GO TO 999
C
C...	   POINT ABOVE TOP WINDOW EDGE
	   ICODE = ICODE + 8
C
  999	RETURN
	END