Overview
| Comment: | Graph updated |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | db-new |
| Files: | files | file ages | folders |
| SHA1: |
c18633dfa3bbca326b33a0162c57401b |
| User & Date: | ritikaag on 2016-12-01 16:59:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-05
| ||
| 14:26 | Merged to v1.63 Closed-Leaf check-in: 26e92c2962 user: ritikaag tags: db-new | |
|
2016-12-01
| ||
| 16:59 | Graph updated check-in: c18633dfa3 user: ritikaag tags: db-new | |
|
2016-11-30
| ||
| 17:01 | Filter working check-in: d9859999af user: ritikaag tags: db-new | |
Changes
Modified dashboard.scm from [d87d9bd145] to [81340179e9].
| ︙ | ︙ | |||
312 313 314 315 316 317 318 319 320 321 322 323 324 325 |
(dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%"))
)
;; RADT => Matrix defstruct addition
(defstruct dboard:graph-dat
((id #f) : string)
((color #f) : vector)
((flag #t) : boolean)
((cell #f) : number)
)
;; data for runs, tests etc. was used in run summary?
;;
(defstruct dboard:runsdat
| > | 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 |
(dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%"))
)
;; RADT => Matrix defstruct addition
(defstruct dboard:graph-dat
((id #f) : string)
((color #f) : vector)
((color-rgb #f) : string)
((flag #t) : boolean)
((cell #f) : number)
)
;; data for runs, tests etc. was used in run summary?
;;
(defstruct dboard:runsdat
|
| ︙ | ︙ | |||
2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 |
(graph-color (vg:iup-color->number graph-color-rgb))
(graph-matrix-col (dboard:tabdat-graph-matrix-col tabdat))
(graph-matrix-row (dboard:tabdat-graph-matrix-row tabdat))
(graph-cell (conc graph-matrix-row ":" graph-matrix-col))
(graph-dat (make-dboard:graph-dat
id: fieldn
color: graph-color
flag: #t
cell: graph-cell
)))
(hash-table-set! graph-matrix-table fieldn graph-dat)
(hash-table-set! graph-cell-table graph-cell graph-dat)
| > < < | | > > > > > > > > > > > > | 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 |
(graph-color (vg:iup-color->number graph-color-rgb))
(graph-matrix-col (dboard:tabdat-graph-matrix-col tabdat))
(graph-matrix-row (dboard:tabdat-graph-matrix-row tabdat))
(graph-cell (conc graph-matrix-row ":" graph-matrix-col))
(graph-dat (make-dboard:graph-dat
id: fieldn
color: graph-color
color-rgb: graph-color-rgb
flag: #t
cell: graph-cell
)))
(hash-table-set! graph-matrix-table fieldn graph-dat)
(hash-table-set! graph-cell-table graph-cell graph-dat)
(set! changed #t)
(iup:attribute-set! graph-matrix (conc graph-matrix-row ":" graph-matrix-col) fieldn)
(iup:attribute-set! graph-matrix (conc "BGCOLOR" graph-cell) graph-color-rgb)
(if (> graph-matrix-col 10)
(begin
(dboard:tabdat-graph-matrix-col-set! tabdat 1)
(dboard:tabdat-graph-matrix-row-set! tabdat (+ graph-matrix-row 1)))
(dboard:tabdat-graph-matrix-col-set! tabdat (+ graph-matrix-col 1)))
))
(begin
(let* ((graph-dat (hash-table-ref graph-matrix-table fieldn))
(graph-flag (dboard:graph-dat-flag graph-dat))
(graph-cell (dboard:graph-dat-cell graph-dat))
(graph-color-rgb (dboard:graph-dat-color-rgb graph-dat)))
(if graph-flag
(begin
(set! changed #t)
(iup:attribute-set! graph-matrix (conc "BGCOLOR" graph-cell) graph-color-rgb))
(begin
(set! changed #t)
(iup:attribute-set! graph-matrix (conc "BGCOLOR" graph-cell) "255 255 255"))))))
(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)))
(yfunc (lambda (y)(+ lly (* yscale (- y minval))))) ;; (lambda (y)(* (+ y yoff) yscale))))
|
| ︙ | ︙ |