使用Big-Bang在球拍(BSL)中进行编程突破.放置桨时遇到错误

Question

目标是使游戏突破并通过步骤进行。我已经在实现桨的第一步遇到问题。球的球和弹跳已经预定并给予。我想将其放在（定义（渲染球））中：

(define (render ball worldstate)
(place-image BALL-IMG
           (posn-x (ball-loc ball))
           (posn-y (ball-loc ball))
(place-image PADDLE (posn-x (world-state-paddle worldstate)) (posn-y (world-state-paddle worldstate))
           SCENE)))

但是，我会遇到错误" draw：draw：一个参数作为第一个参数的预期函数；给定2个参数的函数"我不确定如何使代码更好。这是我的代码到目前为止的样子。球已经被预先定义了，而且滴答了。到目前为止

(require 2htdp/image)
(require 2htdp/universe)
(define WIDTH 200)
(define HEIGHT 200)
(define BALL-RADIUS 10)
(define BALL-IMG (circle BALL-RADIUS "solid" "red"))
(define SCENE (empty-scene WIDTH HEIGHT))
(define PADDLE (rectangle 60 10 "solid" "green"))
(define SPEED 4)
(define-struct vel (delta-x delta-y))
; a Vel is a structure: (make-vel Number Number)
; interp. the velocity vector of a moving object
(define-struct ball (loc velocity))
; a Ball is a structure: (make-ball Posn Vel)
; interp. the position and velocity of a object 
; Posn Vel -> Posn
; applies q to p and simulates the movement in one clock tick
(check-expect (posn+vel (make-posn 5 6) (make-vel 1 2))
              (make-posn 6 8))
(define (posn+vel p q)
  (make-posn (+ (posn-x p) (vel-delta-x q))
             (+ (posn-y p) (vel-delta-y q))))

; Ball -> Ball
; computes movement of ball in one clock tick
(check-expect (move-ball (make-ball (make-posn 20 30)
                                    (make-vel 5 10)))
              (make-ball (make-posn 25 40)
                     (make-vel 5 10)))
(define (move-ball ball)
  (make-ball (posn+vel (ball-loc ball)
                       (ball-velocity ball))
         (ball-velocity ball)))

; A Collision is either
; - "top"
; - "down"
; - "left"
; - "right"
; - "none"
; interp. the location where a ball collides with a wall
; Posn -> Collision
; detects with which of the walls (if any) the ball collides
(check-expect (collision (make-posn 0 12))  "left")
(check-expect (collision (make-posn 15 HEIGHT)) "down")
(check-expect (collision (make-posn WIDTH 12))  "right")
(check-expect (collision (make-posn 15 0)) "top")
(check-expect (collision (make-posn 55 55)) "none")
(define (collision posn)
  (cond
    [(<= (posn-x posn) BALL-RADIUS) "left"]
    [(<= (posn-y posn) BALL-RADIUS)  "top"]
    [(>= (posn-x posn) (- WIDTH BALL-RADIUS)) "right"]
    [(>= (posn-y posn) (- HEIGHT BALL-RADIUS)) "down"]
    [else "none"]))
; Vel Collision -> Vel  
; computes the velocity of an object after a collision
(check-expect (bounce (make-vel 3 4) "left")
              (make-vel -3 4))
(check-expect (bounce (make-vel 3 4) "top")
              (make-vel 3 -4))
(check-expect (bounce (make-vel 3 4) "none")
              (make-vel 3 4))
(define (bounce vel collision)
  (cond [(or (string=? collision "left")
         (string=? collision "right"))
     (make-vel (- (vel-delta-x vel))
               (vel-delta-y vel))]
    [(or (string=? collision "down")
         (string=? collision "top"))
     (make-vel (vel-delta-x vel)
               (- (vel-delta-y vel)))]
    [else vel]))
; WorldState is a Ball
; interp. the current state of the ball
; WorldState -> Image
; renders ball at its position
;(check-expect (image? (render INITIAL-BALL)) #true)
(define (render ball worldstate)
  (place-image BALL-IMG
           (posn-x (ball-loc ball))
           (posn-y (ball-loc ball))
           SCENE))
; WorldState -> WorldState
; moves ball to its next location
(check-expect (tick (make-ball (make-posn 20 12) (make-vel 1 2)))
              (make-ball (make-posn 21 14) (make-vel 1 2)))
(define (tick ball)
  (move-ball (make-ball (ball-loc ball)
                    (bounce (ball-velocity ball)
                            (collision (ball-loc ball))))))

(define-struct world-state (paddle speed ball))
;WorldState is a structure (make-world-state paddle speed Ball)
(define Example-world-state (make-world-state PADDLE SPEED (make-ball (make-posn 20 12)
                                                      (make-vel 1 2))))
;mouse
;Worldstate Number Number MouseEvent -> Worldstate
;moves the paddle
(define (mouse worldstate x y mouseEvent)
  (make-world-state (world-state-speed worldstate) (world-state-ball     worldstate)
                (cond
                  [(string=? mouseEvent "move")
                   (make-posn x y)]
                  [else (world-state-paddle worldstate)])))


(define INITIAL-BALL (make-ball (make-posn 20 12)
                            (make-vel 1 2)))
(define INITIAL-WORLD-STATE INITIAL-BALL)
(define (main state)
  (big-bang state (on-tick tick 0.01) (to-draw render) (on-mouse mouse)))
(main INITIAL-WORLD-STATE)

我感谢任何提示！

Answer 1

我注意到您的'渲染'函数签名是

世界州 ->图像

但是，渲染获取2个参数：

 `(define (render ball worldstate) ...)`

签名用于键入检查并更好地记录您的工作以供其他人理解，在这种情况下，它帮助我迅速找到了问题：）

根据您提供的错误：

(to-draw render)

在函数" main"中，渲染是一个仅接收 1个参数的函数，而在您的代码中，它被定义为 2 params

在此处查看渲染并绘制：[e-mail]

Answer 2

render函数仅将世界状态作为参数，而您不能添加更多参数。
您已经在该州有桨，可以从中取回球和桨：

(define (render world)
    (place-image BALL-IMG
           (posn-x (ball-loc (world-state-ball world))
           (posn-y (ball-loc (world-state-ball world))
    ...

您可能想为组件编写单独的渲染功能：

(define (render-ball ball)
     ...)
(define (render-paddle paddle)
     ...)
(define (render-world world)
    (render-ball (world-state-ball world))
    (render-paddle (world-state-paddle world))