suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correcting coordinate calculations

Browse Source
This commit is contained in:
Danny Yoo 2011-09-16 13:11:49 -04:00
parent 2542f2b1e6
commit 5ccaf1ca46
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/mouse.rkt
View File

@ -10,8 +10,10 @@
(define (mouse world x y type) (define (mouse world x y type)
(cond (cond
[(string=? type "click")
[(string=? type "move")
(make-posn x y)] (make-posn x y)]
[else [else
world])) world]))
@ -21,7 +23,7 @@
(posn-y w) (posn-y w)
(empty-scene width height))) (empty-scene width height)))
(printf "let's see how this works.\n\n")
(big-bang (make-posn 0 0) (big-bang (make-posn 0 0)
(on-mouse mouse) (on-mouse mouse)
(to-draw draw)) (to-draw draw))

7
world/raw-jsworld.js
View File

@ -926,8 +926,11 @@ var rawJsworld = {};
var makeWrapped = function(type) { var makeWrapped = function(type) {
return function(e) { return function(e) {
var x = e.pageX, y = e.pageY; var x = e.pageX, y = e.pageY;
x -= e.target.offsetLeft; var currentElement = e.target;
y -= e.target.offsetLeft; do {
x -= currentElement.offsetLeft;
y -= currentElement.offsetTop;
} while(currentElement = currentElement.offsetParent);
preventDefault(e); preventDefault(e);
stopPropagation(e); stopPropagation(e);
change_world(function(w, k) { change_world(function(w, k) {