Re: BeginPaint, EndPaint

Right Rick. So here's what happens when I try to load:

LIBRARY GLU32.DLL ok
LIBRARY OPENGL32.DLL ok
   ok
FVARIABLE DF ok
   ok
: 1dfparm ( f: x -- ) ( s: -- xl xh )
     DF DUP F! 2@ SWAP ; ok
   ok
: dfparms ( f: n*x reversed -- ) ( s: n -- n*x )
   0 DO 1dfparm LOOP ; ok
   ok
1 IMPORT: glClear ok
1 IMPORT: glBegin ok
6 IMPORT: glColor3d ok
2 IMPORT: glVertex2i ok
0 IMPORT: glEnd ok
0 IMPORT: glFlush ok
4 IMPORT: glViewport ok
   ok
: glColor3d ( f: 3*x reversed -- s: -- 3*x )
    3 dfparms glColor3d ; ok
   ok
: DISPLAY
    GL_COLOR_BUFFER_BIT glClear
    GL_TRIANGLES glBegin
    0e 0e 1e glColor3d
    0 1 glVertex2i
    0e 1e 0e glColor3d
    -1 -1 glVertex2i
    1e 0e 0e glColor3d
    1 -1 glVertex2i
    glEnd
    glFlush
; ok
   ok
PAINTSTRUCT BUILDS ps ok
   ok
0 VALUE hAPP ok
CREATE CLASSNAME ,Z" openGL triangle" ok
   ok
: -APP ( -- flag )
    'MAIN @ [ 'MAIN @ ] LITERAL = ; ok
   ok
   ok
[SWITCH MESSAGE-HANDLER DEFWINPROC ( -- res ) ok
    WM_PAINT RUN:
       DISPLAY HWND ps 2DUP BeginPaint EndPaint ; BeginPaint ?

At 05:35 PM 8/27/02, you wrote:

>Elliot,
>
>The answer
>
> >>More details please. Is this SWOOP code?
>
>in the context of a question about why a particular phrase doesn't
>compile or why the compiler doesn't recognize a word means: post
>the simplest version of the code you can contrive that produces the
>problem. No one can diagnose such a problem unless it can be
>reproduced.
>
>Rick
>
>----------------------------------------------------------------------
>sftalk_at_forth.com The SwiftForth programming discussion email list
>To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
>For help with listar commands, send subject "help" to listar_at_forth.com
>Archives are located at http://www.forth.com/sftalk -- check them out!
>Search the archives! Visit http://www.forth.com/search for details.

=====
me: http://www3.sympatico.ca/echapin
harmless bot trap: http://88.net/cgi-bin/aha
=====

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives! Visit http://www.forth.com/search for details.
Received on Tue Aug 27 2002 - 20:48:46 PDT