Overview
| Comment: | Added crude labels for graph |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
339230da140a7f2839bc4f13d11ab427 |
| User & Date: | mrwellan on 2016-08-02 11:43:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-08-03
| ||
| 14:43 | Added changes for lines to graph check-in: d681096cd6 user: ritikaag tags: v1.61 | |
|
2016-08-02
| ||
| 15:43 | Merged with v1.61 check-in: a05a9a1fd3 user: ritikaag tags: popup_menu | |
| 11:43 | Added crude labels for graph check-in: 339230da14 user: mrwellan tags: v1.61 | |
| 09:53 | fixed couple display issues check-in: 66b05abf57 user: mrwellan tags: v1.61 | |
Changes
Modified dashboard.scm from [bcf7a4621b] to [86509bb1ce].
| ︙ | ︙ | |||
2716 2717 2718 2719 2720 2721 2722 | (if (not (null? vals)) (let* ((maxval (apply max vals)) (minval (apply min vals)) (yoff (- minval lly)) ;; minval)) (deltaval (- maxval minval)) (yscale (/ delta-y (if (eq? deltaval 0) 1 deltaval))) (yfunc (lambda (y)(+ lly (* yscale (- y minval)))))) ;; (lambda (y)(* (+ y yoff) yscale)))) | | > > > > > > | 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 | (if (not (null? vals)) (let* ((maxval (apply max vals)) (minval (apply min vals)) (yoff (- minval lly)) ;; minval)) (deltaval (- maxval minval)) (yscale (/ delta-y (if (eq? deltaval 0) 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 (vg:make-text-obj (- llx 10)(yfunc maxval) (conc maxval))) (vg:add-obj-to-comp cmp (vg:make-text-obj (- llx 10)(yfunc minval) (conc minval))) (fold (lambda (next prev) ;; #(time ? val) #(time ? val) (if prev (let* ((yval (vector-ref prev 2)) (last-tval (tfn (vector-ref prev 0))) (last-yval (yfunc yval)) ;; (+ lly (* yscale (vector-ref prev 2)))) (curr-tval (tfn (vector-ref next 0)))) |
| ︙ | ︙ |