From f7c0baa625b9f7e9fdbba5b5a2627e0c193cd265 Mon Sep 17 00:00:00 2001 From: nik gaffney Date: Wed, 15 Nov 2006 22:06:47 +0100 Subject: [PATCH] less curved --- punctiform-convergence/layout.scm | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/punctiform-convergence/layout.scm b/punctiform-convergence/layout.scm index 53707bb..6c2e54e 100644 --- a/punctiform-convergence/layout.scm +++ b/punctiform-convergence/layout.scm @@ -196,7 +196,7 @@ (define (shadowpi-tree node pb x y t1 t2 r) ;; node from whcih to draw the layout, centred at x,y on the containment arc ;; given by t1->t2 with radius, r - (let* ([parents (reverse (send node get-parents))] + (let* ([parents (send node get-parents)] [n (length parents)] [xi (snip-x node)] [yi (snip-y node)] @@ -215,17 +215,11 @@ ;; draw circles around the node’s parents and evenly distribute their ;; parents along containment arcs. - (debug 1 "----~a~% x1:~a~% y1:~a~% t1':~a~% t2':~a~%" - parent - x1 y1 - (- (/ pi 2) (atan (/ (- yi y1) (- xi x1)))) - (+ (/ pi 2) (atan (/ (- yi y1) (- xi x1))))) - (shadowpi-tree parent pb (+ xi x1) (+ yi y1) ;; centred on - (- (atan (/ (- yi y1) (- xi x1))) (/ pi 2)) - (+ (/ pi 2) (atan (/ (- yi y1) (- xi x1)))) + (- (atan (/ (- yi (+ yi y1)) (- xi (+ xi x1)))) (/ pi 2)) + (+ (/ pi n) (atan (/ (- yi y1) (- xi x1)))) (* r phi)) ;; radius @@ -234,5 +228,4 @@ )))) - ) ;; end of module