URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [ecos-2.0/] [packages/] [services/] [gfx/] [mw/] [v2_0/] [src/] [demos/] [mwin/] [mdemo.c] - Blame information for rev 174

Details | Compare with Previous | View Log


/*
 * Copyright (c) 1999, 2000, 2001 Greg Haerr <greg@censoft.com>
 *
 * Demo program for Microwindows
 */
#define MWINCLUDECOLORS
#include "windows.h"
#include "wintern.h"            /* for MwSetDesktopWallpaper*/
 
#include "device.h"
 
#if DOS_TURBOC
unsigned _stklen = 4096;
#endif
 
#define CLIPDEMO        0        /* set for region clipping demo*/
 
#ifndef ELKS
#define TIMERDEMO       1       /* set for WM_TIMER demo*/
#define GRAPH3D         0        /* 3d graphics demo*/
#define IMAGE           0        /* 256 color image demo*/
#endif
#define ARCDEMO         1       /* arc drawing demo*/
#define CHILD           1       /* child window demo*/
#define CLIENT3D        0        /* old client draw test*/
#define USEBLIT         1       /* use blit rather than DrawDIB()*/
 
#if GRAPH3D
#include "graph3d.h"
#endif
 
extern MWIMAGEHDR image_car8;
extern MWIMAGEHDR image_zion208;
extern MWIMAGEHDR image_penguin;
extern MWIMAGEHDR image_under4;
extern MWIMAGEHDR image_microwin;
extern MWIMAGEHDR image_cs1;
extern MWIMAGEHDR image_rle8;
 
#if CHILD
#if ELKS | MSDOS
PMWIMAGEHDR image = &image_cs1;         /* 2 color bitmap for 16 color systems*/
#else
PMWIMAGEHDR image = &image_penguin;
#endif
#endif
 
#if IMAGE
PMWIMAGEHDR image2 = &image_zion208;
#endif
 
#define APPCLASS        "test"
#define APPCHILD        "test2"
 
/* forward decls*/
LRESULT CALLBACK WndProc(HWND hwnd,UINT uMsg,WPARAM wp,LPARAM lp);
LRESULT CALLBACK ChildWndProc(HWND hwnd,UINT uMsg,WPARAM wp,LPARAM lp);
 
int
MwUserInit(int ac, char **av)
{
        /* test user init procedure - do nothing*/
        return 0;
}
 
int
RegisterAppClass(void)
{
        WNDCLASS        wc;
 
#if !ELKS
        MwRegisterButtonControl(NULL);
        MwRegisterEditControl(NULL);
        MwRegisterListboxControl(NULL);
        MwRegisterProgressBarControl(NULL);
        /*MwRegisterComboboxControl(NULL);*/
#endif
        wc.style = CS_DBLCLKS | CS_VREDRAW | CS_HREDRAW;
        wc.lpfnWndProc = (WNDPROC)WndProc;
        wc.cbClsExtra = 0;
        wc.cbWndExtra = 0;
        wc.hInstance = 0;
        wc.hIcon = 0; /*LoadIcon(GetHInstance(), MAKEINTRESOURCE( 1));*/
        wc.hCursor = 0; /*LoadCursor(NULL, IDC_ARROW);*/
        wc.hbrBackground = (HBRUSH)GetStockObject(LTGRAY_BRUSH);
        wc.lpszMenuName = NULL;
        wc.lpszClassName =  APPCLASS;
        RegisterClass( &wc);
 
#if CHILD
        wc.lpfnWndProc = (WNDPROC)ChildWndProc;
        wc.lpszClassName =  APPCHILD;
        return RegisterClass( &wc);
#endif
        return 1;
}
 
HWND
CreateAppWindow(void)
{
        HWND    hwnd, hlist;
        static int nextid = 1;
        int width, height;
        RECT r;
        GetWindowRect(GetDesktopWindow(), &r);
        width = height = r.right / 2;
 
        hwnd = CreateWindowEx(0L, APPCLASS,
                "Microwindows Application",
                WS_OVERLAPPEDWINDOW | WS_VISIBLE,
                CW_USEDEFAULT, CW_USEDEFAULT,
                width, height,
                NULL, (HMENU)nextid++, NULL, NULL);
 
#if CHILD
        if(hwnd
#if GRAPH3D
                        && (nextid & 03)!=2
#endif
                                                                ) {
                CreateWindowEx(0L, APPCHILD,
                        "",
                        WS_BORDER | WS_CHILD | WS_VISIBLE,
                        4, 4, width / 3-6, height / 3,
                        hwnd, (HMENU)2, NULL, NULL);
                CreateWindowEx(0L, APPCHILD,
                        "",
                        WS_BORDER | WS_CHILD | WS_VISIBLE,
                        width / 3, height / 3, width / 3-6, height / 3,
                        hwnd, (HMENU)3, NULL, NULL);
                CreateWindowEx(0L, APPCHILD,
                        "",
                        WS_BORDER | WS_CHILD | WS_VISIBLE,
                        width * 3 / 5, height * 3 / 5,
                        width * 2 / 3, height * 2 / 3,
                        hwnd, (HMENU)4, NULL, NULL);
                CreateWindowEx(0L, "EDIT",
                        "OK",
                        WS_BORDER|WS_CHILD | WS_VISIBLE,
                        width * 5 / 8, 10, 100, 18,
                        hwnd, (HMENU)5, NULL, NULL);
                CreateWindowEx(0L, "PROGBAR",
                        "OK",
                        WS_BORDER|WS_CHILD | WS_VISIBLE,
                        width * 5 / 8, 32, 100, 18,
                        hwnd, (HMENU)6, NULL, NULL);
 
                hlist = CreateWindowEx(0L, "LISTBOX",
                        "OK",
                        WS_HSCROLL|WS_VSCROLL|WS_BORDER|WS_CHILD | WS_VISIBLE,
                        width * 5 / 8, 54, 100, 48,
                        hwnd, (HMENU)7, NULL, NULL);
                SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Cherry");
                SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Apple");
                SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Orange");
 
                CreateWindowEx(0L, "BUTTON",
                        "Cancel",
                        BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE,
                        width * 5 / 8 + 50, 106, 50, 14,
                        hwnd, (HMENU)8, NULL, NULL);
        }
#endif
        return hwnd;
}
 
#if CHILD
LRESULT CALLBACK
ChildWndProc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
{
        RECT            rc;
        PAINTSTRUCT     ps;
 
        switch(msg) {
        case WM_PAINT:
                BeginPaint(hwnd, &ps);
                GetClientRect(hwnd, &rc);
#if USEBLIT
{
                HDC             hdcMem;
                HBITMAP         hbmp, hbmpOrg;
 
                /* redirect painting to offscreen dc, then use blit function*/
                hdcMem = CreateCompatibleDC(ps.hdc);
                hbmp = CreateCompatibleBitmap(hdcMem, rc.right, rc.bottom);
                hbmpOrg = SelectObject(hdcMem, hbmp);
 
                /* draw onto offscreen dc*/
                DrawDIB(hdcMem, 0, 0, image);
 
                /* blit offscreen with physical screen*/
                BitBlt(ps.hdc, 0, 0, rc.right, rc.bottom, hdcMem,
                        0, 0, MWROP_SRCCOPY);
                /*StretchBlt(ps.hdc, 0, 0, rc.right, rc.bottom, hdcMem,
                        0, 0, image->width/3*5, image->height/3*4, MWROP_SRCCOPY);*/
                DeleteObject(SelectObject(hdcMem, hbmpOrg));
                DeleteDC(hdcMem);
}
#else
                DrawDIB(ps.hdc, rc.left, rc.top, image);
#endif
                EndPaint(hwnd, &ps);
                break;
        default:
                return DefWindowProc( hwnd, msg, wp, lp);
        }
        return( 0);
}
#endif
 
LRESULT CALLBACK
WndProc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
{
        PAINTSTRUCT     ps;
        HDC             hdc;
#if CLIENT3D | IMAGE | GRAPH3D
        RECT            rc;
#endif
#if GRAPH3D
        static int      countup = 1;
        int             id;
        static vec1     gx, gy;
#endif
#if TIMERDEMO
        static POINT    mousept;
#endif
#if ARCDEMO
        static int      startdegrees = 0;
        static int      enddegrees = 30;
#endif
 
        switch( msg) {
#if TIMERDEMO
        case WM_CREATE:
                SetTimer(hwnd, 1, 100, NULL);
                mousept.x = 60;
                mousept.y = 20;
                break;
 
        case WM_TIMER:
#if GRAPH3D
                GetClientRect(hwnd, &rc);
                if(countup) {
                        mousept.y += 20;
                        if(mousept.y >= rc.bottom) {
                                mousept.y -= 20;
                                countup = 0;
                        }
                } else {
                        mousept.y -= 20;
                        if(mousept.y < 20) {
                                mousept.y += 20;
                                countup = 1;
                        }
                }
                SendMessage(hwnd, WM_MOUSEMOVE, 0,
                        MAKELONG(mousept.x, mousept.y));
#endif
#if ARCDEMO
                startdegrees += 10;
                if(startdegrees >= 360)
                        startdegrees = 0;
                enddegrees += 15;
                if(enddegrees >= 360)
                        enddegrees = 0;
                InvalidateRect(hwnd, NULL, TRUE);
#endif
                break;
 
        case WM_DESTROY:
                KillTimer(hwnd, 1);
                break;
#endif /* TIMERDEMO*/
        case WM_SIZE:
                break;
 
        case WM_MOVE:
                break;
 
#if CLIENT3D
        case WM_SETFOCUS:
                PostMessage((HWND)wp, WM_PAINT, 0, 0L);
                break;
 
        case WM_KILLFOCUS:
                PostMessage((HWND)wp, WM_PAINT, 0, 0L);
                break;
        case WM_ERASEBKGND:
                if(GetFocus() != hwnd)
                        return DefWindowProc(hwnd, msg, wp, lp);
                return 1;
#endif
#if GRAPH3D
        case WM_ERASEBKGND:
                if((GetWindowLong(hwnd, GWL_ID) & 03) == 1)
                        return 1;
                return DefWindowProc(hwnd, msg, wp, lp);
#endif
        case WM_PAINT:
                hdc = BeginPaint(hwnd, &ps);
 
#if CLIENT3D
                if(GetFocus() == hwnd) {
                        GetClientRect(hwnd, &rc);
                        Draw3dShadow(hdc, rc.left, rc.top,
                                rc.right-rc.left, rc.bottom-rc.top,
                                GetSysColor(COLOR_3DDKSHADOW),
                                GetSysColor(COLOR_3DLIGHT));
                        InflateRect(&rc, -1, -1);
                        FillRect(hdc, &rc, GetStockObject(GRAY_BRUSH));
                }
#endif
#if IMAGE
                GetClientRect(hwnd, &rc);
                DrawDIB(hdc, rc.left+2, rc.top+2, image2);
#endif
#if ARCDEMO
{
        int x, y, w, h;
        RECT rc;
 
        if(hdc != NULL) {
                GetWindowRect(hwnd, &rc);
                rc.top += 13;
                InflateRect(&rc, -3, -3);
                /*Ellipse(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top);*/
                /*Arc(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top, 0,0, 0,0);*/
                /*Pie(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top, 0,0, 0,0);*/
 
                x = rc.left;
                y = rc.top;
                w = rc.right - rc.left;
                h = rc.bottom - rc.top;
                w += 10;
                GdSetForeground(GdFindColor(RGB(0,255,0)));
                GdArcAngle(hdc->psd, x+w/2, y+h/2, w/2, h/2, startdegrees*64,
                        enddegrees*64, MWPIE);
                GdSetForeground(GdFindColor(RGB(0,0,0)));
                GdArcAngle(hdc->psd, x+w/2, y+h/2, w/2, h/2, startdegrees*64,
                        enddegrees*64, MWARCOUTLINE);
                /*GdSetForeground(GdFindColor(RGB(255,255,255)));*/
                /*GdPoint(hdc->psd, x+w/2, y+h/2);*/
        }
        EndPaint(hwnd, &ps);
        break;
}
#endif /* ARCDEMO*/
#if GRAPH3D
                id = (int)GetWindowLong(hwnd, GWL_ID) & 03;
                init3(hdc, id == 1? hwnd: NULL);
                switch(id) {
                case 0:
                        rose(1.0, 7, 13);
                        break;
                case 1:
                        /*look3(0.5, 0.7, 1.5);*/
                        /*look3(0.2, -2 * gy, 1.0+gx);*/
                        look3(-2 * gx, -2 * gy, 1.2);
                        drawgrid(-8.0, 8.0, 10, -8.0, 8.0, 10);
                        break;
                case 2:
                        setcolor3(BLACK);
                        circle3(1.0);
                        break;
                case 3:
                        setcolor3(BLUE);
                        daisy(1.0, 20);
                        break;
                }
 
#if CLIPDEMO
                if(id == 1) {
                        HRGN    hrgn, hrgn2;
 
                        /* create circular clip region for effect*/
                        GetClientRect(hwnd, &rc);
                        InflateRect(&rc, -80, -80);
                        switch((int)GetWindowLong(hwnd, GWL_ID)) {
                        default:
                                hrgn = CreateEllipticRgnIndirect(&rc);
                                break;
                        case 5:
                                hrgn = CreateRoundRectRgn(rc.left, rc.top,
                                        rc.right, rc.bottom, 100, 100);
                                break;
                        case 1:
                                hrgn = CreateRectRgnIndirect(&rc);
                                break;
                        }
 
                        /* erase background, clip out blit area*/
                        GetClientRect(hwnd, &rc);
                        hrgn2 = CreateRectRgnIndirect(&rc);
                        SelectClipRgn(hdc, hrgn2);
                        ExtSelectClipRgn(hdc, hrgn, RGN_XOR);
                        DeleteObject(hrgn2);
 
                        GetClientRect(hwnd, &rc);
                        FillRect(hdc, &rc, GetStockObject(BLACK_BRUSH));
 
                        /* clip in only blit area*/
                        SelectClipRgn(hdc, hrgn);
                        DeleteObject(hrgn);
                }
#endif /* CLIPDEMO*/
 
                paint3(hdc);
 
#endif /* GRAPH3D*/
                EndPaint(hwnd, &ps);
                break;
 
        case WM_LBUTTONDOWN:
                break;
 
        case WM_MOUSEMOVE:
#if GRAPH3D
                if((GetWindowLong(hwnd, GWL_ID) & 03) == 1) {
                        POINT pt;
 
                        POINTSTOPOINT(pt, lp);
                        GetClientRect(hwnd, &rc);
                        gx = (vec1)pt.x / rc.right;
                        gy = (vec1)pt.y / rc.bottom;
                        InvalidateRect(hwnd, NULL, FALSE);
                        mousept.x = pt.x;
                        mousept.y = pt.y;
                }
#endif
                break;
 
        case WM_LBUTTONUP:
                break;
 
        case WM_RBUTTONDOWN:
                break;
 
        default:
                return DefWindowProc( hwnd, msg, wp, lp);
        }
        return( 0);
}
 
int WINAPI
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine,
        int nShowCmd)
{
        MSG     msg;
        HWND    hwnd;
        RECT    rc;
 
        RegisterAppClass();
        GetWindowRect(GetDesktopWindow(), &rc);
#if !(ELKS | MSDOS)
        /* create penguin window*/
        CreateWindowEx(0L, APPCHILD, "", WS_BORDER | WS_VISIBLE,
                rc.right-130-1, rc.bottom-153-1, 130, 153,
                GetDesktopWindow(), (HMENU)1000, NULL, NULL);
#endif
        CreateAppWindow();
        CreateAppWindow();
        CreateAppWindow();
#if !(ELKS | MSDOS)
        CreateAppWindow();
        CreateAppWindow();
        CreateAppWindow();
        CreateAppWindow();
        CreateAppWindow();
        hwnd = CreateAppWindow();
        GetWindowRect(hwnd, &rc);
        OffsetRect(&rc, 50, 50);
        MoveWindow(hwnd, rc.left, rc.top, rc.bottom-rc.top,
                rc.right-rc.left, TRUE);
#endif
#if !(ELKS | MSDOS)
        /* set background wallpaper*/
        MwSetDesktopWallpaper(&image_microwin);
        /*MwSetDesktopWallpaper(&image_under4);*/
        /*MwSetDesktopWallpaper(&image_car8);*/
#endif
 
        /* type ESC to quit...*/
        while( GetMessage(&msg, NULL, 0, 0)) {
                TranslateMessage(&msg);
                DispatchMessage(&msg);
        }
        return 0;
}

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [rtos/] [ecos-2.0/] [packages/] [services/] [gfx/] [mw/] [v2_0/] [src/] [demos/] [mwin/] [mdemo.c] - Blame information for rev 174

Line No.	Rev	Author	Line
1	27	unneback	`/*`
2			`* Copyright (c) 1999, 2000, 2001 Greg Haerr <greg@censoft.com>`
3			`*`
4			`* Demo program for Microwindows`
5			`*/`
6			`#define MWINCLUDECOLORS`
7			`#include "windows.h"`
8			`#include "wintern.h" /* for MwSetDesktopWallpaper*/`
9
10			`#include "device.h"`
11
12			`#if DOS_TURBOC`
13			`unsigned _stklen = 4096;`
14			`#endif`
15
16			`#define CLIPDEMO 0 /* set for region clipping demo*/`
17
18			`#ifndef ELKS`
19			`#define TIMERDEMO 1 /* set for WM_TIMER demo*/`
20			`#define GRAPH3D 0 /* 3d graphics demo*/`
21			`#define IMAGE 0 /* 256 color image demo*/`
22			`#endif`
23			`#define ARCDEMO 1 /* arc drawing demo*/`
24			`#define CHILD 1 /* child window demo*/`
25			`#define CLIENT3D 0 /* old client draw test*/`
26			`#define USEBLIT 1 /* use blit rather than DrawDIB()*/`
27
28			`#if GRAPH3D`
29			`#include "graph3d.h"`
30			`#endif`
31
32			`extern MWIMAGEHDR image_car8;`
33			`extern MWIMAGEHDR image_zion208;`
34			`extern MWIMAGEHDR image_penguin;`
35			`extern MWIMAGEHDR image_under4;`
36			`extern MWIMAGEHDR image_microwin;`
37			`extern MWIMAGEHDR image_cs1;`
38			`extern MWIMAGEHDR image_rle8;`
39
40			`#if CHILD`
41			`#if ELKS \| MSDOS`
42			`PMWIMAGEHDR image = &image_cs1; /* 2 color bitmap for 16 color systems*/`
43			`#else`
44			`PMWIMAGEHDR image = &image_penguin;`
45			`#endif`
46			`#endif`
47
48			`#if IMAGE`
49			`PMWIMAGEHDR image2 = &image_zion208;`
50			`#endif`
51
52			`#define APPCLASS "test"`
53			`#define APPCHILD "test2"`
54
55			`/* forward decls*/`
56			`LRESULT CALLBACK WndProc(HWND hwnd,UINT uMsg,WPARAM wp,LPARAM lp);`
57			`LRESULT CALLBACK ChildWndProc(HWND hwnd,UINT uMsg,WPARAM wp,LPARAM lp);`
58
59			`int`
60			`MwUserInit(int ac, char **av)`
61			`{`
62			`/* test user init procedure - do nothing*/`
63			`return 0;`
64			`}`
65
66			`int`
67			`RegisterAppClass(void)`
68			`{`
69			`WNDCLASS wc;`
70
71			`#if !ELKS`
72			`MwRegisterButtonControl(NULL);`
73			`MwRegisterEditControl(NULL);`
74			`MwRegisterListboxControl(NULL);`
75			`MwRegisterProgressBarControl(NULL);`
76			`/MwRegisterComboboxControl(NULL);/`
77			`#endif`
78			`wc.style = CS_DBLCLKS \| CS_VREDRAW \| CS_HREDRAW;`
79			`wc.lpfnWndProc = (WNDPROC)WndProc;`
80			`wc.cbClsExtra = 0;`
81			`wc.cbWndExtra = 0;`
82			`wc.hInstance = 0;`
83			`wc.hIcon = 0; /LoadIcon(GetHInstance(), MAKEINTRESOURCE( 1));/`
84			`wc.hCursor = 0; /LoadCursor(NULL, IDC_ARROW);/`
85			`wc.hbrBackground = (HBRUSH)GetStockObject(LTGRAY_BRUSH);`
86			`wc.lpszMenuName = NULL;`
87			`wc.lpszClassName = APPCLASS;`
88			`RegisterClass( &wc);`
89
90			`#if CHILD`
91			`wc.lpfnWndProc = (WNDPROC)ChildWndProc;`
92			`wc.lpszClassName = APPCHILD;`
93			`return RegisterClass( &wc);`
94			`#endif`
95			`return 1;`
96			`}`
97
98			`HWND`
99			`CreateAppWindow(void)`
100			`{`
101			`HWND hwnd, hlist;`
102			`static int nextid = 1;`
103			`int width, height;`
104			`RECT r;`
105			`GetWindowRect(GetDesktopWindow(), &r);`
106			`width = height = r.right / 2;`
107
108			`hwnd = CreateWindowEx(0L, APPCLASS,`
109			`"Microwindows Application",`
110			`WS_OVERLAPPEDWINDOW \| WS_VISIBLE,`
111			`CW_USEDEFAULT, CW_USEDEFAULT,`
112			`width, height,`
113			`NULL, (HMENU)nextid++, NULL, NULL);`
114
115			`#if CHILD`
116			`if(hwnd`
117			`#if GRAPH3D`
118			`&& (nextid & 03)!=2`
119			`#endif`
120			`) {`
121			`CreateWindowEx(0L, APPCHILD,`
122			`"",`
123			`WS_BORDER \| WS_CHILD \| WS_VISIBLE,`
124			`4, 4, width / 3-6, height / 3,`
125			`hwnd, (HMENU)2, NULL, NULL);`
126			`CreateWindowEx(0L, APPCHILD,`
127			`"",`
128			`WS_BORDER \| WS_CHILD \| WS_VISIBLE,`
129			`width / 3, height / 3, width / 3-6, height / 3,`
130			`hwnd, (HMENU)3, NULL, NULL);`
131			`CreateWindowEx(0L, APPCHILD,`
132			`"",`
133			`WS_BORDER \| WS_CHILD \| WS_VISIBLE,`
134			`width * 3 / 5, height * 3 / 5,`
135			`width * 2 / 3, height * 2 / 3,`
136			`hwnd, (HMENU)4, NULL, NULL);`
137			`CreateWindowEx(0L, "EDIT",`
138			`"OK",`
139			`WS_BORDER\|WS_CHILD \| WS_VISIBLE,`
140			`width * 5 / 8, 10, 100, 18,`
141			`hwnd, (HMENU)5, NULL, NULL);`
142			`CreateWindowEx(0L, "PROGBAR",`
143			`"OK",`
144			`WS_BORDER\|WS_CHILD \| WS_VISIBLE,`
145			`width * 5 / 8, 32, 100, 18,`
146			`hwnd, (HMENU)6, NULL, NULL);`
147
148			`hlist = CreateWindowEx(0L, "LISTBOX",`
149			`"OK",`
150			`WS_HSCROLL\|WS_VSCROLL\|WS_BORDER\|WS_CHILD \| WS_VISIBLE,`
151			`width * 5 / 8, 54, 100, 48,`
152			`hwnd, (HMENU)7, NULL, NULL);`
153			`SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Cherry");`
154			`SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Apple");`
155			`SendMessage(hlist, LB_ADDSTRING, 0, (LPARAM)(LPSTR)"Orange");`
156
157			`CreateWindowEx(0L, "BUTTON",`
158			`"Cancel",`
159			`BS_AUTOCHECKBOX \| WS_CHILD \| WS_VISIBLE,`
160			`width * 5 / 8 + 50, 106, 50, 14,`
161			`hwnd, (HMENU)8, NULL, NULL);`
162			`}`
163			`#endif`
164			`return hwnd;`
165			`}`
166
167			`#if CHILD`
168			`LRESULT CALLBACK`
169			`ChildWndProc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)`
170			`{`
171			`RECT rc;`
172			`PAINTSTRUCT ps;`
173
174			`switch(msg) {`
175			`case WM_PAINT:`
176			`BeginPaint(hwnd, &ps);`
177			`GetClientRect(hwnd, &rc);`
178			`#if USEBLIT`
179			`{`
180			`HDC hdcMem;`
181			`HBITMAP hbmp, hbmpOrg;`
182
183			`/* redirect painting to offscreen dc, then use blit function*/`
184			`hdcMem = CreateCompatibleDC(ps.hdc);`
185			`hbmp = CreateCompatibleBitmap(hdcMem, rc.right, rc.bottom);`
186			`hbmpOrg = SelectObject(hdcMem, hbmp);`
187
188			`/* draw onto offscreen dc*/`
189			`DrawDIB(hdcMem, 0, 0, image);`
190
191			`/* blit offscreen with physical screen*/`
192			`BitBlt(ps.hdc, 0, 0, rc.right, rc.bottom, hdcMem,`
193			`0, 0, MWROP_SRCCOPY);`
194			`/*StretchBlt(ps.hdc, 0, 0, rc.right, rc.bottom, hdcMem,`
195			`0, 0, image->width/35, image->height/34, MWROP_SRCCOPY);*/`
196			`DeleteObject(SelectObject(hdcMem, hbmpOrg));`
197			`DeleteDC(hdcMem);`
198			`}`
199			`#else`
200			`DrawDIB(ps.hdc, rc.left, rc.top, image);`
201			`#endif`
202			`EndPaint(hwnd, &ps);`
203			`break;`
204			`default:`
205			`return DefWindowProc( hwnd, msg, wp, lp);`
206			`}`
207			`return( 0);`
208			`}`
209			`#endif`
210
211			`LRESULT CALLBACK`
212			`WndProc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)`
213			`{`
214			`PAINTSTRUCT ps;`
215			`HDC hdc;`
216			`#if CLIENT3D \| IMAGE \| GRAPH3D`
217			`RECT rc;`
218			`#endif`
219			`#if GRAPH3D`
220			`static int countup = 1;`
221			`int id;`
222			`static vec1 gx, gy;`
223			`#endif`
224			`#if TIMERDEMO`
225			`static POINT mousept;`
226			`#endif`
227			`#if ARCDEMO`
228			`static int startdegrees = 0;`
229			`static int enddegrees = 30;`
230			`#endif`
231
232			`switch( msg) {`
233			`#if TIMERDEMO`
234			`case WM_CREATE:`
235			`SetTimer(hwnd, 1, 100, NULL);`
236			`mousept.x = 60;`
237			`mousept.y = 20;`
238			`break;`
239
240			`case WM_TIMER:`
241			`#if GRAPH3D`
242			`GetClientRect(hwnd, &rc);`
243			`if(countup) {`
244			`mousept.y += 20;`
245			`if(mousept.y >= rc.bottom) {`
246			`mousept.y -= 20;`
247			`countup = 0;`
248			`}`
249			`} else {`
250			`mousept.y -= 20;`
251			`if(mousept.y < 20) {`
252			`mousept.y += 20;`
253			`countup = 1;`
254			`}`
255			`}`
256			`SendMessage(hwnd, WM_MOUSEMOVE, 0,`
257			`MAKELONG(mousept.x, mousept.y));`
258			`#endif`
259			`#if ARCDEMO`
260			`startdegrees += 10;`
261			`if(startdegrees >= 360)`
262			`startdegrees = 0;`
263			`enddegrees += 15;`
264			`if(enddegrees >= 360)`
265			`enddegrees = 0;`
266			`InvalidateRect(hwnd, NULL, TRUE);`
267			`#endif`
268			`break;`
269
270			`case WM_DESTROY:`
271			`KillTimer(hwnd, 1);`
272			`break;`
273			`#endif /* TIMERDEMO*/`
274			`case WM_SIZE:`
275			`break;`
276
277			`case WM_MOVE:`
278			`break;`
279
280			`#if CLIENT3D`
281			`case WM_SETFOCUS:`
282			`PostMessage((HWND)wp, WM_PAINT, 0, 0L);`
283			`break;`
284
285			`case WM_KILLFOCUS:`
286			`PostMessage((HWND)wp, WM_PAINT, 0, 0L);`
287			`break;`
288			`case WM_ERASEBKGND:`
289			`if(GetFocus() != hwnd)`
290			`return DefWindowProc(hwnd, msg, wp, lp);`
291			`return 1;`
292			`#endif`
293			`#if GRAPH3D`
294			`case WM_ERASEBKGND:`
295			`if((GetWindowLong(hwnd, GWL_ID) & 03) == 1)`
296			`return 1;`
297			`return DefWindowProc(hwnd, msg, wp, lp);`
298			`#endif`
299			`case WM_PAINT:`
300			`hdc = BeginPaint(hwnd, &ps);`
301
302			`#if CLIENT3D`
303			`if(GetFocus() == hwnd) {`
304			`GetClientRect(hwnd, &rc);`
305			`Draw3dShadow(hdc, rc.left, rc.top,`
306			`rc.right-rc.left, rc.bottom-rc.top,`
307			`GetSysColor(COLOR_3DDKSHADOW),`
308			`GetSysColor(COLOR_3DLIGHT));`
309			`InflateRect(&rc, -1, -1);`
310			`FillRect(hdc, &rc, GetStockObject(GRAY_BRUSH));`
311			`}`
312			`#endif`
313			`#if IMAGE`
314			`GetClientRect(hwnd, &rc);`
315			`DrawDIB(hdc, rc.left+2, rc.top+2, image2);`
316			`#endif`
317			`#if ARCDEMO`
318			`{`
319			`int x, y, w, h;`
320			`RECT rc;`
321
322			`if(hdc != NULL) {`
323			`GetWindowRect(hwnd, &rc);`
324			`rc.top += 13;`
325			`InflateRect(&rc, -3, -3);`
326			`/Ellipse(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top);/`
327			`/Arc(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top, 0,0, 0,0);/`
328			`/Pie(hdc, 0, 0, rc.right-rc.left, rc.bottom-rc.top, 0,0, 0,0);/`
329
330			`x = rc.left;`
331			`y = rc.top;`
332			`w = rc.right - rc.left;`
333			`h = rc.bottom - rc.top;`
334			`w += 10;`
335			`GdSetForeground(GdFindColor(RGB(0,255,0)));`
336			`GdArcAngle(hdc->psd, x+w/2, y+h/2, w/2, h/2, startdegrees*64,`
337			`enddegrees*64, MWPIE);`
338			`GdSetForeground(GdFindColor(RGB(0,0,0)));`
339			`GdArcAngle(hdc->psd, x+w/2, y+h/2, w/2, h/2, startdegrees*64,`
340			`enddegrees*64, MWARCOUTLINE);`
341			`/GdSetForeground(GdFindColor(RGB(255,255,255)));/`
342			`/GdPoint(hdc->psd, x+w/2, y+h/2);/`
343			`}`
344			`EndPaint(hwnd, &ps);`
345			`break;`
346			`}`
347			`#endif /* ARCDEMO*/`
348			`#if GRAPH3D`
349			`id = (int)GetWindowLong(hwnd, GWL_ID) & 03;`
350			`init3(hdc, id == 1? hwnd: NULL);`
351			`switch(id) {`
352			`case 0:`
353			`rose(1.0, 7, 13);`
354			`break;`
355			`case 1:`
356			`/look3(0.5, 0.7, 1.5);/`
357			`/look3(0.2, -2 gy, 1.0+gx);*/`
358			`look3(-2 * gx, -2 * gy, 1.2);`
359			`drawgrid(-8.0, 8.0, 10, -8.0, 8.0, 10);`
360			`break;`
361			`case 2:`
362			`setcolor3(BLACK);`
363			`circle3(1.0);`
364			`break;`
365			`case 3:`
366			`setcolor3(BLUE);`
367			`daisy(1.0, 20);`
368			`break;`
369			`}`
370
371			`#if CLIPDEMO`
372			`if(id == 1) {`
373			`HRGN hrgn, hrgn2;`
374
375			`/* create circular clip region for effect*/`
376			`GetClientRect(hwnd, &rc);`
377			`InflateRect(&rc, -80, -80);`
378			`switch((int)GetWindowLong(hwnd, GWL_ID)) {`
379			`default:`
380			`hrgn = CreateEllipticRgnIndirect(&rc);`
381			`break;`
382			`case 5:`
383			`hrgn = CreateRoundRectRgn(rc.left, rc.top,`
384			`rc.right, rc.bottom, 100, 100);`
385			`break;`
386			`case 1:`
387			`hrgn = CreateRectRgnIndirect(&rc);`
388			`break;`
389			`}`
390
391			`/* erase background, clip out blit area*/`
392			`GetClientRect(hwnd, &rc);`
393			`hrgn2 = CreateRectRgnIndirect(&rc);`
394			`SelectClipRgn(hdc, hrgn2);`
395			`ExtSelectClipRgn(hdc, hrgn, RGN_XOR);`
396			`DeleteObject(hrgn2);`
397
398			`GetClientRect(hwnd, &rc);`
399			`FillRect(hdc, &rc, GetStockObject(BLACK_BRUSH));`
400
401			`/* clip in only blit area*/`
402			`SelectClipRgn(hdc, hrgn);`
403			`DeleteObject(hrgn);`
404			`}`
405			`#endif /* CLIPDEMO*/`
406
407			`paint3(hdc);`
408
409			`#endif /* GRAPH3D*/`
410			`EndPaint(hwnd, &ps);`
411			`break;`
412
413			`case WM_LBUTTONDOWN:`
414			`break;`
415
416			`case WM_MOUSEMOVE:`
417			`#if GRAPH3D`
418			`if((GetWindowLong(hwnd, GWL_ID) & 03) == 1) {`
419			`POINT pt;`
420
421			`POINTSTOPOINT(pt, lp);`
422			`GetClientRect(hwnd, &rc);`
423			`gx = (vec1)pt.x / rc.right;`
424			`gy = (vec1)pt.y / rc.bottom;`
425			`InvalidateRect(hwnd, NULL, FALSE);`
426			`mousept.x = pt.x;`
427			`mousept.y = pt.y;`
428			`}`
429			`#endif`
430			`break;`
431
432			`case WM_LBUTTONUP:`
433			`break;`
434
435			`case WM_RBUTTONDOWN:`
436			`break;`
437
438			`default:`
439			`return DefWindowProc( hwnd, msg, wp, lp);`
440			`}`
441			`return( 0);`
442			`}`
443
444			`int WINAPI`
445			`WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine,`
446			`int nShowCmd)`
447			`{`
448			`MSG msg;`
449			`HWND hwnd;`
450			`RECT rc;`
451
452			`RegisterAppClass();`
453			`GetWindowRect(GetDesktopWindow(), &rc);`
454			`#if !(ELKS \| MSDOS)`
455			`/* create penguin window*/`
456			`CreateWindowEx(0L, APPCHILD, "", WS_BORDER \| WS_VISIBLE,`
457			`rc.right-130-1, rc.bottom-153-1, 130, 153,`
458			`GetDesktopWindow(), (HMENU)1000, NULL, NULL);`
459			`#endif`
460			`CreateAppWindow();`
461			`CreateAppWindow();`
462			`CreateAppWindow();`
463			`#if !(ELKS \| MSDOS)`
464			`CreateAppWindow();`
465			`CreateAppWindow();`
466			`CreateAppWindow();`
467			`CreateAppWindow();`
468			`CreateAppWindow();`
469			`hwnd = CreateAppWindow();`
470			`GetWindowRect(hwnd, &rc);`
471			`OffsetRect(&rc, 50, 50);`
472			`MoveWindow(hwnd, rc.left, rc.top, rc.bottom-rc.top,`
473			`rc.right-rc.left, TRUE);`
474			`#endif`
475			`#if !(ELKS \| MSDOS)`
476			`/* set background wallpaper*/`
477			`MwSetDesktopWallpaper(&image_microwin);`
478			`/MwSetDesktopWallpaper(&image_under4);/`
479			`/MwSetDesktopWallpaper(&image_car8);/`
480			`#endif`
481
482			`/* type ESC to quit...*/`
483			`while( GetMessage(&msg, NULL, 0, 0)) {`
484			`TranslateMessage(&msg);`
485			`DispatchMessage(&msg);`
486			`}`
487			`return 0;`
488			`}`