Return to tst.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / pot

Annotation of researchv9/jerq/src/lib/pot/tst.c, revision 1.1

1.1     ! root        1: #include       <CC/jerq.h>
        !             2: #include       "pot.pub"
        !             3: 
        !             4: Globepot *g;
        !             5: Bmappot *b;
        !             6: Rulepot *hr, *vr;
        !             7: 
        !             8: main()
        !             9: {
        !            10:        Rectangle r = Drect;
        !            11: 
        !            12:        request(MOUSE);
        !            13:        initdisplay();
        !            14: 
        !            15:        while(wait(MOUSE))
        !            16:        {
        !            17:                if(moved())
        !            18:                {
        !            19:                        reshapepot(r, Drect);
        !            20:                        r = Drect;
        !            21:                }
        !            22:                if(button1())
        !            23:                {
        !            24:                        hitpot(1);
        !            25:                        if(b->val) g->setval(hr->val, vr->val);
        !            26:                        /* hitpot has already redrawn */
        !            27:                }
        !            28:                else if(button3() && confirm(3))
        !            29:                        exit(0);
        !            30:        }
        !            31: }
        !            32: 
        !            33: Texture32 bup = {
        !            34: #include       "up.icon"
        !            35: }, bdown = {
        !            36: #include       "down.icon"
        !            37: }, a1 = {
        !            38: #include       "b1.icon"
        !            39: }, a2 = {
        !            40: #include       "b2.icon"
        !            41: }, a3 = {
        !            42: #include       "b3.icon"
        !            43: }, a4 = {
        !            44: #include       "b4.icon"
        !            45: };
        !            46: 
        !            47: Bitmap *
        !            48: bt(Texture32 *t)
        !            49: {
        !            50:        Bitmap *b = balloc(Rect(0, 0, 32, 32));
        !            51: 
        !            52:        texture32(b, b->rect, t, F_OR);
        !            53:        return(b);
        !            54: }
        !            55: 
        !            56: initdisplay()
        !            57: {
        !            58:        Rectangle r;
        !            59:        Bmappot *bb;
        !            60: 
        !            61:        wait(MOUSE);
        !            62:        string(&defont, "h rule", &display, Drect.o, F_STORE);
        !            63:        r = getrect(3);
        !            64:        hr = new Rulepot(r, P_HORIZ|P_TICKS, 360, Point(130, -17),
        !            65:                Point(50, -17), "Distance");
        !            66:        string(&defont, "v rule", &display, Drect.o, F_STORE);
        !            67:        r = getrect(3);
        !            68:        vr = new Rulepot(r, P_TICKS, 360, Point(80, -17),
        !            69:                Point(0, -17), "Distance");
        !            70:        string(&defont, "button 1", &display, Drect.o, F_STORE);
        !            71:        r = getrect(3);
        !            72:        b = new Bmappot(r, 0, Point(-50, 8), "Gas");
        !            73:        b->item(Point(40, 0), "ON", bt(&bup));
        !            74:        b->item(Point(40, 0), "OFF", bt(&bdown));
        !            75:        string(&defont, "button 2", &display, Drect.o, F_STORE);
        !            76:        r = getrect(3);
        !            77:        bb = new Bmappot(r, P_CIRC, Point(-50, 8), "Snork");
        !            78:        bb->item(Point(20, -20), "UP", bt(&a1));
        !            79:        bb->item(Point(20, 20), "DOWN", bt(&a2));
        !            80:        bb->item(Point(-75, 20), "RIGHT", bt(&a3));
        !            81:        bb->item(Point(-60, -20), "LEFT", bt(&a4));
        !            82:        string(&defont, "globe     ", &display, Drect.o, F_STORE);
        !            83:        r = getrect(3);
        !            84:        g = new Globepot(r, 0, 45, 45, Pt(120, -20), Pt(0, -20), "where am i");
        !            85:        drawpot();
        !            86: }

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