suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix last commit for hv-alternating algorithm

Browse Source
This commit is contained in:
Asumu Takikawa 2014-09-02 14:13:00 -04:00
parent 5d281f9cff
commit 65453037d5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/pict-pkgs/pict-lib/pict/private/hv.rkt
View File

@ -33,9 +33,9 @@ Computational Geometry, Theory and Applications 2 (1992)
[(and (not left-t) (not right-t))
(dot-ize pict)]
[(not left-t)
(empty-left (dot-ize pict) x-spacing right-color (loop right-t (not l)))]
(empty-left (dot-ize pict) x-spacing right-color right-width (loop right-t (not l)))]
[(not right-t)
(empty-right (dot-ize pict) y-spacing left-color (loop left-t (not l)))]
(empty-right (dot-ize pict) y-spacing left-color left-width (loop left-t (not l)))]
[else
(define left-p (loop left-t (not l)))
(define right-p (loop right-t (not l)))
@ -67,14 +67,16 @@ Computational Geometry, Theory and Applications 2 (1992)
(ht-append (blank hgap 0) left)
right))
(define (empty-left pict hgap color sub-tree-p)
(define (empty-left pict hgap color width sub-tree-p)
(add-a-line (ht-append hgap pict sub-tree-p)
color
width
sub-tree-p))
(define (empty-right pict vgap color sub-tree-p)
(define (empty-right pict vgap color width sub-tree-p)
(add-a-line (vl-append vgap pict sub-tree-p)
color
width
sub-tree-p))
(define (add-lines main left-color right-color left-width right-width t1 t2)