bitmap_from_window   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/win32.xtm

Implementation

;;; xtlang wrappers ;;;;;
(bind-func bitmap_from_window
  (lambda (window_name:i8*)
    (let ((hwnd (if (null? window_name)
                    (GetForegroundWindow)
                    (FindWindowA window_name null)))
          (rc (RECT 0 0 0 0)))
      (if (null? hwnd)
          (begin (println "could not find window named" (Str hwnd))
                 (tuple 0 0 3:i32 (cast null i8*)))
          (let ((PW_CLIENTONLY 1) ;; to grab full window set to 0
                (DIB_RGB_COLORS 0)
                (BI_RGB 0)
                (BI_PNG:i32 5)
                (res (GetClientRect hwnd rc)) ;; fills rc
                (hdcScreen (GetDC null))
                (info:BITMAPINFO* (alloc))
                (hdc (CreateCompatibleDC hdcScreen))
                (bmp (CreateCompatibleBitmap hdcScreen
                                             (- (right rc) (left rc))
                                             (- (bottom rc) (top rc)))))


Back to Index

Similar Entries

  • -clock:metro-from-host-    scheme    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • -clock:metro-from-host-    scheme    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • AudioBuffer_from_aiff    xtlang    /digego/extempore/tree/v0.8.9/libs/core/audiobuffer.xtm
  • AudioBuffer_from_wave    xtlang    /digego/extempore/tree/v0.8.9/libs/core/audiobuffer.xtm
  • GUI_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/gui.xtm
  • Windows-add-libdir-to-PATH    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm
  • Windows-convert-unix-path    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm
  • ai_load_ogl_texture_from_buffer    xtlang    /digego/extempore/tree/v0.8.9/libs/external/assimp.xtm
  • astra_bitmapmask_t    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/orbbec_astra.xtm
  • cerberus_frq_from_val    xtlang    /digego/extempore/tree/v0.8.9/libs/core/instruments/cerberus_midi.xtm
  • cerberus_octave_from_val    xtlang    /digego/extempore/tree/v0.8.9/libs/core/instruments/cerberus_midi.xtm
  • clock:offset-from-server    scheme    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • comb_fb_from_rtsixty    xtlang    /digego/extempore/tree/v0.8.9/libs/core/audio_dsp.xtm
  • filename-from-path    scheme    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • frq_from_val    xtlang    /digego/extempore/tree/v0.8.9/libs/core/instruments/analogue_midi.xtm
  • frq_from_val    xtlang    /digego/extempore/tree/v0.8.9/libs/core/instruments/channel_strip.xtm
  • get_window    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/horde3d_knight.xtm
  • glew-name-from-gl-name    scheme    /digego/extempore/tree/v0.8.9/libs/external/gl/glcore-glew.xtm
  • glfw_create_fullscreen_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_create_fullscreen_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_create_fullscreen_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_create_fullscreen_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_create_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_create_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_destroy_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_get_window_height    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_get_window_width    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_compatibility_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_compatibility_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_interaction_compatibility_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_fullscreen_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_interaction_compatibility_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_interaction_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_init_and_create_window    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_window_focus_callback:GLFWwindowfocusfun    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_window_position_callback:GLFWwindowposfun    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • glfw_window_should_close    xtlang    /digego/extempore/tree/v0.8.9/libs/external/glfw3.xtm
  • gui_window_size_callback    xtlang    /digego/extempore/tree/v0.8.9/libs/external/gui.xtm
  • half_rectangular_window_func    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • half_rectangular_window_func2    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • hamming_window_func    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • hanning_window_func    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • impc:ir:compiler:closure-from-getter    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:convert-from-pretty-types    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-arity-from-pretty-closure    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-array-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-closure-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-function-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-tuple-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-array    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-closure    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-str-rec    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-tuple    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-pretty-vector    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ir:get-vector-type-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • impc:ti:reverse-set-bangs-from-reified    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm
  • impc:ti:tuple-list-from-pretty-tuple-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm
  • load_blep_tables_from_blob    unknown    /digego/extempore/tree/v0.8.9/libs/core/audio_dsp.xtm
  • make_window_transparent    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/win32.xtm
  • octave_from_val    xtlang    /digego/extempore/tree/v0.8.9/libs/core/instruments/analogue_midi.xtm
  • ocv_namedWindow    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • ocv_namedWindow    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • ocv_namedWindow    scheme    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • ocv_namedWindow1    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • ocv_namedWindow2    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • ocv_scheme_release_window    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/xtmcv.xtm
  • pc:from-intervals    scheme    /digego/extempore/tree/v0.8.9/libs/core/pc_ivl.xtm
  • pc:from-steps    scheme    /digego/extempore/tree/v0.8.9/libs/core/pc_ivl.xtm
  • pc:scale-from-chord    scheme    /digego/extempore/tree/v0.8.9/libs/core/pc_ivl.xtm
  • pc:scale-from-pc    scheme    /digego/extempore/tree/v0.8.9/libs/core/pc_ivl.xtm
  • rectangular_window_func    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • set_window_wndproc    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/win32.xtm
  • sf_channels_from_file    xtlang    /digego/extempore/tree/v0.8.9/libs/external/sndfile.xtm
  • sf_frames_from_file    xtlang    /digego/extempore/tree/v0.8.9/libs/external/sndfile.xtm
  • sf_samples_from_file    xtlang    /digego/extempore/tree/v0.8.9/libs/external/sndfile.xtm
  • string_list_from_file    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/word_count.xtm
  • string_list_from_string    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/word_count.xtm
  • sys:compile-init-ll-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • sys:compile-ll-from-str    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmir.xtm
  • triangular_window_func    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/TSM_library.xtm
  • unix-or-Windows    macro    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm
  • window_hamming    xtlang    /digego/extempore/tree/v0.8.9/libs/core/math.xtm
  • window_hamming    xtlang    /digego/extempore/tree/v0.8.9/libs/core/math.xtm
  • window_hanning    xtlang    /digego/extempore/tree/v0.8.9/libs/core/math.xtm
  • window_hanning    xtlang    /digego/extempore/tree/v0.8.9/libs/core/math.xtm
  • with-input-from-file    scheme    /digego/extempore/tree/v0.8.9/runtime/init.xtm
  • with-input-output-from-to-files    scheme    /digego/extempore/tree/v0.8.9/runtime/init.xtm
  • xtmdoc-get-args-from-form    scheme    /digego/extempore/tree/v0.8.9/runtime/llvmti.xtm