Draw circles

[James D Jarvis]

I just stumbled on the idea making random curls and squiggles with the draw command. I was getting several big sweeping curves and realized how to make a circle from that.  Yup adjusting the end segment that is actually drawing  the arc is the way to get a thicker line.


Here's a modified dpieslice sub that cuts down the bleed by simply adding another line to the pie sides to reduce gaps caused by jaggy lines. It has one bleed I notice instead of the 4 or 5 in the demo from the original sub.

Code: (Select All)

Sub dpieslice (xx, yy, r, klr, fill, arc1, arc2)
    'draws and fills a pie splce
    PSet (xx, yy), klr
    Draw "c" + Str$(klr)
    For d = arc1 To arc2 Step 0.3
        Draw "ta " + Str$(d) + " br" + Str$(r - 1) + "r  bl" + Str$(r)
    Next d
    Draw "ta" + Str$(arc1) + " r " + Str$(r) + "bl" + Str$(r)
    Draw "ta" + Str$(arc1 + 0.35) + " r " + Str$(r) + "bl" + Str$(r)
    Draw "ta" + Str$(arc2) + " r " + Str$(r) + "bl" + Str$(r)
    Draw "ta" + Str$(arc2 - 0.35) + " r " + Str$(r) + "bl" + Str$(r)
    Draw "ta" + Str$((arc1 + arc2) / 2) + "br " + Str$(Int(r / 2)) + "P" + Str$(fill) + "," + Str$(klr) + " bl" + Str$(Int(r / 2))
End Sub