428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
|
(vector-ref x 4)
(vector-ref x 5))) ;; time delta
(sort (hash-table-values comprsteps)
(lambda (a b)
(let ((time-a (vector-ref a 1))
(time-b (vector-ref b 1)))
(if (and (number? time-a)(number? time-b))
(< time-a time-b)
#t))))))
"\n")))
(if (not (equal? currval newval))
(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
stepsdat))
;; populate the Test Data panel
(iup:frame
#:title "Test Data"
|
|
|
>
>
>
>
>
|
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
|
(vector-ref x 4)
(vector-ref x 5))) ;; time delta
(sort (hash-table-values comprsteps)
(lambda (a b)
(let ((time-a (vector-ref a 1))
(time-b (vector-ref b 1)))
(if (and (number? time-a)(number? time-b))
(if (< time-a time-b)
#t
(if (eq? time-a time-b)
(string<? (conc (vector-ref a 2))
(conc (vector-ref b 2)))
#f))
(string<? (conc time-a)(conc time-b))))))))
"\n")))
(if (not (equal? currval newval))
(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
stepsdat))
;; populate the Test Data panel
(iup:frame
#:title "Test Data"
|