1 /**
2 ** BCC2GRX - Interfacing Borland based graphics programs to LIBGRX
3 ** Copyright (C) 1993-97 by Hartmut Schirmer
4 **
5 **
6 ** Contact : Hartmut Schirmer
7 ** Feldstrasse 118
8 ** D-24105 Kiel
9 ** Germany
10 **
11 ** e-mail : hsc@techfak.uni-kiel.de
12 **
13 ** This file is part of the GRX graphics library.
14 **
15 ** The GRX graphics library is free software; you can redistribute it
16 ** and/or modify it under some conditions; see the "copying.grx" file
17 ** for details.
18 **
19 ** This library is distributed in the hope that it will be useful,
20 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
22 **
23 **/
24
25 #include "bccgrx00.h"
26
__gr_setvisualpage(int p)27 void __gr_setvisualpage(int p) {
28 #ifdef GRX_VERSION
29 _DO_INIT_CHECK;
30 if (p < 0 || p >= __gr_BGI_p) {
31 ERR = grError;
32 return;
33 }
34 if (p!=0) GrSetViewport(0, GrScreenY());
35 else GrSetViewport(0, 0);
36 #endif
37 }
38