print   xtlang


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

Implementation

(bind-func print:[void,Joint*]*
  (lambda (x)
    (if (null? x)
        (begin (printf "") void)
        (let ((type (tref x 0))
              (pos (tref x 1))
              (state (tref x 2))
              (track (cond ((= state TrackingState_NotTracked) "NotTracked")
                           ((= state TrackingState_Inferred) "Inferred")
                           ((= state TrackingState_Tracked) "Tracked")
                           (else "Err")))
              (name (cond ((= type JointType_SpineBase) "SpineBase")
                          ((= type JointType_SpineMid) "SpineMid")
                          ((= type JointType_Neck) "Neck   ")
                          ((= type JointType_Head) "Head   ")
                          ((= type JointType_ShoulderLeft) "ShoulderL")
                          ((= type JointType_ElbowLeft) "ElbowLeft")
                          ((= type JointType_WristLeft) "WristLeft")
                          ((= type JointType_HandLeft) "HandLeft")
                          ((= type JointType_ShoulderRight) "ShoulderR")
                          ((= type JointType_ElbowRight) "ElbowRight")
                          ((= type JointType_WristRight) "WristRight")
                          ((= type JointType_HandRight) "HandRight")
                          ((= type JointType_HipLeft) "HipLeft ")
                          ((= type JointType_KneeLeft) "KneeLeft")
                          ((= type JointType_AnkleLeft) "AnkleLeft")
                          ((= type JointType_FootLeft) "FootLeft")
                          ((= type JointType_HipRight) "HipRight")
                          ((= type JointType_KneeRight) "KneeRight")
                          ((= type JointType_AnkleRight) "AnkleRight")
                          ((= type JointType_FootRight) "FootRight")
                          ((= type JointType_SpineShoulder) "SpineShoulder")
                          ((= type JointType_HandTipLeft) "HandTipLeft")
                          ((= type JointType_ThumbLeft) "ThumbLeft")
                          ((= type JointType_HandTipRight) "HandTipRight")
                          ((= type JointType_ThumbRight) "ThumbRight")
                          (else "Err"))))
          (printout "<" (String name) "\t[" (tref pos 0) "," (tref pos 1) "," (tref pos 2) "]\t" (String track) ">")
          void))))


Back to Index

Similar Entries

  • CprintP    xtlang
  • CprintPd    xtlang
  • CprintPr    xtlang
  • CprintR    xtlang
  • PaDeviceInfo_print    xtlang
  • PaHostApiInfo_print    xtlang
  • PaHostErrorInfo_print    xtlang
  • PaStreamCallbackTimeInfo_print    xtlang
  • PaStreamInfo_print    xtlang
  • PaStreamParameters_print    xtlang
  • ShaderProgram_print_info_log    xtlang
  • Shader_print_info_log    xtlang
  • Vprint    xtlang
  • _print_interface_addresses    xtlang
  • ai_print_export_formats    xtlang
  • chunked_printf    xtlang
  • console_print    xtlang
  • curl_print_version    xtlang
  • db_print_column    xtlang
  • fits-file-print    xtlang
  • fits-file-print    xtlang
  • fleet_print_machines    xtlang
  • fleet_print_state    xtlang
  • fleet_print_state    xtlang
  • fleet_print_unit    xtlang
  • fleet_print_unit_state    xtlang
  • fleet_print_units    xtlang
  • g_print_value_type    xtlang
  • ghttp_print_request_body    xtlang
  • ghttp_print_request_full    xtlang
  • ghttp_print_request_headers    xtlang
  • gl_print_driver_info    xtlang
  • gl_print_driver_info    xtlang
  • gl_print_driver_info    xtlang
  • gl_print_error    xtlang
  • gl_print_error    xtlang
  • gl_print_error    xtlang
  • gl_print_error    xtlang
  • gl_print_error_no_msg    xtlang
  • gl_print_error_with_msg    xtlang
  • glfw_print_primary_monitor_details    xtlang
  • glfw_print_version_string    xtlang
  • glfw_print_video_mode_details    xtlang
  • impc:aot:print-compilation-details    scheme
  • impc:compiler:print-already-bound-error    scheme
  • impc:compiler:print-bad-arity-error    scheme
  • impc:compiler:print-bad-numeric-value-error    scheme
  • impc:compiler:print-bad-type-error    scheme
  • impc:compiler:print-bad-type-error-with-ast    scheme
  • impc:compiler:print-badly-formed-expression-error    scheme
  • impc:compiler:print-bind-func-details-to-log    scheme
  • impc:compiler:print-binding-details-to-log    scheme
  • impc:compiler:print-cannot-expand-non-generic-error    scheme
  • impc:compiler:print-compiler-error    scheme
  • impc:compiler:print-compiler-failed-error    scheme
  • impc:compiler:print-compiler-warning    scheme
  • impc:compiler:print-constraint-error    scheme
  • impc:compiler:print-could-not-resolve-generic-type-error    scheme
  • impc:compiler:print-could-not-resolve-type-error    scheme
  • impc:compiler:print-could-not-resolve-types    scheme
  • impc:compiler:print-could-not-resolve-types_find-expr    scheme
  • impc:compiler:print-double-colon-error    scheme
  • impc:compiler:print-dylib-loading-details-to-log    scheme
  • impc:compiler:print-expansion-arity-error    scheme
  • impc:compiler:print-if-type-conflict-error    scheme
  • impc:compiler:print-index-oob-error    scheme
  • impc:compiler:print-lib-binding-details-to-log    scheme
  • impc:compiler:print-missing-generic-type-error    scheme
  • impc:compiler:print-missing-identifier-error    scheme
  • impc:compiler:print-needs-zone-delay-error    scheme
  • impc:compiler:print-needs-zone-size-error    scheme
  • impc:compiler:print-no-redefinitions-error    scheme
  • impc:compiler:print-no-retval-error    scheme
  • impc:compiler:print-no-scheme-stub-notification    scheme
  • impc:compiler:print-no-valid-forms-for-generic-error    scheme
  • impc:compiler:print-not-during-aot-error    scheme
  • impc:compiler:print-polying-details-to-log    scheme
  • impc:compiler:print-shadow-var-error    scheme
  • impc:compiler:print-type-conflict-error    scheme
  • impc:compiler:print-type-mismatch-error    scheme
  • impc:compiler:print-unsupported-conversion-error    scheme
  • impc:compiler:print-variable-not-marked-as-free-error    scheme
  • impc:ir:pretty-print-type    scheme
  • impc:pretty-print-vars    macro
  • impc:ti:fprintf-check    scheme
  • impc:ti:genericfunc-pretty-print    scheme
  • impc:ti:polyfunc-pretty-print    scheme
  • impc:ti:polytype-pretty-print    scheme
  • impc:ti:print-builtin-cache    scheme
  • impc:ti:print-closure-cache    scheme
  • impc:ti:print-genericfunc-cache    scheme
  • impc:ti:print-generictype-cache    scheme
  • impc:ti:print-globalvar-cache    scheme
  • impc:ti:print-namedtype-cache    scheme
  • impc:ti:print-nativefunc-cache    scheme
  • impc:ti:print-polyfunc-cache    scheme
  • impc:ti:print-polytype-cache    scheme
  • impc:ti:print-typealias-cache    scheme
  • impc:ti:print-xtmacro-cache    scheme
  • impc:ti:printf-check    scheme
  • impc:ti:println    scheme
  • impc:ti:println2    scheme
  • impc:ti:sprintf-check    scheme
  • impc:ti:sprintln    scheme
  • impc:ti:sprintln2    scheme
  • json_object_print_keys    xtlang
  • json_print_type    xtlang
  • kinect_print_body    xtlang
  • lilv_print_all_lv2_plugins    xtlang
  • lilv_print_all_plugin_ports    xtlang
  • llvm:compile-ir-and-print    scheme
  • mprint    xtlang
  • mprint    xtlang
  • mprint    xtlang
  • mprint    xtlang
  • myprint    xtlang
  • myprint    xtlang
  • myprint    xtlang
  • nn_println_strerror    xtlang
  • nn_println_strerror    xtlang
  • pa_print_devices    xtlang
  • pm_print_devices    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print    xtlang
  • print-load    scheme
  • print-str-sym    xtlang
  • print-with-colors    macro
  • printYourArgs    xtlang
  • print_all_devices    xtlang
  • print_audio_state    xtlang
  • print_audio_state    xtlang
  • print_device_feature_report    xtlang
  • print_interface_addresses    xtlang
  • print_json_t    xtlang
  • print_mersenne_primes    xtlang
  • print_midi_devices    xtlang
  • print_particle    xtlang
  • print_planet    xtlang
  • print_program_info_log    xtlang
  • print_response    xtlang
  • print_response    xtlang
  • print_return    xtlang
  • print_shader_info_log    xtlang
  • print_space    xtlang
  • print_walker    xtlang
  • print_walker_array    xtlang
  • print_xtmmodel    xtlang
  • printer    xtlang
  • qr_code_print    xtlang
  • rtmidi_print_ports    xtlang
  • sf_print_audio_file_info    xtlang
  • sys:print-interface-addresses    scheme
  • testprint    xtlang
  • testprint    xtlang
  • testprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • vprint    xtlang
  • world_ascii_print    xtlang
  • world_basic_print    xtlang
  • xobj_print_class    xtlang
  • xobj_print_classes    xtlang
  • xtm_vg_print_error    xtlang
  • xtmtest-print-results    scheme
  • xtmtest-print-results    scheme