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

Question

以下程序是在用于飞行模拟器的球拍雷达模拟器中，它显示作为椭圆锁定在飞机上的物体，我们需要让椭圆闪烁（出现并定期重新出现）。无论是否使用帧计数器，如何编写脚本？

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

Answer 1

这是一个让你入门的例子：

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

(thread redraw-radar)

为重绘创建一个新线程。 线程等待，重绘和循环。