home *** CD-ROM | disk | FTP | other *** search
- /**
- ** PALTEST.C
- **
- ** Copyright (C) 1992, Csaba Biegl
- ** 820 Stirrup Dr, Nashville, TN, 37221
- ** csaba@vuse.vanderbilt.edu
- **
- ** This file is distributed under the terms listed in the document
- ** "copying.cb", available from the author at the address above.
- ** A copy of "copying.cb" should accompany this file; if not, a copy
- ** should be available from where this file was obtained. This file
- ** may not be distributed without a verbatim copy of "copying.cb".
- ** You should also have received a copy of the GNU General Public
- ** License along with this program (it is in the file "copying");
- ** if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
- ** Cambridge, MA 02139, USA.
- **
- ** This program is distributed in the hope that it will be useful,
- ** but WITHOUT ANY WARRANTY; without even the implied warranty of
- ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ** GNU General Public License for more details.
- **/
-
-
- #include "test.h"
- #include <time.h>
-
- TESTFUNC(paltest)
- {
- int r = 0,g = 0,b = 0;
- int *cp = &r;
- int ii;
-
- while(--Argc >= 0) {
- switch(Argv[0][0]) {
- case 'r':
- case 'R':
- r = ((Argv[0][1] - '0') & 3) << 6;
- if(cp == &r) cp = &g;
- break;
- case 'g':
- case 'G':
- g = ((Argv[0][1] - '0') & 3) << 6;
- if(cp == &g) cp = &b;
- break;
- case 'b':
- case 'B':
- b = ((Argv[0][1] - '0') & 3) << 6;
- if(cp == &b) cp = &r;
- break;
- }
- Argv++;
- }
- for(ii = 0; ii < 4; ii++) {
- *cp = ii << 6;
- GrFilledBox(50*ii,20,50*ii+49,80,GrAllocColor(r,g,b));
- }
- r = g = b = 0;
- for(ii = 0; ii < 4; ii++) {
- *cp = ii << 6;
- GrFilledBox(50*ii,120,50*ii+49,180,GrAllocColor(r,g,b));
- }
- getkey();
- }
-