BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Mantra: 1.2.3.2d root source file", by alias jargon

publisher: 666 Network
program: Mantra
module: Mantramix-1-2-3-2d.bb
pupose: realtime .wav .mp3 .m3u .pls demonic distortion

Code

AppTitle "Mantramix v1.2.3.2d"
Global ms=MilliSecs()
SeedRnd seconds()
Global sx=320
Global sy=200
Global sd=16
Global sm=2
Graphics sx,sy,sd,sm
ClsColor 0,0,0
Cls

fnt=LoadFont("Courier New",18,False,False,False)
SetFont fnt
;Include "global.bb"

Global track_max=1024
Dim track$(track_max)
Dim channel(track_max)
Dim previous(track_max)

Dim tweakpitch_start(track_max)
Dim tweakvolume_start(track_max)
Dim tweakpan_start(track_max)
Dim tweakpitch_delay(track_max)
Dim tweakvolume_delay(track_max)
Dim tweakpan_delay(track_max)
Dim tweakpitch_now(track_max)
Dim tweakvolume_now(track_max)
Dim tweakpan_now(track_max)

Global tweak_max=7
Dim tweakpitch_ratio#(track_max,tweak_max)
Dim tweakvolume_ratio#(track_max,tweak_max)
Dim tweakpan_ratio#(track_max,tweak_max)
Dim tweakpitch_offset(track_max,tweak_max)
Dim tweakvolume_offset(track_max,tweak_max)
Dim tweakpan_offset(track_max,tweak_max)
Dim tweakpitch_lo#(track_max,tweak_max)
Dim tweakvolume_lo#(track_max,tweak_max)
Dim tweakpan_lo#(track_max,tweak_max)
Dim tweakpitch_hi#(track_max,tweak_max)
Dim tweakvolume_hi#(track_max,tweak_max)
Dim tweakpan_hi#(track_max,tweak_max)

Global playlist$=quote$(CommandLine(),1,Chr(34))

Select Lower(Right(playlist$,4))
Case Lower(".m3u")
     loadm3u playlist$
Case Lower(".pls")
     loadpls playlist$
Default
     track_max=0
     track$(0)=playlist$
End Select

For tr=0 To track_max
tweakpitch_start(tr)=ms
tweakvolume_start(tr)=ms
tweakpan_start(tr)=ms
tweakpitch_delay(tr)=0
tweakvolume_delay(tr)=0
tweakpan_delay(tr)=0
tweakpitch_now(tr)=0
tweakvolume_now(tr)=0
tweakpan_now(tr)=0
For t=0 To tweak_max
tweakpitch_ratio#(tr,t)=Rnd(.1,3)
tweakpitch_offset(tr,t)=Rnd(0,360)
tweakpitch_lo#(tr,t)=Rand(8000,12000)
tweakpitch_hi#(tr,t)=Rand(22000,44000)
tweakvolume_ratio#(tr,t)=Rnd(.1,3)
tweakvolume_offset(tr,t)=Rnd(0,360)
tweakvolume_lo#(tr,t)=0
tweakvolume_hi#(tr,t)=1
tweakpan_ratio#(tr,t)=Rnd(.1,3)
tweakpan_offset(tr,t)=Rnd(0,360)
tweakpan_lo#(tr,t)=-1
tweakpan_hi#(tr,t)=1
Next
Next

;face=LoadImage("C:/WINDOWS/Profiles/ZK/Desktop/IGeN/mantra/visual/seksi-face.bmp")
;jaw=LoadImage("C:/WINDOWS/Profiles/ZK/Desktop/IGeN/mantra/visual/seksi-jaw.bmp")
loading=LoadAnimImage("C:/WINDOWS/Profiles/ZK/Desktop/IGeN/mantra//visual/loading.bmp",81,81,0,16)

Repeat
     If KeyHit(1)>0 Then Exit
     ms=MilliSecs()
     ClsColor 0,0,0
     Cls
     Color 255,0,0
     Text sx/2,sy/2-StringHeight("-Presents-"),"666 Network",True,True
     Text sx/2,sy/2,"-Presents-",True,True
     Text sx/2,sy/2+StringHeight("-Presents-"),"Mantramix 1.2.3.2d",True,True
     Flip     
     ;DrawImage face,sx/2-ImageWidth(face)/2,sy/2-ImageHeight(face)/2
     ;DrawImage jaw,sx/2-ImageWidth(jaw)/2,sy/2-ImageHeight(jaw)/2+((Cos(ms)+1)/2)*16
     ;DrawBlock loading,sx/2-81/2,sy/2-81/2,(ms/50) And 15
     For tr=0 To track_max
          loopaudio tr
     Next
Forever
End

;Include "function3-1d.bb"
Include "function/parse/quotes.bb"
Include "function/audio/audio3-1.bb"

Function loadm3u(m3u$)
     Local rfile=ReadFile(m3u$)
     Local max=-1
     Local line1$=""
     Local line2$=""
     If rfile=0 Then Return
     If Not(Eof(rfile)=False) Then Return
     If Not(ReadLine(rfile)="#EXTM3U") Then Return
     Repeat
          If Not(max<track_max) Then Exit
          If Not(Eof(rfile)=False) Then Exit
          line1$=ReadLine(rfile)
          If Not(Eof(rfile)=False) Then Exit
          line2$=ReadLine(rfile)
          If Not(Left(line1$,Instr(line1$,":",1))="#EXTINF:") Then Exit
          If Instr(line1$,",",1)=0 Then Exit
          max=max+1
          track$(max)=line2$
     Forever
     CloseFile rfile
     track_max=max
End Function
Function loadpls(pls$)
     Local rfile=ReadFile(pls$)
     Local max=-1
     Local tmp=-1
     Local line1$=""
     Local line2$=""
     Local line3$=""
     If rfile=0 Then Return
     If Not(Eof(rfile)=False) Then Return
     If Not(ReadLine(rfile)="[playlist]") Then Return
     Repeat
          If Not(Eof(rfile)=False) Then Exit
          line1$=ReadLine(rfile)
          If Left(line1$,4)="File" And Instr(line1$,"=",1)>0 Then
               line2$=Mid(line1$,5,Instr(line1$,"=",1)-5)
               If Int(line2$)=line2$ Then
                    If track_max+1>=Int(line2$) Then
                         track$(Int(line2$)-1)=Right(line1$,Len(line1$)-Instr(line1$,"=",1))
                         If Int(line2$)-1>max Then max=Int(line2$)-1
                    EndIf
               EndIf
          EndIf
     Forever
     CloseFile rfile
     track_max=max
End Function
Function seconds()
     Local HH=0
     Local MM=0
     Local SS=0
     Local tmp$=CurrentTime()
     HH=Mid(tmp$,1,2)
     MM=Mid(tmp$,4,2)
     SS=Mid(tmp$,7,2)
     Return (HH*24+HH)*60+SS
End Function

Code software created by Krylar's Kreations