2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
|
;; (print "run-duration: " (db:test-get-run_duration testdat) " mapped run_duration: " run-duration)
(let loop ((rownum run-start-row)) ;; (+ start-row 1)))
(set! max-row (max rownum max-row)) ;; track the max row used
(if (dashboard:row-collision rowhash rownum event-time end-time)
(loop (+ rownum 1))
(let* ((lly (- sizey (* rownum row-height)))
(uly (+ lly row-height))
(obj (vg:make-rect event-time lly end-time uly
fill-color: (vg:iup-color->number (car name-color))
text: (if iterated item-path test-name)
font: "Helvetica -10")))
;; (if iterated
;; (dashboard:add-bar rowhash (- rownum 1) event-time end-time num-rows: (+ 1 num-items))
(if (not first-rownum)
(begin
|
|
|
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
|
;; (print "run-duration: " (db:test-get-run_duration testdat) " mapped run_duration: " run-duration)
(let loop ((rownum run-start-row)) ;; (+ start-row 1)))
(set! max-row (max rownum max-row)) ;; track the max row used
(if (dashboard:row-collision rowhash rownum event-time end-time)
(loop (+ rownum 1))
(let* ((lly (- sizey (* rownum row-height)))
(uly (+ lly row-height))
(obj (vg:make-rect-obj event-time lly end-time uly
fill-color: (vg:iup-color->number (car name-color))
text: (if iterated item-path test-name)
font: "Helvetica -10")))
;; (if iterated
;; (dashboard:add-bar rowhash (- rownum 1) event-time end-time num-rows: (+ 1 num-items))
(if (not first-rownum)
(begin
|
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
|
(if iterated
(let* ((xtents (vg:get-extents-for-objs drawing test-objs))
(llx (- (car xtents) 5))
(lly (- (cadr xtents) 10))
(ulx (+ 5 (caddr xtents)))
(uly (+ 0 (cadddr xtents))))
(dashboard:add-bar rowhash first-rownum llx ulx num-rows: num-items)
(vg:add-objs-to-comp runcomp (vg:make-rect llx lly ulx uly
text: (db:test-get-testname (car testdats))
font: "Helvetica -10"))))))
hierdat)
;; placeholder box
(set! max-row (+ max-row 1))
(let ((y (- sizey (* max-row row-height))))
(vg:add-objs-to-comp runcomp (vg:make-rect 0 y 0 y)))
;; instantiate the component
(let* ((extents (vg:components-get-extents drawing runcomp))
;; move the following into mapping functions in vg.scm
;; (deltax (- llx ulx))
;; (scalex (if (> deltax 0)(/ sizex deltax) 1))
;; (sllx (* scalex llx))
;; (offx (- sllx originx))
(new-xtnts (apply vg:grow-rect 5 5 extents))
(llx (list-ref new-xtnts 0))
(lly (list-ref new-xtnts 1))
(ulx (list-ref new-xtnts 2))
(uly (list-ref new-xtnts 3))
) ;; (vg:components-get-extents d1 c1)))
(vg:add-objs-to-comp runcomp (vg:make-rect llx lly ulx uly text: run-full-name))
(vg:instantiate drawing "runslib" run-full-name run-full-name 0 0))
(set! max-row (+ max-row 1)))))
allruns)
(vg:drawing-cnv-set! (dboard:tabdat-drawing tabdat)(dboard:tabdat-cnv tabdat)) ;; cnv-obj)
(canvas-clear! (dboard:tabdat-cnv tabdat)) ;; -obj)
(print "Number of objs: " (length (vg:draw (dboard:tabdat-drawing tabdat) #t)))
(dboard:tabdat-view-changed-set! tabdat #f)
|
|
|
|
|
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
|
(if iterated
(let* ((xtents (vg:get-extents-for-objs drawing test-objs))
(llx (- (car xtents) 5))
(lly (- (cadr xtents) 10))
(ulx (+ 5 (caddr xtents)))
(uly (+ 0 (cadddr xtents))))
(dashboard:add-bar rowhash first-rownum llx ulx num-rows: num-items)
(vg:add-objs-to-comp runcomp (vg:make-rect-obj llx lly ulx uly
text: (db:test-get-testname (car testdats))
font: "Helvetica -10"))))))
hierdat)
;; placeholder box
(set! max-row (+ max-row 1))
(let ((y (- sizey (* max-row row-height))))
(vg:add-objs-to-comp runcomp (vg:make-rect-obj 0 y 0 y)))
;; instantiate the component
(let* ((extents (vg:components-get-extents drawing runcomp))
;; move the following into mapping functions in vg.scm
;; (deltax (- llx ulx))
;; (scalex (if (> deltax 0)(/ sizex deltax) 1))
;; (sllx (* scalex llx))
;; (offx (- sllx originx))
(new-xtnts (apply vg:grow-rect 5 5 extents))
(llx (list-ref new-xtnts 0))
(lly (list-ref new-xtnts 1))
(ulx (list-ref new-xtnts 2))
(uly (list-ref new-xtnts 3))
) ;; (vg:components-get-extents d1 c1)))
(vg:add-objs-to-comp runcomp (vg:make-rect-obj llx lly ulx uly text: run-full-name))
(vg:instantiate drawing "runslib" run-full-name run-full-name 0 0))
(set! max-row (+ max-row 1)))))
allruns)
(vg:drawing-cnv-set! (dboard:tabdat-drawing tabdat)(dboard:tabdat-cnv tabdat)) ;; cnv-obj)
(canvas-clear! (dboard:tabdat-cnv tabdat)) ;; -obj)
(print "Number of objs: " (length (vg:draw (dboard:tabdat-drawing tabdat) #t)))
(dboard:tabdat-view-changed-set! tabdat #f)
|