M bootstrap2.fox +13 -2
@@ 182,9 182,20 @@ m: ." ^ " # ffind ". # lit call, ;
s0 # 1 cell # lit -
begin
( s-top s-curr )
- over over - neg drop -if drop drop ;; then
+ over over - neg drop -if \n drop drop ;; then
dup @ . space # 1 cell # lit -
- loop drop drop ;
+ loop ;
+
+ \ print the stack whenever a word is called.
+ ( *str )
+\ : (:) ". space .s ;
+
+(
+: : fcreate
+ \ push addr of compiles word to be printed by (:)
+ fdp @ nfa ^ lit
+ # ffind (:) # lit call, # ffind # call, ret,
+)
\ end-app start-with test " bootstrap2.o" write-obj
M mandelbrot-mt.fox +4 -3
@@ 1,5 1,6 @@
+
hex
- 14 const
+ 28 const
#tasks \ # of blocks wich have to be rendered
4 const
@@ 246,9 247,9 @@ image \ address, where we store the ima
over + drop
for 0 10 milliseconds sleep next drop ;
-: mb () initmain setup start wait ." write image..."
+: run () initmain setup start wait ." write image..."
save-image ." done " bye ;
-end-app start-with mb " mandelbrot-mt.o" write-obj
+end-app start-with run " mandelbrot-mt.o" write-obj
M mandelbrot.fox +9 -2
@@ 1,6 1,13 @@
-\ https://stackoverflow.com/questions/16500656/which-color-gradient-is-used-to-color-mandelbrot-in-wikipedia
-\ 2nd answer
+ \ print the stack whenever a word is called.
+ ( *str )
+\ : (:) ". space .s ;
+(
+: : fcreate
+ \ push addr of compiles word to be printed by (:)
+ fdp @ nfa ^ lit
+ # ffind (:) # lit call, # ffind # call, ret,
+)
\ requires fileio.fox
\ image dimensions
deci
M swapwm.fox +1 -1
@@ 193,7 193,7 @@ seq \ sequence number for current/last
\ : seq seq @ ffff and ; todo: this is done in every response
-: seq++ 1 seq +! ;
+: seq++ () 1 seq +! ;
: dodbg dbg ." init next req for seq no " seq @ . \n edbg ;