[BACK]Return to tt.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / misc

Diff for /gforth/arch/misc/tt.fs between versions 1.2 and 1.5

version 1.2, 1998/05/02 21:28:57 version 1.5, 2006/03/12 21:30:24
Line 18  variable loops/ms Line 18  variable loops/ms
 : ms  0 ?DO  loops/ms @ 0 ?DO LOOP LOOP ;  : ms  0 ?DO  loops/ms @ 0 ?DO LOOP LOOP ;
 : blank  bl fill ;  : blank  bl fill ;
   
 Create pn-tab ," 000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980"  : pn    ( n -- )  0 <# # # #> type ;
   
 : pn    ( n -- )  2* pn-tab 1+ + 2 type ;  
 : ;pn   [char] ; emit pn ;  : ;pn   [char] ; emit pn ;
 : ESC[  27 emit [char] [ emit ;  : ESC[  27 emit [char] [ emit ;
 : at-xy 1+ swap 1+ swap ESC[ pn ;pn [char] H emit ;  : at-xy 1+ swap 1+ swap ESC[ pn ;pn [char] H emit ;
Line 175  DOES> 1+ rot 2* 2* rot + 2* + ; Line 173  DOES> 1+ rot 2* 2* rot + 2* + ;
 Create scratch  ,"                                 "  Create scratch  ,"                                 "
 DOES>   1+ rot 2* 2* rot + 2* + ;  DOES>   1+ rot 2* 2* rot + 2* + ;
   
 create bricks   brick1 1 + ,  brick2 1 + ,  brick3 1 + ,  brick4 1 + ,  create bricks   brick1 1 + a,  brick2 1 + a,  brick3 1 + a,  brick4 1 + a,
                 brick5 1 + ,  brick6 1 + ,  brick7 1 + ,                  brick5 1 + a,  brick6 1 + a,  brick7 1 + a,
   
 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c, 5 c, 5 c,  create brick-val 1 c, 2 c, 3 c, 3 c, 4 c, 5 c, 5 c,
   
Line 260  create brick-val 1 c, 2 c, 3 c, 3 c, 4 c Line 258  create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
                 else  false  then ;                  else  false  then ;
   
 : drop-brick    \ --- ; move brick down fast  : drop-brick    \ --- ; move brick down fast
                 begin  1 0 move-brick 0=  until ;                  begin  1 0 move-brick key? drop 0=  until ;
   
 : move-line     \ from to ---  : move-line     \ from to ---
                 over 0 pit  over 0 pit  wide 2*  cmove  draw-line                  over 0 pit  over 0 pit  wide 2*  cmove  draw-line
Removed from v.1.2  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>