Return to t6.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sunlib

Annotation of researchv9/jtools/src/sunlib/t6.c, revision 1.1.1.1

1.1       root        1: /*
                      2:        test for getrect, ngetrect, texture, mouse input, rectf
                      3: */
                      4: #include "jerq.h"
                      5: short darkgrey_bits[] ={
                      6:        0xDDDD, 0x7777, 0xDDDD, 0x7777, 0xDDDD, 0x7777, 0xDDDD, 0x7777,
                      7:        0xDDDD, 0x7777, 0xDDDD, 0x7777, 0xDDDD, 0x7777, 0xDDDD, 0x7777,
                      8: };
                      9: 
                     10: main (argc, argv)
                     11: char **argv;
                     12: {
                     13:        Texture darkgrey;
                     14:        Rectangle r;
                     15: 
                     16:        request(KBD|MOUSE|ALARM);
                     17:        initdisplay(argc, argv);
                     18:        darkgrey = ToTexture(darkgrey_bits);
                     19:        alarm(60);
                     20:        for( ; ; wait(MOUSE|ALARM)) {
                     21:                if(button1()){
                     22:                        ngetrect(&r, 0, 1, 0, 10, 10);
                     23:                        rectf(&display, r, F_XOR);
                     24:                }
                     25:                else if(button2()){
                     26:                        ngetrect(&r, 0, 2, 0, 10, 10);
                     27:                        texture(&display, r, &darkgrey, F_XOR);
                     28:                }
                     29:                else if(button3())
                     30:                        break;
                     31:                if (own() & ALARM) {
                     32:                        rectf(&display, Rect(0, 0, 100, 100), F_XOR);
                     33:                        rectf(&display,
                     34:                        Rect(Drect.cor.x-100, Drect.cor.y-100, Drect.cor.x, Drect.cor.y), F_XOR);
                     35:                        alarm(60);
                     36:                }
                     37:                        
                     38:        }
                     39: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.