Overview
Comment: | Buttondat approach, not looking feasible, trying the matrix approach |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | buttons_defunct |
Files: | files | file ages | folders |
SHA1: |
10a73916b7640e2b14133e0d4dd5331d |
User & Date: | ritikaag on 2016-09-20 18:10:02 |
Other Links: | branch diff | manifest | tags |
Context
2016-09-20
| ||
18:10 | Buttondat approach, not looking feasible, trying the matrix approach Closed-Leaf check-in: 10a73916b7 user: ritikaag tags: buttons_defunct | |
2016-09-16
| ||
17:21 | Commit with compilation errors check-in: 3fe6358ed8 user: ritikaag tags: db | |
Changes
Modified dashboard.scm from [21e076a240] to [d7b2d2d402].
︙ | ︙ | |||
1358 1359 1360 1361 1362 1363 1364 | (+ scalex (if (> step 0) (* scalex 0.02) (* scalex -0.02)))))) "wheel-cb")) ))) cnv-obj) | | | > > | | < < < | | | 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 | (+ scalex (if (> step 0) (* scalex 0.02) (* scalex -0.02)))))) "wheel-cb")) ))) cnv-obj) (let* ((hb1 (iup:hbox (iup:button "Checking")))) (dboard:tabdat-graph-button-box-set! tabdat hb1) hb1) ;; (let* ((hb2 (iup:hbox)) ;; (b1 (iup:button "Checking"))) ;; (dboard:tabdat-graph-button-box-set! tabdat hb2) ;; (iup:child-add! b1 hb2) ;; hb2) )))) ;;====================================================================== ;; R U N ;;====================================================================== ;; ;; display and manage a single run at a time |
︙ | ︙ | |||
2550 2551 2552 2553 2554 2555 2556 | (let* ((dwg (dboard:tabdat-drawing tabdat)) (lib (vg:get/create-lib dwg "runslib")) (cnv (dboard:tabdat-cnv tabdat)) (dur (- tstart tend)) ;; time duration (cmp (vg:get-component dwg "runslib" compname)) (cfg (configf:get-section *configdat* "graph")) (stdcolor (vg:rgb->number 120 130 140)) | | > | 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 | (let* ((dwg (dboard:tabdat-drawing tabdat)) (lib (vg:get/create-lib dwg "runslib")) (cnv (dboard:tabdat-cnv tabdat)) (dur (- tstart tend)) ;; time duration (cmp (vg:get-component dwg "runslib" compname)) (cfg (configf:get-section *configdat* "graph")) (stdcolor (vg:rgb->number 120 130 140)) (delta-y (- uly lly)) (hb1 (dboard:tabdat-graph-button-box tabdat))) (vg:add-obj-to-comp cmp (vg:make-rect-obj llx lly ulx uly)) (vg:add-obj-to-comp cmp (vg:make-text-obj (- (tfn tstart) 10)(- lly 10)(seconds->year-week/day-time tstart))) (let*-values (((span timeunit time-blk first timesym) (common:find-start-mark-and-mark-delta tstart tend))) |
︙ | ︙ | |||
2577 2578 2579 2580 2581 2582 2583 | (vg:make-text-obj (- smark 1)(- lly 10) label)))) (if (< mark (- tend time-blk)) (loop (+ mark time-blk)(+ count 1)))))) (for-each (lambda (cf) (let* ((alldat (dboard:graph-read-data (cadr cf) tstart tend))) (if alldat | < | > > > > > > > > | 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 | (vg:make-text-obj (- smark 1)(- lly 10) label)))) (if (< mark (- tend time-blk)) (loop (+ mark time-blk)(+ count 1)))))) (for-each (lambda (cf) (let* ((alldat (dboard:graph-read-data (cadr cf) tstart tend))) (if alldat (for-each (lambda (fieldn) (let* ((dat (hash-table-ref alldat fieldn)) (vals (map (lambda (x)(vector-ref x 2)) dat)) (buttondat (dboard:tabdat-graph-button-dat tabdat))) (if (not (hash-table-exists? buttondat fieldn)) (let* ((b1 (iup:button fieldn))) (hash-table-set! buttondat fieldn b1) (print "fieldn is " fieldn "hb1: " hb1) (iup:child-add! b1 hb1))) ;; (print "graph-button-dat in runtimes is " (dboard:tabdat-graph-button-dat tabdat)) ;; (print "fieldn alldat dat vals buttondat " fieldn alldat dat vals buttondat) ;; Check if the dat is already added in the buttondat table; if not add it (if (not (null? vals)) (let* ((maxval (apply max vals)) (minval (min 0 (apply min vals))) (yoff (- minval lly)) ;; minval)) (deltaval (- maxval minval)) (yscale (/ delta-y (if (zero? deltaval) 1 deltaval))) |
︙ | ︙ | |||
2637 2638 2639 2640 2641 2642 2643 | ;; (stval (tfn tval)) ;; (syval (yfunc yval))) ;; (vg:add-obj-to-comp ;; cmp ;; (vg:make-rect-obj (- stval 2) lly (+ stval 2)(+ lly (* yval yscale)) ;; fill-color: stdcolor)))) ;; dat) | > > | > | 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 | ;; (stval (tfn tval)) ;; (syval (yfunc yval))) ;; (vg:add-obj-to-comp ;; cmp ;; (vg:make-rect-obj (- stval 2) lly (+ stval 2)(+ lly (* yval yscale)) ;; fill-color: stdcolor)))) ;; dat) )) (iup:redraw hb1 #:children? #t) (iup:refresh hb1))) ;; for each data point in the series (hash-table-keys alldat))))) cfg))) ;; run times tab ;; (define (dashboard:run-times-tab-layout-updater commondat tabdat tab-num) ;; each test is an object in the run component ;; each run is a component ;; all runs stored in runslib library |
︙ | ︙ |