paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 16:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added maxmod library for GBA

Browse Source 
* Fixed makefile for cleaning examples
 * Fixed SimpleBGScroll example compilation

git-svn-id: trunk@19871 -
This commit is contained in:
Legolas 2011-12-18 11:35:30 +00:00
parent 446912d2e2
commit 0f050b97b7
6 changed files with 377 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -4222,6 +4222,9 @@ packages/libgbafpc/src/gba/helper.inc svneol=native#text/plain
packages/libgbafpc/src/gba/mappy.inc svneol=native#text/plain
packages/libgbafpc/src/gba/mbv2.inc svneol=native#text/plain
packages/libgbafpc/src/gba/pcx.inc svneol=native#text/plain
packages/libgbafpc/src/maxmod/inc/maxmod.inc svneol=native#text/plain
packages/libgbafpc/src/maxmod/inc/mm_types.inc svneol=native#text/plain
packages/libgbafpc/src/maxmod/maxmod.pp svneol=native#text/plain
packages/libgd/Makefile svneol=native#text/plain
packages/libgd/Makefile.fpc svneol=native#text/plain
packages/libgd/README.txt svneol=native#text/plain

2
packages/libgbafpc/Makefile.fpc
View File

@ -9,7 +9,7 @@ version=2.7.1
[target]
loaders=core_asm
units=gba maxmod
#exampledirs=examples
exampledirs=examples
[compiler]

3
packages/libgbafpc/examples/graphics/SimpleBGScroll/SimpleBGScroll.pp
View File

@ -1,5 +1,8 @@
program SimpleBGScroll;
{$mode objfpc}
{$H+}
uses
ctypes, gba;

80
packages/libgbafpc/src/maxmod/inc/maxmod.inc Normal file
View File

@ -0,0 +1,80 @@
(****************************************************************************
* __ *
* ____ ___ ____ __ ______ ___ ____ ____/ / *
* / __ `__ \/ __ `/ |/ / __ `__ \/ __ \/ __ / *
* / / / / / / /_/ /> </ / / / / / /_/ / /_/ / *
* /_/ /_/ /_/\__,_/_/|_/_/ /_/ /_/\____/\__,_/ *
* *
* ARM7 Definitions *
* *
* Copyright (c) 2008, Mukunda Johnson (mukunda@maxmod.org) *
* *
* Permission to use, copy, modify, and/or distribute this software for any *
* purpose with or without fee is hereby granted, provided that the above *
* copyright notice and this permission notice appear in all copies. *
* *
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES *
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF *
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR *
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES *
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN *
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF *
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *
****************************************************************************)
{$ifdef NDS_INTERFACE}
const
// precalculated mix buffer lengths (in bytes)
MM_MIXLEN_8KHZ = 544; // (8121 hz)
MM_MIXLEN_10KHZ = 704; // (10512 hz)
MM_MIXLEN_13KHZ = 896; // (13379 hz)
MM_MIXLEN_16KHZ = 1056; // (15768 hz)
MM_MIXLEN_18KHZ = 1216; // (18157 hz)
MM_MIXLEN_21KHZ = 1408; // (21024 hz)
MM_MIXLEN_27KHZ = 1792; // (26758 hz)
MM_MIXLEN_31KHZ = 2112; // (31536 hz)
// measurements of channel types (bytes)
MM_SIZEOF_MODCH = 40;
MM_SIZEOF_ACTCH = 28;
MM_SIZEOF_MIXCH = 24;
procedure mmInitDefault(soundbank: mm_addr; number_of_channels: mm_word); cdecl; external;
procedure mmInit(var setup: mm_gba_system); cdecl; external;
procedure mmVBlank(); cdecl; external;
procedure mmSetVBlankHandler(func: pointer); cdecl; external;
procedure mmSetEventHandler(handler: mm_callback); cdecl; external;
procedure mmFrame(); cdecl; external; //__attribute((long_call)) ???
procedure mmStart(id: mm_word; mode: mm_pmode); cdecl; external;
procedure mmPause(); cdecl; external;
procedure mmResume(); cdecl; external;
procedure mmStop(); cdecl; external;
procedure mmPosition(position: mm_word); cdecl; external;
function mmActive(): cint; cdecl; external;
procedure mmJingle(module_ID: mm_word); cdecl; external;
function mmActiveSub(): cint; cdecl; external;
procedure mmSetModuleVolume(volume: mm_word); cdecl; external;
procedure mmSetJingleVolume(volume: mm_word); cdecl; external;
procedure mmSetModuleTempo(tempo: mm_word); cdecl; external;
procedure mmSetModulePitch(pitch: mm_word); cdecl; external;
procedure mmPlayModule(address, mode, layer: mm_word); cdecl; external;
function mmEffect(sample_ID: mm_word): mm_sfxhand; cdecl; external;
function mmEffectEx(var sound: mm_sound_effect): mm_sfxhand; cdecl; external;
procedure mmEffectVolume(handle: mm_sfxhand; volume: mm_word); cdecl; external;
procedure mmEffectPanning(handle: mm_sfxhand; panning: mm_byte); cdecl; external;
procedure mmEffectRate(handle: mm_sfxhand; rate: mm_word); cdecl; external;
procedure mmEffectScaleRate(handle: mm_sfxhand; factor: mm_word); cdecl; external;
procedure mmEffectCancel(handle: mm_sfxhand); cdecl; external;
procedure mmEffectRelease(handle: mm_sfxhand); cdecl; external;
procedure mmSetEffectsVolume(volume: mm_word); cdecl; external;
procedure mmEffectCancelAll(); cdecl; external;
const
MMCB_SONGMESSAGE = $2A;
MMCB_SONGFINISHED = $2B;
var
mp_mix_seg: mm_byte; cvar; external; // current mixing segment
mp_writepos: mm_word; cvar; external; // mixer's write position
{$endif NDS_INTERFACE}

234
packages/libgbafpc/src/maxmod/inc/mm_types.inc Normal file
View File

@ -0,0 +1,234 @@
(****************************************************************************
* __ *
* ____ ___ ____ __ ______ ___ ____ ____/ / *
* / __ `__ \/ __ `/ |/ / __ `__ \/ __ \/ __ / *
* / / / / / / /_/ /> </ / / / / / /_/ / /_/ / *
* /_/ /_/ /_/\__,_/_/|_/_/ /_/ /_/\____/\__,_/ *
* *
* Copyright (c) 2008, Mukunda Johnson (mukunda@maxmod.org) *
* *
* Permission to use, copy, modify, and/or distribute this software for any *
* purpose with or without fee is hereby granted, provided that the above *
* copyright notice and this permission notice appear in all copies. *
* *
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES *
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF *
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR *
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES *
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN *
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF *
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *
****************************************************************************)
{$ifdef NDS_INTERFACE}
type
mm_word = cuint;
pmm_word = ^mm_word;
mm_hword = cushort;
pmm_hword = ^mm_hword;
mm_byte = cuchar;
pmm_byte = ^mm_byte;
mm_sfxhand = cushort;
pmm_sfxhand = ^mm_sfxhand;
mm_bool = cuchar;
mm_addr = pointer;
mm_reg = pointer;
type
mm_mode_enum = integer;
const
MM_MODE_A: mm_mode_enum = 0;
MM_MODE_B: mm_mode_enum = 1;
MM_MODE_C: mm_mode_enum = 2;
type
mm_stream_formats = integer;
const
MM_STREAM_8BIT_MONO : mm_stream_formats = $0;
MM_STREAM_8BIT_STEREO : mm_stream_formats = $1;
MM_STREAM_16BIT_MONO : mm_stream_formats = $2;
MM_STREAM_16BIT_STEREO: mm_stream_formats = $3;
type
mm_callback = function (msg, param: mm_word): mm_word;
mm_stream_func = function (length: mm_word; dest: mm_addr; format: mm_stream_formats): mm_word;
type
mm_reverbflags = integer;
const
MMRF_MEMORY : mm_reverbflags = $01;
MMRF_DELAY : mm_reverbflags = $02;
MMRF_RATE : mm_reverbflags = $04;
MMRF_FEEDBACK : mm_reverbflags = $08;
MMRF_PANNING : mm_reverbflags = $10;
MMRF_LEFT : mm_reverbflags = $20;
MMRF_RIGHT : mm_reverbflags = $40;
MMRF_BOTH : mm_reverbflags = $60;
MMRF_INVERSEPAN : mm_reverbflags = $80;
MMRF_NODRYLEFT : mm_reverbflags = $100;
MMRF_NODRYRIGHT : mm_reverbflags = $200;
MMRF_8BITLEFT : mm_reverbflags = $400;
MMRF_16BITLEFT : mm_reverbflags = $800;
MMRF_8BITRIGHT : mm_reverbflags = $1000;
MMRF_16BITRIGHT : mm_reverbflags = $2000;
MMRF_DRYLEFT : mm_reverbflags = $4000;
MMRF_DRYRIGHT : mm_reverbflags = $8000;
type
mm_reverbch = integer;
const
MMRC_LEFT : mm_reverbch = 1;
MMRC_RIGHT : mm_reverbch = 2;
MMRC_BOTH : mm_reverbch = 3;
type
mmreverbcfg = record
flags : mm_word;
memory : mm_addr;
delay : mm_hword;
rate : mm_hword;
feedback : mm_hword;
panning : mm_byte;
end;
mm_reverb_cfg = mmreverbcfg;
pmm_reverb_cfg = ^mm_reverb_cfg;
type
mm_pmode = integer;
const
MM_PLAY_LOOP: mm_pmode = 0;
MM_PLAY_ONCE: mm_pmode = 1;
type
mm_mixmode = integer;
const
MM_MIX_8KHZ : mm_mixmode = 0;
MM_MIX_10KHZ: mm_mixmode = 1;
MM_MIX_13KHZ: mm_mixmode = 2;
MM_MIX_16KHZ: mm_mixmode = 3;
MM_MIX_18KHZ: mm_mixmode = 4;
MM_MIX_21KHZ: mm_mixmode = 5;
MM_MIX_27KHZ: mm_mixmode = 6;
MM_MIX_31KHZ: mm_mixmode = 7;
type
mm_stream_timer = integer;
const
MM_TIMER0: mm_stream_timer = 0;
MM_TIMER1: mm_stream_timer = 1;
MM_TIMER2: mm_stream_timer = 2;
MM_TIMER3: mm_stream_timer = 3;
type
t_mmdssample = record
loop_start : mm_word;
case integer of
0: (loop_length : mm_word);
1: (length : mm_word;
format : mm_byte;
repeat_mode : mm_byte;
base_rate : mm_hword;
data : mm_addr;
);
end;
mm_ds_sample = t_mmdssample;
pmm_ds_sample = ^t_mmdssample;
t_mmsoundeffect = record
case integer of
0: (id : mm_word);
1: (sample : pmm_ds_sample;
rate : mm_hword;
handle : mm_sfxhand;
volume : mm_byte;
panning : mm_byte;
);
end;
mm_sound_effect = t_mmsoundeffect;
pmm_sound_effect = ^t_mmsoundeffect;
t_mmgbasystem = record
mixing_mode : mm_mixmode;
mod_channel_count : mm_word;
mix_channel_count : mm_word;
module_channels : mm_addr;
active_channels : mm_addr;
mixing_channels : mm_addr;
mixing_memory : mm_addr;
wave_memory : mm_addr;
soundbank : mm_addr;
end;
mm_gba_system = t_mmgbasystem;
pmm_gba_system = ^t_mmgbasystem;
t_mmdssystem = record
mod_count : mm_word;
samp_count : mm_word;
mem_bank : pmm_word;
fifo_channel : mm_word;
end;
mm_ds_system = t_mmdssystem;
pmm_ds_system = ^t_mmdssystem;
t_mmstream = record
sampling_rate : mm_word;
buffer_length : mm_word;
callback : mm_stream_func;
format : mm_word;
timer : mm_word;
manual : mm_bool;
end;
mm_stream = t_mmstream;
pmm_stream = ^t_mmstream;
t_mmlayer = record
tick : mm_byte;
row : mm_byte;
position : mm_byte;
nrows : mm_byte;
global_volume : mm_byte;
speed : mm_byte;
active : mm_byte;
bpm : mm_byte;
end;
mm_modlayer = t_mmlayer;
pmm_modlayer = ^t_mmlayer;
tmm_voice = record
source : mm_addr;
length : mm_word;
loop_start : mm_hword;
timer : mm_hword;
flags : mm_byte;
format : mm_byte;
rept : mm_byte;
volume : mm_byte;
divider : mm_byte;
panning : mm_byte;
index : mm_byte;
reserved : array [0..0] of mm_byte;
end;
mm_voice = tmm_voice;
pmm_voice = ^tmm_voice;
const
MMVF_FREQ = 2;
MMVF_VOLUME = 4;
MMVF_PANNING = 8;
MMVF_SOURCE = 16;
MMVF_STOP = 32;
{$endif NDS_INTERFACE}

56
packages/libgbafpc/src/maxmod/maxmod.pp Normal file
View File

@ -0,0 +1,56 @@
(****************************************************************************
* __ *
* ____ ___ ____ __ ______ ___ ____ ____/ / *
* / __ `__ \/ __ `/ |/ / __ `__ \/ __ \/ __ / *
* / / / / / / /_/ /> </ / / / / / /_/ / /_/ / *
* /_/ /_/ /_/\__,_/_/|_/_/ /_/ /_/\____/\__,_/ *
* *
* GBA Definitions *
* *
* Copyright (c) 2008, Mukunda Johnson (mukunda@maxmod.org) *
* *
* Permission to use, copy, modify, and/or distribute this software for any *
* purpose with or without fee is hereby granted, provided that the above *
* copyright notice and this permission notice appear in all copies. *
* *
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES *
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF *
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR *
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES *
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN *
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF *
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *
****************************************************************************)
unit maxmod;
{$mode objfpc}
{$J+}
{$INLINE ON}
{$MACRO ON}
{$PACKRECORDS C}
interface
uses
ctypes, gba;
{$linklib gba}
{$linklib mm}
{$linklib c}
{$linklib gcc}
{$linklib sysbase}
{$define NDS_INTERFACE}
{$include inc/mm_types.inc}
{$include inc/maxmod.inc}
{$undef NDS_INTERFACE}
implementation
{$define NDS_IMPLEMENTATION}
{$include inc/maxmod.inc}
{$undef NDS_IMPLEMENTATION}
end.