- (let ((r (degrees-to-radians (- angle))))
- (set! x (+ x (* 4 (sin r))))
- (set! y (+ y (* 4 (cos r)))))
- (cond ((> x max-x) (set! x min-x))
- ((< x min-x) (set! x max-x)))
- (cond ((> y max-y) (set! y min-y))
- ((< y min-y) (set! y max-y)))
- (set! moving #t))
- (else
- (set! moving #f)))
+ (let ((r (degrees-to-radians (- angle))))
+ (set! x (+ x (* 4 (sin r))))
+ (set! y (+ y (* 4 (cos r)))))
+ (cond ((> x max-x) (set! x min-x))
+ ((< x min-x) (set! x max-x)))
+ (cond ((> y max-y) (set! y min-y))
+ ((< y min-y) (set! y max-y)))
+ (set! moving #t))
+ (else
+ (set! moving #f)))