определение процедуры с использованием graphics-draw-line - PullRequest
2 голосов
/ 08 июня 2011

Вы видите, что с этим не так:

(define (box d x1 y1 x2 y2)  (
                              (graphics-draw-line d x1 y1 x1 y2)
                              (graphics-draw-line d x1 y2 x2 y2)
                              (graphics-draw-line d x2 y2 x2 y1)
                              (graphics-draw-line d x2 y1 x1 y1) ))

Когда я называю это так:

( begin 
     (define w (make-graphics-device 'x))
     (box  w .10 .10 .20 .20) )

Я получаю ошибку:

;The object #!unspecific is not applicable.
;To continue, call RESTART with an option number:
; (RESTART 2) => Specify a procedure to use in its place.
; (RESTART 1) => Return to read-eval-print level 1.

2 error>

Это работает:

(begin
    (define w (make-graphics-device 'x))
    (graphics-draw-line w .1 .1 .1 .2)
    (graphics-draw-line w .1 .2 .2 .2)
    (graphics-draw-line w .2 .2 .2 .1)
    (graphics-draw-line w .2 .1 .1 .1) )

Я не вижу разницы!

1 Ответ

6 голосов
/ 08 июня 2011

Не просто группируйте выражения с () s - это попытается использовать результат first как функцию, но значение #!unspecific - определенно не функция.

Используйте это:

(define (box d x1 y1 x2 y2)
  (graphics-draw-line d x1 y1 x1 y2)
  (graphics-draw-line d x1 y2 x2 y2)
  (graphics-draw-line d x2 y2 x2 y1)
  (graphics-draw-line d x2 y1 x1 y1))
...