Mouse position: Difference between revisions
m
→{{header|EasyLang}}
| (2 intermediate revisions by 2 users not shown) | |||
Line 376:
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=
<syntaxhighlight
move 10 80
on mouse_move
clear
drawgrid
text mouse_x & " " & mouse_y
.
</syntaxhighlight>
Line 1,625 ⟶ 1,627:
<syntaxhighlight lang="tcl">package require Tk
puts "monitor/display coordinate x = [winfo pointerx .]"</syntaxhighlight>
=={{header|Uxntal}}==
<syntaxhighlight lang="Uxntal">|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
|0100
;on-mouse .Mouse/vector DEO2
BRK
@on-mouse
.Mouse/x DEI2 print-hex2
#20 .Console/write DEO
.Mouse/y DEI2 print-hex2
#0a .Console/write DEO
BRK
@print-hex
DUP #04 SFT print-digit #0f AND print-digit
JMP2r
@print-hex2
SWP print-hex print-hex
JMP2r
@print-digit
DUP #09 GTH #27 MUL ADD #30 ADD .Console/write DEO
JMP2r</syntaxhighlight>
=={{header|Vala}}==
Line 1,689 ⟶ 1,720:
=={{header|Wren}}==
{{libheader|DOME}}
<syntaxhighlight lang="
import "graphics" for Canvas
import "input" for Mouse
| |||