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

remove printf

Browse Source
This commit is contained in:
Robby Findler 2014-05-13 15:29:02 -05:00
parent 951a6f051b
commit 6eba1ec9a6
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt
View File

@ -705,7 +705,6 @@
(max ay by cy dy)))) (max ay by cy dy))))
(define (rotate-points in-points θ) (define (rotate-points in-points θ)
(printf "θ ~s\n" θ)
(let* ([cs (map point->c in-points)] (let* ([cs (map point->c in-points)]
[vectors (points->vectors cs)] [vectors (points->vectors cs)]
[rotated-vectors (map (λ (c) (rotate-c c θ)) vectors)] [rotated-vectors (map (λ (c) (rotate-c c θ)) vectors)]