在racket语言中如何基于 2htdp/image实现自定义rectangle 矩形位置

在Racket语言中，要基于2htdp/image库来实现自定义矩形的位置，你可以创建一个`make-rectangle`函数，该函数接受宽度（width）、高度（height）以及矩形左上角的x坐标（x-pos）和y坐标（y-pos）作为参数。这里我们不直接操作像素，因为2htdp/image通常用于教学目的，而不是图形编辑。

#lang racket
(require 2htdp/image)

(define (make-rectangle width height x-pos y-pos)
  ;; 使用image-new创建一个新的图像，指定大小和背景颜色
  (define new-image (image-new width height "white"))
  
  ;; 使用image-fill!画出矩形，起始点是(x-pos, y-pos)，宽度和高度与传入参数相同
  (image-fill! new-image "black" (vector x-pos y-pos) (vector (+ x-pos width) (+ y-pos height)))
  
  new-image)

;; 示例：
(define my-rect (make-rectangle 100 200 50 75))
(displayln (image->string my-rect)) ; 打印出矩形图像的ASCII表示