zzkt/qfwfq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

less curved

Browse source
This commit is contained in:
nik gaffney 2006-11-15 22:06:47 +01:00
parent e92cdbc0cb
commit f7c0baa625
1 changed files with 3 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
punctiform-convergence/layout.scm
View file

@ -196,7 +196,7 @@
(define (shadowpi-tree node pb x y t1 t2 r) (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 ;; node from whcih to draw the layout, centred at x,y on the containment arc
;; given by t1->t2 with radius, r ;; given by t1->t2 with radius, r
(let* ([parents (reverse (send node get-parents))] (let* ([parents (send node get-parents)]
[n (length parents)] [n (length parents)]
[xi (snip-x node)] [xi (snip-x node)]
[yi (snip-y node)] [yi (snip-y node)]
@ -215,17 +215,11 @@
;; draw circles around the node’s parents and evenly distribute their ;; draw circles around the node’s parents and evenly distribute their
;; parents along containment arcs. ;; 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 (shadowpi-tree parent pb
(+ xi x1) (+ yi y1) ;; centred on (+ xi x1) (+ yi y1) ;; centred on
(- (atan (/ (- yi y1) (- xi x1))) (/ pi 2)) (- (atan (/ (- yi (+ yi y1)) (- xi (+ xi x1)))) (/ pi 2))
(+ (/ pi 2) (atan (/ (- yi y1) (- xi x1)))) (+ (/ pi n) (atan (/ (- yi y1) (- xi x1))))
(* r phi)) ;; radius (* r phi)) ;; radius
@ -234,5 +228,4 @@
)))) ))))
) ;; end of module ) ;; end of module