如何使用图单元在涡轮上创建无闪烁的动画？ 我有以下涡轮Pascal程序： 程序问题； 使用CRT，图； VAR GraphicsDriver，GraphicsMode，P，I：Integer; 开始 GraphicsDriver：=检测； initgraph（GraphicsDriver，GraphicsMode，''）;

Question

程序绘制到页面上，只有在完成绘制页面显示页面的页面之后，然后显示绘制页面，直到完成下一个页面。

这应该起作用，但不能：它完美地绘制了第一页，但是第二页并不从（0，0）开始，它始于屏幕的中间。 为什么那是呢？我该如何修复？

我的猜测是，您的视频卡正在返回与涡轮Pascal期望的任何内容不同的配置。

图单元可能只是很明显地无法在现代计算机上工作。 我尝试使用

Answer 1

进行运行。它在正确的位置将您的文字绘制出来，但是有各种各样的闪烁。 （FP图单元是TP的重写，并且已知是错误的。）

如果是我，我会看看SDL和开罗，这两者都与自由帕斯卡（Pascal）捆绑在一起。还有一个出色的绘图库。

我不知道他们是否会与Turbo Pascal合作，但免费的Pascal是免费的和跨平台。