1.10 Managing Control Arrows: "arrow.rkt"
| (require htdp/arrow) | package: htdp-lib |
The teachpack implements a controller for moving shapes across a canvass.
procedure
(control-left-right shape n move draw) → true
shape : Shape n : number? move : (-> number? Shape Shape) draw : (-> Shape true)
Moves shape n pixels left
(negative) or right (positive).
procedure
(control-up-down shape n move draw) → true
shape : Shape n : number? move : (-> number? Shape Shape) draw : (-> Shape true)
Moves shape n pixels up
(negative) or down (positive).
procedure
shape : Shape n : number? move-lr : (-> number? Shape Shape) move-ud : (-> number? Shape Shape) draw : (-> Shape true)
Moves shape N pixels left or right and up or down, respectively.
The teachpack also provides four images:
value
an arrow pointing left.
value
an arrow pointing right.
an arrow pointing up.
value
an arrow pointing down.
Example:
; A shape is a structure: ; (make-posn num num) ; RAD : the radius of the simple disk moving across a canvas (define RAD 10) ; move : number shape -> shape or false ; to move a shape by delta according to translate ; effect: to redraw it (define (move delta sh) (cond [(and (clear-solid-disk sh RAD) (draw-solid-disk (translate sh delta) RAD)) (translate sh delta)] [else false])) ; translate : shape number -> shape ; to translate a shape by delta in the x direction (define (translate sh delta) (make-posn (+ (posn-x sh) delta) (posn-y sh))) ; draw-it : shape -> true ; to draw a shape on the canvas: a disk with radius (define (draw-it sh) (draw-solid-disk sh RAD)) ; Run: ; this creates the canvas (start 100 50) ; this creates the controller GUI (control-left-right (make-posn 10 20) 10 move draw-it)