Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
PSET Circle!
#61
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 sub
(FB)
url=http://www.lggaming.com/user/xerol/songs/recycled]Recycled CompoST[/url] - Best of 2005 Album by Xerol.
Reply
#62
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.
ormal service may never be resumed
Reply
#63
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%).
Reply
#64
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. Wink


btw: Screen resolution has nothing to do with any Bresenham algo, ya know? :lol:
Reply
#65
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???
Reply
#66
Give it a try first, and people will be more enthused about helping you. Wink
Reply
#67
Here's my try at it:

http://forum.qbasicnews.com/viewtopic.ph...335#128335
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)