Megatest

Check-in [339230da14]
Login
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: 339230da140a7f2839bc4f13d11ab42720308c60
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
2723







2724
2725
2726
2727
2728
2729
2730
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)
			;; (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))))