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

时间:2014-12-02 23:51:53

标签: racket imaging

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

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

1 个答案:

答案 0 :(得分:0)

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

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

(thread redraw-radar)

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