[DBP] Dial Bars - GameCreators Forum

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Dec 2009 21:33 Edited at: 2nd Dec 2009 21:35

Link

Wasnt sure what to call this, SO hence the name Dial Bars.

here a pic.

+ Code Snippet

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60

make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,-90,0,0

do
make_color_map(rnd(800),b)
texture object 1,1

sync
loop

function make_color_map(x,y)
create bitmap 1,800,600
set current bitmap 1 
box x,0,800,600,RGB(0,255,0)
get image 1,0,0,800,600
set current bitmap 0


endfunction

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Dec 2009 21:43 Edited at: 2nd Dec 2009 21:44

Link

as above but with control over two colors and x and y position.
looks like this

+ Code Snippet

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60

make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,-90,0,0

do
make_color_map(rnd(800),rnd(600),RGB(0,0,255),RGB(0,255,0))
texture object 1,1

sync
loop

function make_color_map(x,y,color_a,color_b)
create bitmap 1,800,600
set current bitmap 1 
cls color_a
box x,y,800,600,color_b
get image 1,0,0,800,600
set current bitmap 0


endfunction

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Dec 2009 22:40 Edited at: 4th Dec 2009 21:01

Link

quicker version using set current bitmap -1.

+ Code Snippet

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,-90,0,0
xx=600
tt=timer()
dd=50
do
text 0,0,str$(xx)
make_color_map(xx,50,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0))
texture object 1,1
`if timer()>tt+dd
dec xx,1
`tt=timer()
`endif

sync
loop

function make_color_map(x,y,color_a,color_b,color_c)

set current bitmap -1
cls color_a
box x,y,800,600,color_c,color_b,color_b,color_c
`get image 1,0,0,800,600
set current bitmap 0


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: 2nd Dec 2009 22:51 Edited at: 2nd Dec 2009 22:52

Link

two tone color bar.

+ Code Snippet

Rem Project: conebars
Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600

make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,-90,0,0
xx=800
tt=timer()
dd=50
do
text 0,0,str$(xx)
make_color_map(xx,50,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0))
texture object 1,1
dec xx,1
if xx<0 then xx=800
sync
loop

function make_color_map(x,y,color_a,color_b,color_c)
set current bitmap -1
cls color_a
box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_c,color_b,color_c,color_b
`get image 1,0,0,800,600
set current bitmap 0
endfunction

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 3rd Dec 2009 00:04

Link

and this one use the blend mapping system.

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,2.5,-2.5
point camera 0,0,0
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600

create bitmap 2,800,600
make camera 2
set camera to image 2,2,800,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
inc D3DTOP_MODULATE

endif
 set blend mapping on 1,iStage,2,iTexCoordMode,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)

sync
loop

function make_color_map(x,y,color_a,color_b,color_c)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_b,color_c,color_b,color_b

set current bitmap -2
cls color_b
`box 0,0,x,y,color_a,color_c,color_a,color_c
`box x,y,800,600,color_a,color_c,color_a,color_b

set current bitmap 0
endfunction

+ Code Snippet

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,2.5,-2.5
point camera 0,0,0
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600

create bitmap 2,800,600
make camera 2
set camera to image 2,2,800,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
inc D3DTOP_MODULATE

endif
 set blend mapping on 1,iStage,2,iTexCoordMode,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)

sync
loop

function make_color_map(x,y,color_a,color_b,color_c)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_b,color_c,color_b,color_b

set current bitmap -2
cls color_b
`box 0,0,x,y,color_a,color_c,color_a,color_c
`box x,y,800,600,color_a,color_c,color_a,color_b

set current bitmap 0
endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Outscape

15

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 4th Dec 2009 15:00 Edited at: 4th Dec 2009 15:01

Link

its called a pie chart

http://en.wikipedia.org/wiki/Pie_chart

and
very nice work

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Dec 2009 15:44

Link

Thats was the word I was going to use but it did not seam right for what it could do.

Ah! justed looked at the link, seem the word would be ring charts.

oh well learned something new again

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: 4th Dec 2009 16:20

Link

Added some time markers.

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600

create bitmap 2,800,600
make camera 2
set camera to image 2,2,800,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
inc D3DTOP_MODULATE

endif
 set blend mapping on 1,1,D3DTOP_MODULATE
 iStage=1 : iTexCoordMode=12 
set blend mapping on 1,2,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)

sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_b,color_c,color_b,color_b
for l=0 to screen width() step 10
rem time markers
if l mod 50
line l,250 ,l,400
else
line l,200 ,l,400
endif

next l

set current bitmap -2
cls color_b
`box 0,0,x,y,color_a,color_c,color_a,color_c
box x,y,800,600,color_d,color_d,color_a,color_d

set current bitmap 0
endfunction

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600

create bitmap 2,800,600
make camera 2
set camera to image 2,2,800,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
inc D3DTOP_MODULATE

endif
 set blend mapping on 1,1,D3DTOP_MODULATE
 iStage=1 : iTexCoordMode=12 
set blend mapping on 1,2,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)

sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_b,color_c,color_b,color_b
for l=0 to screen width() step 10
rem time markers
if l mod 50
line l,250 ,l,400
else
line l,200 ,l,400
endif

next l

set current bitmap -2
cls color_b
`box 0,0,x,y,color_a,color_c,color_a,color_c
box x,y,800,600,color_d,color_d,color_a,color_d

set current bitmap 0
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: 4th Dec 2009 16:43 Edited at: 4th Dec 2009 16:43

Link

makers with box command. replace the marker code with this to get block markers.

+ Code Snippet

rem time markers
for l=0 to screen width() step 10

if l mod 50
box l,250,l+5,400

`line l,250 ,l,400
else

box l,200,l+5,400
`line l,200 ,l,400
endif
next l

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 4th Dec 2009 20:12

Link

i didnt know you could use bitmap -1, this isnt the screen, so where does it edit?

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Dec 2009 21:00 Edited at: 4th Dec 2009 23:01

Link

Its one of the updates that Lee did(7.3). for each camera you use a -camera_number and this the same as doing get image and then paste.

So any bitmap number can be used, you draw what you want to the bitmap then use a -number to send to the main screen.

result is no real lost in frames per screen.

edit
have found that when I plug yhis code into something that I 've been working over many years it did not work as expected.

I need to add this after making the bitmap.

+ Code Snippet

create bitmap Bit_Map_Number1,bit_size_x,bit_size_y
make camera camera_number
set camera to image camera_number,image_number,bit_size_x,bit_size_y
set current camera 0 
set current bitmap 0

adding the two set current for camera and bitmap.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Neuro Fuzzy

16

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 6th Dec 2009 00:49

Link

So when the bitmap is -1 the camera it draws to camera 0, and bitmap -2 writes to camera 1, -3 to 2, etc. Right?

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 6th Dec 2009 12:51

Link

Think so did have some code showing this, but forgot the [DBP] bit in the title so it got deleted.

If anyone did see and took a copy could you post it back up with the correct title. The new editor auto save killed the copy I had.

Would have thought that would now be redundant as all users can now use DBPro if they want to install the free version.

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: 8th Dec 2009 16:50

Link

shows the time with a clock face without using any sin cos to position the hands.

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
global done
create bitmap 1,600,600
make camera 1
set camera to image 1,1,600,600

create bitmap 2,600,600
make camera 2
set camera to image 2,2,600,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
`ghost object on 1,6
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
`inc D3DTOP_MODULATE

endif
 set blend mapping on 1,1,D3DTOP_MODULATE
 iStage=1 : iTexCoordMode=12 
set blend mapping on 1,2,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)
t$=get time$()

t=val(mid$(t$,7)+mid$(t$,8))
text 0,30,t$
text 0,40,str$(t)
sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,400,color_b,color_c,color_b,color_b
rem time markers
for l=0 to screen width() step 10

if l mod 50
box l,250,l+5,400
else
box l,200,l+5,400
endif

next l
t$=get time$()

ts=val(mid$(t$,7)+mid$(t$,8))
box  600-(ts*10),0,600-(ts*10)+5,250
tm=val(mid$(t$,4)+mid$(t$,5))
box  600-(tm*10),0,600-(tm*10)+5,220
th=val(mid$(t$,1)+mid$(t$,2))
box  600-(th*10),0,600-(th*10)+5,150

done=1
`set current bitmap -2
`cls color_b
``box 0,0,x,y,color_a,color_c,color_a,color_c
`box x,y,800,400,color_d,color_d,color_a,color_d

set current bitmap 0
endfunction

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
global done
create bitmap 1,600,600
make camera 1
set camera to image 1,1,600,600

create bitmap 2,600,600
make camera 2
set camera to image 2,2,600,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
`make object cube 2,.5
`position object 2,0,.25,0
`ghost object on 1,6
xx=800
tt=timer()
dd=5000
do
text 0,0,str$(xx)
make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1
`texture object 1,2
iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10
if xx<=0
`inc D3DTOP_MODULATE

endif
 set blend mapping on 1,1,D3DTOP_MODULATE
 iStage=1 : iTexCoordMode=12 
set blend mapping on 1,2,D3DTOP_MODULATE

dec xx,1
if xx<0 then xx=800
text 0,20,"D3DTOP_MODULATE "+str$(D3DTOP_MODULATE)
t$=get time$()

t=val(mid$(t$,7)+mid$(t$,8))
text 0,30,t$
text 0,40,str$(t)
sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
cls color_a
`box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,400,color_b,color_c,color_b,color_b
rem time markers
for l=0 to screen width() step 10

if l mod 50
box l,250,l+5,400
else
box l,200,l+5,400
endif

next l
t$=get time$()

ts=val(mid$(t$,7)+mid$(t$,8))
box  600-(ts*10),0,600-(ts*10)+5,250
tm=val(mid$(t$,4)+mid$(t$,5))
box  600-(tm*10),0,600-(tm*10)+5,220
th=val(mid$(t$,1)+mid$(t$,2))
box  600-(th*10),0,600-(th*10)+5,150



done=1
`set current bitmap -2
`cls color_b
``box 0,0,x,y,color_a,color_c,color_a,color_c
`box x,y,800,400,color_d,color_d,color_a,color_d

set current bitmap 0
endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 6th Feb 2010 16:21

Link

Wow, the clock is very cool!

You're the

'th to view this signature!

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 6th Feb 2010 16:23

Link

cheers jeffhuys , glad you liked it.

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: 8th Feb 2010 13:57 Edited at: 8th Feb 2010 13:58

Link

hi again, well the half time show on super bowl44 gave me the inspiration to make it do this.

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
global done
create bitmap 1,600,600
make camera 1
set camera to image 1,1,600,600

create bitmap 2,600,600
make camera 2
set camera to image 2,2,600,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
global sw sh
global middlewidth
global middleheight

type lineData
   txt            as string
   yOffset        as integer
endtype

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5) ` Round it properly
middleHeight = int((sh / 2.0) + 0.5) ` "
dim lines(10) as lineData
for l = 0 to 10
   lines(l).yOffset = sh - text height("|") + (20 * l)   ` Default positions
   lines(l).txt = "Line is here who will know where it goes when it leaves here and slide off " + str$(l) ` Replace with arbitrary text
next l
xx=800
dd=5000

rotate object 1 ,180,0,0	
do

make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1

iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10

set blend mapping on 1,1,D3DTOP_MODULATE

sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
 cls color_a
      for l = 0 to 10
      if (lines(l).yOffset >= middleHeight)
         continue = 1
         center text middleWidth, lines(l).yOffset, lines(l).txt
         dec lines(l).yOffset ` Decrease by one
      endif
   next l
set current bitmap 0
endfunction

+ Code Snippet

Rem Created: Wednesday, December 02, 2009

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera 0,1.5,0
point camera 0,0,0
global done
create bitmap 1,600,600
make camera 1
set camera to image 1,1,600,600

create bitmap 2,600,600
make camera 2
set camera to image 2,2,600,600

set current bitmap 0
set current camera 0
make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,0,0,0
global sw sh
global middlewidth
global middleheight

type lineData
   txt            as string
   yOffset        as integer
endtype

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5) ` Round it properly
middleHeight = int((sh / 2.0) + 0.5) ` "
dim lines(10) as lineData
for l = 0 to 10
   lines(l).yOffset = sh - text height("|") + (20 * l)   ` Default positions
   lines(l).txt = "Line is here who will know where it goes when it leaves here and slide off " + str$(l) ` Replace with arbitrary text
next l
xx=800
dd=5000

rotate object 1 ,180,0,0	
do

make_color_map(xx,75,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0),RGB(255,255,0))
texture object 1,1

iStage=1 : iTexCoordMode=1 : rem mode 0-default, 1-spherical, 2-cube, 3-use stage zeros UV data, 10-17-use UV data from stage X-10

 set blend mapping on 1,1,D3DTOP_MODULATE

sync
loop

function make_color_map(x,y,color_a,color_b,color_c,color_d)
set current bitmap -1
 cls color_a
      for l = 0 to 10
      if (lines(l).yOffset >= middleHeight)
         continue = 1
         center text middleWidth, lines(l).yOffset, lines(l).txt
         dec lines(l).yOffset ` Decrease by one
      endif
   next l
set current bitmap 0
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: 20th Apr 2010 00:05 Edited at: 20th Apr 2010 00:07

Link

small update how to use it on a transparency object.

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60

 
create bitmap 1,800,600
make camera 1
set camera to image 1,1,800,600,2 :rem 2 in alpha make it faster

make object sphere 1,1,40,40
scale object 1,100,0,100
rotate object 1,-90,0,0
xx=800
tt=timer()
dd=50
set object transparency 1,2
make object cube 2,1
position object 2,0,0,3  
do
text 0,0,str$(xx)
make_color_map(xx,50,RGB(0,0,255),RGB(0,255,0),RGB(255,0,0))

texture object 1,1
dec xx,1
if xx<0 then xx=800
yrotate object 2,wrapvalue(object angle y (2)+1)
sync
loop

function make_color_map(x,y,color_a,color_b,color_c)
set current bitmap -1
cls 0
box 0,0,x,y,color_b,color_c,color_b,color_c
box x,y,800,600,color_c,color_b,color_c,color_b
set current bitmap 0
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: 20th Apr 2010 22:03 Edited at: 21st Apr 2010 14:34

Link

another update this time you can show three power settings for example:- speed revs brakes or could be health magic intellect.

Rem ***** Main Source File *****
sync on
sync rate 60
backdrop on
autocam off
position camera 0,2,-5
set image colorkey 0,0,0 
set text size 42
rem make object and flatten and fix rotations
make object sphere 1,3,40,40
scale object 1,100,0,100
rotate object 1,-180,30,0
fix object pivot 1

rem some globals and stuff
global bx,by,height,sh,power,revs,brake
rem bitmap screen size
bx=600
by=500
height=50 :rem bar height
rem make area to make image and send to texture
create bitmap 1,bx,by
make camera 1
set camera to image 1,1,bx,by,2

rem make delay timer 
t=timer()
delay=1000
rem makes object clear
set object transparency 1,2

do
rem random position for bars not needed when you got really values
	if timer()>t+delay
		sh=by
		power=rnd(270)
		revs=rnd(270)
		brake=rnd(270)
		t=timer()
	endif
rem make the iamge and texture object
getimage()
rem just to rotate object
xrotate object 1,wrapvalue(object angle x(1)+1)
sync
loop

end

function getimage()
	set current bitmap -1
	cls 0
	showspeed(" Power",power,height,0,sh-height*2,rgb(0,155,0),rgb(0,64,0),rgb(0,155,0),rgb(0,64,0))
	showspeed("  Revs",revs,height,0,sh-(height*3),rgb(155,155,0),rgb(155,64,0),rgb(155,155,0),rgb(155,64,0))
	showspeed("Brakes",brake,height,0,sh-(height*4),rgb(155,0,155),rgb(155,0,64),rgb(155,0,155),rgb(155,0,64))
	set current bitmap 0
	texture object 1,1	
endfunction

rem make bars and adds text and colors
function showspeed(text$,x,y,posx,posy,color1,color2,color3,color4)
	tw = text width(text$)
	text 0,posy,text$
	box posx+tw,posy,(posx*2)+x+tw,posy+y,color1,color2,color3,color4
endfunction

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
backdrop on
autocam off
position camera 0,2,-5
set image colorkey 0,0,0 
set text size 42
rem make object and flatten and fix rotations
make object sphere 1,3,40,40
scale object 1,100,0,100
rotate object 1,-180,30,0
fix object pivot 1

rem some globals and stuff
global bx,by,height,sh,power,revs,brake
rem bitmap screen size
bx=600
by=500
height=50 :rem bar height
rem make area to make image and send to texture
create bitmap 1,bx,by
make camera 1
set camera to image 1,1,bx,by,2

rem make delay timer 
t=timer()
delay=1000
rem makes object clear
set object transparency 1,2

do
rem random position for bars not needed when you got really values
	if timer()>t+delay
		sh=by
		power=rnd(270)
		revs=rnd(270)
		brake=rnd(270)
		t=timer()
	endif
rem make the iamge and texture object
getimage()
rem just to rotate object
xrotate object 1,wrapvalue(object angle x(1)+1)
sync
loop

end

function getimage()
	set current bitmap -1
	cls 0
	showspeed(" Power",power,height,0,sh-height*2,rgb(0,155,0),rgb(0,64,0),rgb(0,155,0),rgb(0,64,0))
	showspeed("  Revs",revs,height,0,sh-(height*3),rgb(155,155,0),rgb(155,64,0),rgb(155,155,0),rgb(155,64,0))
	showspeed("Brakes",brake,height,0,sh-(height*4),rgb(155,0,155),rgb(155,0,64),rgb(155,0,155),rgb(155,0,64))
	set current bitmap 0
	texture object 1,1	
endfunction

rem make bars and adds text and colors
function showspeed(text$,x,y,posx,posy,color1,color2,color3,color4)
	tw = text width(text$)
	text 0,posy,text$
	box posx+tw,posy,(posx*2)+x+tw,posy+y,color1,color2,color3,color4
endfunction

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

Vues3d on Kalimee

19

Years of Service

User Offline

Joined: 12th May 2004

Location: NYON (SWITZERLAND)

Posted: 22nd Apr 2010 11:17

Link

Very nice attempt and result!

Kalimée on Facebook

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 22nd Apr 2010 17:14

Link

Thanks Vues3d on Kalimee, just showing that this is possible, someone with a better graphic capability could make this look a lot better.

Also be great when you can use circle and line when using bitmap -1

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: 26th May 2010 14:47 Edited at: 26th May 2010 15:17

Link

small update, now when you've worked out what type of color bar pattern you want it can now be secleted with bartype, plus also added segment type lines to the bars.

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, May 26, 2010

Rem ***** Main Source File *****
Rem ***** Main Source File *****
sync on
sync rate 60
backdrop on
autocam off
position camera 0,2,-5
set image colorkey 0,0,0 
set text size 42
rem make object and flatten and fix rotations
make object sphere 1,3,40,40
scale object 1,100,0,100
rotate object 1,-180,30,0
fix object pivot 1

rem some globals and stuff
global bx,by,height,sh,power,revs,brake
rem bitmap screen size
bx=600
by=500
height=50 :rem bar height
rem make area to make image and send to texture
create bitmap 1,bx,by
make camera 1
set camera to image 1,1,bx,by,2

rem make delay timer 
t=timer()
delay=1000
rem makes object clear
set object transparency 1,2

do
rem random position for bars not needed when you got really values
        if timer()>t+delay
                sh=by
                power=rnd(270)
                revs=rnd(270)
                brake=rnd(270)
                t=timer()
        endif
rem make the iamge and texture object
getimage()
rem just to rotate object
xrotate object 1,wrapvalue(object angle x(1)-.1)
sync
loop

end

function getimage()
        set current bitmap -1
        cls 0
rem showspeed() format
rem text to use at begining of bar
rem length of bar to show based on power value
rem height of bar - based on text height
rem start position on the x direction
rem sart postion on the y direction
rem four colors used
rem bartype pattern required
rem segtype pattern required
 
        showspeed(" Power",power,height,0,sh-height*2,rgb(0,155,0),rgb(0,64,0),rgb(0,155,0),rgb(0,64,0),3,1)
        showspeed("  Revs",revs,height,0,sh-(height*3),rgb(155,155,0),rgb(155,64,0),rgb(155,155,0),rgb(155,64,0),2,2)
        showspeed("Brakes",brake,height,0,sh-(height*4),rgb(155,0,155),rgb(155,0,64),rgb(155,0,155),rgb(155,0,64),1,3)
        set current bitmap 0
        texture object 1,1      
endfunction

rem make bars and adds text and colors
function showspeed(text$,x,y,posx,posy,color1,color2,color3,color4,bartype,segtype)
        tw = text width(text$)
        text 0,posy,text$
        if bartype=1
        	box posx+tw,posy,(posx*2)+x+tw,posy+y-1,color1,color2,color3,color4
        endif
        if bartype=2
        	box posx+tw,posy,(posx*2)+x+tw,posy+(y/2),color1,color2,color3,color4
        	box posx+tw,posy+(y/2),(posx*2)+x+tw,posy+y-1,color2,color1,color4,color3
		endif
		if bartype=3
        	box posx+tw,posy,(posx*2)+x+tw,posy+(y/2),color1,color2,color3,0
        	box posx+tw,posy+(y/2),(posx*2)+x+tw,posy+y-1,0,color1,color4,color3
		endif
for ls=5 to x step 6
if segtype=1
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
endif
if segtype=2
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,rgb(0,0,0),color2,rgb(0,0,0),rgb(0,0,0)
endif
if segtype=3
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,color2,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
endif
next ls

endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, May 26, 2010

Rem ***** Main Source File *****
Rem ***** Main Source File *****
sync on
sync rate 60
backdrop on
autocam off
position camera 0,2,-5
set image colorkey 0,0,0 
set text size 42
rem make object and flatten and fix rotations
make object sphere 1,3,40,40
scale object 1,100,0,100
rotate object 1,-180,30,0
fix object pivot 1

rem some globals and stuff
global bx,by,height,sh,power,revs,brake
rem bitmap screen size
bx=600
by=500
height=50 :rem bar height
rem make area to make image and send to texture
create bitmap 1,bx,by
make camera 1
set camera to image 1,1,bx,by,2

rem make delay timer 
t=timer()
delay=1000
rem makes object clear
set object transparency 1,2

do
rem random position for bars not needed when you got really values
        if timer()>t+delay
                sh=by
                power=rnd(270)
                revs=rnd(270)
                brake=rnd(270)
                t=timer()
        endif
rem make the iamge and texture object
getimage()
rem just to rotate object
xrotate object 1,wrapvalue(object angle x(1)-.1)
sync
loop

end

function getimage()
        set current bitmap -1
        cls 0
rem showspeed() format
rem text to use at begining of bar
rem length of bar to show based on power value
rem height of bar - based on text height
rem start position on the x direction
rem sart postion on the y direction
rem four colors used
rem bartype pattern required
rem segtype pattern required
 
        showspeed(" Power",power,height,0,sh-height*2,rgb(0,155,0),rgb(0,64,0),rgb(0,155,0),rgb(0,64,0),3,1)
        showspeed("  Revs",revs,height,0,sh-(height*3),rgb(155,155,0),rgb(155,64,0),rgb(155,155,0),rgb(155,64,0),2,2)
        showspeed("Brakes",brake,height,0,sh-(height*4),rgb(155,0,155),rgb(155,0,64),rgb(155,0,155),rgb(155,0,64),1,3)
        set current bitmap 0
        texture object 1,1      
endfunction

rem make bars and adds text and colors
function showspeed(text$,x,y,posx,posy,color1,color2,color3,color4,bartype,segtype)
        tw = text width(text$)
        text 0,posy,text$
        if bartype=1
        	box posx+tw,posy,(posx*2)+x+tw,posy+y-1,color1,color2,color3,color4
        endif
        if bartype=2
        	box posx+tw,posy,(posx*2)+x+tw,posy+(y/2),color1,color2,color3,color4
        	box posx+tw,posy+(y/2),(posx*2)+x+tw,posy+y-1,color2,color1,color4,color3
		endif
		if bartype=3
        	box posx+tw,posy,(posx*2)+x+tw,posy+(y/2),color1,color2,color3,0
        	box posx+tw,posy+(y/2),(posx*2)+x+tw,posy+y-1,0,color1,color4,color3
		endif
for ls=5 to x step 6
if segtype=1
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
endif
if segtype=2
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,rgb(0,0,0),color2,rgb(0,0,0),rgb(0,0,0)
endif
if segtype=3
	box posx+tw+ls,posy,posx+tw+ls+1,posy+y,color2,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
endif
next ls
 

endfunction

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

garlantinapple

13

Years of Service

User Offline

Joined: 6th Jul 2010

Location:

Posted: 17th Jul 2010 10:06

Link

Thats was the word I was going to use but it did not seam right for what it could do.

Back to top

Profile PM Website

Sorry your browser is not supported!

Code Snippets / [DBP] Dial Bars

Attachments

Attachments

Attachments

Attachments

Attachments