+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: PSET Circle! (/thread-6492.html)
PSET Circle! - Xerol - 12-13-2005
I made mine into a function. The actual functional code is only the 3 lines in the loop:
Code:
screen 12
declare sub psetcircle(x, y, r, c)
for r = 1 to 200 step 1
psetcircle 320, 240, r, (r mod 15) + 1
next r
sleep
sub psetcircle(x,y,r,c)
dim o as double
for o = 0 to 360 step 30/r
pset(cos(o*3.141592/180)*r+x, sin(o*3.141592/180)*r+y), c
next o
end subBreshenham algorithm - googly - 12-13-2005
looking at these progs (endless ones all the same) it's like the Bresenham algorithm had never been discovered. Look it up its quick and always using the max screen resolution available.
PSET Circle! - axipher - 12-13-2005
I have a copy of the Bresenham algorithm but I can't figure out how to put limits into it, here is the area of the drawing area: (40,2) to (55,17), the circle can range in size from 1 - 24 and color can range from 0 - 255 and having an option to fill or not fill would be nice too. The circle is base on user input and is drawn relative to the relative position being (x%,y%).
Re: Breshenham algorithm - Dr_Davenstein - 12-14-2005
Quote:looking at these progs (endless ones all the same) it's like the Bresenham algorithm had never been discovered. Look it up its quick and always using the max screen resolution available.
Way too easy. The point was to make something unique.
btw: Screen resolution has nothing to do with any Bresenham algo, ya know? :lol:
PSET Circle! - axipher - 12-14-2005
What about my problem... *sniffle* *sniffle*, lol, maybe that's what Z!re meant when he said that I was self-absorbant, but it's not like I am pushing anyone right???
PSET Circle! - Dr_Davenstein - 12-14-2005
Give it a try first, and people will be more enthused about helping you.
PSET Circle! - axipher - 12-14-2005
Here's my try at it:
http://forum.qbasicnews.com/viewtopic.php?p=128335#128335