-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Anton Zhuchkov
committed
Oct 31, 2017
1 parent
71edc56
commit 7c99ff5
Showing
31 changed files
with
17,383 additions
and
1 deletion.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -28,7 +28,7 @@ | |
|
|
||
| # Delphi compiler-generated binaries (safe to delete) | ||
| *.exe | ||
| *.dll | ||
| #*.dll | ||
| *.bpl | ||
| *.bpi | ||
| *.dcp | ||
|
|
||
Binary file not shown.
Large diffs are not rendered by default.
Oops, something went wrong.
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,158 @@ | ||
| { | ||
| BASSMIDI 2.4 Delphi unit | ||
| Copyright (c) 2006-2009 Un4seen Developments Ltd. | ||
| See the BASSMIDI.CHM file for more detailed documentation | ||
| } | ||
|
|
||
| unit BassMIDI; | ||
|
|
||
| interface | ||
|
|
||
| uses Windows, Bass; | ||
|
|
||
| const | ||
| // Additional config options | ||
| BASS_CONFIG_MIDI_COMPACT = $10400; | ||
| BASS_CONFIG_MIDI_VOICES = $10401; | ||
| BASS_CONFIG_MIDI_AUTOFONT = $10402; | ||
|
|
||
| // Additional sync types | ||
| BASS_SYNC_MIDI_MARKER = $10000; | ||
| BASS_SYNC_MIDI_CUE = $10001; | ||
| BASS_SYNC_MIDI_LYRIC = $10002; | ||
| BASS_SYNC_MIDI_TEXT = $10003; | ||
| BASS_SYNC_MIDI_EVENT = $10004; | ||
| BASS_SYNC_MIDI_TICK = $10005; | ||
|
|
||
| // Additional BASS_MIDI_StreamCreateFile/etc flags | ||
| BASS_MIDI_DECAYEND = $1000; | ||
| BASS_MIDI_NOFX = $2000; | ||
| BASS_MIDI_DECAYSEEK = $4000; | ||
|
|
||
| // Marker types | ||
| BASS_MIDI_MARK_MARKER = 0; // marker events | ||
| BASS_MIDI_MARK_CUE = 1; // cue events | ||
| BASS_MIDI_MARK_LYRIC = 2; // lyric events | ||
| BASS_MIDI_MARK_TEXT = 3; // text events | ||
|
|
||
| // MIDI events | ||
| MIDI_EVENT_NOTE = 1; | ||
| MIDI_EVENT_PROGRAM = 2; | ||
| MIDI_EVENT_CHANPRES = 3; | ||
| MIDI_EVENT_PITCH = 4; | ||
| MIDI_EVENT_PITCHRANGE = 5; | ||
| MIDI_EVENT_DRUMS = 6; | ||
| MIDI_EVENT_FINETUNE = 7; | ||
| MIDI_EVENT_COARSETUNE = 8; | ||
| MIDI_EVENT_MASTERVOL = 9; | ||
| MIDI_EVENT_BANK = 10; | ||
| MIDI_EVENT_MODULATION = 11; | ||
| MIDI_EVENT_VOLUME = 12; | ||
| MIDI_EVENT_PAN = 13; | ||
| MIDI_EVENT_EXPRESSION = 14; | ||
| MIDI_EVENT_SUSTAIN = 15; | ||
| MIDI_EVENT_SOUNDOFF = 16; | ||
| MIDI_EVENT_RESET = 17; | ||
| MIDI_EVENT_NOTESOFF = 18; | ||
| MIDI_EVENT_PORTAMENTO = 19; | ||
| MIDI_EVENT_PORTATIME = 20; | ||
| MIDI_EVENT_PORTANOTE = 21; | ||
| MIDI_EVENT_MODE = 22; | ||
| MIDI_EVENT_REVERB = 23; | ||
| MIDI_EVENT_CHORUS = 24; | ||
| MIDI_EVENT_CUTOFF = 25; | ||
| MIDI_EVENT_RESONANCE = 26; | ||
| MIDI_EVENT_REVERB_MACRO = 30; | ||
| MIDI_EVENT_CHORUS_MACRO = 31; | ||
| MIDI_EVENT_REVERB_TIME = 32; | ||
| MIDI_EVENT_REVERB_DELAY = 33; | ||
| MIDI_EVENT_REVERB_LOCUTOFF = 34; | ||
| MIDI_EVENT_REVERB_HICUTOFF = 35; | ||
| MIDI_EVENT_REVERB_LEVEL = 36; | ||
| MIDI_EVENT_CHORUS_DELAY = 37; | ||
| MIDI_EVENT_CHORUS_DEPTH = 38; | ||
| MIDI_EVENT_CHORUS_RATE = 39; | ||
| MIDI_EVENT_CHORUS_FEEDBACK = 40; | ||
| MIDI_EVENT_CHORUS_LEVEL = 41; | ||
| MIDI_EVENT_CHORUS_REVERB = 42; | ||
| MIDI_EVENT_DRUM_FINETUNE = 50; | ||
| MIDI_EVENT_DRUM_COARSETUNE = 51; | ||
| MIDI_EVENT_DRUM_PAN = 52; | ||
| MIDI_EVENT_DRUM_REVERB = 53; | ||
| MIDI_EVENT_DRUM_CHORUS = 54; | ||
| MIDI_EVENT_DRUM_CUTOFF = 55; | ||
| MIDI_EVENT_DRUM_RESONANCE = 56; | ||
| MIDI_EVENT_TEMPO = 62; | ||
| MIDI_EVENT_MIXLEVEL = $10000; | ||
| MIDI_EVENT_TRANSPOSE = $10001; | ||
|
|
||
| // BASS_CHANNELINFO type | ||
| BASS_CTYPE_STREAM_MIDI = $10d00; | ||
|
|
||
| // Additional attributes | ||
| BASS_ATTRIB_MIDI_PPQN = $12000; | ||
| BASS_ATTRIB_MIDI_TRACK_VOL = $12100; // + track # | ||
|
|
||
| // Additional tag type | ||
| BASS_TAG_MIDI_TRACK = $11000; // + track #, track text : array of null-terminated ANSI strings | ||
|
|
||
| // BASS_ChannelGetLength/GetPosition/SetPosition mode | ||
| BASS_POS_MIDI_TICK = 2; // tick position | ||
|
|
||
|
|
||
| type | ||
| HSOUNDFONT = DWORD; // soundfont handle | ||
|
|
||
| BASS_MIDI_FONT = record | ||
| font: HSOUNDFONT; // soundfont | ||
| preset: LongInt; // preset number (-1=all) | ||
| bank: Longint; | ||
| end; | ||
|
|
||
| BASS_MIDI_FONTINFO = record | ||
| name: PAnsiChar; | ||
| copyright: PAnsiChar; | ||
| comment: PAnsiChar; | ||
| presets: DWORD; // number of presets/instruments | ||
| samsize: DWORD; // total size (in bytes) of the sample data | ||
| samload: DWORD; // amount of sample data currently loaded | ||
| samtype: DWORD; // sample format (CTYPE) if packed | ||
| end; | ||
|
|
||
| BASS_MIDI_MARK = record | ||
| track: DWORD; // track containing marker | ||
| pos: DWORD; // marker position | ||
| text: PAnsiChar; // marker text | ||
| end; | ||
|
|
||
|
|
||
| const | ||
| bassmididll = 'bassmidi.dll'; | ||
|
|
||
| function BASS_MIDI_StreamCreate(channels,flags,freq:DWORD): HSTREAM; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamCreateFile(mem:BOOL; fl:pointer; offset,length:QWORD; flags,freq:DWORD): HSTREAM; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamCreateURL(URL:PAnsiChar; offset:DWORD; flags:DWORD; proc:DOWNLOADPROC; user:Pointer; freq:DWORD): HSTREAM; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamCreateFileUser(system,flags:DWORD; var procs:BASS_FILEPROCS; user:Pointer; freq:DWORD): HSTREAM; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamGetMark(handle:HSTREAM; type_,index:DWORD; var mark:BASS_MIDI_MARK): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamSetFonts(handle:HSTREAM; var fonts:BASS_MIDI_FONT; count:DWORD): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamGetFonts(handle:HSTREAM; var fonts:BASS_MIDI_FONT; count:DWORD): DWORD; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamLoadSamples(handle:HSTREAM): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamEvent(handle:HSTREAM; chan,event,param:DWORD): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamGetEvent(handle:HSTREAM; chan,event:DWORD): DWORD; stdcall; external bassmididll; | ||
| function BASS_MIDI_StreamGetChannel(handle:HSTREAM; chan:DWORD): HSTREAM; stdcall; external bassmididll; | ||
|
|
||
| function BASS_MIDI_FontInit(fname:PChar; flags:DWORD): HSOUNDFONT; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontFree(handle:HSOUNDFONT): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontGetInfo(handle:HSOUNDFONT; var info:BASS_MIDI_FONTINFO): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontGetPreset(handle:HSOUNDFONT; preset,bank:LongInt): PAnsiChar; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontLoad(handle:HSOUNDFONT; preset,bank:LongInt): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontCompact(handle:HSOUNDFONT): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontPack(handle:HSOUNDFONT; outfile,encoder:PChar; flags:DWORD): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontUnpack(handle:HSOUNDFONT; outfile:PChar; flags:DWORD): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontSetVolume(handle:HSOUNDFONT; volume:Single): BOOL; stdcall; external bassmididll; | ||
| function BASS_MIDI_FontGetVolume(handle:HSOUNDFONT): Single; stdcall; external bassmididll; | ||
|
|
||
| implementation | ||
|
|
||
| end. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,73 @@ | ||
| [General] | ||
| Name=d2d | ||
| Project=0 | ||
| [Classes] | ||
| Count=68 | ||
| Class0="Td2dApplication","","d2dApplication","0","C:\TON\Programming\d2dge\d2dApplication.pas" | ||
| Class1="Td2dScene","","d2dApplication","0","C:\TON\Programming\d2dge\d2dApplication.pas" | ||
| Class2="Td2dCore","","d2dCore","0","C:\TON\Programming\d2dge\d2dCore.pas" | ||
| Class3="Td2dTextureHolder","","d2dCore","0","C:\TON\Programming\d2dge\d2dCore.pas" | ||
| Class4="Td2dHGELetter","Td2dSprite","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class5="Td2dCustomFont","TInterfacedObject, Id2dFont","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class6="Td2dHGEFont","Td2dCustomFont","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class7="Td2dDXFont","TObject","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class8="Td2dBMLetter","Td2dSprite","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class9="Td2dBMFont","Td2dCustomFont","d2dFont","0","C:\TON\Programming\d2dge\d2dFont.pas" | ||
| Class10="Td2dHorizFrame","","d2dFrames","0","C:\TON\Programming\d2dge\d2dFrames.pas" | ||
| Class11="Td2dFrame","","d2dFrames","0","C:\TON\Programming\d2dge\d2dFrames.pas" | ||
| Class12="Td2dGUI","","d2dGUI","0","C:\TON\Programming\d2dge\d2dGUI.pas" | ||
| Class13="Td2dControl","","d2dGUI","0","C:\TON\Programming\d2dge\d2dGUI.pas" | ||
| Class14="Td2dCustomButton","Td2dControl","d2dGUIButtons","0","C:\TON\Programming\d2dge\d2dGUIButtons.pas" | ||
| Class15="Td2dBitButton","Td2dCustomButton","d2dGUIButtons","0","C:\TON\Programming\d2dge\d2dGUIButtons.pas" | ||
| Class16="Td2dFramedButtonView","","d2dGUIButtons","0","C:\TON\Programming\d2dge\d2dGUIButtons.pas" | ||
| Class17="Td2dFramedTextButton","Td2dCustomButton","d2dGUIButtons","0","C:\TON\Programming\d2dge\d2dGUIButtons.pas" | ||
| Class18="Td2dMenuItem","","d2dGUIMenus","0","C:\TON\Programming\d2dge\d2dGUIMenus.pas" | ||
| Class19="Td2dMenu","Td2dControl","d2dGUIMenus","0","C:\TON\Programming\d2dge\d2dGUIMenus.pas" | ||
| Class20="Td2dCustomTextChunk","","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class21="Td2dTextPara","","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class22="Td2dStringChunk","Td2dCustomTextChunk","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class23="Td2dPictureChunk","Td2dCustomTextChunk","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class24="Td2dTextSource","","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class25="Td2dCustomSlice","","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class26="Td2dUnionSlice","Td2dCustomSlice","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class27="Td2dTextSlice","Td2dCustomSlice","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class28="Td2dPictureSlice","Td2dCustomSlice","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class29="Td2dDocRoot","Td2dUnionSlice","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class30="Td2dFormatter","","d2dGUITextPane","0","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class31="Td2dTextPane","Td2dControl","d2dGUITextPane","218","C:\TON\Programming\d2dge\d2dGUITextPane.pas" | ||
| Class32="Td2dCommonPath","","d2dPath","0","C:\TON\Programming\d2dge\d2dPath.pas" | ||
| Class33="Td2dPathCursor","","d2dPath","0","C:\TON\Programming\d2dge\d2dPath.pas" | ||
| Class34="Td2dSprite","","d2dSprite","0","C:\TON\Programming\d2dge\d2dSprite.pas" | ||
| Class35="Td2dMultiFrameSprite","Td2dSprite","d2dSprite","0","C:\TON\Programming\d2dge\d2dSprite.pas" | ||
| Class36="Td2dBaseAnimation","Td2dMultiFrameSprite","d2dSprite","0","C:\TON\Programming\d2dge\d2dSprite.pas" | ||
| Class37="Td2dTimedAnimation","Td2dBaseAnimation","d2dSprite","0","C:\TON\Programming\d2dge\d2dSprite.pas" | ||
| Class38="Td2dSetupStorage","TInterfacedObject, Id2dStorage","d2dStorage","0","C:\TON\Programming\d2dge\d2dStorage.pas" | ||
| Class39="Td2dBasicBlender","","d2dUtils","0","C:\TON\Programming\d2dge\d2dUtils.pas" | ||
| Class40="Td2dColorBlender","Td2dBasicBlender","d2dUtils","0","C:\TON\Programming\d2dge\d2dUtils.pas" | ||
| Class41="Td2dPositionBlender","Td2dBasicBlender","d2dUtils","0","C:\TON\Programming\d2dge\d2dUtils.pas" | ||
| Class42="Td2dZipPack","","d2dZipPack","0","C:\TON\Programming\d2dge\d2dZipPack.pas" | ||
| Class43="EZipFileError","Exception","d2dZipPack","0","C:\TON\Programming\d2dge\d2dZipPack.pas" | ||
| Class44="EZipFileCRCError","Exception","d2dZipPack","0","C:\TON\Programming\d2dge\d2dZipPack.pas" | ||
| Class45="TBinXmlReader","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class46="TStmXmlReader","TBinXmlReader","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class47="TStrXmlReader","TBinXmlReader","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class48="TBinXmlWriter","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class49="TStmXmlWriter","TBinXmlWriter","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class50="TStrXmlWriter","TBinXmlWriter","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class51="TXmlBase","TInterfacedObject, IXmlBase","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class52="TXmlNameTable","TXmlBase, IXmlNameTable","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class53="TXmlToken","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class54="TXmlSource","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class55="TXmlStrSource","TXmlSource","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class56="TXmlStmSource","TXmlSource","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class57="TXmlNodeList","TXmlBase, IXmlNodeList","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class58="TXmlNode","TXmlBase, IXmlNode","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class59="TXmlElement","TXmlNode, IXmlElement","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class60="TXmlCharacterData","TXmlNode, IXmlCharacterData","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class61="TXmlText","TXmlNode, IXmlText","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class62="TXmlCDATASection","TXmlCharacterData, IXmlCDATASection","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class63="TXmlComment","TXmlCharacterData, IXmlComment","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class64="TXmlProcessingInstruction","TXmlNode, IXmlProcessingInstruction","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class65="TXmlDocument","TXmlNode, IXmlDocument","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class66="TPredicate","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" | ||
| Class67="TLocationStep","","SimpleXML","0","C:\TON\Programming\d2dge\SimpleXML.pas" |
Oops, something went wrong.