Support Forum / Форум поддержки

' I forgot to use the graphics lock and unlock mechanism. ' Moreover the filling lines are now drawn from the centre of gravity point of the figure, wich makes the line shorter, and ' less lines are needed (about 50%). ' option base 1 option angle degrees dim x(10),y(10) for i=1 to 5   read x(i),y(i...

option base 1 dim x(10),y(10) for i=1 to 5   read x(i),y(i)   next i data 220,600, 240,260, 500,220, 600,500, 350,700 graphics graphics clear .8,.8,.8 fill_poly(5,x,y,0.2,0.8,0.5,1) draw_poly(5,x,y,1,0,0,3) end def draw_poly(n,x(),y(),r,g,b,thick) draw color r,g,b ! draw size thick n=n+1 ! x(n)=x(1)...

'  "Automaton" '  The "automaton" is a very simple digital machine,  '  extensively described in the  december 1986 edition of the Byte  '  magazine. It consists of a one-dimensional array of elements '  that can each have 1 out of 4 statusses. '  By assigning a color to each of the statusses, the a...

Nice effect, the "glowing" globe.
Congrats with your first SB program. As you can see, I'm also porting some of my programs from the Basic! forum. Now busy to rewrite the "Automaton". The much higher execution speed of SB is an advantage here.

'  "Automaton" '  The "automaton" is a very simple digital machine,  '  extensively described in the  december 1986 edition of the Byte  '  magazine. It consists of a one-dimensional array of elements '  that can each have 1 out of 4 statusses. '  By assigning a color to each of the statusses, the a...

option angle degrees graphics fill color .8,.8,.8 graphics clear .8,.8,.8 rad=150 rmeter("km/hr","R",200,200,rad,0,200,0,1) rmeter("RPM","b",500,200,130,20,60,0,1) for t=0 to 2000 step 3   speed=70+60*sin(t) ! rpm=40+20*sin(-.7*t)   rmeter("km/hr","R",200,200,rad,0,200,speed,0)   rmeter("RPM","b",50...

Nice portable (def) sliders... :D How can I make the blue slider transparent ( alpha ) ? Tried but made all but the blue one transparent... All sliders use the same function code. You "personalize" each occurance of a slider via the parameters passed in the calling statements. So, if you want one s...

gosub init_prog loop1: if ind(1)>=0 then r=ind(1)/100 if ind(2)>=0 then g=ind(2)/100 if ind(3)>=0 then b=ind(3)/100 fill color r,0,0 fill rect x(1)+2,yo-158 to x(1)+78,yo-62 fill color 0,g,0 fill rect x(2)+2,yo-158 to x(2)+78,yo-62 fill color 0,0,b fill rect x(3)+2,yo-158 to x(3)+78,yo-62 fill color...

These sliders cannot be used simultaneously. Indeed! They are polled one after another. But i think it is a theoretical point. In practice one would operate only one slider at the time. Moreover, due to limitations of SB one could never operate more than 11 sliders simultaneously :D . This too is a...

Mr. Kibernetik wrote:I found what was the problem with this error.
Try touching top toolbar, and you will understand what happens - negative Y is allowed.

Thanks for debugging ☺ i'll look into it.