Re: Help for graphic ... errata

Jean-Pierre,

Please replace DRAW with the next definition:

: DRAW ( x0 y0 x1 y1 -- )
    2SWAP (sfhdc) -ROT 0 MoveToEx DROP
    ( x1 y1) (sfhdc) -ROT LineTo DROP ;

Charles

----- Original Message -----
From: "Schmitt Louis Jean-Pierre" <louis.schmitt_at_eif.ch>
To: <sftalk_at_forth.com>
Sent: Wednesday, November 21, 2001 2:05 PM
Subject: [sftalk] Help for graphic application with swiftforth

----------------------------------------------------------------------
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 Wed Nov 21 2001 - 10:10:42 PST