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

Bugfix for `graphics/turtles'

Browse Source 
The orange triangle is now updated after each turtle command.  The erase
pen is now 2 pixels wide: before this, (draw 100) (erase 100) didn't
erase the line, but gave a grey line.
This commit is contained in:
Jens Axel Søgaard 2012-02-26 21:24:24 +01:00 committed by Eli Barzilay
parent 50df61fc4e
commit ac9c155feb
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
collects/graphics/turtles.rkt
View File

@ -26,7 +26,7 @@
(define icon-pen (send the-pen-list find-or-create-pen "SALMON" 1 'solid)) (define icon-pen (send the-pen-list find-or-create-pen "SALMON" 1 'solid))
(define icon-brush (send the-brush-list find-or-create-brush "SALMON" 'solid)) (define icon-brush (send the-brush-list find-or-create-brush "SALMON" 'solid))
(define blank-pen (send the-pen-list find-or-create-pen "BLACK" 1 'transparent)) (define blank-pen (send the-pen-list find-or-create-pen "BLACK" 1 'transparent))
(define w-pen (send the-pen-list find-or-create-pen "white" 1 'solid)) (define w-pen (send the-pen-list find-or-create-pen "white" 2 'solid))
(define b-pen (send the-pen-list find-or-create-pen "black" 1 'solid)) (define b-pen (send the-pen-list find-or-create-pen "black" 1 'solid))
(define show-turtle-icons? #t) (define show-turtle-icons? #t)
@ -186,11 +186,13 @@
(define line (define line
(lambda (a b c d) (lambda (a b c d)
(set! lines-in-drawing (cons (make-draw-line a b c d) lines-in-drawing)) (set! lines-in-drawing (cons (make-draw-line a b c d) lines-in-drawing))
(inner-line a b c d))) (inner-line a b c d)
(update-icon)))
(define do-wipe-line (define do-wipe-line
(lambda (a b c d) (lambda (a b c d)
(set! lines-in-drawing (cons (make-wipe-line a b c d) lines-in-drawing)) (set! lines-in-drawing (cons (make-wipe-line a b c d) lines-in-drawing))
(inner-wipe-line a b c d))) (inner-wipe-line a b c d)
(update-icon)))
(define clear-window (lambda () (inner-clear-window))) (define clear-window (lambda () (inner-clear-window)))
(define save-turtle-bitmap (lambda (x y) (inner-save-turtle-bitmap x y))) (define save-turtle-bitmap (lambda (x y) (inner-save-turtle-bitmap x y)))
@ -217,9 +219,13 @@
(set! lines-in-drawing null) (set! lines-in-drawing null)
(clear-window)) (clear-window))
(define (update-icon)
(send turtles:window refresh))
(define (home) (define (home)
(set! turtles-cache empty-cache) (set! turtles-cache empty-cache)
(set! turtles-state (list clear-turtle))) (set! turtles-state (list clear-turtle))
(update-icon))
;; cache elements: ;; cache elements:
(define-struct c-forward (distance)) (define-struct c-forward (distance))
@ -318,11 +324,13 @@
(define move (define move
(lambda (n) (lambda (n)
(set! turtles-cache (combine (make-c-forward n) turtles-cache)))) (set! turtles-cache (combine (make-c-forward n) turtles-cache))
(update-icon)))
(define turn/radians (define turn/radians
(lambda (d) (lambda (d)
(set! turtles-cache (combine (make-c-turn d) turtles-cache)))) (set! turtles-cache (combine (make-c-turn d) turtles-cache))
(update-icon)))
(define turn (define turn
(lambda (c) (lambda (c)
@ -330,7 +338,8 @@
(define move-offset (define move-offset
(lambda (x y) (lambda (x y)
(set! turtles-cache (combine (make-c-offset x y) turtles-cache)))) (set! turtles-cache (combine (make-c-offset x y) turtles-cache))
(update-icon)))
(define erase/draw-offset (define erase/draw-offset
(lambda (doit) (lambda (doit)
@ -355,7 +364,8 @@
(set! turtles-state (set! turtles-state
(make-tree (list (make-cached turtles-state turtles-cache) (make-tree (list (make-cached turtles-state turtles-cache)
(make-cached t c)))) (make-cached t c))))
(set! turtles-cache empty-cache)))) (set! turtles-cache empty-cache)
(update-icon))))
(define split*fn (define split*fn
(lambda (es) (lambda (es)
@ -369,7 +379,8 @@
(set! turtles-cache c)) (set! turtles-cache c))
es) es)
(set! turtles-cache empty-cache) (set! turtles-cache empty-cache)
(set! turtles-state (make-tree l))))) (set! turtles-state (make-tree l))
(update-icon))))
(define tpromptfn (define tpromptfn
@ -384,7 +395,8 @@
(thunk)) (thunk))
(lambda () (lambda ()
(set! turtles-cache save-turtles-cache) (set! turtles-cache save-turtles-cache)
(set! turtles-state save-turtles-state)))))) (set! turtles-state save-turtles-state)
(update-icon))))))
(define-struct drawing-line (x1 y1 x2 y2)) (define-struct drawing-line (x1 y1 x2 y2))