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

Fix fv truncated-display issue

Browse Source
This commit is contained in:
James Swaine 2012-10-10 11:00:46 -05:00
parent b94caa2d77
commit e57155d21e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/future-visualizer/private/visualizer-drawing.rkt
View File

@ -381,13 +381,15 @@
(values (cons seg segs) (values (cons seg segs)
new-delta new-delta
(max largest-x (+ offset segw) #;last-right-edge)))) (max largest-x (+ offset segw) #;last-right-edge))))
(for ([s (in-list sgs)])
(printf "seg x: ~a, seg y: ~a\n" (segment-x s) (segment-y s)))
(values sgs x-extent)) (values sgs x-extent))
;;calc-segments : trace uint uint -> (values frame-info (listof segment)) ;;calc-segments : trace uint uint -> (values frame-info (listof segment))
(define (calc-segments tr) (define (calc-segments tr)
(define evts (trace-all-events tr)) (define evts (trace-all-events tr))
(define timeToPixModifier (/ DEFAULT-TIMELINE-WIDTH (- (trace-end-time tr) (trace-start-time tr)))) (define timeToPixModifier (/ DEFAULT-TIMELINE-WIDTH (- (trace-end-time tr) (trace-start-time tr))))
(define max-y (* TIMELINE-ROW-HEIGHT (sub1 (length (trace-proc-timelines tr))))) (define max-y (* TIMELINE-ROW-HEIGHT (length (trace-proc-timelines tr))))
(define-values (segments x) (define-values (segments x)
(build-seg-layout timeToPixModifier evts tr max-y)) (build-seg-layout timeToPixModifier evts tr max-y))
(define ordered-segs (reverse segments)) (define ordered-segs (reverse segments))