You can edit this page using wiki syntax for markup.

Article contents:== Outdated egg! This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for [[/eggref/5/allegro|the CHICKEN 5 version of this egg]], if it exists. If it does not exist, there may be equivalent functionality provided by another egg; have a look at the [[https://wiki.call-cc.org/chicken-projects/egg-index-5.html|egg index]]. Otherwise, please consider porting this egg to the current version of CHICKEN. [[tags: allegro game]] == allegro This document pertains to user input related methods found in the Allegro egg. Please see the main [allegro] wiki page for more information. [[toc:]] == Constants * joystick-max-axes * jostick-max-sticks * joystick-max-buttons * mouse-max-extra-axis == Enums === cursor-type <procedure>(cursor-type->int cursor-type)</procedure> {{cursor-type}} may be one of the following symbols: * none * default * arrow * busy * question * edit * move * resize-north * resize-west * resize-south * resize-east * resize-northwest * resize-southwest * resize-southeast * resize-northeast * progress * precision * link * alt-select * unavailable <procedure>(int->cursor-type integer)</procedure> === joystick-flag <procedure>(joystick-flag->int joystick-flag)</procedure> {{joystick-flag}} may be one of the following symbols: * digital * analog <procedure>(int->joystick-flag integer)</procedure> === key <procedure>(key->int key)</procedure> {{key}} may be one of the following symbols: * a * b * c * d * e * f * g * h * i * j * k * l * m * n * o * p * q * r * s * t * u * v * w * x * y * z * one * two * three * four * five * six * seven * eight * nine * zero * pad-one * pad-two * pad-three * pad-four * pad-five * pad-six * pad-seven * pad-eight * pad-nine * pad-zerp * f1 * f2 * f3 * f4 * f5 * f6 * f7 * f9 * f9 * f10 * f11 * f12 * escape * tilde * minus * equals * backspace * tab * openbrace * enter * semicolon * quote * backslash * backslash2 * comma * fullstop * slash * space * insert * delete * home * end * pgup * pgdn * left * right * up * down * pad-slash * pad-asterisk * pad-minus * pad-plus * pad-delete * pad-enter * printscreen * pause * abnt-c1 * yen * kana * convert * noconvert * at * circumflex * colon2 * kanji * pad-equals * backquote * semicolon2 * command * unknown * lshift * rshift * lctrl * rctrl * alt * altgr * lwin * rwin * menu * scrolllock * numlock * capslock <procedure>(int->key integer)</procedure> === keymod <procedure>(keymod->int keymod)</procedure> {{keymod}} may be one of the following symbols: * shift * ctrl * alt * lwin * rwin * menu * altgr * command * scrolllock * numlock * capslock * inaltseq * accent1 * accent2 * accent3 * accent4 <procedure>(int->keymod integer)</procedure> == Records === cursor <record>cursor</record> === joystick <record>joystick</record> === joystick-state <record>joystick-state</record> <procedure>(make-joystick-state*)</procedure> <procedure>(make-joystick-state)</procedure> <procedure>(free-joystick-state! joystick-state)</procedure> <procedure>(joystick-state-button int)</procedure> === keyboard <record>keyboard</record> === keyboard-state <record>keyboard-state</record> <procedure>(make-keyboard-state*)</procedure> <procedure>(make-keyboard-state)</procedure> <procedure>(free-keyboard-state! keyboard-state)</procedure> <procedure>(keyboard-state-display)</procedure> === mouse <record>mouse</record> === mouse-cursor <record>mouse-cursor</record> === mouse-state <record>mouse-state</record> <procedure>(make-mouse-state)</procedure> <procedure>(make-mouse-state*)</procedure> <procedure>(free-mouse-state! mouse-state)</procedure> <procedure>(mouse-state-x mouse-state)</procedure> <procedure>(mouse-state-y mouse-state)</procedure> <procedure>(mouse-state-z mouse-state)</procedure> <procedure>(mouse-state-w mouse-state)</procedure> <procedure>(mouse-state-buttons mouse-state)</procedure> <procedure>(mouse-state-pressure mouse-state)</procedure> <procedure>(mouse-state-axis mouse-state integer)</procedure> <procedure>(mouse-state-display mouse-state)</procedure> == Functions === Joystick <procedure>(joystick-addon-install)</procedure> Implements al_install_joystick. <procedure>(joystick-addon-uninstall)</procedure> Implements al_uninstall_joystick. <procedure>(joystick-addon-installed?)<procedure> Implements al_is_joystick_installed. <procedure>(joystick-addon-reconfigure)</procedure> Implements al_reconfigure_joysticks. <procedure>(joystick-event-source)<procedure> Implements al_get_joystick_event_source. <procedure>(joystick-count)</procedure> Implements al_get_num_joysticks. <procedure>(joystick-ref integer)</procedure> Implements al_get_joystick. <procedure>(joystick-release joystick)</procedure> Implements al_release_joystick. <procedure>(joystick-active? joystick)</procedure> Implements al_get_joystick_active. <procedure>(joystick-name joystick)</procedure> Implements al_get_joystick_name. <procedure>(joystick-axes-count joystick (integer stick))</procedure> Implements al_get_joystick_num_axes. <procedure>(joystick-button-count joystick)</procedure> Implements al_get_joystick_num_buttons. <procedure>(joystick-button-name joystick (integer button))</procedure> Implements al_get_joystick_button_name. <procedure>(joystick-state-init! joystick-state joystick)</procedure> Implements al_get_joystick_state. <procedure>(joystick-state-axis joystick-state (integer stick) (integer axis))</procedure> Retrieves desired axis value for a particular stick; #f if either stick or axis is out of available bounds. === Keyboard <procedure>(keyboard-addon-installed?)</procedure> Implements al_is_keyboard_installed. <procedure>(keyboard-addon-install)</procedure> Implements al_install_keyboard. <procedure>(keyboard-addon-uninstall)</procedure> Implements al_uninstall_keyboard. <procedure>(keycode->string key)</procedure> Implements al_keycode_to_name. Not strictly necessary, since the enums are symbols which can easily be converted to strings. <procedure>(keyboard-event-source)</procedure> Implements al_get_keyboard_event_source. <procedure>(keyboard-led-set! integer)</procedure> Implements al_set_keyboard_leds. <procedure>(keyboard-state-init! keyboard-state)</procedure> Implements al_get_keyboard_state. <procedure>(keyboard-state-key-down? keyboard-state key)</procedure> Implements al_key_down. <procedure>(keyboard-three-finger-flag?)</procedure> Wraps _al_three_finger_flag. <procedure>(keyboard-led-flag?)</procedure> Wraps _al_key_led_flag. === Mouse <procedure>(mouse-addon-installed?)</procedure> Implements al_is_mouse_installed. <procedure>(mouse-addon-install)</procedure> Implements al_install_mouse. <procedure>(mouse-addon-uninstall)</procedure> Implements al_uninstall_mouse. <procedure>(mouse-button-count)</procedure> Implements al_get_mouse_num_buttons. <procedure>(mouse-axes-count)</procedure> Implements al_get_mouse_num_axes. <procedure>(mouse-xy-set! display (integer x) (integer y))</procedure> Implements al_set_mouse_xy. <procedure>(mouse-z-set! display integer)</procedure> Implements al_set_mouse_z. <procedure>(mouse-w-set! display integer)</procedure> Implements al_set_mouse_w. <procedure>(mouse-event-source)</procedure> Implements al_get_mouse_event_source. <procedure>(mouse-state-init! mouse-state)</procedure. Implements al_get_mouse_state. <procedure>(mouse-state-button-down mouse-state (integer button))</procedure> Implements al_mouse_button_down. <procedure>(mouse-state-axis mouse-state (integer axis))</procedure> Implements al_get_mouse_state_axis. <procedure>(mouse-axis-set! (integer axis) (integer value))</procedure> Implements al_set_mouse_axis. <procedure>(make-cursor* (bitmap sprite) (integer xfocus) (integer yfocus))</procedure> Implements al_create_mouse_cursor. <procedure>(make-cursor (bitmap sprite) (integer xfocus) (integer yfocus))</procedure> Implements al_create_mouse_cursor, with (free-cursor!) declared as a finalizer. <procedure>(free-cursor! cursor)</procedure> Implements al_destroy_mouse_cursor. <procedure>(mouse-cursor-position)</procedure> Returns a 2-element list consisting of the x and y position of the mouse cursor. <procedure>(mouse-ungrab)</procedure> Implements al_ungrab_mouse. <procedure>(display-grab-mouse! display)</procedure> Implements al_grab_mouse. <procedure>(display-cursor-set! display mouse-cursor)</procedure> Implements al_set_mouse_cursor. <procedure>(display-hide-cursor! display)</procedure> Implements al_hide_mouse_cursor. <procedure>(display-system-mouse-cursor-set! display cursor-type)</procedure> Implements al_set_system_mouse_cursor. Description of your changes:

I would like to authenticate

Spam control

What do you get when you multiply 4 by 2?