如何正确对世界坐标系下的五边形进行缩放与坐标转换？

核心问题 #

你的代码同时混用了手动修改路径顶点坐标和绘图上下文变换（translate/scale）两套坐标转换逻辑，导致变换叠加冲突，出现图形位置偏离预期、后续平移缩放操作无效的问题。此外，直接修改dc-path%的内部顶点数据并非Racket绘图的规范实践，容易引发状态混乱。

问题定位 #

1. 变换逻辑重复冲突：world-to-screen已经完成了从世界坐标到屏幕中心基准的缩放和平移，后续又调用send drawing-context translate/scale，相当于对坐标执行了两次变换，直接导致世界原点(0,0)的五边形偏离屏幕中心。
2. 路径顶点修改的副作用：drawtoscreen中先修改路径顶点到屏幕坐标，绘制后又改回世界坐标，但dc-path%的内部状态被反复修改，与上下文变换产生不可预测的交互，进一步加剧位置错误。

修复方案 #

放弃手动修改路径顶点的方式，改用绘图上下文变换矩阵实现世界到屏幕的坐标转换。这种方式无需修改原始路径，且能与后续的translate/scale操作正确叠加。

步骤1：重构drawtoscreen函数 #

(define (drawtoscreen polygon)
  ; 保存当前上下文状态，避免影响后续绘制操作
  (send drawing-context save)
  
  ; 定义世界与屏幕的转换参数
  (define world-width 1280)
  (define world-height 720)
  (define screen-width 512)
  (define screen-height 288)
  (define x-scale (/ screen-width world-width))
  (define y-scale (/ screen-height world-height))
  (define x-trans (/ screen-width 2))
  (define y-trans (/ screen-height 2))
  
  ; 应用变换：注意上下文变换顺序为反向（先平移，再缩放，对应矩阵乘法逻辑）
  (send drawing-context translate x-trans y-trans)
  (send drawing-context scale x-scale y-scale)
  
  ; 绘制原始世界坐标的路径
  (send drawing-context draw-path polygon)
  
  ; 恢复上下文状态
  (send drawing-context restore))

步骤2：调整绘制代码 #

移除手动修改顶点的逻辑，直接使用原始路径配合上下文变换完成绘制：

; 创建世界坐标(0,0)处的五边形
(define myPentagon (make-regular-pentagon 0 0 50))

(send drawing-context set-pen "red" 1 'solid)
(send drawing-context set-brush "pink" 'solid)

; 第一个五边形：世界(0,0) → 屏幕中心
(drawtoscreen myPentagon)

; 第二个五边形：屏幕坐标上平移(100,70)
(send drawing-context save)
(send drawing-context translate 100 70)
(drawtoscreen myPentagon)
(send drawing-context restore)

; 第三个五边形：屏幕坐标上平移(200,140)后缩放0.5倍
(send drawing-context save)
(send drawing-context translate 200 140)
(send drawing-context scale 0.5 0.5)
(drawtoscreen myPentagon)
(send drawing-context restore)

验证说明 #

• 世界坐标(0,0)的五边形会通过drawtoscreen中的变换，准确显示在512x288屏幕的中心(256,144)。
• 后续的translate/scale操作是在屏幕坐标体系上叠加，不会与世界到屏幕的转换冲突，三个五边形会按预期呈现不同的位置和大小。

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