关于封闭区间填充颜色

2009-02-19 07:36:46 234 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

多边形颜色填充-X扫描线算法在光栅显示器上选定一系列的点，将点按顺序连接起来形成一个封闭的多边形，并对多边形内的像素点进行颜色填充。本文主要介绍X扫描线算法以实现多边形内目标像素点的确定。一.X扫描线算法首先确定该多边形的和，通过y变量以为起点，以为终点，每次步长为1，与多边形相交求得交点，在交点的区间内所得的整数即为所求像素点。例如下图，，扫描线y=4与多边形交于P1、P2、P3、P4点，4个交点的x坐标分别为3.20、5.33、6.50、8.43，因此所求的目标像素点分别为P1和P2区间[4,4]、[5,4]，P3和P4区阅读详情

有段时间没有来csdn逛水了，有问题了，借机会和大家见见

此函数就是任意封闭区间填充颜色的函数，不过前提条件必须是这ScaleMode = 3
有没有办法把使用自定义的坐标填充任意封闭区间颜色呢？封闭的颜色已知



   Me.ScaleMode = 3

   Me.Circle (100, 100), 13, vbWhite

   n = paint(Me.hdc, 100, 100, vbBlue, vbWhite)





Public Function paint(hdc As Long, x As Long, y As Long, _

                      Paintcol As Long, Bordercol As Long) As Long

    Dim hBrush As Long

    Dim hBackBrush As Long

    Dim n As Long

    hBrush = CreateSolidBrush(Paintcol)

    hBackBrush = SelectObject(hdc, hBrush)

    paint = ExtFloodFill(hdc, x, y, Bordercol, FLOODFILLBORDER)

    n = DeleteObject(SelectObject(hdc, hBackBrush))

End Function

...全文