[DBP] 7 Segment Display Function - Useful for score display etc.

Author

Message

Pricey

22

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 22nd Aug 2008 23:10

Link

sync on
sync rate 60

dim dig(9,7) : restore digits : for rd = 0 to 9 : for rl = 1 to 7 : read dig(rd,rl) : next rl : next rd

do

drawdigit(20,20,n,9,rgb(255,0,0))

n = n + 14

sync

loop

function drawdigit(x,y,n,d,c)
n$ = str$(n)
f$ = ""
if len(n$) < d : for ff = 1 to d-len(n$) : f$ = f$ + "0" : next ff : endif
n$ = f$ + n$
for df = 1 to len(n$)
f = val(mid$(n$,df))
if dig(f,1) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y,x+5,y
if dig(f,4) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+5,x+5,y+5
if dig(f,7) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+10,x+5,y+10
if dig(f,2) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y,x,y+5
if dig(f,3) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x+5,y,x+5,y+5
if dig(f,5) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+5,x,y+10
if dig(f,6) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x+5,y+5,x+5,y+10
x = x + 7
next df
endfunction

digits:
data 1,1,1,0,1,1,1,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,0,1,0
data 1,1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,0

+ Code Snippet

sync on
sync rate 60

dim dig(9,7) : restore digits : for rd = 0 to 9 : for rl = 1 to 7 : read dig(rd,rl) : next rl : next rd

do

drawdigit(20,20,n,9,rgb(255,0,0))

n = n + 14

sync

loop

function drawdigit(x,y,n,d,c)
n$ = str$(n)
f$ = ""
if len(n$) < d : for ff = 1 to d-len(n$) : f$ = f$ + "0" : next ff : endif
n$ = f$ + n$
for df = 1 to len(n$)
f = val(mid$(n$,df))
if dig(f,1) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y,x+5,y
if dig(f,4) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+5,x+5,y+5
if dig(f,7) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+10,x+5,y+10
if dig(f,2) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y,x,y+5
if dig(f,3) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x+5,y,x+5,y+5
if dig(f,5) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x,y+5,x,y+10
if dig(f,6) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
line x+5,y+5,x+5,y+10
x = x + 7
next df
endfunction

digits:
data 1,1,1,0,1,1,1,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,0,1,0
data 1,1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,0

This function will emulate the 7 segment LCD display as found on calculators and other electronic devices.
You could use this for any number of things, but what I had in mind was score displays in futuristic styled games.

drawdigit(X position, Y position, Number to display, Digits in display, RGB colour value)

Run the example to get the idea. If there are less digits in the 'number to display' than specified in the 'digits to display' then the gaps will be filled in with zeros.

http://forum.thegamecreators.com/?m=forum_view&t=97191&b=32
God Of Thunder DEMO

Back to top

Profile PM Email

Mr Tank

22

Years of Service

User Offline

Joined: 25th Nov 2002

Location: United Kingdom

Posted: 23rd Aug 2008 00:25

Link

That looks surprisingly awesome. Reminds me of the gun counters in Aliens etc.

SBSX
[http://forum.thegamecreators.com/?m=forum_view&b=8&t=134372]ASTEROID WORLDS[/url]

Back to top

Profile PM Website

Pricey

22

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 23rd Aug 2008 02:08

Link

Thanks tank.

http://forum.thegamecreators.com/?m=forum_view&t=97191&b=32
God Of Thunder DEMO

Back to top

Profile PM Email

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 27th Aug 2008 09:17

Link

I made one with thickness a while ago, but it's much slower than yours:

Do

CLS

electro_digit3(8,8,x,4)

inc x
Loop

function electro_digit(Xpos as integer, Ypos as integer, L1 as boolean, L2 as boolean, L3 as boolean, L4 as boolean, L5 as boolean, L6 as boolean, L7 as boolean)

XPos=XPos+4
YPos=YPos+4

For y = -2 to 2
For x = 2+ABS(y) to 30-ABS(y)

If L1 then DOT x+0+Xpos,y+0+Ypos
If L2 then DOT y+0+Xpos,x+0+Ypos
If L3 then DOT y+32+Xpos,x+0+Ypos
If L4 then DOT x+0+Xpos,y+32+Ypos
If L5 then DOT y+0+Xpos,x+32+Ypos
If L6 then DOT y+32+Xpos,x+32+Ypos
If L7 then DOT x+0+Xpos,y+64+Ypos

Next x
Next y

endfunction

function electro_digit2(X as integer, Y as integer, digit as integer)

If digit=1 then electro_digit(X,Y,0,0,1,0,0,1,0)
If digit=2 then electro_digit(X,Y,1,0,1,1,1,0,1)
If digit=3 then electro_digit(X,Y,1,0,1,1,0,1,1)
If digit=4 then electro_digit(X,Y,0,1,1,1,0,1,0)
If digit=5 then electro_digit(X,Y,1,1,0,1,0,1,1)
If digit=6 then electro_digit(X,Y,1,1,0,1,1,1,1)
If digit=7 then electro_digit(X,Y,1,0,1,0,0,1,0)
If digit=8 then electro_digit(X,Y,1,1,1,1,1,1,1)
If digit=9 then electro_digit(X,Y,1,1,1,1,0,1,1)
If digit=0 then electro_digit(X,Y,1,1,1,0,1,1,1)

endfunction

function electro_digit3(X as integer, Y as integer, digits as integer, length as integer)

digits$=STR$(digits)

For z = 1 to length

a$=a$+"0"

Next z

digits$=a$+digits$
digits$=RIGHT$(digits$,length)

For z = 1 to length

electro_digit2(X+(z*48)-48,Y,VAL(MID$(digits$,z)))

Next z

endfunction

+ Code Snippet

Do

CLS

electro_digit3(8,8,x,4)

inc x
Loop

function electro_digit(Xpos as integer, Ypos as integer, L1 as boolean, L2 as boolean, L3 as boolean, L4 as boolean, L5 as boolean, L6 as boolean, L7 as boolean)

XPos=XPos+4
YPos=YPos+4

For y = -2 to 2
For x = 2+ABS(y) to 30-ABS(y)

If L1 then DOT x+0+Xpos,y+0+Ypos
If L2 then DOT y+0+Xpos,x+0+Ypos
If L3 then DOT y+32+Xpos,x+0+Ypos
If L4 then DOT x+0+Xpos,y+32+Ypos
If L5 then DOT y+0+Xpos,x+32+Ypos
If L6 then DOT y+32+Xpos,x+32+Ypos
If L7 then DOT x+0+Xpos,y+64+Ypos

Next x
Next y

endfunction

function electro_digit2(X as integer, Y as integer, digit as integer)

If digit=1 then electro_digit(X,Y,0,0,1,0,0,1,0)
If digit=2 then electro_digit(X,Y,1,0,1,1,1,0,1)
If digit=3 then electro_digit(X,Y,1,0,1,1,0,1,1)
If digit=4 then electro_digit(X,Y,0,1,1,1,0,1,0)
If digit=5 then electro_digit(X,Y,1,1,0,1,0,1,1)
If digit=6 then electro_digit(X,Y,1,1,0,1,1,1,1)
If digit=7 then electro_digit(X,Y,1,0,1,0,0,1,0)
If digit=8 then electro_digit(X,Y,1,1,1,1,1,1,1)
If digit=9 then electro_digit(X,Y,1,1,1,1,0,1,1)
If digit=0 then electro_digit(X,Y,1,1,1,0,1,1,1)

endfunction

function electro_digit3(X as integer, Y as integer, digits as integer, length as integer)

digits$=STR$(digits)

For z = 1 to length

a$=a$+"0"

Next z

digits$=a$+digits$
digits$=RIGHT$(digits$,length)

For z = 1 to length

electro_digit2(X+(z*48)-48,Y,VAL(MID$(digits$,z)))

Next z

endfunction

The optomist's right, The pessimist's right.

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Aug 2008 21:13

Link

Surprisingly simple - I like it.

Back to top

Profile PM Email

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 29th Aug 2008 15:04

Link

True, looks quite good. However, you should use box instead of line to draw the lines (they all seem to be vertical or horizontal) due to its higher speed. At least for me the box-command runs as fast as pase image or paste sprite, line on the other hand is quite slow.

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 3rd Sep 2008 01:23 Edited at: 3rd Sep 2008 01:25

Link

Wow that's really nice

! I made Mr. Kohlenstoff's sugguested change and it looks a tad different... But now one can change thickness.

sync rate 60

dim dig(9,7) : restore digits : for rd = 0 to 9 : for rl = 1 to 7 : read dig(rd,rl) : next rl : next rd

do

drawdigit(20,20,n,9,rgb(255,0,0))

n = n + 14

sync

loop

function drawdigit(x,y,n,d,c)
n$ = str$(n)
f$ = ""
if len(n$) < d : for ff = 1 to d-len(n$) : f$ = f$ + "0" : next ff : endif
n$ = f$ + n$
for df = 1 to len(n$)
f = val(mid$(n$,df))
if dig(f,1) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y,x+5,y )
if dig(f,4) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+5,x+5,y+5 )
if dig(f,7) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+10,x+5,y+10 )
if dig(f,2) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y,x,y+5 )
if dig(f,3) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x+5,y,x+5,y+5 )
if dig(f,5) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+5,x,y+10 )
if dig(f,6) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x+5,y+5,x+5,y+10 )
x = x + 7
next df
endfunction

function boxline(X1,Y1,X2,Y2)
   Thick=1
    if X1=X2 then box X1-Thick/2.0,Y1,X2+0.5,Y2 : else : box X1,Y1-0.5,X2,Y2+Thick/2.0
Endfunction

digits:
data 1,1,1,0,1,1,1,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,0,1,0
data 1,1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,0

+ Code Snippet

sync rate 60

dim dig(9,7) : restore digits : for rd = 0 to 9 : for rl = 1 to 7 : read dig(rd,rl) : next rl : next rd

do

drawdigit(20,20,n,9,rgb(255,0,0))

n = n + 14

sync

loop

function drawdigit(x,y,n,d,c)
n$ = str$(n)
f$ = ""
if len(n$) < d : for ff = 1 to d-len(n$) : f$ = f$ + "0" : next ff : endif
n$ = f$ + n$
for df = 1 to len(n$)
f = val(mid$(n$,df))
if dig(f,1) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y,x+5,y )
if dig(f,4) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+5,x+5,y+5 )
if dig(f,7) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+10,x+5,y+10 )
if dig(f,2) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y,x,y+5 )
if dig(f,3) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x+5,y,x+5,y+5 )
if dig(f,5) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x,y+5,x,y+10 )
if dig(f,6) = 1 : ink c,0 : else : ink rgb(92,92,92),0 : endif
boxline( x+5,y+5,x+5,y+10 )
x = x + 7
next df
endfunction

function boxline(X1,Y1,X2,Y2)
   Thick=1
    if X1=X2 then box X1-Thick/2.0,Y1,X2+0.5,Y2 : else : box X1,Y1-0.5,X2,Y2+Thick/2.0
Endfunction

digits:
data 1,1,1,0,1,1,1,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,0,1,0
data 1,1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,0

Snow Demo

Back to top

Profile PM Email

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 5th Sep 2008 11:44

Link

Using BOX you can just create rectangles, whereas the segments are not rectangles (they taper to a point on each side)

The optomist's right, The pessimist's right.

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DBP] 7 Segment Display Function - Useful for score display etc.