init_burners   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/fluids_2d.xtm

Implementation

(bind-func init_burners
  (lambda ()
    (set! NumBurners 0)
    (let ((tex Swoosh)
          (dat (data tex))
          (w (width tex))
          (h (height tex))
          (jj 0)
          (t:<i64,i64>* null)
          (i 0) (j 0))
      (dotimes (i w)
        (dotimes (jj h)
          (set! j (- h jj))
          (if (> (i8toui32 (pref dat (+ (* 4 i) (* j 4 w)))) 230)
              (begin
                ;; (set! t (aref-ptr BurnerPositions NumBurners))
                ;; (tfill! t (i32toi64 i) (i32toi64 j))
                (aset! BurnerPositions NumBurners (tuple (i32toi64 i) (i32toi64 j)))
                (set! NumBurners (+ NumBurners 1))))))
      (println "Total Burners:" NumBurners)
      (dotimes (i (i64toi32 NumBurners))
        (println "burn:" i
                 (tref (aref BurnerPositions i) 0)
                 (tref (aref BurnerPositions i) 1)))
      void)))


Back to Index

Similar Entries

  • apr_init    xtlang
  • burners    xtlang
  • cef_init_app    xtlang
  • cef_init_base    xtlang
  • cef_init_browser    xtlang
  • cef_init_client    xtlang
  • cl:reduce-init    scheme
  • glew_init    xtlang
  • glfw_init    xtlang
  • glfw_init_and_create_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_window    xtlang
  • glfw_init_and_create_fullscreen_window    xtlang
  • glfw_init_and_create_fullscreen_window    xtlang
  • glfw_init_and_create_interaction_compatibility_window    xtlang
  • glfw_init_and_create_interaction_window    xtlang
  • glfw_init_and_create_window    xtlang
  • gui_init    xtlang
  • h3d_init    xtlang
  • h3d_init    xtlang
  • impc:compiler:print-no-redefinitions-error    scheme
  • impc:ti:initialize-closure-with-new-zone    scheme
  • init-gst    xtlang
  • init-osc-vars    xtlang
  • init-psys    xtlang
  • init-slides    scheme
  • init_bodies    xtlang
  • init_draw_quad    xtlang
  • init_env_map    xtlang
  • init_gl    xtlang
  • init_globals    xtlang
  • init_lv2_amp    xtlang
  • init_sample_data    xtlang
  • init_sample_data    xtlang
  • init_sky    xtlang
  • init_vao    xtlang
  • init_vg    xtlang
  • initalize    xtlang
  • initialize_walkers    xtlang
  • lilv_init_world    xtlang
  • node_reply_socket_init    xtlang
  • nvg_init    xtlang
  • pa_initialize    xtlang
  • pm_initialize    xtlang
  • pm_initialize    unknown
  • scheduler_init    xtlang
  • some_gl_init    xtlang
  • sys:compile-init-ll    scheme
  • sys:compile-init-ll-from-str    scheme
  • world_init    xtlang
  • xtm_envmap_init    xtlang
  • xtm_render_init    xtlang
  • xtm_render_init_dof_shader    xtlang
  • xtm_render_init_light_shader    xtlang
  • xtm_render_init_quad_shader    xtlang
  • xtm_render_init_simple_bone_shader    xtlang
  • xtm_render_init_simple_shader    xtlang
  • xtm_render_init_skybox_shader    xtlang
  • xtm_skybox_init    xtlang