1

我试图让图像看起来像在移动。我清除屏幕并将图像放回上面，但屏幕闪烁很多。有没有办法让它看起来像在移动而没有那么多闪烁？

“draw_asteroids”每 100 毫秒调用一次，因为我希望图像的移动尽可能连续，而且我还有许多其他元素也在屏幕上移动（代码类似于宇宙飞船）。

我的代码：

start->
Wx = wx:new(),
Frame = wxFrame:new(Wx, -1, "Main Game Frame", [{size, {?max_x, ?max_y}}]),    
MenuBar = wxMenuBar:new(),
wxFrame:setMenuBar(Frame, MenuBar),
Panel = wxPanel:new(Frame),
wxFrame:connect(Panel, paint),
Image = wxImage:new("asteroid.png"),
wxFrame:show(Frame),
loop(Panel, {0,0}, Image).



loop(Panel, {X,Y},  Image)->
receive
after 100 ->
{NewX,NewY} =claculateNewPosition({X,Y}),
clearScreen(Frame, Panel),
draw_asteroids(Panel, {NewX,NewY}, Image),
loop(Panel, {NewX,NewY},  Image)
end.



draw_asteroids(Panel, {X, Y}, Image) ->

Pos = {round(X), round(Y)},
ClientDC = wxClientDC:new(Panel),
Bitmap = wxBitmap:new(Image),
wxDC:drawBitmap(ClientDC, Bitmap, Pos),
wxBitmap:destroy(Bitmap),
wxClientDC:destroy(ClientDC).


clearScreen(Frame, Panel)->

NewPanel = wxPanel:new(Frame),
wxWindow:setSize(Frame, {?max_x+1, ?max_y+1}),
wxWindow:setSize(Frame, {?max_x, ?max_y}),
NewPanel.
4

1 回答 1

1

我已经在 windows 和 linux 中解决了这个问题，执行以下操作：

在 init 函数中：创建一个预期大小的位图，并形成一个 memoryDC：

Bitmap = wxBitmap:new(W,H),
MemoryDC = wxMemoryDC:new(Bitmap),
...

我还定义了一个放置位图的区域，并将其连接到某个事件，至少绘制：

Panel = wxPanel:new(Board, [{size,{W,H}}]),
wxPanel:connect(Panel, paint, [callback]),
wxPanel:connect(Panel, left_up, []),
wxPanel:connect(Panel, right_down, []),
wxPanel:connect(Panel, middle_down, []),

我使用将修改请求存储在稍后将处理的列表中。

然后我使用外部事件刷新屏幕，即触发窗口刷新选项 {eraseBackground,false} 对于避免闪烁非常重要：

do_refresh(Cb,Z,PMa,PFe,PM,BMa,BFe,BM,P,MemoryDC) ->
    wx:batch(fun ()  ->
        Cb1 = lists:reverse(Cb),
        [cell(MemoryDC,PMa,PFe,PM,BMa,BFe,BM,State,Cell,Sex,Z) || {State,Cell,Sex} <- Cb1],
        wxWindow:refresh(P,[{eraseBackground,false}])
    end).

我使用这个外部事件有两个原因：

  • 有我掌握的定期刷新率
  • 允许多个进程独立更新位图（将请求存储在列表中）

我使用一个外部定时器，它调用一个刷新函数，该函数收集其他进程要求的修改列表，在 memoryDC 中按顺序执行它们，然后使用 window:refresh/2 函数触发绘制事件。整个函数分批执行以提高性能。

而在重绘事件中我只是简单的“blit”面板（注意这个功能可以刷新面板的一部分以减少执行时间，我一开始没有使用这个优化，结果足够快速和流畅所以我保留我的初始代码）：

handle_sync_event(#wx{event = #wxPaint{}}, _wxObj, #state{panel=Panel, memoryDC=MDC, w=W, h=H}) ->
    redraw(Panel,MDC,W,H).

redraw(Panel, MemoryDC, W, H) ->
    DC = wxPaintDC:new(Panel),  
    wxDC:blit(DC,{0,0},{W,H},MemoryDC,{0,0}),
    wxPaintDC:destroy(DC).

似乎需要创建和销毁 PaintDC。

这段代码不管理窗口的大小调整（在我的应用程序中没有意义），但它应该很容易扩展。

于 2014-08-12T19:51:48.130 回答