VisualFreeBasic游戏趣味编程_4.3_绘制一个扇形单元

勇芳

2026-1-21 / 0 评论 / 55 阅读

01/21

下图展示了“旋转蛇”错觉图片的一个基本单元，一般由两组共4种颜色组成。人脑处理高对比度颜色（比如，黑与白）的时间，要比处理低对比度颜色（比如，红与青）短很多。我们会先感知到图中的黑白图案，后感知到红青图案，这个时间差会让图片产生相对运动的效果，所以我们会有图片旋转的错觉。
先画一组：

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Cls BGR(180, 180, 180) 'GDI的颜色值。
   gg.Pen 1, BGR(229, 0, 0) '设置红色线
   gg.Pen 0, 0 '设置线条为没有

   画扇形(gg, 120, 120, 110, 3, 0, BGR(0, 0, 0))
   画扇形(gg, 120, 120, 110, 8, 3, BGR(255, 0, 0))
   画扇形(gg, 120, 120, 110, 13, 8, BGR(255, 255, 255))
   画扇形(gg, 120, 120, 110, 18, 13, BGR(0, 255, 255))

End Sub