Emulating a ECG - GameCreators Forum

Author

Message

chicken man

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location:

Posted: 5th Jun 2007 18:51

Link

Ok so here is the idea, I want to emulate the output of a ECG on part of the screen (for a game I am making), if you do not know what a ECG is look here

The problem is I do not know how to do this, so any ideas would be very helpful.

Also does anyone know how to make a function call every X milliseconds ?

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Jun 2007 19:13

Link

Quote: "Also does anyone know how to make a function call every X milliseconds ? "

You either have to do it manually using a timer variable, or there is a function is the Styx Plugin that allows it.

Back to top

Profile PM Email

chicken man

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location:

Posted: 5th Jun 2007 20:30

Link

Hmmm timer, I've always had problems with that.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th Jun 2007 22:14

Link

OK - not being particularly familiar with DBPro, I just wrote a quick program to do what you wanted in DBC - thinking it would take a few seconds to convert it to DBPro...

How wrong could I be!

First of all, I can't figure out how to draw a box without anti-aliasing in DBP.

Ink RGB(255,0,0),0
Box 10,10,100,100

in DBC works fine and you get a solid red box, but in DBP, the same code results in the red box having a single pixel dark red border around it.

Must be simple to do, so how do you turn it off?

I can post the working DBC version if it's of any help BTW...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Twinsen

18

Years of Service

User Offline

Joined: 20th Jun 2006

Location: Romania

Posted: 5th Jun 2007 23:12

Link

lol it's so simple ... in the main loop, make a variable called TIMER and make it increment by 1 every iteration ... now u have a timer ... now u can make a condition like this :

IF TIMER > 10000 ( or whatever )
do what u want to do
TIMER=0
ENDIF

Could you help me treat my injured Dino-Fly ?

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Jun 2007 23:44

Link

If you want a consistent real-time timer you need to be alittle more detailed with your code, here it is for 500 milliseconds:

+ Code Snippet

time = timer()
` MAIN LOOP
DO

   ` Main Code Goes here

   IF Timer() > time + 500
      UpdateECG()
      time = timer()
   ENDIF

LOOP

Back to top

Profile PM Email

chicken man

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location:

Posted: 5th Jun 2007 23:51

Link

This works fine for me:
ink rgb(255,0,0),0
box 10,10,100,100

That kind of timer would do for most people but I need a more exact one.

The best I've got so far is drawing a slightly bumpy wave that repeats across the screen.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 7th Jun 2007 08:10

Link

Here's the DBC version - haven't got time to convert it to DBP.

If you've got DBC you cab convert it yourself.

DispTopLeftX = 100
DispTopLeftY = 100
DispWidth = 600
DispHeight = 100
DispVCentre = DispTopLeftY + (DispHeight/2)
HeartRate = 72: Rem BPM
HRInterval = 60000 / HeartRate
RiseSpeed = 4
Peak = 32
True = 1: False = 0
Rising = True

Set Display Mode 800,600,32
Sync On: Sync Rate 0

Ink RGB(255,255,255),0: Box DispTopLeftX-1, DispTopLeftY-1, DispTopLeftX+DispWidth+2, DispTopLeftY+DispHeight+2
Ink 0,0: Box DispTopLeftX, DispTopLeftY, DispTopLeftX+DispWidth+1, DispTopLeftY+DispHeight+1
Get Image 1001,DispTopLeftX+DispWidth+1,DispTopLeftY+1,DispTopLeftX+DispWidth+2,DispTopLeftY+DispHeight+2,1
Ink RGB(255,255,255),0

T = Timer()
Do

Elapsed = Timer()-T
  If Elapsed >= HRInterval Then Beat = True: T = Timer()

If Beat = True
    Inc Pressure,RiseSpeed
    If Pressure >= Peak
      RiseSpeed = 0-RiseSpeed
      Rising = False
    Endif
    If Pressure <= 0-(Peak/4*3)
      RiseSpeed = 0-RiseSpeed
      Rising = True
    Endif
    If Pressure = 0 and Rising = True Then Beat = False: rem T = Timer()
  Endif

Dot DispTopLeftX+DispWidth+1,DispVCentre-Pressure
  Get Image 1000,DispTopLeftX+2,DispTopLeftY+1,DispTopLeftX+DispWidth+2,DispTopLeftY+DispHeight+2,1
  Paste Image 1000,DispTopLeftX+1,DispTopLeftY+1
  Paste Image 1001,DispTopLeftX+DispWidth+1,DispTopLeftY+1

Sync
Loop

+ Code Snippet

DispTopLeftX = 100
DispTopLeftY = 100
DispWidth = 600
DispHeight = 100
DispVCentre = DispTopLeftY + (DispHeight/2)
HeartRate = 72: Rem BPM
HRInterval = 60000 / HeartRate
RiseSpeed = 4
Peak = 32
True = 1: False = 0
Rising = True

Set Display Mode 800,600,32
Sync On: Sync Rate 0

Ink RGB(255,255,255),0: Box DispTopLeftX-1, DispTopLeftY-1, DispTopLeftX+DispWidth+2, DispTopLeftY+DispHeight+2
Ink 0,0: Box DispTopLeftX, DispTopLeftY, DispTopLeftX+DispWidth+1, DispTopLeftY+DispHeight+1
Get Image 1001,DispTopLeftX+DispWidth+1,DispTopLeftY+1,DispTopLeftX+DispWidth+2,DispTopLeftY+DispHeight+2,1
Ink RGB(255,255,255),0

T = Timer()
Do

  Elapsed = Timer()-T
  If Elapsed >= HRInterval Then Beat = True: T = Timer()

  If Beat = True
    Inc Pressure,RiseSpeed
    If Pressure >= Peak
      RiseSpeed = 0-RiseSpeed
      Rising = False
    Endif
    If Pressure <= 0-(Peak/4*3)
      RiseSpeed = 0-RiseSpeed
      Rising = True
    Endif
    If Pressure = 0 and Rising = True Then Beat = False: rem T = Timer()
  Endif

  Dot DispTopLeftX+DispWidth+1,DispVCentre-Pressure
  Get Image 1000,DispTopLeftX+2,DispTopLeftY+1,DispTopLeftX+DispWidth+2,DispTopLeftY+DispHeight+2,1
  Paste Image 1000,DispTopLeftX+1,DispTopLeftY+1
  Paste Image 1001,DispTopLeftX+DispWidth+1,DispTopLeftY+1

  Sync
Loop

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Emulating a ECG