Changeset bceb2b6a9535fe0ec18cad0d5de821544b76ed70

User picture

Commiter: Charles Childers

Author: Charles Childers

Parent: 84e43d30e6

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

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

Affected files

Updated forthlets/chess/chess.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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 ;

Updated forthlets/maze/maze.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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

Updated image/extensions/editor.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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

Updated image/rx-core/core.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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

Updated website/jsvm/chess.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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 ;

Updated website/jsvm/maze.retro Download diff

84e43d30e60064df7ababd72f5cfee5776af4841bceb2b6a9535fe0ec18cad0d5de821544b76ed70
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