A whole bunch of missing newlines at EOFs (and a few other spaceages).
This commit is contained in:
parent
6b1f423c98
commit
cbfb1fdb37
|
@ -44,10 +44,6 @@
|
||||||
;;visualize-futures-thunk : (-> any/c) -> any/c
|
;;visualize-futures-thunk : (-> any/c) -> any/c
|
||||||
(define (visualize-futures-thunk thunk)
|
(define (visualize-futures-thunk thunk)
|
||||||
(start-future-tracing!)
|
(start-future-tracing!)
|
||||||
(begin0
|
(begin0 (thunk)
|
||||||
(thunk)
|
|
||||||
(stop-future-tracing!)
|
(stop-future-tracing!)
|
||||||
(show-visualizer)))
|
(show-visualizer)))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -20,8 +20,7 @@
|
||||||
|
|
||||||
;;circle-pict : string string uint [uint] -> pict
|
;;circle-pict : string string uint [uint] -> pict
|
||||||
(define (circle-pict color stroke-color width #:stroke-width [stroke-width 1])
|
(define (circle-pict color stroke-color width #:stroke-width [stroke-width 1])
|
||||||
(pin-over (colorize (filled-ellipse width
|
(pin-over (colorize (filled-ellipse width width)
|
||||||
width)
|
|
||||||
stroke-color)
|
stroke-color)
|
||||||
(* stroke-width 2)
|
(* stroke-width 2)
|
||||||
(* stroke-width 2)
|
(* stroke-width 2)
|
||||||
|
@ -82,9 +81,7 @@
|
||||||
starty
|
starty
|
||||||
(linewidth width
|
(linewidth width
|
||||||
(linestyle style
|
(linestyle style
|
||||||
(colorize (line-f dx
|
(colorize (line-f dx dy arrow-sz)
|
||||||
dy
|
|
||||||
arrow-sz)
|
|
||||||
color))))))
|
color))))))
|
||||||
|
|
||||||
;;make-stand-out : pict -> pict
|
;;make-stand-out : pict -> pict
|
||||||
|
|
|
@ -97,10 +97,3 @@
|
||||||
[handler (event-target-handler target)])
|
[handler (event-target-handler target)])
|
||||||
(unless (eq? receiver sender)
|
(unless (eq? receiver sender)
|
||||||
(handler arg))))))
|
(handler arg))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -324,25 +324,16 @@
|
||||||
;;connect-segments! : (listof segment) -> void
|
;;connect-segments! : (listof segment) -> void
|
||||||
(define (connect-segments! segs)
|
(define (connect-segments! segs)
|
||||||
(for ([s (in-list segs)])
|
(for ([s (in-list segs)])
|
||||||
(let ([evt (segment-event s)])
|
(define evt (segment-event s))
|
||||||
(set-segment-prev-proc-seg! s (if (event-prev-proc-event evt)
|
(define (segment-of-evt getter)
|
||||||
(event-segment (event-prev-proc-event evt))
|
(define x (getter evt))
|
||||||
#f))
|
(and x (event-segment x)))
|
||||||
(set-segment-next-proc-seg! s (if (event-next-proc-event evt)
|
(set-segment-prev-proc-seg! s (segment-of-evt event-prev-proc-event))
|
||||||
(event-segment (event-next-proc-event evt))
|
(set-segment-next-proc-seg! s (segment-of-evt event-next-proc-event))
|
||||||
#f))
|
(set-segment-prev-future-seg! s (segment-of-evt event-prev-future-event))
|
||||||
(set-segment-prev-future-seg! s (if (event-prev-future-event evt)
|
(set-segment-next-future-seg! s (segment-of-evt event-next-future-event))
|
||||||
(event-segment (event-prev-future-event evt))
|
(set-segment-prev-targ-future-seg! s (segment-of-evt event-prev-targ-future-event))
|
||||||
#f))
|
(set-segment-next-targ-future-seg! s (segment-of-evt event-next-targ-future-event))))
|
||||||
(set-segment-next-future-seg! s (if (event-next-future-event evt)
|
|
||||||
(event-segment (event-next-future-event evt))
|
|
||||||
#f))
|
|
||||||
(set-segment-prev-targ-future-seg! s (if (event-prev-targ-future-event evt)
|
|
||||||
(event-segment (event-prev-targ-future-event evt))
|
|
||||||
#f))
|
|
||||||
(set-segment-next-targ-future-seg! s (if (event-next-targ-future-event evt)
|
|
||||||
(event-segment (event-next-targ-future-event evt))
|
|
||||||
#f)))))
|
|
||||||
|
|
||||||
;;build-seg-layout : flonum (listof event) trace -> (values (listof segment) uint uint)
|
;;build-seg-layout : flonum (listof event) trace -> (values (listof segment) uint uint)
|
||||||
(define (build-seg-layout timeToPixModifier events tr max-y)
|
(define (build-seg-layout timeToPixModifier events tr max-y)
|
||||||
|
@ -870,4 +861,3 @@
|
||||||
txtp))
|
txtp))
|
||||||
(+ yacc (pict-height txtbg) CREATE-GRAPH-PADDING))))
|
(+ yacc (pict-height txtbg) CREATE-GRAPH-PADDING))))
|
||||||
pct])]))
|
pct])]))
|
||||||
|
|
|
@ -1,6 +1,10 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require teachpack/2htdp/scribblings/img-eval racket/sandbox mzlib/pconvert file/convertible scribble/eval)
|
(require teachpack/2htdp/scribblings/img-eval
|
||||||
|
racket/sandbox
|
||||||
|
mzlib/pconvert
|
||||||
|
file/convertible
|
||||||
|
scribble/eval)
|
||||||
|
|
||||||
(provide
|
(provide
|
||||||
;; syntax:
|
;; syntax:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user