"/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript x1 "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript ($ frame @) $ frame @ $ frame @ dropall 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript killtask fbcon-fb-close fbcon-vt-close "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 cleanup "/home/tom/benexp/experiment.pf" loadscript ex1 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! 0 $ frame ! rewind rewind rewind rewind rewind rewind rewind rewind rewind rewind rewind rewind rewind rewind (frame-start (17)) :c (frame-start (10)) :c (frame-start (7)) :c killtask ex1 killtask cleanup reset "/home/tom/benexp/experiment.pf" loadscript "fbcon" loadmodule [ bitmap/64/64/rgb ] new 24 600 800 fbcon-fb-open fbcon-fb-blit [ bitmap/64/64/rgb ] new dup fbcon-fb-blit "framebuffer" load fbcon-fb-close "framebuffer" load dup fbcon-fb-blit "framebuffer" load [ bitmap/64/64/rgb ] new 0 0 300 400 fbcon-fb-blit [ bitmap/64/64/rgb ] new 0 0 300 400 fbcon-fb-blit-window [ bitmap/64/64/rgb ] new 0 0 300 400 fbcon-fb-blit-window [ bitmap/64/64/rgb ] new 0 0 300 400 fbcon-fb-blit-window fbcon-fb-close "framebuffer" load [ bitmap/64/64/rgb ] new blit "/home/tom/MOV/oorflapper75.mov" open drop drop drop .S "lqt" loadmodule init-lqt [ rgb ] type "/home/tom/MOV/oorflapper75.mov" open 0 frame@ blit (sch ) dropall 0 frame@ blit (nframes@ rand frame@ blit ) ce (nframes@ rand frame@ blit ) ce (scheduler (nframes@ rand frame@ blit )) :c .self (sync (.1 sleep )) :c .self (sync (1.0 sleep )) :c (sync (100.0 sleep )) :c (sync (1000.0 sleep )) :c (sync (100.0 sleep )) :c (sync (300.0 sleep )) :c (sync (1000.0 sleep )) :c (sync (900.0 sleep )) :c (sync (1000.0 sleep )) :c (sync (900.0 sleep )) :c .status .self (sync (100.0 sleep)):c .status .self "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript ex1\ ex1 cleanup "/home/tom/benexp/experiment.pf" loadscript ex1 cleanup "/home/tom/benexp/experiment.pf" loadscript ex1 cleanup "/home/tom/benexp/experiment.pf" loadscript ex1 fbcon-vt-events fbcon-vt-events fbcon-vt-resettimer dropall fbcon-vt-events dropall fbcon-vt-events cleanup "/home/tom/benexp/experiment.pf" loadscript ex1 fbcon-vt-events fbcon-vt-events cleanup ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 fbcon-vt-events fbcon-vt-events dropall fbcon-vt-resettimer fbcon-vt-events cleanup "framebuffer" load "lqt" loadmodule drop init-lqt [ rgb ] type "/home/tom/MOV/oorflapper75.mov" open (scheduler (nframes@ rand frame@ blit )) :c (scheduler (nframes@ rand 10 / frame@ blit )) :c (scheduler (nframes@ rand 30 / frame@ blit )) :c (scheduler (nframes@ rand 10 / frame@ blit )) :c (scheduler (nframes@ rand 1 / frame@ blit )) :c killtask "v4l" loadmodule init-v4l reset init-v4l open grab drop forth (scheduler (nframes@ rand 10 / frame@ blit )) :c (scheduler (nframes@ rand 1 / frame@ blit )) :c fbcon-fb-close 24 768 1024 fbcon-fb-open fbcon-fb-close "v4l" loadmodule reset init-v4l .self "v4l" loadmodule reset init-v4l .self open "v4l" loadmodule reset init-v4l .self open open "v4l" loadmodule reset init-v4l .self open grab drop "v4l" loadmodule reset init-v4l open "v4l" loadmodule reset init-v4l open "v4l" loadmodule reset init-v4l open "v4l" loadmodule reset init-v4l open "v4l" loadmodule reset init-v4l open "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 killtask ex1 killtask ex1 killtask ex1 killtask 1 2 3 4 5 1 2 3 1 2 3 exit 123 + 1 2 + "/home/tom/benexp/experiment.pf" loadscript ex1 ex1 1 2 + "/home/tom/benexp/experiment.pf" loadscript ex1 killtask drop 1 2 3 + + 12 9~+ dropall exit "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 exit 1 2 + asdfasdf "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 1 2 3 4+ + + 1 2 2 3 + + 1 debugger (loop 1 2 + drop) ce 1 2 + + (scheduler (+)) :c killtask 1 debugger (scheduler (+)) :c ss () swapreturn drop s () swapreturn drop "/home/tom/benexp/experiment.pf" loadscript ex1 1 2 1 2 + "/home/tom/benexp/experiment.pf" loadscript ex1 () swapreturn () swapreturn dropall 1 2 3 + + 1 2 3 4 + 1 "/home/tom/benexp/experiment.pf" loadscript ex1 "/home/tom/benexp/experiment.pf" loadscript ex1 killtask ex1 killtask 1 2 3 + 1 2 3 + $ datastack 123 @>l r> drop (loop trap 1 2 3 + ) ce 1 2 3 dropall exit 1 2 3 + + + + (1) send (1 2) send exit () send (1 2 3) send () type 1 send (1) send dropall = dropall (1) send = = (1) send 1 send asdfasdf send (1 2 3) send 1 2 3 send 3 pack send exit "/home/tom/benexp/experiment.pf" loadscript ex1 ( bang@0 (doswap poll-console mainloop doswap)) :c 1 2 "/home/tom/benexp/experiment.pf" loadscript ex1 ( bang@0 (doswap poll-console mainloop doswap)) :c "fbcon" loadmodule drop "fbcon" loadmodule drop make -C ~/prj/plibpdp "fbcon" loadmodule drop 24 600 800 fbcon-fb-open [ image/64/64/8/multi/3 ] new fbcon-fb-blit "fbcon" loadmodule drop 24 600 800 fbcon-fb-open [ image/64/64/8/multi/3 ] new fbcon-fb-blit "fbcon" loadmodule drop 24 600 800 fbcon-fb-open [ image/64/64/8/multi/3 ] new fbcon-fb-blit "fbcon" loadmodule 8 600 800 fbcon-fb-open fbcon-fb-clear fbcon-fb-dims@ fbcon-fb-clear fbcon-fb-clear fbcon-fb-clear fbcon-fb-clear fbcon-fb-clear fbcon-fb-clear 8 600 800 fbcon-fb-open "fbcon" loadmodule fbcon-fb-open drop 8 600 800 fbcon-fb-open "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels drop ((400 400)) fbcon-fb-drawpixels ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400)) fbcon-fb-drawpixels ((400 400)) fbcon-fb-drawpixels fbcon-fb-cl fbcon-fb-clear fbcon-fb-clear ((400 400)) fbcon-fb-drawpixels ((400 400) (404 404)) fbcon-fb-drawpixels fbcon-fb-clear "fbcon" loadmodule 8 600 800 fbcon-fb-open ((400 400) (404 404)) fbcon-fb-drawpixels ((400 400) (404 404)) fbcon-fb-drawpixels drop ((400 400) (404 404)) fbcon-fb-drawpixels ((400 400) (404 404 3)) fbcon-fb-drawpixels ((400 400) (404 404. 3)) fbcon-fb-drawpixels ((400 400) (404 404. 3)) fbcon-fb-drawpixels "/home/tom/prj/cmexp/Walker.pf" loadscript "fbcon" loadmodule 8 600 800 fbcon-fb-open "Walker.pf" loadscript l> swap drop swap drop dup fbcon-fb-drawpixels fbcon-fb-clear dup fbcon-fb-drawpixels "fbcon" loadmodule 8 600 800 fbcon-fb-open drop "Walker.pf" loadscript l> swap drop dup fbcon-fb-drawpixels e_internal "Walker.pf" loadmodule [ walker ] word ! "fbcon" loadmodule not if e_internal then "fbcon" loadmodule drop drop drop "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript nextframe "dowalk.pf" loadscript tick tick tick tick tick tick tick tick tick tick tick tick tick (scheduler (tick)) :c killtask .self (sync (.04 sleep )) (scheduler (tick )) :c "dowalk.pf" loadscript "dowalk.pf" loadscript dropall go killtask "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go .self "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go killtask "gsl" loadmodule drop [ matrix/3/10/real/float ] new "gsl" loadmodule drop matrix/real/float-from-list "gsl" loadmodule drop matrix/real/float-from-list ((1 2) (3 4)) matrix/real/float-from-list "gsl" loadmodule drop ((1 2) (3 4)) matrix/real/float-from-list ((1 2 3) (3 4 5)) matrix/real/float-from-list ((1 2 3) (3 4 5 6)) matrix/real/float-from-list drop drop drop ((1 2 3 4) (3 4 5 6)) matrix/real/float-from-list "Walker.pf" loadscript l> swap drop drup dup "gsl" loadmodule drop matrix/real/float-from-list .S (1 2 3 4 5) dropall ( 1 2 3 4 5 ) (3+ (3 +)) :c 1 3+ drop size drop l> 3+ >>l (3+ (3 +)) :c (1 2 3) $ 3+ map 1 dropall 1 >r 123 >r 0 r[] 1 r[] $ 3+ (ting (123 +)) :c ting dropall 1 $ ting call (1 2 3) $ ting map (ting (123 +)) :c (1 2 3) $ ting map (ting (123 +)) :c (1 2 3 4) $ ting >r size >r (ting (123 +)) :c (1 2 3) $ ting map (1 2 3) (3 +) maplambda $ + (1 2 3) (3 +) mapl "Walker.pf" loadscript "gsl" loadmodule drop (matrix/real/float-from-list ) mapl l> swap drop dup 1 1 and 1 0 and "dowalk.pf" loadscript "dowalk.pf" loadscript go killtask .self go go killtask "dowalk.pf" loadscript go killtask go killtask "gsl" loadmodule drop "gsl" loadmodule drop ((1 0) (0 2)) matrix/real/float-from-list dup * "dowalk.pf" loadscript "dowalk.pf" loadscript eye dbl * * * swap drop * go go * "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go eye $ transform ! eye $ transform ! killtask ((1 1 1) (1 1 0) (1 0 0)) matrix/real/float-from-list dup $ transform ! go eye $ transform ! "dowalk.pf" loadscript go "dowalk.pf" loadscript go "dowalk.pf" loadscript go "gsl" loadmodule drop ((1 0) (1 2)) matrix/real/float-from-list .4 * "dowalk.pf" loadscript "dowalk.pf" loadscript go killtask go killtask (1 2 3) (1 2 pack) map .self go kittlask killtask go init-vforth init-vforth "dowalk.pd" loadscript "dowalk.pf" loadscript (bang) send (1) send (1) send (1) send (1) send (1) send (1) send (1) send (1) send (1) send (1) send (1) send (tick) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (rise) send (tik) send (rise) send (tik) send (tik) send (rise) send (tik) send (rise) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (tik) send (rise) send (rise) send (rise) send (tik) send (tik) send (tik) send (tik) send (rise) send "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript .self ((-1 0 0) (0 1 0) (0 0 1)) matrix ((1 2 3)) swap swap matrix swap * drop ((1 2 3) (4 5 6)) matrix ((-1 0 0) (0 1 0) (0 0 1)) matrix * drop ((1 2 3) (4 5 6)) matrix ((-1 0 0) (0 -1 0) (0 0 -1)) matrix * dropall ((1 2 3) (4 5 6)) matrix ((1 0 0) (0 1 0) (0 0 -1)) matrix * "gsl" loadmodule drop ((1 2 3) (4 5 6)) matrix ((1 0 0) (0 1 0) (0 0 -1)) matrix * ((1 2 3) (4 5 6)) matrix "gsl" loadmodule drop matrix ((1 2 3) (4 5 6)) matrix "gsl" loadmodule drop matrix ((1 0 0) (0 1 0) (0 0 -1)) matrix * "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript ((1 2 3) (4 5 6)) matrix ((1 0 0) (0 1 0) (0 0 -1)) matrix * "dowalk.pf" loadscript ((1 1) (1 2) (1 3) (1 4)) matrix ((-1 0) (0 2)) matrix * "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript l r l r l rl r l r l r l r r l r l (tik) send "dowalk.pf" loadscript go r l r l r l l r lr l r l r l killtask .self (0 tik) send (0 tik) send (1 rise) send (0 tik) send (0 tik) send (0 tik) send (0 tik) send (0 tik) send (0 tik) send ( send send ) drop send (1) send make-outlet make-outlet make-outlet make-outlet make-outlet make-outlet make-outlet make-outlet make-outlet (0) send make-outlet (0) send (0) send (0) send-outlet dropall 0 send-outlet [ bang ] 0 send-outlet make-outlet [ bang ] 0 send-outlet (tik) 0 send-outlet make-outlet send-outlet (tik) 0 send-outlet (tik) 0 send-outlet (tik) 0 send-outlet (tik) 0 send-outlet (tik) 0 send-outlet .self () swapreturn () swapreturn drop drop .self 1 >r 1 2 3 >r 0 0 send-outlet 0 0 send-outlet 0 0 send-outlet (tik) 0 send-outlet (tik) 0 send-outlet 1 >r .self .self .self .self 1 2 3 .self .self 1 >r r> r> dropall .self r> r> r> dropall .self q 1 >r () swapreturn (scheduler (1 . )) :c 1 / 1 . .self 1 >r .self (scheduler (1 .)) :c idle (scheduler (1 .)) :c idle (tik) 0 send-outlet (rise) 0 send-outlet (tik) 0 send-outlet (rise) 0 send-outlet (tik) 0 send-outlet (rise) 0 send-outlet [ dictionary ] new .S 0 send-outlet make-inlet [ dingdong float ] make-inlet (dingdong (1000 + .)) :c (dingdong (1000. + .)) :c .sef .self .self .words .self (tik) 0 send (tik) 0 send (tik) 0 send (tik) 0 send (tik) 0 send (tik) 0 send (tik) 0 send (rise) 0 send (tik) 0 send (rise) 0 send (tik) 0 send [ poll-console ] lookup null? .self q 1 2 + 0 send 0 send 0 send 0 send 1 2 + + + .self 1 2 + 1 2 "x11" [ init-xvideo ] checkmodule (xv (init-xvideo)) :ob [ xv ] lookup dup (events@ (events)) :mob events@ drop 1 2 1 2 .self "dowalk.pf" loadscript go go l r l fbcon-vt-open fbcon-vt-resettimer fbcon-vt-events fbcon-vt-events fbcon-vt-close go fbcon-vt-open fbcon-vt-close go go vt-resettimer vt-events vt-events vt-events vt-events vt-events "dowalk.pf" loadscript 1 2 + "dowalk.pf" loadscript "dowalk.pf" loadscript go vt-events vt-events vt-close vt-open "dowalk.pf" loadscript go vt-close vt-events "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript go vt-open "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "dowalk.pf" loadscript "fbcon" loadmodule "/dev/tty8" vt-open vt-events "fbcon" loadmodule "/dev/tty8" vt-open 8 vt-switch 1 2 0 vt-switch 1 vt-switch "fbcon" loadmodule "/dev/tty8" vt-open vt-get 8 vt-switch 1 2 vt-get vt-switch "/dev/tty7" vt-open "fbcon" loadmodule drop "/dev/tty7" vt-open vt-events "fbcon" loadmodule "/dev/tty7" vt-open vt-get 1 vt-se 1 vt-set 1 vt-switch 1 vt-switch 10 vt-switch "fbcon" loadmodule "/dev/tty7" vt-open "fbcon" loadmodule "/dev/tty7" vt-open "fbcon" loadmodule "/dev/tty7" vt-open "fbcon" loadmodule "/dev/tty7" vt-open "fbcon" loadmodule vt-open "/dev/tty8" vt-open 8 vt-switch 1 vt-switch vt-close vt-open "/dev/tty0" vt-open "/dev/tty" vt-open "/dev/tty8" vt-open "/dev/tty9" vt-open vt-close vt-close dropall "/dev/tty9" vt-open "/dev/tty7" vt-open "/dev/tty7" vt-open "fbcon" loadmodule drop vt-open vt-close 2 vt-switch "/dev/tty7" vt-open "fbcon" loadmodule drop "/dev/tty7" vt-open vt-close "/dev/tty7" vt-open "fbcon" loadmodule drop "/dev/tty7" vt-open vt-close "/dev/tty7" vt-open vt-close "/dev/tty7" vt-open 7 vt-switch 1 vt-switch vt-close "fbcon" loadmodule drop 1 vt-switch "fbcon" loadmodule drop 6 vt-switch "fbcon" loadmodule drop 6 vt-switch "fbcon" loadmodule drop 8 vt-switch 7 vt-switch 6 vt-switch "fbcon" loadmodule drop 6 vt-switch "/dev/tty7" vt-open 7 vt-switch 7 vt-switch drop vt-close "/dev/tty7" vt-open 7 vt-switch 3 vt-switch vt-close "/dev/tty7" vt-open fb-open 8 600 800 fb-open 7 vt-switch vt-close fb-close 7 vt-switch 7 vt-open "fbcon" loadmodule drop dropall 7 vt-open 8 600 800 fb-open 7 vt-close "fbcon" loadmodule drop 7 vt-open 1 vt-switch 2 vt-switch 7 vt-switch 1 vt-switch vt-close "fbcon" loadmodule drop 7 vt-open 6 vt-switch "fbcon" loadmodule drop 6 vt-switch 6 vt-open "fbcon" loadmodule drop 7 vt-open 6 vt-switch "fbcon" loadmodule drop 7 vt-open 6 vt-switch "fbcon" loadmodule drop 7 vt-open 6 vt-switch "fbcon" loadmodule drop 7 vt-open vt-close 7 vt-open "dowalk.pf" loadscript go go vt-resettimer rise rise rise rise rise rise rise rise tik rise tik tik tik tik tik tik tik go tik tik tik tik tik rise tik go go (1 2 3) [ test ] word ! $ test 1 @l[] swap @l[] (1 2 3) 2 l[] drop 4 l[] drop -1 l[] 0 walker[] 1 walker[] dropall points@ points@ points@ points@ dropall fb-clear points@ fb-drawpixels vt-resettimer r l tik tik rise tik rise rise tik tik (scheduler (tik)) :c idle 0 phase! 0 phase! 0 phase! 0 phase! 0 phase! 0 phase! 0 phase! 0 phase! 0 drawpoints 10 drawpoints phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ phase@ dropall phase@ drawpoints phase@ drawpoints phase@ drawpoints phase@ drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints phase@ dup tik? drawpoints draw draw draw drawpoints draw draw draw draw draw draw draw draw draw draw draw dropall .self (15 mod not if tik then) ;term compile .self (4 for 123 drawpixels next) compile (4 for 123 drawpoints next) compile .self 1 2 3 down ( ldown (l> >>l)) :c (1 2 3) dropall (1 2 3) ldown ldown ldown r l r ( pshift (7)) :c ( pshift (0)) :c ( pshift (7)) :c ( pshift (0)) :c 1 1 dorun 0 0 dorun 0 1 dorun 1 1 dorun 0 1 dorun 1 1 dorun 1 0 dorun 1 0 dorun 1 1 dorun 1 0 dorun 0 1 0 dorun 0 1 0 dorun 1 1 0 dorun 1 1 0 dorun 1 1 1 dorun 1 0 1 dorun 1 1 1 dorun 0 1 1 dorun 0 1 0 dorun 0 1 1 dorun 0 0 1 dorun 1 0 1 dorun (0 7 15 22 ) dup ((+) swap >l) map drop dup ((+) swap >l [ shiftphase >l ] ) map drop drop drop drop ddup ((+) swap >l [ shiftphase ] >l ) map ( phase->time ((0 7 15 22) swap l[])) :c dropall 0 phase->time ( phase->time ((0 7 15 22) swap l[] swap drop)) :c dropall 0 phase->time 1 phase->time 2 phase->time 3 phase->time 4 phase->time 2 phase->time dropall 0 0 3 dorun 0 1 3 dorun 0 1 0 dorun 0 1 1 dorun 0 1 2 dorun 0 0 0 dorun stoprun 0 0 0 dorun stoprun dorun-random stoprun dorun-random stoprun dorun-random dorun-random dorun-random dorun-random dorun-random dorun-random dorun-random dorun-random dorun-random stoprun dorun-random stoprun dorun-random stoprun dorun-random stoprun dorun-random dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound stoprun dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound dorun-random-sound sdtoprin stoprun (1 2 3 4) shuffle shuffle shuffle shuffle shuffle ( make-experiment ( >r () 0 r[] 4 / for (0 1 2 3) >l next shuffle)) :c 20 make-experiment ( make-experiment ( >r () 0 r[] 4 / for (0 1 2 3) + next shuffle)) :c dropall 20 make-experiment 20 make-experiment ( make-experiment ( swap () 4 / for (0 1 2 3) + next shuffle)) :c dropall 20 make-experiment ( make-experiment (4 / () swap for (0 1 2 3) + next shuffle)) :c make-experiment ( make-shuffled-direction (2 / () swap for (0 1) + next shuffle)) :c 20 make-shuffled-direction (1 pack) map (1 2) (3 4) 2 merge 20 make-experiment 20 make-experiment 20 make-shuffled-direction dropall 20 make-shuffled-direction 20 make-shuffled-phase 2 merge 20 make-experiment 20 make-experiment 1 20 make-experiment 0 20 make-experiment 0 20 make-experiment 1 make-block 0 make-block vt-events dorun-random-nosound 1 2 + (105 234.456) checkevent drop l> dup drop >l check vt-events $ checkevent mapw vt-events event event vt-events drop drop vt-events $ event-parse mapw event event event event event event dropall event dropall event event event (()()()) events-filter (()(123)()) events-filter (()(123)(3)) events-filter (()()(3)) events-filter (()) events-filter (()()(3)) events-filter (()()(3)()) events-filter (()()()()) events-filter (()()(3)) events-filter (()()()) events-filter 1 dropall () events-filter (()) events-filter (() ()) events-filter event event dropall dropall event dropall event event event () size (1 2 3) size dropall event event vt-events $ event-parse mapw $ event-parse mapw event event 1 2 + 1 2 event event () (1) mapl dropall () (1) mapl () (1) mapl events event dropall event event event event event event vt-resettimer event dropall 1 2 dotrial-random-nosound dotrial-random-nosound dotrial-random-nosound dotrial-random-nosound dotrial-random-nosound dotrial-random-nosound dotrial-random-nosound 1 2 nextrial stoptrial nextrial 1 1 start-random-sound stop start-random-nosound 40 make-block dropall start-random-nosound direction@ direction@ direction@ direction@ direction@ direction@ direction@ direction@ dropall 1 start-random-nosound start-random-nosound "test . " . 1 . 123.4 . start-random-nosound start-random-nosound start-random-nosound $ ex-in .self undef 1 2 (1 2 3) (spit (size if drop undef dup ; then l> swap)) :ticker spit dropall spit (1 2 3) (spit (size not if ; then l> swap)) :ticker spit spit spit spit (1 2 3) (spit (size not if undef swap ; then l> swap)) :ticker dropall spit spit spit spit dropall spit spit (123 123 123) $ spit state! spit spit spit spit dropall spit (1 2 3) (spit (size if l> swap ; then )) :ticker dropall spit spit dropall (1 2 3) (spit (size if l> swap ; then )) :ticker spit spit (1 2 3) (spit (l> swap)) :ticker dropall spit spit spit spit () swapreturn dropall spit dropall 1 start-random-nosound start-random-nosound start-random-nosound start-random-nosound start-random-nosound start-random-nosound start-random-sound start-random-sound start-random-sound stop start-random-sound start-random-sound start-random-nosound start-random-nosound start-random-nosound start-random-sound start-random-sound start-random-sound (0 123.45) handle-event dropall (0 123.45) judge $ exp-out @> (0 123.45) judge # exp-out $ exp-out @> l> l> start-random-sound $ exp-out @ $ exp-out @ start-random-sound $ exp-out @ 10 make-block dropa dropall 10 make-block start-experiment 1 start-experiment start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound start-random-sound .self 0 walker[] ((1 2 3)) matrix make-task swaptask $ null $ task-mainloop dropall $ task-mainloop entry 1 pack () 2 pack $ test-task start-task .self yield .self yield .self 1 2 + $ test-task make-task $ task ! yield .self yield .self yield yield $ test-task make-task $ task ! $ test-task make-task task! yield yield yield yield yield $ test-task make-task task! .S dropall yiel yield yield yield yield .self .self (123 123) $ test-task make-task task! yield yield yield yield .self 1 2 + 20 make-block start-experiment 20 make-block start-experiment event drop drop 20 make-block start-experiment dropall make-block 20 make-block l> dup . setuptrial 20 make-block start-experiment 3 make-block start-experiment 3 make-block 0 make-block 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 2 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment rise rise rise rise rise rise 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 40 make-experiment start-experiment 1 40 make-experiment start-experiment [ image/64/64/8/multi/3 ] new fb-blit [ image/64/64/8/multi/3 ] new fb-blit 1 40 make-experiment start-experiment 1 40 make-experiment start-experiment 1 40 make-experiment start-experiment 1 40 make-experiment start-experiment (taskA (1 + yield)) :c (taskA (1 + task-yield)) :c dropall $ taskA entry 1 pack (0) 2 pack 1 pack $ tasks ! task-yield .elf .self $ tasks @ (taskA (loop 1 + .S task-yield)) :c $ taskA entry 1 pack (0) 2 pack 1 pack $ tasks ! $ tasks @ task-yield dropall task-yield task-yield task-yield task-yield task-yield (10000 for task-yield next) ce (100 for task-yield next) ce $ tasks @ (()()) >tasl (()()) >task dropall (()()) >task .S dropall (()()) $ tasks @>l drop (()()) >task $ task @ $ tasks @ (tA (loop 1 + .S yield)) :c (tA (loop 1 + .S task-yield)) :c dropall (tB (loop 3 + .S task-yield)) :c (0) $ tA task-yield 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment task> taskq> taskq> (tB (loop 3 + .S task-yield)) :c 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment taskq> .S taskq> >taskq drop drop drop 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment dropall () $ tasks ! 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment taskq> S >taskq yield (clock (yield )) :c 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment vt-close fb-close 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment "/tmp/explog.pf" loadscript size "/tmp/explog.pf" loadscript 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment "echo haha" shell "pine" shell "/usr/bin/pine" shell "mutt" shell "data" shell "date" shell "echo 123" shell "echo 123" shell "echo 123" shell "echo 123" shell "echo 123" shell "date" shell drop . dropall "date" shell drop . "date" shell drop . 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 2 + 1 4 make-experiment start-experiment idle idle (clock ()) :c drop drop .self doimage .self .self reset "gsl" loadmodule .self ((1 1) (1 1)) matrix dup + dup * 1 4 make-experiment start-experiment (clock ()) :c 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .self "cat /tmp/explog.pf" shell "cat /tmp/explog.pf >&2 " shell dropall "cat /tmp/explog.pf >&2 " shell .log .log exit 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment .log 1 4 make- 1 4 make-experiment dropall 1 400 make-experiment dropall 1 1 1 1 drop drop drop drop 1 4 make-experiment start-experiment .log 0 4 make-experiment start-experiment 0 7 make-experiment start-experiment 0 7 make-experiment .log exit 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment outro-periods intro-periods dropall 0 4 make-experiment start-experiment ( image multi 8 64 64 3 ) image new .0 * 1.0 + blit fb-blit 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment 0 4 make-experiment start-experiment 3 white-frames ! 0 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment var-inter-trial-frames drop 25 var-inter-trial-frames ! var-inter-trial-frames 1 4 make-experiment start-experiment .var-status 1 var-intro-periods ! 1 4 make-experiment start-experiment .log .status .var-status .var-status .var-status 1 4 make-experiment start-experiment 0 var-inter-trial-color ! 1 4 make-experiment start-experiment 0 var-inter-trial-color ! 1 4 make-experiment start-experiment .var-status 3 var-intro-periods ! .var-status 1 4 make-experiment start-experiment [ var-inter-trial-color ] dup lookup call @ . .tab . . .var-status .var-status .status state [ on ] 1 send [ on ] 1 send [ off ] 1 send [ on ] 1 send [ off ] 1 send [ on ] 1 send [ off ] 1 send ( on 700.) 1 send ( off 0.) 1 send ( on 700.) 1 send ( off 0.) 1 send ( on 700.) 1 send ( off 0.) 1 send ( on 7000.) 1 send 1 1 = 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 2 4 make-experiment start-experiment tik rise-on rise-off rise-on rise-off rise-on rise-off 2 4 make-experiment start-experiment 1000.0 var-hz-per-second ! 2 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 2 4 make-experiment start-experiment state state state state state state state state 1 4 make-experiment start-experiment 2 4 make-experiment start-experiment .log .log 1 4 2 4 make-experiment state var-inter-trial-color 0 ! swap ! state start-experiment 3 4 make-experiment start-experiment 2 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log ( ((0 1 3)(juist 1 480.915009)) ((0 0 3)(juist 0 778.387024)) ((3 0 3)(fout 1 358.437988)) ((3 0 3)(juist 0 509.239014)) ((3 0 3)(juist 0 444.997009)) ((1 1 3)(juist 1 420.616974)) ((1 0 3)(juist 0 420.251984)) ((0 0 3)(juist 0 584.992004)) ((2 1 3)(juist 1 424.297974)) ((0 0 3)(juist 0 457.914001)) ((2 0 3)(juist 0 559.004028)) ((2 1 3)(juist 1 450.641998)) ((2 1 3)(juist 1 568.584961)) ((3 1 3)(juist 1 458.698975)) ((1 1 3)(juist 1 453.705994)) ((1 1 3)(juist 1 467.444977)) ) dup (unpack . "\t" . . "\n" .) cmapl dup (unpack . "\t" . . "\n" .) cmapl 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 2 16 make-experiment start-experiment state 0 var-inter-trial-color state var-inter-trial-color var-inter-trial-color ! state dropall 0 var-inter-trial-color ! state 3 16 make-experiment start-experiment state start-experiment 3 16 make-experiment start-experiment 1 16 make-experiment start-experiment 0 16 make-experiment start-experiment 1 16 make-experiment start-experiment 1 16 make-experiment start-experiment 1 16 make-experiment start-experiment state 25 var-inter-trial-frames ! state 1 16 make-experiment start-experiment .log 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 2 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 16 make-experiment start-experiment state 12 var-inter-frames ! var-inter-trial-frames ! state 0 var-inter-trial-color ! state 3 16 make-experiment start-experiment 3 16 make-experiment start-experiment 3 16 make-experiment start-experiment .log 3 200 make-experiment start-experiment .log 3 200 make-experiment start-experiment 1 20 make-experiment start-experiment 1 20 make-experiment start-experiment .log 0 20 make-experiment start-experiment 0 20 make-experiment start-experiment .log 0 100 make-experiment start-experiment 1 100 make-experiment start-experiment 2 100 make-experiment start-experiment 3 100 make-experiment start-experiment .log 0 200 make-experiment start-experiment .log 1 200 make-experiment start-experiment 2 200 make-experiment start-experiment 3 200 make-experiment start-experiment 1 100 make-experiment start-experiment 2 100 make-experiment start-experiment 1 100 make-experiment start-experiment 2 100 make-experiment start-experiment 1 100 make-experiment start-experiment 2 100 make-experiment start-experiment 1 100 make-experiment start-experiment 2 100 make-experiment start-experiment xv4l load-v4l init-v4l grab xv4l grab blit grab blit grab blit (loop grab blit) ce "opengl.pf" loadscript run start-an3-spawner "opengl.pf" loadscript run start-an3-spawner (10 for drop-task next) ce (10 for drop-task next) ce run start-an2-spawner (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce () $ task-animation start-task (10 for drop-task next) ce xv4l grab blit gab grab blit grab blit (loop grab blit) ce (loop grab cutup blit) ce (loop grab dup + dup + blit) ce (loop grab -.5 1.0 -.5 vconv blit) ce (loop grab -.5 1.0 -.5 dup + dup + vconv blit) ce (loop grab -.5 1.0 -.5 vconv dup + dup + blit) ce isolate load-opengl .self init-opengl .self drop (,test ((1 2 3) l>>coco )):c (t (test test)) :c .self (,@[ ((dup >r @) l>>co )) :c (,]! ((r> !) l>>co)) :c (c++ (counter @[ 1 + ]!)) :c .self (,@[ ((dup >r @) _compile l>>co )) :c (,]! ((r> !) _compile l>>co)) :c (c++ (counter @[ 1 + ]!)) :c (l>ci (size if l> >ci l>ci ; then drop)) :c drop (,test ((dup swap drop) l>ci)) :c (t (test test)) :c (,test ((dup swap drop) l>ci)) :c (t (test test)) :c .self (,test ((dup swap drop) l>ci)) :c (t (test test)) :c (,test ( [ dup swap drop ] 3 n>ci)) :c (t (test test)) :c .self (c++ (counter @[ 1+ ]!)):c xv4l grab blit grab blit grab dup load-gsl pointcloud 10 pointcloud typesymbol drawpixels drop drop dup type-symbol . . dup grab pointcloud grab 1000 pointcloud swap drawpixels drop drop transpose .self grab 10 pointcloud swap grab typesymbol swap drop drawpixels dup blit it dropall grab 10 pointcloud it drawpixels dl blit grab 10 pointcloud it drawpixels blit (loop grab 10 pointcloud it drawpixels blit ) ce (loop grab 100 pointcloud it drawpixels blit ) ce xv4l (loop grab 100 pointcloud it drawpixels blit ) ce load-gsl (loop grab 100 pointcloud it drawpixels blit ) ce drop pointcloud xv4l load-gsl grab blit grab blit 1000 pointcloud grab 1000 pointcloud (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels b) ce xv4l xv4l (s (var 0)) :c (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels b) ce load-gsl ce (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels b) ce drop s ! dropall (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels) ce dropall (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels) ce (loop grab 10000 pointcloud s @ - .1 * s @ + dup s ! it drawpixels blit) ce (loop grab 10000 pointcloud s @ - .3 * s @ + dup s ! it drawpixels blit) ce (loop grab 10000 pointcloud s @ - .8 * s @ + dup s ! it drawpixels blit) ce (loop grab 10000 pointcloud s @ - .65 * s @ + dup s ! it drawpixels blit) ce (loop grab 100 pointcloud it drawpixels blit ) ce (loop grab 100 pointcloud it drawpixels blit ) ce (loop grab 100 pointcloud it drawpixels blit ) ce (loop grab 10 pointcloud 3 cluster it drawpixels blit ) ce (loop grab 10 pointcloud 3 cluster s @ - .8 * s @ + dup s ! it drawpixels blit) ce xv4l grab 1 2 + . loadscript "opengl.pf" "opengl.pf" loadscript "opengl.pf" loadscript "script/opengl.pf" loadscript "opengl.pf" loadscript drop-task start-an3-spawner "script/opengl.pf" loadscript "opengl.pf" loadscript xv4l grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab blit grab .1 + blit grab .1 + blit grab .1 + blit grab cutup blit grab cutup blit grab cutup blit grab cutup blit grab cutup blit (loop grab cutup blit ) ce "opengl.pf" loadscript drop-task start-an2-spawner (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce start-an3-spawner (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce (10 for drop-task next) ce () $ task-animation start-task drop-task () $ task-animation start-task (10 for drop-task next) ce [ image/multi/8/320/240/3 ] new [ image/multi/8/320/240/3 ] new load-lqt init-qt-recorder "/tmp/test.mov" create dup frame! dup frame! dup frame! dup frame! close reset init-qt-player "/tmp/test.mov" open 0 frame@ blit load-x11 init-xvideo 300 400 window 0 frame! drop dup blit dup blit dup blit "/tmp/test.mov" open dup blit dup blit dup blit dup blit dup .4 + blit dup -.4 + blit dup -.14 + blit dup -.314 + blit dup -.2314 + blit (image 4:1:1 8 320 240 3) "script/opengl.pf" loadscript "prj/libpdp/script/opengl.pf" loadscript "prj/libpdp/script/opengl.pf" loadscript 1.1 a! 1.1 b! 2.1 b! 3.1 b! 3.4 b! 3.05 b! 1.0 a! state 1 4 make-experiment 0 4 make-experiment start-experiment 1 4 make-experiment start-experiment 2 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment load-fbcon 0 vt-open 1 vt-open vt-close 7 vt-open vt-close 7 vt-open vt-close 7 vt-open vt-close load-fbcon 7 vt-open load-fbcon 8 vt-open load-fbcon 5 vt-open load-fbcon 2 vt-open load-fbcon 7 vt-open load-fbcon 7 vt-open load-fbcon 7 vt-open 1 vt-switch load-fbcon 7 vt- 7 vt-open load-fbcon 7 vt-open vt-close 7 vt-open load-fbcon 0 vt-open 7 vt-open vt-close vt-close vt-close vt-close 7 vt-open load-fbcon 0 vt-open 7 vt-open 7 vt-open 0 vt-open vt-close vt-close vt-close 7 vt-open load-console load-fbcon 0 vt- 0 vt-open load-fbcon "/dev/tty7" vt-open vt-close "/dev/tty7" vt-open load-fbcon "/dev/console" vt-open vt-close "/dev/console" vt-open vt-close vt-close load-fbcon "/dev/console" vt-open 0 vt-switch 1 vt-switch 2 vt-switch 2 vt-switch "/dev/console" vt-open vt-close "/usr/local/bin/pf" load-fbcon vt-open "/tmp/font.png" vt-open "/net/smurf/tmp/font.png" vt-open load-fbcon "/net/smurf/tmp/font.png" vt-open "/dev/console" vt-open vt-close "/dev/console" vt-open vt-close "/dev/tty2" vt-open 2 vt-switch 2 vt-switch 3 vt-switch 2 vt-switch vt-close "/dev/tty2" vt-open 2 vt-switch vt-close "/dev/tty3" vt-open vt-close load-fbcon vt-open load-fbcon vt-open vt-close vt-open vt-close load-fbcon vt-open load-fbcon vt-open ls vt-open 8 600 800 fb-open vt-open vt-open 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment load-png load-fbcon 24 600 800 fb-open "begin.png" load "begin.png" png-load dropall "begin.png" png-load load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup blit dup fb-blit dup fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open fb-blit dropall load-png load-fbcon "begin.png" png-load 24 600 800 fb-open fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit load-lqt "/home/tom/MOV/neuskoter75.mov" open init-qt-player open dropall frame@ 0 frame@ fb-blit .self load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit load-png load-fbcon "begin.png" png-load 24 600 800 fb-open dup fb-blit 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment "begin.png" png-load fb-blit fb-blit dropall "begin.png" png-load 8 600 800 fb-open fb-blit "begin.png" png-load fb-blit "begin.png" png-load fb-blit fb-close 24 600 800 fb-open "begin.png" png-load fb-blit 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment [ image/P/1/64/64/1 ] new xv4l blit [ image/P/8/64/64/1 ] new blit [ image/P/8/64/64/1 ] new blit [ image/P/8/64/64/1 ] new blit 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment state 0 var-inter-trial-color ! state 1 4 make-experiment start-experiment halt cd halt 0 var-inter-trial-color ! state 2 16 make-experiment start-experiment 2 16 make-experiment start-experiment .log 2 12 make-experiment start-experiment 3 12 make-experiment start-experiment 3 12 make-experiment start-experiment 3 12 make-experiment start-experiment state 3 12 make-experiment start-experiment 3 12 make-experiment start-experiment state 1 4 make-experiment start-experiment 0 var-inter-trial-color ! state 3 16 make-experiment start-experiment 3 16 make-experiment start-experiment 1 16 make-experiment start-experiment 0 16 make-experiment start-experiment .log 3 16 make-experiment start-experiment .log state 1000 var-hz-per-second ! state 1 16 make-experiment start-experiment 700 var-hz-per-second ! state state 2 12 make-experiment start-experiment .log state 0 var-inter-trial-color ! state 1 12 make-experiment start-experiment 3 12 make-experiment start-experiment 3 12 make-experiment start-experiment state 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment .log 3 4 make-experiment "Walker32.pf" load matrix load-gsl matrix size drop 1 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment .log .log (1 2 3) size not ? (drop) l> . " " . (1 2 3) l>log (1 2 3) l>log (1 2 3) l>log dropall (1 2 3) l>log (1 2 3) l>log .log (1 2 3) l>log .log 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment stop close-console 1 4 make-experiment start-experiment .log .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment .log .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment stop close-console 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment stop close-console close-console vt-events 9 vt-open 1 4 make-experiment start-experiment open-console clear-screen get-filtered-events get-filtered-events dropall get-filtered-events get-filtered-events get-filtered-events dropall get-filtered-events dropall get-filtered-events dropall get-filtered-events dropall get-filtered-events dropall vt-events vt-events open-console vt-events vt-events dropall close-console open-console 4 vt-switch 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment .log 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log "mieke_3.txt" var-logfile ! 1 4 make-experiment start-experiment .log .status state state 1 4 make-experiment start-experiment .log "mieke_4.txt" var-logfile ! 1 4 make-experiment start-experiment .log 1 104 make-experiment start-experiment .log 1 104 make-experiment start-experiment .log 1 104 make-experiment start-experiment load-freetype load-freetype "font.tff" ft-font! "ArialBlack-Regular.ttf" ft-font! dropall open-console [ image/P/8/800/600/1 ] "test" 0 0 ft-draw-text [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text dropall [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text blit [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text fb-blit dropall [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text image/*/*/*/*/3 convert fb-blit [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text [ image/*/*/*/*/3 ] convert fb-blit dropall [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text [ image/*/*/*/*/3 ] convert fb-blit [ image/P/8/800/600/1 ] new "test" 0 0 ft-draw-text dup dup 3 join fb-blit [ image/P/8/800/600/1 ] new dup dup 3 join dropall [ image/P/8/800/600/1 ] new dup dup 3 image:join close-console [ image/P/8/800/600/1 ] new dup dup 3 join load-freetype "ArialBlack-Regular.ttf" font! "ArialBlack-Regular.ttf" ft-font! dropall load-freetype open-console hello image-black swap drop 0 0 "asdfasdf" ft-draw-text dropall open-console hello dropall open-console clear-screen open-console hello open-console hello open-console text-press-key open-console text-press-key close-console open-console text-press-key open-console text-press-key close-console open-console image-black "Test 123" 350 400 ft-draw-text blit fb-blit fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key text-press-key fb-params fb-open text-press-key text-press-key text-press-key clear-screen text-press-key clear-screen text-press-key fb-params fb-open text-press-key text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key fb-params fb-open text-press-key text-pause text-press-key fb-params fb-open text-pause 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment fb-params fb-open text-feedback fb-params fb-open text-feedback fb-params fb-open text-feedback "helperdehelp" feedback-string ! text-feedback 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment 1 4 make-experiment start-experiment .log 3 4 make-experiment start-experiment .log 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment .log 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment close-console 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 1 104 make-experiment start-experiment status state "ben-take-1.txt" var-logfile ! state "ben-take-1.txt" var-logfile ! "ben eerste take\n" >log .log "ben-take-1.txt" var-logfile ! state "ben-test-1.txt" var-logfile ! 1 104 make-experiment start-experiment "ben-test-1.txt" var-logfile ! 1 104 make-experiment start-experiment "ben-session-1.txt" var-logfile ! 1 104 make-experiment start-experiment .log 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment .log .log "ma-test-1.txt" var-logfile ! 3 16 make-experiment start-experiment 1 16 make-experiment start-experiment .log 1 16 make-experiment start-experiment 3 16 make-experiment start-experiment "ben-session-1.txt" var-logfile ! 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment .log .log state "ben-session-1.txt" var-logfile ! 1 104 make-experiment start-experiment 1 104 make-experiment start-experiment "ben-session-1.txt" var-logfile ! 1 104 make-experiment start-experiment .log 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment state "ben-session-1.txt" var-logfile ! state 1 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment "ben-doubting1.txt" var-logfile ! 3 104 make-experiment start-experiment "ben-fullfill1.txt" var-logfile ! 1 104 make-experiment start-experiment 1 104 make-experiment start-experiment 3 104 make-experiment start-experiment .log halt "ben-fullfill2.txt" var-logfile ! 3 104 make-experiment start-experiment "ben-fullfill3.txt" var-logfile ! 3 104 make-experiment start-experiment state 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment load-fbcon load-freetype words load-freetype "ArialBlack-Regular.ttf" ft-font! 50.0 ft-size! load-gsl homedir "/plugins" + "/freetype.so" + loadmodule load-fbcon 123.0 4.0 / load-gsl 123.0 4.0 / load-gsl load-fbcon 3 4 make-experiment start-experiment load-fbcon 24 480 640 fb-open fb-point@ 100 100 fb-fill 100 100 fb-fill 100 100 fb-fill 100 100 fb-fill 10 10 fb-fill 10 10 fb-fill 10 10 fb-fill ~0 10 fb-fill 0 0 fb-fill 100 100 fb-point! 50 50 fb-fill load-fbcon 24 480 640 fb-open 50 50 fb-fill load-fbcon 24 480 640 fb-open 50 50 fb-fill 50 50 fb-fill 0 0 fb-point! 0 0 fb-point! 50 50 fb-fill -3 -10 fb-point! 3 10 fb-fill 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 24 480 640 fb-open draw-minus 24 480 640 fb-open draw-minus draw-plus 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 1 neg 1 -1 * 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment cleanup 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment close-vt vt-close 0 vt-open drop vt-open 1 vt-switch 3 4 make-experiment start-experiment stop 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment load-fbcon vt-open vt-resettimer vt-events vt-events 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment "test 123\n" "/tmp/test" >file "test 123\n" "/tmp/test" >file "asdfasdf" "/tmp/test.txt" >file 3 4 make-experiment start-experiment "asdfasdf" "/tmp/test.txt" >file "asdfasdf" "/tmp/test.txt" >file "asdfasdf" "/tmp/test.txt" >file "asdfasdf" "/tmp/test.txt" >file 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment \ grab xv4l grab blit grab blit grab blit xv4l grab blit grab blit grab blit grab blit 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment .log .log .log .log .log 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment 3 4 make-experiment start-experiment start-session 1 4 make-block \ 1 4 make-block start-session start-session start-session start-session start-session start-session start-session start-session start-session start-session start-session start-session start-session stop (1 3 1 3 1 3) l> var-trials @ make-block (1 3 1 3 1 3) dropall (1 3 1 3 1 3) l> 1 1 make-duplist 1 2 make-duplist ropall dropall 1 4 make-block 3 4 make-block 123 dropall 123 1 4 make-block (1) (2) (3) 3 merge dropall (1) (2) (3) 3 merge 123 1 4 make-block 1 1 1 1 1 1 1 1 dropall 1 1 1 1 1 1 1 1 1 4 make-block dropall 1 4 make-block dropall 123 1 4 make-block dropall 123 123 1 4 make-block dropall 1 4 make-block dropall 1123 1 4 make-block start-session start-session start-session start-session .status state 2 3 start-session 2 3 start-session 2 3 start-session 2 3 start-session next-session next-session 0 0 start-session 0 0 start-session 0 0 start-session 0 0 start-session 0 0 start-session 0 0 start-session 0 0 start-session next-session next-session .log state state next-session next-session state 4 var-trials ! next-session ping google.be kut .words size words size .S ls dropall load-grablit 0 gdb-assert . gdb-trap