Rounded Rectangles?

[Rocket Boy]

Does anyone know how to do this in Qbasic? I've seen it before. It's probably something ridiculously easy... If you don't know, I mean the rectangles with rounded edges, like the buttons in MacOS and stuff like that.

[Zamaster]

Well, your gonna need on LINE command and one CIRCLE command. Start off by drawing your box of lines except cut them off by whatever the radius of your rounded circle edges will be. Next, draw the circle at the "would be" intersection point of all the lines(top left, top right, ect...) except only draw sections corresponding with the angles so
top left = 90 to 180
top right = 180 to 270
bottom right = 270 to 0
bottom left = 0 to 90

Im sorry, this is really confusing but I dont feel like actually doing any work . Ill hope somebody else gives you some code.

[Kyle]

Code: Select all

declare sub rbox(x1,y1,x2,y2,c,r)
const pi=3.1415926

screen 12

rbox 50,50,150,150,6,17

sub rbox(x1,y1,x2,y2,c,r)
     
line (x1,y1+r)-(x1,y2-r),c
line (x1+r,y1)-(x2-r,y1),c
line (x2,y1+r)-(x2,y2-r),c
line (x2-r,y2)-(x1+r,y2),c
circle (x1+r,y1+r),r,c,pi*0.5,pi
circle (x2-r,y1+r),r,c,0,pi*0.5
circle (x1+r,y2-r),r,c,pi,pi*1.5
circle (x2-r,y2-r),r,c,pi*1.5
     
end sub

Enjoy

[Rocket Boy]

That's a pretty useful sub... but what would you do if you wanted to be able to fill it with color?

[Nodtveidt]

Do a floodfill I guess...

[Kyle]

Yeah, just a simple paint will do.

[{Nathan}]

Yeah, just a simple paint will do.

it seems like some commands (like PAINT, the other use for SCREEN, and and FILE (it is for QB45, just found that out)) are just to underused...

[Kyle]

You forgot GOTO