USM-like 3D rectangles/buttons

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|546\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> USM-like 3D rectangles/buttons
Sat, 17 May 2008, 07:45
LostUser	I'm not very good with rectangles. But I'd love to get the kind of rectangles that you get with Ultimate Soccer Manager. Pics; Is anyone a wizz with the 3d-like rectangles with shadows?
Sat, 17 May 2008, 07:58
mike_g	I wrote this off the top of my head (I dont have blitz installed), hopefully it should work. You might want to pre-draw you buttons to a surface to save redrawing each loop too as that should be faster. Function DrawButton(x, y, w, h) Color(150, 150, 150) Rect(x, y, x+w, y+h, 1) Color(200, 200, 200) ;Highlight Line(x, y, x+w, y) Line(x, y+1, x+w-1, y+1) Line(x, y, x, y+h) line(x+1, y, x+1, y+h-1) Color(100, 100, 100) ;Shadow Line(x, y+h, x+w, y+h) Line(x+1, y+h-1, x+w, y+h-1) Line(x+w, y, x+w, y+h) Line(x+w-1, y+1, x+w-1, y+h) End Function --v
Sat, 17 May 2008, 08:40
Jayenkai	function 3DRect(x,y,w,h) UseR#=colorRed() UseG#=ColorGreen() UseB#=ColorBlue() R=UseR1.25:if R>255 then R=255 G=UseG1.25:if G>255 then G=255 B=UseB1.25:if B>255 then B=255 color R,G,B rect x,y,w,h,1 R=UseR0.75 G=UseG0.75 B=UseB0.75 color R,G,B rect x+1,y+1,w-1,h-1,1 Color UseR,UseG,UseB rect x+1,y+1,w-2,h-2,1 end function --v -=-=- ''Load, Next List!''
Sun, 18 May 2008, 04:41
Jayenkai	^ That was coded whilst at work, without a copy of Blitz at hand! This one's done a little better! Graphics 800,600,32,2 SetBuffer BackBuffer() Repeat Cls Color 180,0,0 rect3d 10,10,100,100 Color 0,180,0 rect3d 10,210,100,100,2 Color 0,0,180 rect3d 10,410,100,100,4,0.1 Flip Until KeyDown(1) Function Rect3D(x,y,w,h,thick=1,diff#=0.5) UseR#=ColorRed() UseG#=ColorGreen() UseB#=ColorBlue() R=UseR(1.0+diff):If R>255 Then R=255 G=UseG(1.0+diff):If G>255 Then G=255 B=UseB(1.0+diff):If B>255 Then B=255 Color R,G,B Rect x-thick,y-thick,w+thick2,h+thick2 R=UseR(1.0-diff) G=UseG(1.0-diff) B=UseB(1.0-diff) Color R,G,B Rect x,y,w+thick,h+thick,1 Color UseR,UseG,UseB Rect x,y,w,h,1 End Function --v -=-=- ''Load, Next List!''
Mon, 19 May 2008, 09:56
LostUser	Thanks a lot. I'm useless when it comes to rectangles! Thanks a lot!