以下程序是在用于飞行模拟器的球拍雷达模拟器中,它显示作为椭圆锁定在飞机上的物体,我们需要让椭圆闪烁(出现并定期重新出现)。无论是否使用帧计数器,如何编写脚本?
(define rwr-tracking
(let ([p (new dc-path%)])
(send p ellipse 0 0 400 400)
p)
)
答案 0 :(得分:0)
这是一个让你入门的例子:
#lang racket
(define (redraw-radar)
(sleep 0.5) ; 0.5 seconds
(displayln "Drawing")
(flush-output)
(redraw-radar))
(thread redraw-radar)
为重绘创建一个新线程。 线程等待,重绘和循环。