Clojure Agent question - using send-off -

-

i have couple of questions following code:

(import   '(java.awt color graphics dimension)  '(java.awt.image bufferedimage)  '(javax.swing jpanel jframe))  (def width 900) (def height 600)   (defn render  [g]  (let [img (new bufferedimage width height                   (. bufferedimage type_int_argb))        bg (. img (getgraphics))]    (doto bg       (.setcolor (. color white))       (.fillrect 0 0 (. img (getwidth)) (. img (getheight)))       (.setcolor (. color red))       (.drawoval 200 200 (rand-int 100) (rand-int 50)))    (. g (drawimage img 0 0 nil))    (. bg (dispose))    ))  (def panel (doto (proxy [jpanel] []                         (paint [g] (render g)))              (.setpreferredsize (new dimension                                       width                                       height))))  (def frame (doto (new jframe) (.add panel) .pack .show))  (def animator (agent nil))   (defn animation    [x]   (send-off *agent* #'animation)   (. panel (repaint))   (. thread (sleep 100)))  (send-off animator animation)
  1. in animation function - why #' used before animation in send-off?
  2. why send-off @ start of animation function work? shouldn't go start of animation function again , never execute repaint , sleep methods?

  3. is there disadvantage, compared original, in writing animation function as:

    (defn animation    [x]   (. panel (repaint))   (. thread (sleep 100))   (send-off *agent* animation))

in animation function - why #' used before animation in send-off?

to demonstrate clojure's dynamic nature.

the form #'animation var, 1 of clojure's mutable reference types. defn macro creates var. convenience, invoking var refers function same invoking function itself. var, unlike function, can change! redefine #'animation @ clojure repl , see effects.

using (send-off *agent* #'animation) forces clojure of current value of #'animation var every time. if code had used (send-off *agent* animation) instead, clojure value once, , not possible change animation function without stopping loop.


Comments

Post a Comment

Popular posts from this blog

c++ - error: use of deleted function -

-
i've been working on c++ code friend has written , following error have never seen before when compiling gcc4.6: error: use of deleted function ‘gamefsm_<std::array<c, 2ul> >::hdealt::hdealt()’ implicitly deleted because default definition ill-formed: uninitialized non-static const member ‘const h_t floppokergamefsm_<std::array<c, 2ul> >::hdealt::h’ edit: comes part of code using boost msm: boost webpage edit2: there no = delete() used anywhere in sourcecode. generally speaking, error mean? should looking when type of error occurs? i don't think other answers mentioning =deleted; syntax correct. error message says default constructor has been deleted implicitly . says why: class contains non-static, const variable, not initialized default ctor. class x { const int x; }; since x::x const , must initialized -- default ctor wouldn't initialize (because it's pod type). therefore, default ctor, need define 1 (and must ...
Read more

delphi - ESC/P programming! -

-
why need use because printers using tprinter prints weird hieroglyph @ beginning of printable area. my problem if send commands, nothing happens. esc e (#27 #69) - sending escape sequence didn't work expected. removed first letter , rest of string made bold. eg. hello -> ello . after changed esc e esc (#27 #69 #27), worked fine. example managed figure out, but... trying select character table "esc t n" (#27 #116 n), make "õäöü" work. command doesn't work. nothing happens! , command supported esc/p, esc/p 2 , 9-pin esc/p, should work fine. manual can found here . if has ever needed use esc/p commands maybe 1 can shed light how work them! thanks in advance! edit: in previous post asked more or less same question though answers how did send commands printer. (i'll change question there according answers!) i accepted ken's answer, because claimed way transferred commands wasn't best , got work escape command. problem after t...
Read more

Cursor error with postgresql, pgpool and php -

-
hey, struggling bit determine exact cause of error has been popping in our release environment. there not seem dealing particular error on google. this error message getting: sqlstate[34000]: invalid cursor name: 7 error: portal "" not exist the error pops when using pdo prepared statements. this setup our release environment: pgpool 3.0.1 (the postgresql backend in streaming replication mode!) php 5.3.5 postgresql 9.0 edit: architecture 64bit. the same error not manifest in our test environment (edit: forgot mention, standard test environment uses postgresql 9.0 without pgpool). thus, led suspect pgpool @ least partly suspect. does know probable causes error are? edit: ok, here example of kind of code causes error. $sql = 'select * '; $sql .= 'from "mytable" "mystuff" '; $sql .= 'where "mytable"."status" = 1 '; $sql .= 'and "mytable"."mytableid" = :table...
Read more