diff options
Diffstat (limited to 'types.bmx')
| -rw-r--r-- | types.bmx | 408 |
1 files changed, 408 insertions, 0 deletions
diff --git a/types.bmx b/types.bmx new file mode 100644 index 0000000..c6960c8 --- /dev/null +++ b/types.bmx @@ -0,0 +1,408 @@ +' SFX Generator +' +' Copyright (C) 2006 Ian Cowburn (ianc@noddybox.co.uk) +' +' This program is free software; you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation; either version 2 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program; if not, write to the Free Software +' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +' +' ------------------------------------------------------------------------- +' +' $Id$ +' +SuperStrict +Import noddybox.mwidget +Import noddybox.algorithm +Import brl.audio +Import brl.audiosample + +Const MAGIC:String="SFXV0001" + +Type TPoint + Field x:Int + Field y:Int + + Function Create:TPoint(x:Int, y:Int) + Local o:TPoint=New TPoint + o.x=x + o.y=y + Return o + End Function + + Method Draw(drag:Int) + If drag + SetColor(255,255,0) + Else + SetColor(220,220,220) + EndIf + DrawRect(x-2,y-2,5,5) + End Method + + Method InRange:Int(mx:Int, my:Int) + Return Abs(mx-x)<3 And Abs(my-y)<3 + End Method + + Method ToStream(s:TStream) + WriteInt(s,x) + WriteInt(s,y) + End Method + + Function FromStream:TPoint(s:TStream) + Local x:Int=ReadInt(s) + Local y:Int=ReadInt(s) + Return Create(x,y) + End Function +End Type + +Type TPointList + Field arr:Object[] + Field link:TLink + Field x:Int + Field p:Int + Field cur:TList + Field depth:Int + + Function Create:TPointList(l:TList, depth:Int) + Local o:TPointList=New TPointList + o.arr=l.ToArray() + o.depth=depth-1 + o.Reset() + Return o + End Function + + Method NextLine() + p:+1 + If p=arr.length + Return + EndIf + Local p1:TPoint=TPoint(arr[p-1]) + Local p2:TPoint=TPoint(arr[p]) + cur=DoLine(p1.x,p1.y,p2.x,p2.y) + End Method + + Method AtEnd:Int() + Return p=arr.length + End Method + + Method Point:Double() + Local p:TAlgoPoint=TAlgoPoint(cur.RemoveFirst()) + + If Not cur.Count() + NextLine() + EndIf + + Return Double(depth-p.y)/depth + End Method + + Method Reset() + x=0 + p=0 + NextLine() + End Method +End Type + +Type EnvelopeControl Extends TMCanvas + Field points:TList + Field drag:TPoint + Field pleft:TPoint + Field pright:TPoint + Field mx:Int + Field my:Int + + Method New() + points=CreateList() + drag=Null + pleft=Null + pright=Null + End Method + + Function Init:TMCanvas(x:Int, y:Int, w:Int, h:Int, p:TMWidget) + Local o:TMCanvas=New EnvelopeControl.Create(x,y,w,h,p) + Return o + End Function + + Method Clear() + points.Clear() + points.AddLast(TPoint.Create(0,Height()/2)) + points.AddLast(TPoint.Create(Width()-1,Height()/2)) + End Method + + Method ToStream(s:TStream) + WriteInt(s,points.Count()) + For Local p:TPoint=EachIn points + p.ToStream(s) + Next + End Method + + Method FromStream(s:TStream) + Local c:Int=ReadInt(s) + points.Clear() + For Local f:Int=1 To c + points.AddLast(TPoint.FromStream(s)) + Next + Draw() + End Method + + Method LocatePoint() + pleft=Null + Local l:TLink=points.FirstLink() + + While l + Local p:TPoint=TPoint(l.Value()) + + If p.InRange(mx,my) + drag=p + l=l.NextLink() + If l + pright=TPoint(l.Value()) + EndIf + Return + End If + + If p.x>mx + drag=TPoint.Create(mx,my) + pright=p + points.InsertBeforeLink(drag,l) + Return + EndIf + + pleft=p + l=l.NextLink() + Wend + + drag=Null + pleft=Null + pright=Null + End Method + + Method Draw() + SetupGraphics() + + Cls() + + Local prev:TPoint=Null + + SetColor(180,180,180) + + For Local p:TPoint=EachIn points + If prev + DrawLine(prev.x,prev.y,p.x,p.y) + EndIf + prev=p + Next + + For Local p:TPoint=EachIn points + p.Draw(p=drag) + Next + + Flip + End Method + + Method OnRedraw() + Draw() + End Method + + Method OnMouseEnter() + SetPointer(POINTER_CROSS) + End Method + + Method OnMouseLeave() + SetPointer(POINTER_DEFAULT) + End Method + + Method OnButtonDown(b:Int) + If Not drag + LocatePoint() + Draw() + EndIf + End Method + + Method OnButtonUp(b:Int) + If drag + If pleft And pleft.InRange(drag.x,drag.y) + points.Remove(drag) + ElseIf pright And pright.InRange(drag.x,drag.y) + points.Remove(drag) + End If + drag=Null + pleft=Null + pright=Null + Draw() + EndIf + End Method + + Method OnMouseMove(x:Int, y:Int) + mx=x + my=y + + If drag + If pleft And pright + drag.x=Max(pleft.x,Min(pright.x,mx)) + ElseIf pleft + drag.x=Width()-1 + Else + drag.x=0 + EndIf + + drag.y=Max(0,Min(Height()-1,my)) + + Draw() + EndIf + End Method + + Method OnMouseWheel(b:Int) + End Method + + Method OnKeyDown(b:Int) + End Method + + Method OnKeyUp(b:Int) + End Method + + Method OnKey(b:Int) + End Method + + Method GetPointList:TPointList() + Return TPointList.Create(points,Height()) + End Method +End Type + +Type WaveControl Extends EnvelopeControl + Const EMPTY:Int=0 + Const SINE:Int=1 + Const SQUARE:Int=2 + Const SAW:Int=3 + Const TRIANGLE:Int=4 + Const NOISE:Int=5 + + Method SetWave(t:Int) + Select t + Case EMPTY + Clear() + + Case SINE + points.Clear() + For Local x:Int=0 Until Width() + points.AddLast(TPoint.Create(x,Height()/2+Sin(x)*((Height()-5)/2))) + Next + + + Case SQUARE + points.Clear() + points.AddLast(TPoint.Create(0,0)) + points.AddLast(TPoint.Create(Width()/2,0)) + points.AddLast(TPoint.Create(Width()/2,Height()-1)) + points.AddLast(TPoint.Create(Width()-1,Height()-1)) + + + Case SAW + points.Clear() + points.AddLast(TPoint.Create(0,Height()-1)) + points.AddLast(TPoint.Create(Width()-1,0)) + + Case TRIANGLE + points.Clear() + points.AddLast(TPoint.Create(0,Height()-1)) + points.AddLast(TPoint.Create(Width()/2,0)) + points.AddLast(TPoint.Create(Width()-1,Height()-1)) + + Case NOISE + points.Clear() + For Local x:Int=0 Until Width() + points.AddLast(TPoint.Create(x,Rand(0,Height()-1))) + Next + + Default + Clear() + End Select + + Draw() + End Method +End Type + +Type SampleControl Extends TMCanvas + Field sample:TAudioSample + Field sound:TSound + + Method Draw() + SetupGraphics() + Cls + If sample + Local s:Int=Max(1,sample.length/Width()) + Local p:Int=0 + Local x:Int=0 + + SetColor(255,255,255) + + While p<sample.length + 'Plot(x,Height()-1-sample.samples[p]) + DrawLine(x,Height()-1,x,Height()-1-sample.samples[p]/3) + p:+s + x:+1 + Wend + EndIf + Flip + End Method + + Method OnRedraw() + Draw() + End Method + + Method Generate(env:TPointList, wave:TPointList) + Const PERSTEP:Int=100 + Const PERWAV:Int=1 + Const WAVSPD:Int=10 + sample=CreateAudioSample(400*PERSTEP,44100,SF_MONO8) + + Local p:Int=0 + Local ep:Double + Local wp:Double + Local wd:Int=PERWAV + + ep=env.Point() + wp=wave.Point() + While Not env.AtEnd() And p<400*PERSTEP + For Local f:Int=0 Until PERSTEP + If Not wd + wd=PERWAV + For Local f:Int=0 Until WAVSPD + If wave.AtEnd() + wave.Reset() + EndIf + + wp=wave.Point() + Next + Else + wd:-1 + EndIf + + sample.samples[p]=(ep*wp)*255 + p:+1 + Next + ep=env.Point() + Wend + Draw() + End Method + + Method Play() + sound:TSound=LoadSound(sample,False) + PlaySound(sound) + End Method + + Method Clear() + sample=Null + sound=Null + Draw() + End Method +End Type + |