Return to t4.c CVS log

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

Annotation of researchv9/jtools/src/sunlib/t4.c, revision 1.1

1.1     ! root        1: /*
        !             2:        test for getrect, ngetrect, texture, mouse input, rectf
        !             3: */
        !             4: #include "jerq.h"
        !             5: static 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:        static Texture darkgrey;
        !            14:        Rectangle r;
        !            15: 
        !            16:        request(MOUSE);
        !            17:        initdisplay(argc, argv);
        !            18:        darkgrey = ToTexture(darkgrey_bits);
        !            19:        /* ngetrect allows optional blocking so this can work */
        !            20:        for(;;jnap(1)){
        !            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:        }
        !            32: }
        !            33: 

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