按键旋转动画图片出错，求助big-bang函数及火箭旋转实现

先梳理你代码里的核心错误：

• 状态结构混乱：原本用数字存高度，现在要加旋转状态，却错误使用make-posn且参数不符合要求
• 图片定义错误：SHIP被设为字符串，而非实际加载的图片对象
• 缺少render函数：big-bang里指定的render未定义，且未考虑旋转后的图片绘制逻辑
• 丢失下落逻辑：移除了on-tick来更新火箭下落的高度
• rotate用法错误：直接调用(rotate 180)没有作用对象，rotate是对图片而非状态进行操作

以下是修正后的完整代码：

(require 2htdp/image)
(require 2htdp/universe)

;; 加载火箭图片（替换成你的实际图片路径）
(define SHIP (bitmap "rocketship.png"))
;; 背景尺寸定义
(define WIDTH 300)
(define HEIGHT 600)
(define BACKGROUND (rectangle WIDTH HEIGHT 'solid 'black))
;; 火箭着陆的Y坐标（让火箭底部对齐场景底部）
(define LAND-Y (- HEIGHT (/ (image-height SHIP) 2)))

;; 自定义状态结构体：统一管理火箭的高度和旋转角度
(struct rocket-state (height rotation) #:transparent)

;; 绘制场景：根据当前状态绘制旋转后的火箭
(define (render state)
  (place-image (rotate (rocket-state-rotation state) SHIP)
               (/ WIDTH 2)
               (min (rocket-state-height state) LAND-Y)
               BACKGROUND))

;; 按键处理：仅修改旋转角度，保留当前高度
(define (key-press state ke)
  (cond
    [(key=? ke "u") (rocket-state (rocket-state-height state) 0)]
    [(key=? ke "d") (rocket-state (rocket-state-height state) 180)]
    [else state]))

;; 每帧更新火箭高度（模拟下落效果）
(define (update-height state)
  (rocket-state (+ (rocket-state-height state) 3)
                (rocket-state-rotation state)))

;; 启动big-bang，初始状态：高度0，旋转角度0度
(big-bang (rocket-state 0 0)
          [to-draw render]
          [on-tick update-height]
          [on-key key-press])

关键修改说明：

• 用rocket-state结构体统一管理高度和旋转角度，解决状态混乱问题
• 正确加载图片：使用bitmap或load-image加载实际图片文件，而非字符串
• 实现render函数：先对火箭图片应用旋转操作，再绘制到背景的对应位置
• 恢复下落逻辑：添加on-tick调用update-height，每帧增加火箭高度模拟下落
• 修正按键处理：按键时仅修改旋转角度，保留当前高度，状态更新符合结构体规则
• 优化位置计算：让火箭居中显示，着陆时自动对齐场景底部

内容的提问来源于stack exchange，提问作者user22638798