BlitzBasic Code Base

Try my new website: www.urcho.com - the new SIMPLE social network

Live audio data gaming example by Nebula

[back]

Author: Archive | Viewed: 681 times | Language: BlitzPlus | Category: Sound

;
; Download Audacity and set it up.
; Select the Waveform Db.
; The audio quality should be
; Mono 8000khz+
; The bar should be about 2 mousecursors high.
; The purple rectangle on your desktop 
; should be on the end of the
; sound input channel in Audacity.
;
; 
; Run this program in blitz+
;
; You can use the readout to
; live any game engine type.
; 
; You would be able to extract
; people walking by.Cars
; trucks. ect..
; Youself in the room.
; Sound waves flashing by.
; Walls being higlighted.
; you name it.

SetBuffer DesktopBuffer()

Color 200,200,200
;
temp = CreateImage(86,32)

gx = 700; grab rectangle at x area ; wave recording output
gy = 200; grab rectangle at y area ; wave recording output

GrabImage temp,gx,gy

Color 255,0,255

Rect gx,gy,100,100,False

DrawImage temp,200,100

Graphics 200,200,16,2

While KeyDown(1) = False
	SetBuffer DesktopBuffer()
	GrabImage temp,gx,gy
	SetBuffer BackBuffer()
	DrawImage temp,0,0	
	linestretch
	Flip
Wend
End

Function linestretch()
	For y = 0 To 100
		CopyRect 0 , y , 100 , 1 , 0, y + 100 + (y*2)
;		CopyRect 0 , y , 100 , 9 , 0, y + 201 + (y*2)
	Next
End Function

;
;
;
;
;
;
;
;
;
;
;
;;;;;;;
//////////// ; 2nd

;
;
;
;

; Step 2 - live frogger
; 
; You need Audacity for this example :
; Put the recorder bar to double the mouse height
; and enlarge the height of the input sound to
; meet the top of the bar.
;
;------------------
;| -------------- |
;| ************** |
;|----------------<---Audacity recording
;| ************** |
;| -------------- |
;__________________ ; screen capture area
; The input at ; lets say 8000+ khz
; 
; Put audacity at the top of the screen and
; make sure that, the new rectange on the desktop
; is located on the end of the wave input.
; 
; press the mouse button on the red grid
; to edit the waveform Db map.
; The selected parts will be copied 
; to the right side of the screen.
; Use the right mouse button to
; deselect the grid parts.
;
; Take a look at the sound read out. 
; It should be animated and should contain
; information about your surrounding.
;
; Regards cromdesign
;
;
Dim grid(10,10)
;
SetBuffer DesktopBuffer()
;
Flip

temp = CreateImage(86,32)

gx = 700;
gy = 200;

GrabImage temp,gx,gy

Color 255,0,255

Rect gx,gy,100,100,False

DrawImage temp,200,100

Graphics 200,200,16,2

While KeyDown(1) = False
	SetBuffer DesktopBuffer()
	GrabImage temp,gx,gy
	SetBuffer BackBuffer()
	DrawImage temp,0,0	
	linestretch
	editgrid 0,100
	straat 
;	lemmingloop
	Color 0,0,0:Rect 100,0,100,100,True
	copygrid 0,100,100,0
	drawgrid 0,100

Flip
Wend
End

Function lemmingloop()
	For y=0 To 10
		CopyRect 0,MouseY(),100,2,100,115+y
	Next
End Function

Function straat()
	Color 255,255,255
	Line 100,100,200,100
	Line 100,130,200,130
End Function
;
Function linestretch()
	For y = 0 To 100
		CopyRect 0 , y , 100 , 1 , 0, y + 100 + (y*2)
		CopyRect 0 , y , 100 , 9 , 0, y + 101 + (y*2)
	Next
End Function
;
Function editgrid(x,y)
	For x1 = 0 To 10
	For y1 = 0 To 10
		;
		If RectsOverlap(MouseX(),MouseY(),1,1,x+x1 * 10,y+y1 * 10 ,10,10) = True
			If MouseDown(1) = True Then
				grid( x1 , y1 ) = True
			End If
			If MouseDown(2) = True Then
				grid( x1 , y1 ) = False
			End If
		End If
	Next:Next
	;
End Function
;
Function drawgrid(x,y);
	For x1 = 0 To 10
	For y1 = 0 To 10
		Color 0,200,0 : If grid(x1,y1) = True Then  Rect x1 * 10 + x , y1 * 10 + y , 10,10,True
		Color 200,0,0 : If grid(x1,y1) = False Then Rect x1 * 10 + x , y1 * 10 + y , 10,10,False
	Next:Next
End Function
;
Function copygrid(x1,y1,x2,y2)
	For x=0 To 10;
	For y=0 To 10;
		;
		If grid( x , y ) = True Then
			CopyRect x1+x*10 , y1+y*10 , 10 , 10 , x2 + x*10 , y2 + y*10
		End If
		;
	Next:Next
End Function

Author Comments:

Gaming enhancement : Live audio gaming MicSound to aprox. wave surface surrounding video. 2 short source files. Blitz + You need the free open source program audacity. See the instructions in the sourcecode to set it up. When executed : see the moving parts in the window.. Top side view of the mic recorder waveform output. Front side view of the mic recorder waveform output. Iso side view of the mic recorder waveform output. 3D side view of the mic recorder waveform output. Try to spot the sound waves bouncing against the walls. You can extract the visual information and use them for games using readpixel. The second example is the . Waveform sound with a grid editor. Live Frogger step 2.. Time cars on the street for real. See cars on the street for real. Very early release....