steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factoroids did not load

cvs
Slava Pestov 2005-11-23 04:16:18 +00:00
parent caf566e352
commit 52e24115ea
2 changed files with 20 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
TODO.FACTOR.txt
View File

@ -12,25 +12,18 @@
- adding/removing timers automatically for animated gadgets - adding/removing timers automatically for animated gadgets
- saving image with UI open - saving image with UI open
- fix up the min thumb size hack - fix up the min thumb size hack
- make-pane: if no input, just return pane-output
- bug: click tutorial, full screen, the right-most arrow icon
loses the vertical bar
- signal handler should not lose stack pointers
- callbacks - callbacks
- FIELD: char key_vector[32];
- FIELD: union { char b[20]; short s[10]; long l[5]; } data;
- MEMBER: long pad[24];
- floating point intrinsics
- new basic block optimizer
- declare slot types for built-ins
- split: return vectors
- set-path: iterative
- better prettyprinting of cond - better prettyprinting of cond
- investigate if rehashing on startup is really necessary
- remove word transfer hack in bootstrap
- the invalid recursion form case needs to be fixed, for inlines too
- what about tasks and timers between image restarts
+ ui: + ui:
- bug: click tutorial, full screen, the right-most arrow icon
loses the vertical bar
- make-pane: if no input, just return pane-output
- keyboard completion - keyboard completion
- get outliner working with lots of lines of output - get outliner working with lots of lines of output
- listener continuations - listener continuations
@ -53,11 +46,13 @@
+ misc + misc
- code walker & exceptions - code walker & exceptions
- investigate if rehashing on startup is really necessary - signal handler should not lose stack pointers
- remove word transfer hack in bootstrap
+ ffi: + ffi:
- FIELD: char key_vector[32];
- FIELD: union { char b[20]; short s[10]; long l[5]; } data;
- MEMBER: long pad[24];
- C structs, enums, unions: use new-style string mode parsing - C structs, enums, unions: use new-style string mode parsing
- smarter out parameter handling - smarter out parameter handling
- clarify powerpc passing of value struct parameters - clarify powerpc passing of value struct parameters
@ -70,17 +65,21 @@
+ compiler: + compiler:
- floating point intrinsics
- new basic block optimizer
- declare slot types for built-ins
- check that set-datastack and set-callstack compile correctly in the - check that set-datastack and set-callstack compile correctly in the
face of optimization face of optimization
- [ ] [ throw ] ifte ==> should raise 'unbalanced branches' error - [ ] [ throw ] ifte ==> should raise 'unbalanced branches' error
- remove dead code after a 'throw' - remove dead code after a 'throw'
- flushing optimization - flushing optimization
- [ [ dup call ] dup call ] infer hangs - [ [ dup call ] dup call ] infer hangs
- the invalid recursion form case needs to be fixed, for inlines too
- compile continuations - compile continuations
+ sequences: + sequences:
- split: return vectors
- set-path: iterative
- slice: if sequence or seq start is changed, abstraction violation - slice: if sequence or seq start is changed, abstraction violation
- specialized arrays - specialized arrays
- search: slow - search: slow
@ -100,8 +99,6 @@
- reader syntax for byte arrays, displaced aliens - reader syntax for byte arrays, displaced aliens
- out of memory error when printing global namespace - out of memory error when printing global namespace
- merge timers with sleeping tasks - merge timers with sleeping tasks
- what about tasks and timers between image restarts
- there is a problem with hashcodes of words and bootstrapping
- delegating generic words with a non-standard picker - delegating generic words with a non-standard picker
- code gc - code gc

8
examples/factoroids/bodies.factor
View File

@ -7,6 +7,10 @@ angle-delta direction ;
GENERIC: tick ( time obj -- ) GENERIC: tick ( time obj -- )
: update-direction ( body -- )
dup body-angle deg>rad dup sin swap cos 0 swap 3array
swap set-body-direction ;
C: body ( position angle size -- ) C: body ( position angle size -- )
[ set-body-size ] keep [ set-body-size ] keep
[ set-body-angle ] keep [ set-body-angle ] keep
@ -39,10 +43,6 @@ C: body ( position angle size -- )
[ [ scaled-velocity ] keep body-position v+ ] keep [ [ scaled-velocity ] keep body-position v+ ] keep
set-body-position ; set-body-position ;
: update-direction ( body -- )
dup body-angle deg>rad dup sin swap cos 0 swap 3array
swap set-body-direction ;
: body-tick ( time body -- ) : body-tick ( time body -- )
[ update-angle ] 2keep [ update-angle ] 2keep
[ update-velocity ] 2keep [ update-velocity ] 2keep