Internet Lab

;Pluto Kiss
;Franck Balmer
;Janvier 2007

SizeOfSpace%=4096*1024
Dim IntegerArray%(SizeOfSpace%)

;Definition cube 4Mo

xxmax=32
yymax=32
zzmax=1024

En relisant ce classique de H.G Wells, plusieurs questions.

Comment l'auteur a-t-il pu imaginer, en 1898:

• Le rayon ardent, qui correspond au laser, découvert vers 1960.
• La fumée noire qui préfigure les gaz de combat éxpérimentés durant la permiére guerre mondiale.
• Les problémes de conception d'un aéronef dans une atmosphére de densité différente.

C'est monstrueusement génial !

Sans parler des scénes d'éxode de population que l'on croirait issues du début de la seconde guerre mondiale: Prévision hallucinante du concept de guerre totale.

Pour finir: Il fallait une inspiration incroyable pour envisager le probléme de contamination d'un équipage par des virus ou bactéries présents sur un planéte étrangére.

Du code Blitz Basic (prototype et particuliérement rapeux) pour visualiser et regénérer (enfin, essayer...) des  fichiers sons contenant des données numériques comme des progs pour Ordis 8bits:

;Wav Analyzer
;28-30 Janvier 2007
;F.Balmer

AppTitle "Wave Analyzer [Proto]"

Type WavHeader
Field RiffMark$
Field SampleSize1%  ;32b
Field TypeMark$
Field FormatMark$
Field Unkn1%       ;32b
Field Channels#    ;16b+16b
Field Freq#
Field BlockAlign1#
Field BlockAlign2# ;16b+16b
Field DataMark$
Field SampleSize2#  ;32b
End Type

Global FileHeader.WavHeader= New WavHeader

xmaxres=800
ymaxres=600

WavFileName$=Input$("Fichier Wave: ")
Treshold=Input("Treshold    : ")
Print "* Normalisation *"
Print "Avg WaveForm  : 1 [Xenomorph]"
Print "Avg Treshold  : 2"
Print "Fixed Treshold: 3 [ Default ]"
NormTyp=Input ("NormType    : ")
AvgTreshold=0
OldAvgTreshold=0

;Ouverture du fichier d'entree
InFileHandle = ReadFile(WavFileName$)
WavFileSize=FileSize(WavFileName$)
Print
Print "OK. File Size: "+WavFileSize
Print

;Ouverture du fichier de sortie
OutFileHandle = WriteFile("Out.wav")

;Parcours et recopie du header
For k=1 To 4 ;RiffMark
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
FileHeaderRiffMark$=FileHeaderRiffMark$+Chr$(Tempo)
Next
For k=1 To 4 ;SampleSize1
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ; TypeMark
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
FileHeaderTypeMark$=FileHeaderTypeMark$+Chr$(Tempo)
Next
For k=1 To 4 ;FormatMark
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
FileHeaderFormatMark$=FileHeaderFormatMark$+Chr$(Tempo)
Next
For k=1 To 4 ;Unkn1
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ;Channels
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ;Freq
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ;BlockAlign1
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ;BlockAlign2
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next
For k=1 To 4 ;DataMark
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
FileHeaderDataMark$=FileHeaderDataMark$+Chr$(Tempo)
Next
For k=1 To 4 ;SampleSize2
Tempo=ReadByte(InFileHandle)
WriteByte(OutFileHandle,Tempo)
;
Next

Print FileHeaderRiffMark$
Print FileHeaderTypeMark$
Print FileHeaderFormatMark$
Print FileHeaderDataMark$

;Verifier la présence des 4 chaines
;Pour déclarer un .wav valide
While Not KeyHit(1)
Wend

Graphics xmaxres,ymaxres,24,2
Color 255,0,127
x=0
y=0
For k=1 To WavFileSize-44
SampleValue=ReadByte(InFileHandle)
;Normalisation par rapport
;au Treshold Statique
If (SampleValue<Treshold) Then
NormSampleValue=55
Else
NormSampleValue=200
End If
yScreenValue=Int (ymaxres-(SampleValue*ymaxres/255))
yNormScreenValue=Int (ymaxres-(NormSampleValue*ymaxres/255))
;Forme d'onde reelle
Color SampleValue,0,127
Plot x,yScreenValue
;Normalise
Color 0,255,127
Plot x,yNormScreenValue

;Calcul du Treshold Moyen
If k=1 Then
AvgTreshold=SampleValue
OldAvgTreshold=AvgTreshold
Else
AvgTreshold=Int((OldAvgTreshold+SampleValue)/2)
OldAvgTreshold=AvgTreshold
End If

;Normalisation par rapport
;au Treshold Moyen
If (SampleValue<AvgTreshold) Then
NormSV2=55
Else
NormSV2=200
End If
yNormSV2=Int (ymaxres-(NormSV2*ymaxres/255))

;Point de Treshold Moyen
Color 0,67,255
yAvgTresh=Int (ymaxres-(AvgTreshold*ymaxres/255))
Plot x,yAvgTresh

;Normalise 2
Color 255,255,0
Plot x,yNormSV2

;Ecriture dans fichier de sortie
;En fontion de NormTyp
Select NormTyp
Case 1
WriteByte(OutFileHandle,AvgTreshold)
Case 2
WriteByte(OutFileHandle,NormSV2)
Case 3
WriteByte(OutFileHandle,NormSampleValue)
Default
WriteByte(OutFileHandle,NormSampleValue)
End Select

x=x+1
If (x>xmaxres) Then
;Statistiques
Color 255,255,0
Text 635,10, WavFileName$
Text 635,25, "Seek    : ........."
Text 635,25, "Seek    : "+Str k
Text 635,40, "Value   : ..."
Text 635,40, "Value   : "+Str SampleValue
Text 635,55, "Treshold: "+Str Treshold
Text 635,70, "AvgTresh: ..."
Text 635,70, "AvgTresh: "+Str AvgTreshold
Delay 25
Cls
;Ligne de Treshold
Color 0,0,255
yTresh=Int (ymaxres-(Treshold*ymaxres/255))
Line 0,yTresh,xmaxres,yTresh

;Pseudo Scroll
x=0
y=y+1
End If

Next

CloseFile (InFileHandle)
CloseFile (OutFileHandle)

While Not KeyHit(1)
Wend

End

Il y a encore du boulot sur la regénération, mais la visu est déja pas mal.