[DBP] Audio bars or graphic bars.

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Nov 2009 00:42 Edited at: 21st Nov 2009 14:30

Link

Small function that let you position the bars and size to use if you sound or speed or helath bars.

Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
RANDOMIZE timer()
INK RGB(0,255,0)
global volume as float
global max_vol as float
global text_max$
delay=1000
t=timer()
DO
volume=RND(68)
if timer()>t+delay 
    speed_bar(volume,68,240,440,325.0)
    t=timer()
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float)
ink rgb(255,255,255),0
pp#=(volume/max_value*100)*(barsize_x-10)/100 
`p#=p#/barsize_x
rem text blacker
box bar_x,bar_y-10,bar_x+barsize_x+20,bar_y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem moving green bar
BOX bar_x+5,bar_y+5,bar_x+5+pp#,bar_y+10,rgb(0,255,0),rgb(64,64,64),rgb(0,255,0),rgb(64,64,64)
BOX bar_x+5,bar_y+10,bar_x+5+pp#,bar_y+20,rgb(64,64,64),rgb(0,255,0),rgb(64,64,64),rgb(0,255,0)
rem text for moving bar top and bottom
ink rgb(255,255,255),0
text bar_x+5+pp#,bar_y-12,str$(volume,0)
   	rem black lines
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
	rem max keeper
    if pp#>max_vol 
		max_vol=pp#
		text_max$=str$(volume)
		else
		rem draw red line
		if max_vol>0
			ink rgb(255,0,0),0
			text bar_x+5+max_vol,bar_y-12,text_max$
    		BOX bar_x+5+max_vol-1,bar_y+5,bar_x+5+max_vol+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
        endif
    endif 
   endfunction

+ Code Snippet

Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
RANDOMIZE timer()
INK RGB(0,255,0)
global volume as float
global max_vol as float
global text_max$
delay=1000
t=timer()
DO
volume=RND(68)
if timer()>t+delay 
    speed_bar(volume,68,240,440,325.0)
    t=timer()
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float)
ink rgb(255,255,255),0
pp#=(volume/max_value*100)*(barsize_x-10)/100 
`p#=p#/barsize_x
rem text blacker
box bar_x,bar_y-10,bar_x+barsize_x+20,bar_y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem moving green bar
BOX bar_x+5,bar_y+5,bar_x+5+pp#,bar_y+10,rgb(0,255,0),rgb(64,64,64),rgb(0,255,0),rgb(64,64,64)
BOX bar_x+5,bar_y+10,bar_x+5+pp#,bar_y+20,rgb(64,64,64),rgb(0,255,0),rgb(64,64,64),rgb(0,255,0)
rem text for moving bar top and bottom
ink rgb(255,255,255),0
text bar_x+5+pp#,bar_y-12,str$(volume,0)
   	rem black lines
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
	rem max keeper
    if pp#>max_vol 
		max_vol=pp#
		text_max$=str$(volume)
		else
		rem draw red line
		if max_vol>0
			ink rgb(255,0,0),0
			text bar_x+5+max_vol,bar_y-12,text_max$
    		BOX bar_x+5+max_vol-1,bar_y+5,bar_x+5+max_vol+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
        endif
    endif 
   endfunction

as above but with a 3d object on screen.

Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
color backdrop 0
autocam off
position camera 0,0,-10
make object cube 1,1
RANDOMIZE timer()
INK RGB(0,255,0)
global volume as float
global max_vol as float
global text_max$
delay=1000
t=timer()
DO
rotate object 1, wrapvalue(object angle x(1))+1,0,0 
if timer()>t+delay 
volume=RND(68)
    speed_bar(volume,68,240,440,325.0)
    t=timer()
    else
    speed_bar(volume,68,240,440,325.0)
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float)
ink rgb(255,255,255),0
pp#=(volume/max_value*100)*(barsize_x-10)/100 
`p#=p#/barsize_x
rem text blacker need if not using cls and have not put an object on screen.
`box bar_x,bar_y-10,bar_x+barsize_x+20,bar_y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem moving green bar
BOX bar_x+5,bar_y+5,bar_x+5+pp#,bar_y+10,rgb(0,255,0),rgb(64,64,64),rgb(0,255,0),rgb(64,64,64)
BOX bar_x+5,bar_y+10,bar_x+5+pp#,bar_y+20,rgb(64,64,64),rgb(0,255,0),rgb(64,64,64),rgb(0,255,0)
rem text for moving bar top and bottom
ink rgb(255,255,255),0
text bar_x+5+pp#,bar_y-12,str$(volume,0)
   	rem black lines
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
	rem max keeper
    if pp#>max_vol 
		max_vol=pp#
		text_max$=str$(volume)
		else
		rem draw red line
		if max_vol>0
			ink rgb(255,0,0),0
			text bar_x+5+max_vol,bar_y-12,text_max$
    		BOX bar_x+5+max_vol-1,bar_y+5,bar_x+5+max_vol+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
        endif
    endif 
   endfunction

+ Code Snippet

Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
color backdrop 0
autocam off
position camera 0,0,-10
make object cube 1,1
RANDOMIZE timer()
INK RGB(0,255,0)
global volume as float
global max_vol as float
global text_max$
delay=1000
t=timer()
DO
rotate object 1, wrapvalue(object angle x(1))+1,0,0 
if timer()>t+delay 
volume=RND(68)
    speed_bar(volume,68,240,440,325.0)
    t=timer()
    else
    speed_bar(volume,68,240,440,325.0)
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float)
ink rgb(255,255,255),0
pp#=(volume/max_value*100)*(barsize_x-10)/100 
`p#=p#/barsize_x
rem text blacker need if not using cls and have not put an object on screen.
`box bar_x,bar_y-10,bar_x+barsize_x+20,bar_y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem moving green bar
BOX bar_x+5,bar_y+5,bar_x+5+pp#,bar_y+10,rgb(0,255,0),rgb(64,64,64),rgb(0,255,0),rgb(64,64,64)
BOX bar_x+5,bar_y+10,bar_x+5+pp#,bar_y+20,rgb(64,64,64),rgb(0,255,0),rgb(64,64,64),rgb(0,255,0)
rem text for moving bar top and bottom
ink rgb(255,255,255),0
text bar_x+5+pp#,bar_y-12,str$(volume,0)
   	rem black lines
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
	rem max keeper
    if pp#>max_vol 
		max_vol=pp#
		text_max$=str$(volume)
		else
		rem draw red line
		if max_vol>0
			ink rgb(255,0,0),0
			text bar_x+5+max_vol,bar_y-12,text_max$
    		BOX bar_x+5+max_vol-1,bar_y+5,bar_x+5+max_vol+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
        endif
    endif 
   endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Nov 2009 18:59 Edited at: 27th Nov 2009 18:03

Link

bit of a change now the function can be use with many boxes and lables and the code is set to have bars start in the center, chage the 2 to 0 to get a normal left to right moving bar .

function call
volume = your changing values.
100 = what the bars max count is.
50 = x position.
200 = y position.
350 = length of box.
"Temp" = lable for box.
0 = used to keep track of many boxes.
2 = used to put bar into center of box.

code in color

Rem Project: movingbars3
Rem Created: Wednesday, November 25, 2009

Rem ***** Main Source File *****
Rem Project: wind_speed
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
RANDOMIZE timer()
INK RGB(0,255,0)
color backdrop 0
rem set some globals and dims 
global volume as float
dim max_vol(5)
dim min_vol(5)
global text_max$
dim max_rec(5)
dim min_rec(5)

delay=1000
t=timer()
rem object here just so it does not need a cls in code
make object cube 1,.1
DO

if timer()>t+delay 
	volume=-50+RND(100)
rem function call
rem volume = your changing values.
rem 100 = what the bars max count is.
rem 50 = x position.
rem 200 = y position.
rem 350 = length of box.
rem "Temp" = lable for box.
rem 0 = used to keep track of many boxes.
rem 2 = used to put bar into center of box.
    speed_bar(volume,100,50,200,350,"Temp",0,2)
    t=timer()
    else
    speed_bar(volume,100,50,200,350,"Temp",0,2)
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float,sign$,dig,startpoint)
ink rgb(255,255,255),0
rem if sstartpoint not zero then it works out center
sp=barsize_x/startpoint
rem works out precentage
pp#=(volume/max_value*100)*barsize_x/100

rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem move red bar right
if pp#>0
	BOX bar_x+5+sp,bar_y+5,bar_x+5+sp+pp#,bar_y+12,rgb((pp#/255*100/100.0*255), 0, 0),rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0),rgb(64,64,64)
	BOX bar_x+5+sp,bar_y+12,bar_x+5+sp+pp#,bar_y+20,rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0),rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0)
	else
	rem move blue bar left
	if pp#<0
		BOX bar_x+5+sp,bar_y+5,bar_x+5+sp+pp#,bar_y+12,rgb(0, 0, 255+(pp#/255*100/100.0*255)),rgb(64,64,64),rgb(0, 0,255+(pp#/255*100/100.0*255)),rgb(64,64,64)
		BOX bar_x+5+sp,bar_y+12,bar_x+5+sp+pp#,bar_y+20,rgb(64,64,64),rgb(0, 0,255+(pp#/255*100/100.0*255)),rgb(64,64,64),rgb(0, 0, 255+(pp#/255*100/100.0*255))
	endif
endif

rem black lines placed over above bars
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
rem white line at end
BOX bar_x+5+sp+pp#,bar_y+5,bar_x+5+sp+pp#+1,bar_y+20, RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255)

rem max min keeper
    if pp#>max_vol(dig) 
		max_rec(dig)=volume
		max_vol(dig)=pp#
		else
		if pp#<min_vol(dig)
		min_rec(dig)=volume
		min_vol(dig)=pp#
		endif
	endif
	rem draw red line
	if max_vol(dig)>0
		ink rgb(255,0,0),0
		text bar_x+5+sp+max_vol(dig),bar_y-12,str$(max_rec(dig),1)
		BOX bar_x+5+sp+max_vol(dig)-1,bar_y+5,bar_x+5+sp+max_vol(dig)+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
    	endif
    if min_vol(dig)<0
    	ink rgb(255,0,0),0
		text bar_x+5+sp+min_vol(dig),bar_y-12,str$(min_rec(dig),1)
		BOX bar_x+5+sp+min_vol(dig)-1,bar_y+5,bar_x+5+sp+min_vol(dig)+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
    endif
    rem text for moving bar top and end
ink rgb(255,255,255),0
text bar_x+5+sp+pp#,bar_y-12,str$(volume,1)
text bar_x+barsize_x+5,bar_y+3,sign$
  
endfunction

+ Code Snippet

Rem Project: movingbars3
Rem Created: Wednesday, November 25, 2009

Rem ***** Main Source File *****
Rem Project: wind_speed
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
Rem Project: movingbars
Rem Created: Friday, November 20, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
RANDOMIZE timer()
INK RGB(0,255,0)
color backdrop 0
rem set some globals and dims 
global volume as float
dim max_vol(5)
dim min_vol(5)
global text_max$
dim max_rec(5)
dim min_rec(5)

delay=1000
t=timer()
rem object here just so it does not need a cls in code
make object cube 1,.1
DO

if timer()>t+delay 
	volume=-50+RND(100)
rem function call
rem volume = your changing values.
rem 100 = what the bars max count is.
rem 50 = x position.
rem 200 = y position.
rem 350 = length of box.
rem "Temp" = lable for box.
rem 0 = used to keep track of many boxes.
rem 2 = used to put bar into center of box.
    speed_bar(volume,100,50,200,350,"Temp",0,2)
    t=timer()
    else
    speed_bar(volume,100,50,200,350,"Temp",0,2)
    endif
    sync
LOOP

function speed_bar(volume as float,max_value,bar_x,bar_y,barsize_x as float,sign$,dig,startpoint)
ink rgb(255,255,255),0
rem if sstartpoint not zero then it works out center
sp=barsize_x/startpoint
rem works out precentage
pp#=(volume/max_value*100)*barsize_x/100

rem grey back box
box bar_x,bar_y+3,bar_x+barsize_x,bar_y+12,rgb(64,64,255),rgb(64,64,64),rgb(64,64,255),rgb(64,64,64)
box bar_x,bar_y+12,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,255),rgb(64,64,64),rgb(64,64,255)
rem gery ends 
box bar_x,bar_y+3,bar_x+5,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
box bar_x+barsize_x-5,bar_y+3,bar_x+barsize_x,bar_y+22,rgb(64,64,64),rgb(64,64,64),rgb(64,64,64),rgb(64,64,64)
rem move red bar right
if pp#>0
	BOX bar_x+5+sp,bar_y+5,bar_x+5+sp+pp#,bar_y+12,rgb((pp#/255*100/100.0*255), 0, 0),rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0),rgb(64,64,64)
	BOX bar_x+5+sp,bar_y+12,bar_x+5+sp+pp#,bar_y+20,rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0),rgb(64,64,64),rgb((pp#/255*100/100.0*255), 0,0)
	else
	rem move blue bar left
	if pp#<0
		BOX bar_x+5+sp,bar_y+5,bar_x+5+sp+pp#,bar_y+12,rgb(0, 0, 255+(pp#/255*100/100.0*255)),rgb(64,64,64),rgb(0, 0,255+(pp#/255*100/100.0*255)),rgb(64,64,64)
		BOX bar_x+5+sp,bar_y+12,bar_x+5+sp+pp#,bar_y+20,rgb(64,64,64),rgb(0, 0,255+(pp#/255*100/100.0*255)),rgb(64,64,64),rgb(0, 0, 255+(pp#/255*100/100.0*255))
	endif
endif

   	rem black lines placed over above bars
   	for ii= 0 to barsize_x-5 step 5
		ink 0,0
		line bar_x+5+ii,bar_y+5, bar_x+5+ii,bar_y+20    
	next ii
rem white line at end
BOX bar_x+5+sp+pp#,bar_y+5,bar_x+5+sp+pp#+1,bar_y+20, RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255)

	rem max min keeper
    if pp#>max_vol(dig) 
		max_rec(dig)=volume
		max_vol(dig)=pp#
		else
		if pp#<min_vol(dig)
		min_rec(dig)=volume
		min_vol(dig)=pp#
		endif
	endif
	rem draw red line
	if max_vol(dig)>0
		ink rgb(255,0,0),0
		text bar_x+5+sp+max_vol(dig),bar_y-12,str$(max_rec(dig),1)
		BOX bar_x+5+sp+max_vol(dig)-1,bar_y+5,bar_x+5+sp+max_vol(dig)+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
    	endif
    if min_vol(dig)<0
    	ink rgb(255,0,0),0
		text bar_x+5+sp+min_vol(dig),bar_y-12,str$(min_rec(dig),1)
		BOX bar_x+5+sp+min_vol(dig)-1,bar_y+5,bar_x+5+sp+min_vol(dig)+1,bar_y+20, RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0)
    endif
    rem text for moving bar top and end
ink rgb(255,255,255),0
text bar_x+5+sp+pp#,bar_y-12,str$(volume,1)
text bar_x+barsize_x+5,bar_y+3,sign$
  
endfunction

Dark Physics makes any hot drink go cold.