1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
/*
* *********************************************************************
* * Copyright (C) 1988, 1990 Stanford University. *
* * Permission to use, copy, modify, and distribute this *
* * software and its documentation for any purpose and without *
* * fee is hereby granted, provided that the above copyright *
* * notice appear in all copies. Stanford University *
* * makes no representations about the suitability of this *
* * software for any purpose. It is provided "as is" without *
* * express or implied warranty. Export of this software outside *
* * of the United States of America may require an export license. *
* *********************************************************************
*/
#define VLine( WIND, X, BOT, TOP, GCX ) \
XFillRectangle( display, WIND, GCX, X, TOP, 1, (BOT) - (TOP) + 1 )
#define HLine( WIND, LEFT, RIGHT, Y, GCX ) \
XFillRectangle( display, WIND, GCX, LEFT, Y, (RIGHT) - (LEFT) + 1, 1 )
#define FillAREA( WIND, X, Y, WIDTH, HEIGHT, GCX ) \
XFillRectangle( display, WIND, GCX, X, Y, WIDTH, HEIGHT )
#define InvAREA( WIND, X, Y, WIDTH, HEIGHT ) \
XFillRectangle( display, WIND, gcs.inv, X, Y, WIDTH, HEIGHT )
#define BWID( Bx ) ( (Bx).right - (Bx).left + 1 )
#define BHIG( Bx ) ( (Bx).bot - (Bx).top + 1 )
#define FillBox( WIND, B, GCX ) \
XFillRectangle( display, WIND, GCX, B.left, B.top, BWID(B), BHIG(B) )
#define InvBox( W, B ) \
XFillRectangle( display, W, gcs.invert, (B).left, (B).top, BWID(B), BHIG(B) )
#define OutlineBox( WIND, B, GCX ) \
XDrawRectangle( display, WIND, GCX, (B).left, (B).top, BWID(B)-1, BHIG(B)-1 )
#define StrLeft( WIND, S, LEN, LEFT, BOT, GCX ) \
XDrawImageString( display, WIND, GCX, LEFT, (BOT) - descent, S, LEN )
#define StrRight( WIND, S, LEN, RIGHT, BOT, GCX ) \
XDrawImageString( display, WIND, GCX, \
(RIGHT) - (LEN) * CHARWIDTH +1, (BOT) - descent, S, LEN )
#define StrCenter( WIND, S, LEN, LEFT, RIGHT, BOT, GCX ) \
XDrawImageString( display, WIND, GCX, \
((RIGHT) + (LEFT) - CHARWIDTH * (LEN)) / 2, (BOT) - descent, S, LEN )
|
