Hi All
Now is it my graphics card or what!
this code will not let me color the circle, can anyone see why. (colors ok in the demo prog for line box and circles)
sync on : sync rate 0
do
bevlbox(screen width()/screen width(),screen height()/screen height(),screen width(),screen height(),6,RGB(255,255,0),RGB(0,255,0),0,0)
ink RGB(255,0,128),RGB(255,0,0)
circle 100,100,50
sync
loop
function bevlbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_bevshade,_circlesize,_circlecolor)
rcol=rgbr(_maincolor) : gcol=rgbg(_maincolor) : bcol=rgbb(_maincolor)
box _left,_top,_right,_bottom,_maincolor,_maincolor,_maincolor,_maincolor
for _bev = 0 to _bevwidth
gcol=gcol-_bev
ink rgb(rcol,gcol,bcol),_foundcol
line _left+_bev, _top+_bev, _right-_bev, _top+_bev
line _left+_bev, _bottom-_bev, _right-_bev, _bottom-_bev
line _left+_bev, _top+_bev, _left+_bev, _bottom-_bev
line _right-_bev, _top+_bev, _right-_bev, _bottom-_bev
next _bev
endfunction