>># 
>># Copyright 1990, 1991 by the Massachusetts Institute of Technology and
>># UniSoft Group Limited.
>># 
>># Permission to use, copy, modify, distribute, and sell this software and
>># its documentation for any purpose is hereby granted without fee,
>># provided that the above copyright notice appear in all copies and that
>># both that copyright notice and this permission notice appear in
>># supporting documentation, and that the names of MIT and UniSoft not be
>># used in advertising or publicity pertaining to distribution of the
>># software without specific, written prior permission.  MIT and UniSoft
>># make no representations about the suitability of this software for any
>># purpose.  It is provided "as is" without express or implied warranty.
>># 
>># $XConsortium: sttsorgn.m,v 1.5 92/06/11 16:20:09 rws Exp $
>># 
>>#      SCCS:  @(#)  EAll.mc Rel 1.5	    (3/12/92)
>>#      SCCS:  @(#)  EGC.mc Rel 1.5	    (10/25/91)
>>#
>>TITLE XSetTSOrigin CH05
>>ASSERTION A XSetTSOrigin-1
A call to XSetTSOrigin sets the ts_x_origin and ts_y_origin
components of the specified GC to the arguments ts_x_origin
and ts_y_origin.
>>STRATEGY
Create Window.  
Create GC with fg = WhitePixel, bg = BlackPixel, fill_style = FillOpaqueTiled,
 tile = | 0 1 |
        | 1 1 |  
Draw a filled rectangle (0, 0) (2, 2) with XFillRectangle.
Verify Pixel at (0, 0) is bg with XGetImage and XGetPixel.
Set Tile/Stipple origin to (1, 1) with XSetTSOrigin.
Draw a filled rectangle (0, 0) (2, 2) with XFillRectangle.
Verify Pixel at (0, 0) is bg with XGetImage and XGetPixel.
>>ASSERTION B XSetTSOrigin-2
When the server fails to allocate a required resource, then
a BadAlloc error occurs.
>>STRATEGY
Report UNTESTED
>>ASSERTION A XSetTSOrigin-3
When the GC argument does not name a defined GC, then a
BadGC error occurs.
>>STRATEGY
Create a GC.
Set GC id to -1 using XTestSetGContextOfGC.
Call test function using bad GC as the GC argument.
Verify that a BadGC error occurs.
