Debut Intro à tester

[Ar-S]

Je viens de me faire une petite intro sonore simple avec un graphisme qui apparait en fadein/fadeout.
Pourriez vous le lancer et me dire si chez vous, le volume de la musique se baisse bien à la disparition de l'image (juste avant de quitter le programme).

Merci

Voilà le lien

http://pb.ldvmultimedia.com/introFadeInOut_Son.exe

[SPH]

Ouai, la zik fade avec le gfx (mais pas totalement)

[Fig]

le logo tu l'as fais avec quoi comme soft ?

[Guimauve]

Bonjour,

Je viens de tester sous Linux par l'intermédiaire de WINE et même remarque que SPH, l'image "Fade-out" sans trop de problème cependant la musique baisse mais pas autant quelle le devrait par rapport au Fading de l'image. À mon sens, à la fin du fading de l'image, le sons devrait être à zéro. Je ne suis pas le concepteur alors ...

A+
Guimauve

[Kwai chang caine]

Super beau...et la musique elle fait peur
La musique démarre normal sans "fader"
L'image apparait en "fadant" et redisparait en "fadant" et seulement après la musique commence a "fader"
Pas facile a explique c'tte affaire

[Ar-S]

Merci.

C'est vrai que le fade out musique est plus lent que le graphique. Ce qui n'est pas très important (même si je vais arranger ça).
Je voulais surtout savoir si le résultat était le même pour tous ce qui a l'air d'être le cas.

Merci pour vos retours.

[Ar-S]

le logo tu l'as fais avec quoi comme soft ?

Photoshop.

[Le Soldat Inconnu]

Tu n'as rien trouvé de plus barbare comme musique, ce sursaut que j'ai fais ....

Le fade in/out fonctionne sur le son (même si trouve que le son ne baisse pas assez vite par rapport à l'image, on l'entend encore alors que l'image à disparu)

Ensuite, bordel, c'est trop fort avec mes 400W j'ai sauté sur ma chaise.

[Cool Dji]

Hello, comme tout le monde avec le casque sur les oreilles...

[Mesa]

ça marche sous Xp.

Mesa.

[graph100]

@Ar-S : joli ! je veux voir la suite

@ceux qui aime pas le son, vous avez qu'à mettre la suite comme bande sonore, ça iras mieux :

Code : Tout sélectionner

; repris et modifié de Joakim L. Christiansen


;{ procedures et structures
CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
	Structure WAVEFORMATEX ;may need to uncomment on Linux or Mac
		wFormatTag.w
		nChannels.w
		nSamplesPerSec.l
		nAvgBytesPerSec.l
		nBlockAlign.w
		wBitsPerSample.w
		cbSize.w
	EndStructure
CompilerEndIf

Global format.WAVEFORMATEX

Procedure SW_SetWaveFormat(bitsPerSample = 16, samplesPerSec = 44100)
	format\wFormatTag = #WAVE_FORMAT_PCM
	format\nChannels = 1 ;mono
	format\wBitsPerSample = bitsPerSample ;8/16
	format\nSamplesPerSec =  samplesPerSec ;8000 Hz, 11025 Hz, 22050 Hz, and 44100 Hz
	format\nBlockAlign = (format\nChannels * format\wBitsPerSample) / 8 ;equal to the product of nChannels and wBitsPerSample divided by 8 (bits per byte).
	format\nAvgBytesPerSec = format\nSamplesPerSec * format\nBlockAlign ;equal to the product of nSamplesPerSec and nBlockAlign
EndProcedure

Procedure SW_AddWaveHeader(*address.i, dataSize.l, channels.w, samplesPerSec.l, blockAlign.w, bitsPerSample.w)
	; RIFF Chunk
	PokeL(*address+ 0, 'FFIR')
	PokeL(*address+ 4, dataSize + 36)
	PokeL(*address+ 8, 'EVAW')
	; FORMAT Chunk
	PokeL(*address+ 12, ' tmf')
	PokeL(*address+ 16, $0010)
	PokeW(*address+ 20, $01)
	PokeW(*address+ 22, channels)
	PokeL(*address+ 24, samplesPerSec)
	PokeL(*address+ 28, samplesPerSec * channels * (bitsPerSample / 8) )
	PokeW(*address+ 32, blockAlign)
	PokeW(*address+ 34, bitsPerSample)
	; DATA Chunk
	PokeL(*address+ 36, 'atad')
	PokeL(*address+ 40, dataSize)
EndProcedure


;		0<= volume <= 1000
;		duration : en ms
; 	frequency : en Hz

Procedure.l SW_CreateTone(*address.i, volume.d, duration, frequency.d) ; returns needed size if address=0
	;creates a triangle wave
	Protected sample.l, result
	Protected pos, x, waveY.d, maxValue, centerValue
	Protected samplesPerHalfWave, waveIncrementValue.d, size
	Protected samplesSinceHalfWave, waveTop.d
	
	nb_step = format\nSamplesPerSec / 1000 * duration
	size = nb_step * format\wBitsPerSample / 8
	
	If *address = 0 ;return size needed
		ProcedureReturn size
	EndIf
	
	If format\wBitsPerSample = 8
		maxValue = 255
	ElseIf format\wBitsPerSample = 16
		maxValue = 65535
	EndIf
	centerValue = (maxValue / 2)
	
	waveTop = volume / 1000 * centerValue
	
	pos = 0
	For x = 0 To nb_step
		waveY = waveTop * (Sin(2 * #PI * frequency * 2 * x / format\nSamplesPerSec) + Sin(2 * #PI * frequency * x / format\nSamplesPerSec) + Sin(2 * #PI * frequency / 3 * x / format\nSamplesPerSec) + Sin(2 * #PI * frequency / 4 * x / format\nSamplesPerSec) + Sin(2 * #PI * frequency / 5 * x / format\nSamplesPerSec) + Sin(2 * #PI * frequency / 6 * x / format\nSamplesPerSec)) / 7
		
		Select format\wBitsPerSample
			Case 8
				sample = centerValue + waveY
				PokeA(*address + pos, sample)
				pos + 1
				
			Case 16
				sample = waveY
				PokeW(*address + pos, sample)
				pos + 2
				
		EndSelect
	Next
	
	
EndProcedure



Procedure SW_CatchTone(volume, duration, frequency)
	Protected *memory, id, size
	
	size = SW_CreateTone(0, volume, duration, frequency) ;get size
	
	*memory = AllocateMemory(44 + size)
	
	SW_CreateTone(*memory + 44, volume, duration, frequency) ;write wave data to memory
	SW_AddWaveHeader(*memory, size, format\nChannels, format\nSamplesPerSec, format\nBlockAlign, format\wBitsPerSample)
	
	id = CatchSound(#PB_Any, *memory)
	FreeMemory(*memory)
	
	ProcedureReturn id
EndProcedure


;}

;{ initialisation

InitSound()

SW_SetWaveFormat(16, 44100)

;}



;{ n'importe quoi, mais bien fait, avec la libération des sons etc...

; ; pompe funèbre
; #theme = 400
; #theme_min = 100

; bridé
#theme = 3000
#theme_min = 100

; ; joyeuses paques
; #theme = 3000
; #theme_min = 2000


Procedure Lanceur_de_lapin_enfariner(avec_un_delay_de_x_ms.l)
	id = SW_CatchTone(500, avec_un_delay_de_x_ms, Random(#theme) + #theme_min) : PlaySound(id) : Delay(avec_un_delay_de_x_ms)
	FreeSound(id)
EndProcedure


Repeat
	long = Random(1000) + 200
	CreateThread(@Lanceur_de_lapin_enfariner(), long)
	
	Delay(Random(50) + 200)
e+1:Until e = 100


;}

End ; et enfin, la fin de cette absurdité

[Kwai chang caine]

Ca fou le cafard ton truc

[Ar-S]

@graph100
t'es maboule

J'ai changé la musique avec un petit bout de piano (made in chez moi) et j'ai refait la sychro.
Lien au 1er topic

[Le Soldat Inconnu]

La ça pète, Ar-S

[Backup]

sympath (le piano )