Racket 如何使用帧计数器以球拍语言使图像闪烁？

以下步骤是在飞行模拟器的racket雷达模拟器中，它将锁定在飞机上的对象显示为椭圆，我们需要让椭圆周期性地闪烁和重新出现。使用或不使用帧计数器，如何编写脚本

(define rwr-tracking
  (let ([p (new dc-path%)])
  (send p ellipse 0 0 400 400)
  p)
 )

---

下面是一个让您开始学习的示例：

#lang racket
(define (redraw-radar)
  (sleep 0.5)  ; 0.5 seconds 
  (displayln "Drawing")
  (flush-output)
  (redraw-radar))

(thread redraw-radar)

将创建一个新线程以重新绘制。 线程等待、重画和循环