Changeset bceb2b6a9535fe0ec18cad0d5de821544b76ed70

Commiter: Charles Childers

Author: Charles Childers

(2010/04/29 16:20) Almost 2 years ago

use current rx core; adjust forthlets to work with new core.

Affected files

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
60	: --- ." -------------------" cr ;	60	: --- ." -------------------" cr ;
61	: row #\|...\| 8 for dup @ emit 32 emit 1+ next ;	61	: row #\|...\| 8 for dup @ emit 32 emit 1+ next ;
62	: show 8 for row next drop reset ;	62	: show 8 for row next drop reset ;
63	: display clear fastRender ### --- board show --- ;	63	: display clear ### --- board show --- ;
64		64
65	---reveal---	65	---reveal---
66	: new blank board 64 copy ;	66	: new blank board 64 copy ;

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
62	: row ." \| " COLUMNS for 2dup + @ emit 32 emit 1+ next ." \| " cr ;	62	: row ." \| " COLUMNS for 2dup + @ emit 32 emit 1+ next ." \| " cr ;
63	: display	63	: display
64	clear	64	clear
65	fast-render
66	32 emit 33 for ." -" next cr	65	32 emit 33 for ." -" next cr
67	board 0 ROWS for row next 2drop	66	board 0 ROWS for row next 2drop
68	32 emit 33 for ." -" next cr	67	32 emit 33 for ." -" next cr

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
66	: x ." +---:---+---:---" ;	66	: x ." +---:---+---:---" ;
67	: bar space space x x x x cr ;	67	: bar space space x x x x cr ;
68	: vb bar @blk block rows drop bar ;	68	: vb bar @blk block rows drop bar ;
69	here is (v) ] clear fastRender vb .block ;	69	here is (v) ] clear renderLater vb .block ;
70	}	70	}
71		71
72		72

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
827	{{	827	{{
828	: fast ( - ) ;	828	: fast ( - ) ;
829	---reveal---	829	---reveal---
830	: fastRender ( - )	830	: renderLater ( - )
831	&fast &redraw :is later &redraw :devector redraw ;	831	&fast &redraw :is later &redraw :devector redraw ;
832	}}	832	}}
833		833

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
62	: --- ." -------------------" cr ;	62	: --- ." -------------------" cr ;
63	: row #\|...\| 8 for dup @ emit 32 emit 1+ next ;	63	: row #\|...\| 8 for dup @ emit 32 emit 1+ next ;
64	: show 8 for row next drop reset ;	64	: show 8 for row next drop reset ;
65	: display clear fastRender ### --- board show --- ;	65	: display clear ### --- board show --- ;
66		66
67	---reveal---	67	---reveal---
68	: new blank board 64 copy ;	68	: new blank board 64 copy ;

	84e43d30e60064df7ababd72f5cfee5776af4841		bceb2b6a9535fe0ec18cad0d5de821544b76ed70
64	: row ." \| " COLUMNS for 2dup + @ emit 32 emit 1+ next ." \| " cr ;	64	: row ." \| " COLUMNS for 2dup + @ emit 32 emit 1+ next ." \| " cr ;
65	: display	65	: display
66	clear	66	clear
67	fast-render
68	32 emit 33 for ." -" next cr	67	32 emit 33 for ." -" next cr
69	board 0 ROWS for row next 2drop	68	board 0 ROWS for row next 2drop
70	32 emit 33 for ." -" next cr	69	32 emit 33 for ." -" next cr