Overview
| Comment: | using dot mostly workign |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | use-dot |
| Files: | files | file ages | folders |
| SHA1: |
719147565e5dbd52462dae0ae1b3c60c |
| User & Date: | mrwellan on 2015-10-09 15:25:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-10-13
| ||
| 11:53 | Merged from v1.60 Closed-Leaf check-in: daa2117aac user: mrwellan tags: use-dot | |
| 09:53 | Added notes on where not to rely on testconfig cache check-in: 0e441c579d user: mrwellan tags: v1.60 | |
|
2015-10-09
| ||
| 15:25 | using dot mostly workign check-in: 719147565e user: mrwellan tags: use-dot | |
| 15:23 | using dot mostly workign check-in: 02608b0f9d user: mrwellan tags: use-dot | |
Changes
Modified dcommon.scm from [085773683d] to [4f170e6a34].
| ︙ | ︙ | |||
702 703 704 705 706 707 708 | dot-data))) (edgedat (let ((edges (filter (lambda (x) ;; filter for edge (if (equal? (car x) "edge") (equal? hed (cadr x)) #f)) dot-data))) (map (lambda (inlst) | > | | | | > > > > | 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 | dot-data))) (edgedat (let ((edges (filter (lambda (x) ;; filter for edge (if (equal? (car x) "edge") (equal? hed (cadr x)) #f)) dot-data))) (map (lambda (inlst) (dcommon:process-polyline (map (lambda (instr) (* dotscale (string->number instr))) ;; convert to number and scale (let ((il (cddddr inlst))) (take il (- (length il) 2)))) (lambda (x y) (list (+ x xtorig) (+ y ytorig))) #f #f)) ;; process polyline edges))) (llx (* (string->number (list-ref nodedat 2)) dotscale)) (lly (* (string->number (list-ref nodedat 3)) dotscale)) (boxw (* (string->number (list-ref nodedat 4)) dotscale)) (boxh (* (string->number (list-ref nodedat 5)) dotscale)) (urx (+ llx boxw)) (ury (+ lly boxh))) |
| ︙ | ︙ |