Sector Drawing Function

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

mike_g	Created : 03 March 2007 Language : Blitz Sector Drawing Function Draws a sector of a circle
I noticed that there havent been any new code snippets, or showcases in a long time now Anyway I was bored so I made a little sector drawing function, not that I can think of much of a use for it. Graphics 640, 480, 32, 2 SetBuffer BackBuffer() While Not KeyHit(1) Cls DRAW_SECTOR(200, 200, 20, 100, 60, i, $ffffff) DRAW_SECTOR(200, 200, 20, 100, 60, i+120, $ffffff) DRAW_SECTOR(200, 200, 20, 100, 60, i+240, $ffffff) DRAW_SECTOR(500, 200, 70, 100, 300, i, $ffffff) DRAW_SECTOR(500, 200, 20, 50, 300, 360-i, $ffffff) i=i+1 If i = 360 Then i = 0 Flip Wend Function DRAW_SECTOR(cx, cy, start_rad, end_rad, sector_deg, start_deg, col) LockBuffer ;DRAW OUTER CURVE inc# = Float(sector_deg/(end_radPi2)) steps = sector_deg/inc# deg# = start_deg For i = 1 To steps x = (cx - end_rad * Cos(deg#)) y = (cy - end_rad * Sin(deg#)) If x >= 0 And x < GraphicsWidth() And y >= 0 And y < GraphicsHeight() WritePixelFast x, y, col EndIf deg# = deg# + inc# Next ;DRAW INNER CURVE inc# = Float(sector_deg/(start_radPi2)) steps = sector_deg/inc# deg# = start_deg For i = 1 To steps x = (cx - start_rad * Cos(deg#)) y = (cy - start_rad * Sin(deg#)) If x >= 0 And x < GraphicsWidth() And y >= 0 And y < GraphicsHeight() WritePixelFast x, y, col EndIf deg# = deg# + inc# Next ;DRAW LINES x1 = (cx - start_rad * Cos(start_deg)) y1 = (cy - start_rad * Sin(start_deg)) x2 = (cx - end_rad * Cos(start_deg)) y2 = (cy - end_rad * Sin(start_deg)) Line x1, y1, x2, y2 x1 = (cx - start_rad * Cos(start_deg+sector_deg)) y1 = (cy - start_rad * Sin(start_deg+sector_deg)) x2 = (cx - end_rad * Cos(start_deg+sector_deg)) y2 = (cy - end_rad * Sin(start_deg+sector_deg)) Line x1, y1, x2, y2 UnlockBuffer End Function --v

Comments
Sunday, 04 March 2007, 04:12
Jayenkai	Fancy!
Sunday, 04 March 2007, 05:57
JL235	Now we can all draw pie charts, fantastic. But they are really nice.
Sunday, 04 March 2007, 06:12
mike_g	Thanks guys
Sunday, 04 March 2007, 12:22
garand	Omg I love it(look at my logo for my site). Can I get that so that I can fill it with a color and make it smaller with a circle in the middle?
Sunday, 04 March 2007, 12:34
mike_g	Filling it in real-time is the hard part. I might work on it though. I was planning on getting my head around a fastfill algo I found on the net, and porting it to BB. The rest is pretty easy. Try replacing the DRAW_SECTOR function calls with this: DRAW_SECTOR(200, 200, 20, 60, 60, i, $ffffff) DRAW_SECTOR(200, 200, 20, 60, 60, i+120, $ffffff) DRAW_SECTOR(200, 200, 20, 60, 60, i+240, $ffffff) Oval 185, 185, 30, 30, 0 --v Oh and btw had a look at you site. It looks quite nice

Comments