Joystick position: Difference between revisions

For the purpose of this task, we assume that the joystick is calibrated and that the first joystick is being used. <br>

The task implementer could at their option provide a solution that includes a joystick selection facility, enabling the user to choose which joystick is to be used for this task.

 

=={{header|Applesoft BASIC}}==

110 P2 = PDL(2) : IF P2 <> O2 THEN O2 = P2 : VTAB 23 : HTAB 33 : PRINT P2; TAB(37);

120 B2 = FNB(2) : IF B2 <> N2 THEN N2 = B2 : VTAB 24 : HTAB 15 : PRINT P$(B2);

550 ROT = 0 : SCALE = 7 : XDRAW 1 AT X1, Y1

560 O0 = -1 : O1 = O0 : O2 = O0 : O3 = O0

 

=={{header|AutoHotkey}}==

 

[http://i.imgur.com/KsbrpK4.png Image link]

; #Include, Gdip.ahk

 

Exit:

Gdip_Shutdown(pToken)

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

VDU 5

VDU 10,13

NEXT

 

=={{header|GUISS}}==

Graphical User Interface Support Script only makes use of installed applications. So for this task, we use the joystick calibration routine, which shows a joystick position indicator:

 

 

=={{header|Liberty BASIC}}==

nomainwin

 

close #m

unloadbmp "plus"

 

=={{header|Locomotive Basic}}==

20 a=JOY(0) ' read state of first joystick

30 IF d THEN q$="*" ELSE q$=" "

110 IF a<16 THEN LOCATE 1,1:PRINT " ":PRINT " "

120 MOVE x-8,y+8:TAG:PRINT "X";:TAGOFF

 

Output (this version supports drawing with the cursor):

[[File:CPC drawing with joystick.png]]

 

 

=={{header|OCaml}}==

 

{{libheader|SFML}}

 

let buttons_string b =

String.concat " " (List.map string_of_int b)

let position app x y =

let view = SFRenderWindow.getView app in

(hw +. ((x /. 100.0) *. hw),

hh +. ((y /. 100.0) *. hh))

let cross =

[| 1.0, 1.0; 10.0, 1.0; 10.0, -1.0; 1.0, -1.0;

1.0, -10.0; -1.0, -10.0; -1.0, -1.0; -10.0, -1.0;

-10.0, 1.0; -1.0, 1.0; -1.0, 10.0; 1.0, 10.0; |]

let () =

let app = SFRenderWindow.make (800, 600) "Joystick Position" in

SFText.setString text (buttons_string b);

let x, y = position app x y in

SFRenderWindow.clear app SFColor.black;

SFRenderWindow.drawText app text ();

| SFEvent.JoystickButtonPressed (0, button) -> ((x, y), button::b)

| SFEvent.JoystickButtonReleased (0, button) -> ((x, y), remove button b)

| _ -> joyd

in

proc_event joyd

in

 

=={{header|PicoLisp}}==

{{libheader|GLUT}}

Note: The code is not yet tested with a real joystick (I don't have one), it was just simulated with dummy functions. Can somebody having a joystick please test it, and remove this message?

 

(setq *JoyX 0.0 *JoyY 0.0)

# Exit upon mouse click

(mouseFunc '((Btn State X Y) (bye)))

 

=={{header|PureBasic}}==

This is limited to only digital joysticks.

MessageRequester("Error!", "Need to connect a joystick", #PB_MessageRequester_Ok)

End

Delay(10)

Until event = #PB_Event_CloseWindow

[[File:JoystickPosition-PureBasic.png]]

 

=={{header|Python}}==

{{libheader|Pygame}}

import pygame

 

# Write the display

pygame.display.flip()

 

=={{header|Tcl}}==

{{libheader|Tk}}

{{libheader|mkLibsdl}} <!-- from http://mkextensions.sourceforge.net/ -->

package require mkLibsdl

 

.c create line {120 115 120 125} -tags xhairV

.c create line {115 120 125 120} -tags xhairH

<!-- I think it can also be done with Tcl3d as that has SDL Joystick bindings, but damned if I can figure out the API in a reasonable amount of effort. It's definitely not Tclish (but what would you expect with something mashed together with SWIG? Once a stinky C API, always a stinky C API…) -->

 

{{omit from|AWK}}

{{omit from|Lilypond}}

{{omit from|Lotus 123 Macro Scripting}}

{{omit from|ML/I}}

{{omit from|Maxima}}

{{omit from|PARI/GP}}

{{omit from|Retro}}

{{omit from|zkl}}