[ColorForth] (No Subject)
- Subject: [ColorForth] (No Subject)
- From: "Jimmy Söderman" <hiraganagos@xxxxxxxxxxx>
- Date: Sat, 15 Jun 2002 16:03:01 +0000
- Bcc:
Sorry, parts of remarks slipped into the sourcecode messing it up,
so i´ll post it again in its entirity.
CIRCLE variable a variable b variable c variable color variable base color !
dup 2/ - -1 + c ! a ! 0 b ! 1600 * swap 2* + 1e80000 + base !
SOMELOOP a @ b @ symmetricplot b @ a @ symmetricplot 1 b +! b @ c +! c @ 0
less - if 1 a -! a @ c -! then a @ b @ less if someloop ; then ;
SYMMETRICPLOT 1600 * swap 2* over over base @ + swap over over + color @ !
-1 * + color @ ! base @ -1 * + swap over over + color @ ! -1 * + color @ !
_________________________________________________________________
Hämta MSN Explorer kostnadsfritt på http://explorer.msn.se/intl.asp
------------------------
To Unsubscribe from this list, send mail to Mdaemon@xxxxxxxxxxxxxxxxxx with:
unsubscribe ColorForth
as the first and only line within the message body
Problems - List-Admin@xxxxxxxxxxxxxxxxxx
Main ColorForth site - http://www.colorforth.com
