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

fixed bug in debug button where breakable locations would be lost for

Browse Source 
languages other than (module ...)

made push-pull-ball not a module, so it just runs in FrTime

removed velocity display from pong.ss, and moved default location of left
controller so it doesn't cause div-by-zero exceptions

svn: r3718
This commit is contained in:
Greg Cooper 2006-07-16 00:27:53 +00:00
parent 6536587e76
commit c1a85ad061
3 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/frtime/demos/pong.ss
View File

@ -22,7 +22,7 @@
(define-values (paddle1-pos ball-pos ball-vel)
(letrec ([paddle1-pos (make-posn
(clip (+ 100
(clip (+ 150
(integral (hold
(merge-e
(key-strokes
@ -40,7 +40,7 @@
((when-e (<= (posn-x paddle1-pos) 30)) . -=> . 0))
0)))
30 170)
(clip (+ 100
(clip (+ 150
(integral (hold
(merge-e
(key-strokes
@ -106,6 +106,6 @@
(make-circle paddle2-pos paddle-radius "black")
(make-graph-string (make-posn 30 30) (number->string p2-score) "black")
(make-graph-string (make-posn 350 30) (number->string p1-score) "black")
(make-graph-string (make-posn 120 30) (number->string (posn-len ball-vel)) "black")
;(make-graph-string (make-posn 120 30) (number->string (posn-len ball-vel)) "black")
(make-line (make-posn 0 150) (make-posn 0 250) "red")
(make-line (make-posn 399 150) (make-posn 399 250) "red")))

60
collects/frtime/demos/push-pull-ball.ss
View File

@ -1,35 +1,33 @@
(module push-pull-ball (lib "frtime.ss" "frtime")
(require (lib "etc.ss" "frtime")
(lib "animation.ss" "frtime"))
(require (lib "etc.ss" "frtime")
(lib "animation.ss" "frtime"))
(define radius (new-cell 20))
(define radius (new-cell 20))
(define pos1
(rec pos
(until (make-posn 200 200)
(delay-by
(let ([brnch (posn+ pos
(posn* (normalize (posn- mouse-pos pos))
(- (posn-diff pos mouse-pos) (sub1 radius))))])
(if (> (posn-diff pos mouse-pos) radius)
brnch
pos))
0))))
(define pos1
(rec pos
(until (make-posn 200 200)
(delay-by
(let ([brnch (posn+ pos
(posn* (normalize (posn- mouse-pos pos))
(- (posn-diff pos mouse-pos) (sub1 radius))))])
(if (> (posn-diff pos mouse-pos) radius)
brnch
pos))
0))))
(define pos2
(rec pos
(until (make-posn 100 100)
(delay-by
(let ([brnch (posn+ pos
(posn* (normalize (posn- pos1 pos))
(- (posn-diff pos pos1) (add1 (* 2 radius)))))])
(if (< (posn-diff pos pos1) (* 2 radius))
brnch
pos))
0))))
(define pos2
(rec pos
(until (make-posn 100 100)
(delay-by
(let ([brnch (posn+ pos
(posn* (normalize (posn- pos1 pos))
(- (posn-diff pos pos1) (add1 (* 2 radius)))))])
(if (< (posn-diff pos pos1) (* 2 radius))
brnch
pos))
0))))
(display-shapes
(list
(make-circle pos1 radius "blue")
(make-circle pos2 radius "blue"))))
(display-shapes
(list
(make-circle pos1 radius "blue")
(make-circle pos2 radius "blue")))

4
collects/mztake/debug-tool.ss
View File

@ -496,7 +496,9 @@
breakpoints
(lambda (pos status)
; possible efficiency problem for large files with many breakpoints
(when (and (>= pos 0) (not (memq pos break-posns)))
(when (and (>= pos (syntax-position top-e))
(< pos (+ (syntax-position top-e) (syntax-span top-e)))
(not (memq pos break-posns)))
(hash-table-remove! breakpoints pos))))
(for-each (lambda (posn)
(hash-table-put!