C     NAME: THOUSE
C
C    LANGUAGE:  FORTRAN
C
C    OPERATING SYSTEM:  UNIVERSAL
C
C    ORDER NUMBER:  5428-SE
C
C    PART NUMBER:  000-026366  NOVEMBER 1985
C
C    PRODUCT:  UNIVERSAL 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
C     THOUSE - CREATE A HOUSE OF TRAPEZOIDS
C
C     LOCAL VARIABLES USED:
C            IPAT - THE TONE PATTERN ARRAY
C            X,Y  - THE COORDINATE ARRAYS WHICH DEFINE THE AREAS
C                   TO BE SHADED
C            NE   - THE INTEGER ARRAY WHICH CONTAINS THE NUMBER OF
C                   X,Y ELEMENTS WHICH SPECIFY A PARTICULAR AREA
C
C
      DIMENSION X(8),Y(8),NE(2),IPAT(16)
C
      DATA NE /5,3/
      DATA IPAT /     0, 31870, 32510, 32510,
     1                 0, 31870, 32510, 32510,
     2              1760,  1760,  1760,  2016,
     3              1984,  1920,     0,     0/
C
      DATA X /0.,1.,1.,0.,0.,0.,.5,1./
      DATA Y /0.,0.,1.,1.,0.,1.,1.5,1./
C
C...  INITIALIZE PLOTTING
      CALL PLOTS (0,0,0)
C
C...  SET TONE PATTERN ARRAY
      CALL TONE (0.,0.,IPAT,-16)
C
C...  TONE AREA
      CALL TONE (X,Y,NE,2)
C
C...  TERMINATE ALL PLOTTING
      CALL PLOT (0.,0.,999)
C
      STOP
      END