VisualFreeBasic游戏趣味编程_4.1_绘制扇形

“旋转蛇”错觉图片可由不同颜色的扇形组合而成。
VFB里并没有画扇形，需要自己写一个过程，照抄下面代码即可。

Sub 画扇形(gg As yGDI, 圆心x As Long, 圆心y As Long, 半径 As Long, 开始角度 As Long, 结束角度 As Long, 填充颜色 As Long)
   Dim As Long 圆x, 圆y, 圆r, 圆b, 开始x, 开始y, 结束x, 结束y
   Dim pi As Single = 3.1415926 / 180
   圆x   = 圆心x - 半径 
   圆y   = 圆心y - 半径 
   圆r   = 圆心x + 半径 
   圆b   = 圆心y + 半径 
   开始x = 圆心x + 半径 *Cos(开始角度 * pi)
   开始y = 圆心y + 半径 *Sin(开始角度 * pi)
   结束x = 圆心x + 半径 *Cos(结束角度 * pi)
   结束y = 圆心y + 半径 *Sin(结束角度 * pi)
   gg.Brush 填充颜色
   Pie gg.m_Dc,DpiScaleI(圆x), DpiScaleI(圆y), DpiScaleI(圆r), DpiScaleI(圆b), DpiScaleI(开始x), DpiScaleI(开始y), DpiScaleI(结束x), DpiScaleI(结束y)
End Sub
Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
      画扇形(gg,120,120,110, 0,90,BGR(255,26,26))
End Sub

输入并运行代码，即可绘制出所示的图形

提示： 代码中的 DpiScaleI(圆x),... 是为了支持自动响应 系统DPI ，让自己写的软件，不管拿到什么电脑上，都显示效果一样。