Changeset befebd59509fdd8b6b58cb28c3f0d5bfa898123b

Commiter: Charles Childers

Author: Charles Childers

(2010/05/01 04:55) Almost 2 years ago

add "10.6" vocabulary; update to latest rx-core

Affected files

	84e43d30e60064df7ababd72f5cfee5776af4841		befebd59509fdd8b6b58cb28c3f0d5bfa898123b
		1	( Retro Forth 10.6 Extensions ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
		2	( Copyright [c] 2010, Charles Childers )
		3	( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
		4
		5	vocab 10.6
		6	((
		7	: ekey ( -c ) key dup emit ;
		8
		9	{{
		10	stub fast
		11	---reveal---
		12	: fastRender ( - )
		13	&fast &redraw :is later &redraw :devector ;
		14	}}
		15	))

	84e43d30e60064df7ababd72f5cfee5776af4841		befebd59509fdd8b6b58cb28c3f0d5bfa898123b
		1	include extensions/10_6.retro
1	include extensions/editor.retro	2	include extensions/editor.retro
2	include extensions/debug.retro	3	include extensions/debug.retro
3		4
4	: ekey ( -c ) key dup emit ;
5	' retro >vocab
6	save bye	5	save bye

	84e43d30e60064df7ababd72f5cfee5776af4841		befebd59509fdd8b6b58cb28c3f0d5bfa898123b
824	: hline ( xyw- ) 6 6 out wait ;	824	: hline ( xyw- ) 6 6 out wait ;
825	: circle ( xyw- ) 7 6 out wait ;	825	: circle ( xyw- ) 7 6 out wait ;
826	: solidCircle ( xyw- ) 8 6 out wait ;	826	: solidCircle ( xyw- ) 8 6 out wait ;
827	{{
828	: fast ( - ) ;
829	---reveal---
830	: fastRender ( - )
831	&fast &redraw :is later &redraw :devector redraw ;
832	}}
833		827
834	( Colors ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )	828	( Colors ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
835	: black 0 setColor ;	829	: black 0 setColor ; : blue 1 setColor ;
836	: blue 1 setColor ;	830	: green 2 setColor ; : cyan 3 setColor ;
837	: green 2 setColor ;	831	: red 4 setColor ; : purple 5 setColor ;
838	: cyan 3 setColor ;	832	: brown 6 setColor ; : gray 7 setColor ;
839	: red 4 setColor ;	833	: darkgray 8 setColor ; : brightblue 9 setColor ;
840	: purple 5 setColor ;	834	: brightgreen 10 setColor ; : brightcyan 11 setColor ;
841	: brown 6 setColor ;	835	: brightred 12 setColor ; : magenta 13 setColor ;
842	: gray 7 setColor ;	836	: yellow 14 setColor ; : white 15 setColor ;
843	: darkgray 8 setColor ;
844	: brightblue 9 setColor ;
845	: brightgreen 10 setColor ;
846	: brightcyan 11 setColor ;
847	: brightred 12 setColor ;
848	: magenta 13 setColor ;
849	: yellow 14 setColor ;
850	: white 15 setColor ;
851	))	837	))
852	' canvas shut	838	' canvas shut
853		839