Overview
| Comment: | Set lower y to zero if minval is > 0 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
b7ba1182d7e17eb9a696e71028db4e09 |
| User & Date: | mrwellan on 2016-08-04 14:50:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-08-10
| ||
| 23:15 | Removed a couple of functions that had gotten duplicated. check-in: 9355e9290b user: matt tags: v1.61 | |
|
2016-08-04
| ||
| 14:50 | Set lower y to zero if minval is > 0 check-in: b7ba1182d7 user: mrwellan tags: v1.61 | |
| 10:39 | Merged fork check-in: 1fb216bede user: mrwellan tags: v1.61 | |
Changes
Modified dashboard.scm from [ce8f6c98d5] to [cc59b57497].
| ︙ | ︙ | |||
2711 2712 2713 2714 2715 2716 2717 | (if alldat (for-each (lambda (fieldn) (let* ((dat (hash-table-ref alldat fieldn)) (vals (map (lambda (x)(vector-ref x 2)) dat))) (if (not (null? vals)) (let* ((maxval (apply max vals)) | | | 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 | (if alldat (for-each (lambda (fieldn) (let* ((dat (hash-table-ref alldat fieldn)) (vals (map (lambda (x)(vector-ref x 2)) dat))) (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)))) ;; (print (car cf) "; maxval: " maxval " minval: " minval " deltaval: " deltaval " yscale: " yscale) (vg:add-obj-to-comp cmp |
| ︙ | ︙ |