tools

include/tools.bm

@@ -0,0 +1,145 @@
+
+
+sub filledPolygon (Points() as single, col as long)
+    dim i as integer, j as integer
+    dim x1 as single, y1 as single, x2 as single, y2 as single
+    dim intersectX as single
+    ' get the number of points from the upper bound of the array
+    ' divide by 2 since we have x,y pairs
+    dim numPoints as integer
+    numPoints = (ubound(Points) + 1) \ 2
+    ' loop through each scanline (rows of pixels)
+    dim intersections(100) as single
+    dim numIntersections as integer
+    for y = 0 to _height ' adjust for screen height
+        numIntersections = 0
+        ' check for intersections between the polygon edges and this scanline
+        for i = 0 to numPoints - 1
+            x1 = Points(i * 2)
+            y1 = Points(i * 2 + 1)
+            x2 = Points(((i + 1) mod numPoints) * 2)
+            y2 = Points(((i + 1) mod numPoints) * 2 + 1)
+            ' check if the scanline intersects with the edge of the polygon
+            if ((y1 > y and y2 <= y) or (y2 > y and y1 <= y)) then
+                ' calculate intersection point with the scanline
+                intersectX = x1 + (y - y1) * (x2 - x1) / (y2 - y1)
+                intersections(numIntersections) = intersectX
+                numIntersections = numIntersections + 1
+            end if
+        next i
+        ' sort the intersections (sort by x-coordinates)
+        for i = 0 to numIntersections - 1
+            for j = i + 1 to numIntersections - 1
+                if intersections(i) > intersections(j) then
+                   swap intersections(i), intersections(j)
+                end if
+            next j
+        next i
+        ' fill the area between pairs of intersections
+        for i = 0 to numIntersections - 1 step 2
+            line(intersections(i),y)-(intersections(i+1),y),col
+        next i
+    next y
+end sub
+
+sub thickline(x1,y1,x2,y2, col as long)
+    if state.brushsize=1 then
+        line(x1,y1)-(x2,y2),col
+    else
+        dim tempimg as long
+        dim od as long
+        tempimg=_newimage(10,10,32)
+        od =_dest
+        _dest tempimg
+        pset(0,0),col
+        _dest od
+        a = _Atan2(y2 - y1, x2 - x1)
+        a = a + _Pi / 2
+        x0 = 0.5 * state.brushsize * Cos(a)
+        y0 = 0.5 * state.brushsize * Sin(a)
+        _maptriangle _seamless(0,0)-(0,0)-(0,0),tempimg to(x1-x0, y1-y0)-(x1+x0,y1+y0)-(x2+x0,y2+y0),,_smooth
+        _maptriangle _seamless(0,0)-(0,0)-(0,0),tempimg to(x1-x0, y1-y0)-(x2+x0,y2+y0)-(x2-x0,y2-y0),,_smooth
+        _freeimage tempimg
+    end if
+end sub
+
+Sub polygon (pa() As Long,col as long)
+    For i = 2 To UBound(pa) Step 2
+        thickLine pa(i - 2), pa(i - 1),pa(i), pa(i + 1),col
+    Next i
+    thickLine pa(i - 1), pa(i - 2),pa(0), pa(1),col
+End Sub
+sub thickcircle(x, y, r, col as long)
+    if state.brushsize <= 1 then
+        circle (x, y), r, col
+    else
+        dim rp as single, rm as single, rp2 as single, rm2 as single
+        dim rpi2 as single, rmi2 as single, sp as single, sm as single
+        dim i as single
+
+        rp = r + state.brushsize / 2
+        rm = r - state.brushsize / 2
+        
+        ' If the brush is thicker than the circle, it's just a filled circle
+        if rm < 0 then
+            filledcircle x, y, rp, col
+            exit sub
+        end if
+
+        rp2 = rp ^ 2
+        rm2 = rm ^ 2
+
+        ' Outer edges (Top/Bottom caps)
+        for i = -rp to -rm step .2
+            rpi2 = rp2 - i ^ 2
+            if rpi2 < 0 then rpi2 = 0 ' Safety Gate
+            sp = sqr(rpi2)
+            line (x + i, y - sp)-(x + i, y + sp), col, bf
+        next
+
+        ' Side rings (where the hole in the middle exists)
+        for i = -rm to rm step .2
+            rpi2 = rp2 - i ^ 2
+            rmi2 = rm2 - i ^ 2
+            if rpi2 < 0 then rpi2 = 0 ' Safety Gate
+            if rmi2 < 0 then rmi2 = 0 ' Safety Gate
+            sp = sqr(rpi2)
+            sm = sqr(rmi2)
+            ' Draw the top and bottom segments only
+            line (x + i, y + sm)-(x + i, y + sp), col, bf
+            line (x + i, y - sm)-(x + i, y - sp), col, bf
+        next
+
+        ' Outer edges (Right cap)
+        for i = rm to rp step .2
+            rpi2 = rp2 - i ^ 2
+            if rpi2 < 0 then rpi2 = 0 ' Safety Gate
+            sp = sqr(rpi2)
+            line (x + i, y - sp)-(x + i, y + sp), col, bf
+        next
+    end if 
+end sub
+
+sub filledcircle(x,y,r,col as long)
+        dim __radius as integer, radiuserror as integer
+        dim tx as integer, ty as integer
+        __radius=abs(r)-1
+        radiuserror=-__radius
+        tx=__radius
+        ty=0
+        line (x-tx,y)-(x+tx,y),col
+        while tx>ty
+            radiuserror=radiuserror+ty*2+1
+            if radiuserror >= 0 then
+                if tx<>ty+1 then
+                    line (x-ty,y-tx)-(x+ty,y-tx),col
+                    line (x-ty,y+tx)-(x+ty,y+tx),col
+                end if
+                tx=tx-1
+                radiuserror=radiuserror-tx*2
+            end if
+            ty=ty+1
+            line (x-tx,y-ty)-(x+tx,y-ty),col
+            line (x-tx,y+ty)-(x+tx,y+ty),col
+        wend
+end sub