mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 11:22:35 +02:00
AROS: rtl-console, fv, FP-IDE added
git-svn-id: trunk@28552 -
This commit is contained in:
marcus
parent
434e199f0b
commit
49b0c18c53
4
.gitattributes
vendored
4
.gitattributes
vendored
@ -6586,6 +6586,10 @@ packages/rtl-console/Makefile svneol=native#text/plain
|
|||||||
packages/rtl-console/Makefile.fpc svneol=native#text/plain
|
packages/rtl-console/Makefile.fpc svneol=native#text/plain
|
||||||
packages/rtl-console/Makefile.fpc.fpcmake svneol=native#text/plain
|
packages/rtl-console/Makefile.fpc.fpcmake svneol=native#text/plain
|
||||||
packages/rtl-console/fpmake.pp svneol=native#text/plain
|
packages/rtl-console/fpmake.pp svneol=native#text/plain
|
||||||
|
packages/rtl-console/src/aros/keyboard.pp svneol=native#text/plain
|
||||||
|
packages/rtl-console/src/aros/mouse.pp svneol=native#text/plain
|
||||||
|
packages/rtl-console/src/aros/video.pp svneol=native#text/plain
|
||||||
|
packages/rtl-console/src/aros/videodata.inc svneol=native#text/plain
|
||||||
packages/rtl-console/src/emx/crt.pp svneol=native#text/plain
|
packages/rtl-console/src/emx/crt.pp svneol=native#text/plain
|
||||||
packages/rtl-console/src/go32v2/crt.pp svneol=native#text/plain
|
packages/rtl-console/src/go32v2/crt.pp svneol=native#text/plain
|
||||||
packages/rtl-console/src/go32v2/keyboard.pp svneol=native#text/plain
|
packages/rtl-console/src/go32v2/keyboard.pp svneol=native#text/plain
|
||||||
|
|||||||
@ -165,7 +165,7 @@ begin
|
|||||||
{ This one is only needed if DEBUG is set }
|
{ This one is only needed if DEBUG is set }
|
||||||
P.Dependencies.Add('regexpr');
|
P.Dependencies.Add('regexpr');
|
||||||
if not (NoGDBOption) then
|
if not (NoGDBOption) then
|
||||||
P.Dependencies.Add('gdbint',AllOSes-[morphos]);
|
P.Dependencies.Add('gdbint',AllOSes-[morphos,aros]);
|
||||||
P.Dependencies.Add('graph',[go32v2]);
|
P.Dependencies.Add('graph',[go32v2]);
|
||||||
|
|
||||||
P.SupportBuildModes:=[bmOneByOne];
|
P.SupportBuildModes:=[bmOneByOne];
|
||||||
|
|||||||
@ -86,6 +86,11 @@ type
|
|||||||
{$DEFINE AMIGASCREEN}
|
{$DEFINE AMIGASCREEN}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
{$IFDEF AROS}
|
||||||
|
{$DEFINE AMIGASCREEN}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
{$IFDEF AMIGASCREEN}
|
{$IFDEF AMIGASCREEN}
|
||||||
PAmigaScreen = ^TAmigaScreen;
|
PAmigaScreen = ^TAmigaScreen;
|
||||||
TAmigaScreen = object(TScreen)
|
TAmigaScreen = object(TScreen)
|
||||||
|
|||||||
@ -43,6 +43,9 @@ interface
|
|||||||
{$ifdef morphos}
|
{$ifdef morphos}
|
||||||
longint
|
longint
|
||||||
{$endif morphos}
|
{$endif morphos}
|
||||||
|
{$ifdef aros}
|
||||||
|
longint
|
||||||
|
{$endif aros}
|
||||||
;
|
;
|
||||||
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
|
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
|
||||||
Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
|
Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
|
||||||
|
|||||||
@ -191,6 +191,9 @@ uses
|
|||||||
{$endif}
|
{$endif}
|
||||||
{$ifdef netware_clib}
|
{$ifdef netware_clib}
|
||||||
nwserv,
|
nwserv,
|
||||||
|
{$endif}
|
||||||
|
{$ifdef aros}
|
||||||
|
dos,
|
||||||
{$endif}
|
{$endif}
|
||||||
Strings,
|
Strings,
|
||||||
WConsts;
|
WConsts;
|
||||||
@ -202,6 +205,11 @@ type
|
|||||||
procedure FreeItem(Item: Pointer); virtual;
|
procedure FreeItem(Item: Pointer); virtual;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$ifdef AROS}
|
||||||
|
var
|
||||||
|
StartupTicks: Int64;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
const
|
const
|
||||||
HelpFileTypes : PHelpFileTypeCollection = nil;
|
HelpFileTypes : PHelpFileTypeCollection = nil;
|
||||||
|
|
||||||
@ -316,6 +324,11 @@ begin
|
|||||||
GetDosTicks := -1;
|
GetDosTicks := -1;
|
||||||
end;
|
end;
|
||||||
{$endif}
|
{$endif}
|
||||||
|
{$ifdef AROS}
|
||||||
|
begin
|
||||||
|
GetDosTicks := ((dos.GetMsCount div 55) - StartupTicks) and $7FFFFFFF;
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
|
||||||
procedure DisposeRecord(var R: TRecord);
|
procedure DisposeRecord(var R: TRecord);
|
||||||
@ -992,4 +1005,9 @@ begin
|
|||||||
Dispose(HelpFiles, Done);
|
Dispose(HelpFiles, Done);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$ifdef AROS}
|
||||||
|
INITIALIZATION
|
||||||
|
StartupTicks := dos.GetMsCount div 55;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
END.
|
END.
|
||||||
|
|||||||
@ -64,7 +64,7 @@ dirs_palmos=palmunits
|
|||||||
dirs_go32v2=rtl-console fv graph unzip gdbint
|
dirs_go32v2=rtl-console fv graph unzip gdbint
|
||||||
dirs_amiga=amunits
|
dirs_amiga=amunits
|
||||||
dirs_morphos=morphunits rtl-console fv opengl sdl
|
dirs_morphos=morphunits rtl-console fv opengl sdl
|
||||||
dirs_aros=arosunits
|
dirs_aros=arosunits rtl-console fv
|
||||||
dirs_wii=libogcfpc
|
dirs_wii=libogcfpc
|
||||||
dirs_arm_nds=libndsfpc
|
dirs_arm_nds=libndsfpc
|
||||||
|
|
||||||
|
|||||||
@ -2165,7 +2165,7 @@ procedure LoadView(View: PView); syscall GfxBase 37;
|
|||||||
procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
|
procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
|
||||||
function MakeVPort(View: PView; ViewPort: PViewPort): LongWord; syscall GfxBase 36;
|
function MakeVPort(View: PView; ViewPort: PViewPort): LongWord; syscall GfxBase 36;
|
||||||
function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
|
function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
|
||||||
procedure Move(Rp: PRastPort; x, y: SmallInt); syscall GfxBase 40;
|
procedure GfxMove(Rp: PRastPort; x, y: SmallInt); syscall GfxBase 40;
|
||||||
procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
|
procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
|
||||||
function MrgCop(View: PView): LongWord; syscall GfxBase 35;
|
function MrgCop(View: PView): LongWord; syscall GfxBase 35;
|
||||||
function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
|
function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
|
||||||
|
|||||||
@ -562,11 +562,11 @@ type
|
|||||||
Width,
|
Width,
|
||||||
Height: SmallInt; // screen dimensions of window
|
Height: SmallInt; // screen dimensions of window
|
||||||
{$ifdef AROS_FLAVOUR_BINCOMPAT}
|
{$ifdef AROS_FLAVOUR_BINCOMPAT}
|
||||||
MouseX,
|
|
||||||
MouseY: SmallInt; // relative to upper-left of window
|
|
||||||
{$else}
|
|
||||||
MouseY,
|
MouseY,
|
||||||
MouseX: SmallInt; // relative to upper-left of window
|
MouseX: SmallInt; // relative to upper-left of window
|
||||||
|
{$else}
|
||||||
|
MouseX,
|
||||||
|
MouseY: SmallInt; // relative to upper-left of window
|
||||||
{$endif}
|
{$endif}
|
||||||
MinWidth,
|
MinWidth,
|
||||||
MinHeight: SmallInt; // minimum sizes
|
MinHeight: SmallInt; // minimum sizes
|
||||||
|
|||||||
@ -20,7 +20,7 @@ begin
|
|||||||
P.Author := 'Leon De Boer and Pierre Mueller';
|
P.Author := 'Leon De Boer and Pierre Mueller';
|
||||||
P.License := 'LGPL with modification, ';
|
P.License := 'LGPL with modification, ';
|
||||||
P.HomepageURL := 'www.freepascal.org';
|
P.HomepageURL := 'www.freepascal.org';
|
||||||
P.OSes := [beos,haiku,freebsd,darwin,iphonesim,solaris,netbsd,openbsd,linux,win32,win64,os2,emx,netware,netwlibc,go32v2,morphos,aix];
|
P.OSes := [beos,haiku,freebsd,darwin,iphonesim,solaris,netbsd,openbsd,linux,win32,win64,os2,emx,netware,netwlibc,go32v2,morphos,aros,aix];
|
||||||
P.Email := '';
|
P.Email := '';
|
||||||
P.Description := 'Free Vision, a portable Turbo Vision clone.';
|
P.Description := 'Free Vision, a portable Turbo Vision clone.';
|
||||||
P.NeedLibC:= false;
|
P.NeedLibC:= false;
|
||||||
@ -30,6 +30,7 @@ begin
|
|||||||
P.Dependencies.add('rtl-console');
|
P.Dependencies.add('rtl-console');
|
||||||
P.Dependencies.add('rtl-extra');
|
P.Dependencies.add('rtl-extra');
|
||||||
P.Dependencies.add('morphunits',[morphos]);
|
P.Dependencies.add('morphunits',[morphos]);
|
||||||
|
P.Dependencies.add('arosunits',[aros]);
|
||||||
|
|
||||||
T:=P.Targets.AddUnit('app.pas');
|
T:=P.Targets.AddUnit('app.pas');
|
||||||
with T.Dependencies do
|
with T.Dependencies do
|
||||||
|
|||||||
@ -94,7 +94,7 @@ USES
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF OS_AMIGA}
|
{$IFDEF OS_AMIGA}
|
||||||
amigados,
|
dos, amigados,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
video,
|
video,
|
||||||
@ -718,7 +718,9 @@ VAR
|
|||||||
EventQueue : Array [0..EventQSize - 1] Of TEvent; { Event queue }
|
EventQueue : Array [0..EventQSize - 1] Of TEvent; { Event queue }
|
||||||
EventQLast : RECORD END; { Simple end marker }
|
EventQLast : RECORD END; { Simple end marker }
|
||||||
StartupScreenMode : TVideoMode;
|
StartupScreenMode : TVideoMode;
|
||||||
|
{$ifdef OS_AMIGA}
|
||||||
|
StartupTicks: Int64; // ticks at Startup for GetDOSTicks
|
||||||
|
{$endif}
|
||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
{ GetDosTicks (18.2 Hz) }
|
{ GetDosTicks (18.2 Hz) }
|
||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
@ -769,8 +771,7 @@ var
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$IFDEF OS_AMIGA}
|
{$IFDEF OS_AMIGA}
|
||||||
begin
|
begin
|
||||||
{$WARNING FIXME: dummy implementation}
|
GetDosTicks:= ((dos.GetMsCount div 55) - StartupTicks) and $7FFFFFFF;
|
||||||
GetDosTicks:=-1;
|
|
||||||
end;
|
end;
|
||||||
{$ENDIF OS_AMIGA}
|
{$ENDIF OS_AMIGA}
|
||||||
|
|
||||||
@ -824,7 +825,11 @@ end;
|
|||||||
{$IFDEF OS_AMIGA}
|
{$IFDEF OS_AMIGA}
|
||||||
begin
|
begin
|
||||||
{ AmigaOS Delay() wait's argument in 1/50 seconds }
|
{ AmigaOS Delay() wait's argument in 1/50 seconds }
|
||||||
|
{$IFDEF AROS}
|
||||||
|
DOSDelay(2);
|
||||||
|
{$ELSE}
|
||||||
AmigaDOS.Delay(2);
|
AmigaDOS.Delay(2);
|
||||||
|
{$ENDIF}
|
||||||
end;
|
end;
|
||||||
{$ENDIF OS_AMIGA}
|
{$ENDIF OS_AMIGA}
|
||||||
|
|
||||||
@ -1583,6 +1588,9 @@ END;
|
|||||||
{ UNIT INITIALIZATION ROUTINE }
|
{ UNIT INITIALIZATION ROUTINE }
|
||||||
{***************************************************************************}
|
{***************************************************************************}
|
||||||
BEGIN
|
BEGIN
|
||||||
|
{$IFDEF OS_AMIGA}
|
||||||
|
StartupTicks := (dos.GetMsCount div 55);
|
||||||
|
{$ENDIF}
|
||||||
ButtonCount := DetectMouse; { Detect mouse }
|
ButtonCount := DetectMouse; { Detect mouse }
|
||||||
DetectVideo; { Detect video }
|
DetectVideo; { Detect video }
|
||||||
{ InitKeyboard;}
|
{ InitKeyboard;}
|
||||||
|
|||||||
@ -420,6 +420,12 @@ FOR FPC THESE ARE THE TRANSLATIONS
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
{ AROS has AmigaOS API, so define OS_AMIGA }
|
||||||
|
{$IFDEF AROS}
|
||||||
|
{$UNDEF OS_DOS}
|
||||||
|
{$DEFINE OS_AMIGA}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
{ FPC ATARI COMPILER changes op system and CPU type - Updated 27Aug98 LdB }
|
{ FPC ATARI COMPILER changes op system and CPU type - Updated 27Aug98 LdB }
|
||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
|
|||||||
@ -90,6 +90,10 @@ implementation
|
|||||||
{$i amismsg.inc}
|
{$i amismsg.inc}
|
||||||
{$define HAS_SYSMSG}
|
{$define HAS_SYSMSG}
|
||||||
{$endif morphos}
|
{$endif morphos}
|
||||||
|
{$ifdef aros}
|
||||||
|
{$i amismsg.inc}
|
||||||
|
{$define HAS_SYSMSG}
|
||||||
|
{$endif aros}
|
||||||
|
|
||||||
{$ifdef HAS_SYSMSG}
|
{$ifdef HAS_SYSMSG}
|
||||||
|
|
||||||
|
|||||||
@ -30,6 +30,7 @@ units_os2=crt video mouse keyboard
|
|||||||
units_netware=crt video mouse keyboard
|
units_netware=crt video mouse keyboard
|
||||||
units_netwlibc=crt video mouse keyboard
|
units_netwlibc=crt video mouse keyboard
|
||||||
units_morphos=video mouse keyboard
|
units_morphos=video mouse keyboard
|
||||||
|
units_aros=video mouse keyboard
|
||||||
|
|
||||||
[compiler]
|
[compiler]
|
||||||
includedir=src/$(OS_TARGET) src/inc
|
includedir=src/$(OS_TARGET) src/inc
|
||||||
|
|||||||
@ -13,10 +13,10 @@ Const
|
|||||||
UnixLikes = AllUnixOSes -[QNX];
|
UnixLikes = AllUnixOSes -[QNX];
|
||||||
|
|
||||||
WinEventOSes = [win32,win64];
|
WinEventOSes = [win32,win64];
|
||||||
KVMAll = [emx,go32v2,MorphOS,netware,netwlibc,os2,win32,win64]+UnixLikes;
|
KVMAll = [emx,go32v2,MorphOS,aros,netware,netwlibc,os2,win32,win64]+UnixLikes;
|
||||||
|
|
||||||
// all full KVMers have crt too, except MorphOS
|
// all full KVMers have crt too, except MorphOS
|
||||||
CrtOSes = KVMALL+[msdos,WatCom]-[MorphOS];
|
CrtOSes = KVMALL+[msdos,WatCom]-[MorphOS,aros];
|
||||||
KbdOSes = KVMALL+[msdos];
|
KbdOSes = KVMALL+[msdos];
|
||||||
VideoOSes = KVMALL;
|
VideoOSes = KVMALL;
|
||||||
MouseOSes = KVMALL;
|
MouseOSes = KVMALL;
|
||||||
@ -45,6 +45,7 @@ begin
|
|||||||
P.NeedLibC:= false;
|
P.NeedLibC:= false;
|
||||||
P.Dependencies.Add('rtl-extra'); // linux,android gpm.
|
P.Dependencies.Add('rtl-extra'); // linux,android gpm.
|
||||||
P.Dependencies.Add('morphunits',[morphos]);
|
P.Dependencies.Add('morphunits',[morphos]);
|
||||||
|
P.Dependencies.Add('arosunits',[aros]);
|
||||||
|
|
||||||
P.SourcePath.Add('src/inc');
|
P.SourcePath.Add('src/inc');
|
||||||
P.SourcePath.Add('src/$(OS)');
|
P.SourcePath.Add('src/$(OS)');
|
||||||
|
|||||||
470
packages/rtl-console/src/aros/keyboard.pp
Normal file
470
packages/rtl-console/src/aros/keyboard.pp
Normal file
@ -0,0 +1,470 @@
|
|||||||
|
{
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2006 by Karoly Balogh
|
||||||
|
|
||||||
|
Keyboard unit for MorphOS and Amiga and AROS
|
||||||
|
|
||||||
|
See the file COPYING.FPC, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
unit Keyboard;
|
||||||
|
interface
|
||||||
|
|
||||||
|
{$i keybrdh.inc}
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
video, exec,intuition, inputevent, mouse, sysutils, keymap;
|
||||||
|
|
||||||
|
{$i keyboard.inc}
|
||||||
|
{$i keyscan.inc}
|
||||||
|
var
|
||||||
|
LastShiftState : Byte; {set by handler for PollShiftStateEvent}
|
||||||
|
OldMouseX : LongInt;
|
||||||
|
OldmouseY : LongInt;
|
||||||
|
OldButtons: Word;
|
||||||
|
|
||||||
|
procedure SysInitKeyboard;
|
||||||
|
begin
|
||||||
|
// writeln('sysinitkeyboard');
|
||||||
|
LastShiftState := 0;
|
||||||
|
OldMouseX := -1;
|
||||||
|
OldmouseY := -1;
|
||||||
|
OldButtons := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SysDoneKeyboard;
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function IsMsgPortEmpty(Port: PMsgPort): Boolean; inline;
|
||||||
|
begin
|
||||||
|
IsMsgPortEmpty := (Port^.mp_MsgList.lh_TailPred = @(Port^.mp_MsgList));
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
KeyQueue: TKeyEvent;
|
||||||
|
|
||||||
|
type
|
||||||
|
RawCodeEntry = record
|
||||||
|
rc,n,s,c,a : Word; { raw code, normal, shift, ctrl, alt }
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
RCTABLE_MAXIDX = 24;
|
||||||
|
RawCodeTable : array[0..RCTABLE_MAXIDX] of RawCodeEntry =
|
||||||
|
(
|
||||||
|
(rc: 66; n: $0F09; s: $0F00; c: $9400; a: $A500; ), // TAB
|
||||||
|
(rc: 68; n: $1C0D; s: $1C0D; c: $1C0A; a: $1C0D; ), // Enter // shift, alt?
|
||||||
|
(rc: 69; n: $011B; s: $011B; c: $011B; a: $0100; ), // ESC // shift?
|
||||||
|
(rc: 70; n: $5300; s: $0700; c: $A300; a: $A200; ), // Delete
|
||||||
|
(rc: 71; n: $5200; s: $0500; c: $0400; a: $A200; ), // Insert
|
||||||
|
(rc: 72; n: $4900; s: $4900; c: $8400; a: $9900; ), // PgUP // shift?
|
||||||
|
(rc: 73; n: $5100; s: $5100; c: $7600; a: $A100; ), // PgDOWN // shift?
|
||||||
|
|
||||||
|
(rc: 76; n: $4800; s: $4800; c: $8D00; a: $9800; ), // UP // shift?
|
||||||
|
(rc: 77; n: $5000; s: $5000; c: $9100; a: $A000; ), // DOWN // shift?
|
||||||
|
(rc: 78; n: $4D00; s: $4D00; c: $7400; a: $9D00; ), // RIGHT // shift?
|
||||||
|
(rc: 79; n: $4B00; s: $4B00; c: $7300; a: $9B00; ), // LEFT // shift?
|
||||||
|
|
||||||
|
(rc: 80; n: $3B00; s: $5400; c: $5E00; a: $6800; ), // F1
|
||||||
|
(rc: 81; n: $3C00; s: $5500; c: $5F00; a: $6900; ), // F2
|
||||||
|
(rc: 82; n: $3D00; s: $5600; c: $6000; a: $6A00; ), // F3
|
||||||
|
(rc: 83; n: $3E00; s: $5700; c: $6100; a: $6B00; ), // F4
|
||||||
|
(rc: 84; n: $3F00; s: $5800; c: $6200; a: $6C00; ), // F5
|
||||||
|
(rc: 85; n: $4000; s: $5900; c: $6300; a: $6D00; ), // F6
|
||||||
|
(rc: 86; n: $4100; s: $5A00; c: $6400; a: $6E00; ), // F7
|
||||||
|
(rc: 87; n: $4200; s: $5B00; c: $6500; a: $6F00; ), // F8
|
||||||
|
(rc: 88; n: $4300; s: $5C00; c: $6600; a: $7000; ), // F9
|
||||||
|
(rc: 89; n: $4400; s: $5D00; c: $6700; a: $7100; ), // F10
|
||||||
|
(rc: 75; n: $8500; s: $8700; c: $8900; a: $8B00; ), // F11
|
||||||
|
(rc: 76; n: $8600; s: $8800; c: $8A00; a: $8C00; ), // F12
|
||||||
|
|
||||||
|
(rc: 112; n: $4700; s: $4700; c: $7700; a: $9700; ),// Home // shift?
|
||||||
|
(rc: 113; n: $4F00; s: $4F00; c: $7500; a: $9F00; ) // End // shift?
|
||||||
|
);
|
||||||
|
|
||||||
|
function rcTableIdx(rc: LongInt): LongInt;
|
||||||
|
var
|
||||||
|
Counter: LongInt;
|
||||||
|
begin
|
||||||
|
rcTableIdx := -1;
|
||||||
|
Counter := 0;
|
||||||
|
while (RawCodeTable[Counter].rc <> rc) and (Counter <= RCTABLE_MAXIDX) do
|
||||||
|
Inc(Counter);
|
||||||
|
if (Counter <= RCTABLE_MAXIDX) then
|
||||||
|
rcTableIdx := Counter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasShift(IQual: Word): Boolean; inline;
|
||||||
|
begin
|
||||||
|
HasShift := ((IQual and IEQUALIFIER_LSHIFT) <> 0) or
|
||||||
|
((IQual and IEQUALIFIER_RSHIFT) <> 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasCtrl(IQual: Word): Boolean; inline;
|
||||||
|
begin
|
||||||
|
HasCtrl := ((IQual and IEQUALIFIER_CONTROL) <> 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasAlt(IQual: Word): Boolean; inline;
|
||||||
|
begin
|
||||||
|
HasAlt := ((IQual and IEQUALIFIER_LALT) <> 0) or
|
||||||
|
((IQual and IEQUALIFIER_RALT) <> 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function rcTableCode(IQual: Word; Idx: LongInt): LongInt;
|
||||||
|
begin
|
||||||
|
if (Idx < 0) or (Idx > RCTABLE_MAXIDX) then
|
||||||
|
begin
|
||||||
|
rcTableCode := -1;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if HasShift(IQual) then
|
||||||
|
rcTableCode:=RawCodeTable[Idx].s
|
||||||
|
else
|
||||||
|
if HasCtrl(IQual) then
|
||||||
|
rcTableCode:=RawCodeTable[Idx].c
|
||||||
|
else
|
||||||
|
if HasAlt(IQual) then
|
||||||
|
rcTableCode:=RawCodeTable[Idx].a
|
||||||
|
else
|
||||||
|
rcTableCode:=RawCodeTable[Idx].n;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure setShiftState(IQual: Word);
|
||||||
|
begin
|
||||||
|
LastShiftState := 0;
|
||||||
|
if ((IQual and IEQUALIFIER_LSHIFT) <> 0) then
|
||||||
|
LastShiftState := LastShiftState or $01;
|
||||||
|
if ((IQual and IEQUALIFIER_RSHIFT) <> 0) then
|
||||||
|
LastShiftState := LastShiftState or $02;
|
||||||
|
if HasCtrl(IQual) then
|
||||||
|
LastShiftState := LastShiftState or $04;
|
||||||
|
if HasAlt(IQual) then
|
||||||
|
LastShiftState := LastShiftState or $08;
|
||||||
|
if ((IQual and IEQUALIFIER_NUMERICPAD) <> 0) then
|
||||||
|
LastShiftState := LastShiftState or $20;
|
||||||
|
if ((IQual and IEQUALIFIER_CAPSLOCK) <> 0) then
|
||||||
|
LastShiftState := LastShiftState or $40;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysPollKeyEvent: TKeyEvent;
|
||||||
|
var
|
||||||
|
MouseEvent: Boolean; // got a mouseevent -> do not leave cycle
|
||||||
|
SendMouse: Boolean; // we got a (or many) mouse move send the last one
|
||||||
|
mes: TMouseEvent; // save mouse message send after cycle -> prevent mouse move stacking
|
||||||
|
me: TMouseEvent;
|
||||||
|
KeyCode: LongInt;
|
||||||
|
OldKeyCode: LongInt;
|
||||||
|
KeySet: ^TKeyRecord; // points to result to set fields directly
|
||||||
|
Ret: LongInt;
|
||||||
|
//
|
||||||
|
iMsg: PIntuiMessage;
|
||||||
|
ICode: Word; // save items from Message
|
||||||
|
IQual: Word;
|
||||||
|
IClass: Longword;
|
||||||
|
MouseX: Integer;
|
||||||
|
MouseY: Integer;
|
||||||
|
KeyUp: Boolean; // Event is a key up event
|
||||||
|
Buff: array[0..19] of Char;
|
||||||
|
ie: TInputEvent; // for mapchar
|
||||||
|
begin
|
||||||
|
KeyCode := 0;
|
||||||
|
SysPollKeyEvent := 0;
|
||||||
|
KeySet := @SysPollKeyEvent;
|
||||||
|
FillChar(me, SizeOf(TMouseEvent), 0);
|
||||||
|
|
||||||
|
if KeyQueue <> 0 then
|
||||||
|
begin
|
||||||
|
SysPollKeyEvent := KeyQueue;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
SendMouse := False;
|
||||||
|
repeat
|
||||||
|
MouseEvent := False;
|
||||||
|
if VideoWindow <> nil then
|
||||||
|
begin
|
||||||
|
if IsMsgPortEmpty(videoWindow^.UserPort) then
|
||||||
|
Break;
|
||||||
|
end else
|
||||||
|
Exit;
|
||||||
|
PMessage(iMsg) := GetMsg(VideoWindow^.UserPort);
|
||||||
|
if (iMsg <> nil) then
|
||||||
|
begin
|
||||||
|
ICode := iMsg^.Code;
|
||||||
|
IQual := iMsg^.Qualifier;
|
||||||
|
IClass := iMsg^.iClass;
|
||||||
|
MouseX := iMsg^.MouseX;
|
||||||
|
MouseY := iMsg^.MouseY;
|
||||||
|
ReplyMsg(PMessage(iMsg)); // fast reply to system
|
||||||
|
SetShiftState(IQual); // set Shift state qualifiers. do this for all messages we get.
|
||||||
|
// main event case
|
||||||
|
case (IClass) of
|
||||||
|
IDCMP_CLOSEWINDOW: begin
|
||||||
|
//writeln('got close');
|
||||||
|
GotCloseWindow;
|
||||||
|
end;
|
||||||
|
IDCMP_CHANGEWINDOW: begin
|
||||||
|
GotResizeWindow;
|
||||||
|
end;
|
||||||
|
IDCMP_MOUSEBUTTONS: begin
|
||||||
|
MouseEvent := True;
|
||||||
|
me.x := (MouseX - videoWindow^.BorderLeft) div 8; // calculate char position
|
||||||
|
me.y := (MouseY - videoWindow^.BorderTop) div 16;
|
||||||
|
case ICode of
|
||||||
|
SELECTDOWN: begin
|
||||||
|
//writeln('left down!');
|
||||||
|
me.Action := MouseActionDown;
|
||||||
|
OldButtons := OldButtons or MouseLeftButton;
|
||||||
|
me.Buttons := OldButtons;
|
||||||
|
PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
SELECTUP: begin
|
||||||
|
//writeln('left up!');
|
||||||
|
me.Action := MouseActionUp;
|
||||||
|
OldButtons := OldButtons and (not MouseLeftButton);
|
||||||
|
me.Buttons := OldButtons;
|
||||||
|
PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
MENUDOWN: begin
|
||||||
|
//writeln('right down!');
|
||||||
|
me.Action := MouseActionDown;
|
||||||
|
OldButtons := OldButtons or MouseRightButton;
|
||||||
|
me.Buttons := OldButtons;
|
||||||
|
PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
MENUUP: begin
|
||||||
|
//writeln('right up!');
|
||||||
|
me.Action := MouseActionUp;
|
||||||
|
OldButtons := OldButtons and (not MouseRightButton);
|
||||||
|
me.Buttons := OldButtons;
|
||||||
|
PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
//writeln('Buttons: ' , me.Buttons);
|
||||||
|
end;
|
||||||
|
IDCMP_MOUSEMOVE: begin
|
||||||
|
MouseX := (MouseX - VideoWindow^.BorderLeft) div 8;
|
||||||
|
MouseY := (MouseY - VideoWindow^.BorderTop) div 16;
|
||||||
|
if (MouseX >= 0) and (MouseY >= 0) and
|
||||||
|
(MouseX < Video.ScreenWidth) and (MouseY < Video.ScreenHeight) and
|
||||||
|
((MouseX <> OldMouseX) or (MouseY <> OldmouseY))
|
||||||
|
then begin
|
||||||
|
// //writeln('mousemove:',Mousex,'/',Mousey,' oldbutt:',OldButtons);
|
||||||
|
// Drawing is very slow so when moving window it will drag behind
|
||||||
|
// because the mouse events stack in the messageport
|
||||||
|
// -> so we override move until messageport is empty or keyevent is fired
|
||||||
|
SendMouse := True;
|
||||||
|
MouseEvent := True;
|
||||||
|
mes.Action := MouseActionMove;
|
||||||
|
mes.Buttons := OldButtons;
|
||||||
|
mes.X := MouseX;
|
||||||
|
mes.Y := MouseY;
|
||||||
|
//PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
IDCMP_RAWKEY: begin
|
||||||
|
// mouse wheel up or down -> pgup and pgdown
|
||||||
|
if ICode = 122 then
|
||||||
|
ICode := 72;
|
||||||
|
if ICode = 123 then
|
||||||
|
ICode := 73;
|
||||||
|
// get char from rawkey
|
||||||
|
KeyUp := (ICode and IECODE_UP_PREFIX) <> 0; // is key up
|
||||||
|
ICode := ICode and not IECODE_UP_PREFIX; // remove key up from ICode
|
||||||
|
ie.ie_Class := IECLASS_RAWKEY;
|
||||||
|
ie.ie_SubClass := 0;
|
||||||
|
ie.ie_Code := ICode;
|
||||||
|
ie.ie_Qualifier := IQual;
|
||||||
|
ie.ie_NextEvent := nil;
|
||||||
|
Buff[0] := #0;
|
||||||
|
Ret := MapRawKey(@ie, @Buff[0], 1, nil);
|
||||||
|
KeyCode := Ord(Buff[0]);
|
||||||
|
KeySet^.KeyCode := Ord(Buff[0]); // if maprawkey does not work it still is 0
|
||||||
|
KeySet^.ShiftState := LastShiftState; // shift state set before the case
|
||||||
|
KeySet^.Flags := 0;
|
||||||
|
if keyup then // we do not need key up events up to now
|
||||||
|
begin
|
||||||
|
KeySet^.Flags := KeySet^.Flags or kbReleased; // kbReleased does work but make strange effects
|
||||||
|
SysPollKeyEvent := 0;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
// check our hard coed list if there is an entry -> leave it must be right ;)
|
||||||
|
// F-keys, cursor, esc, del, ins, del, pgup, pgdown, pos, end, enter, tab
|
||||||
|
if rcTableCode(IQual,rcTableIdx(ICode)) >= 0 then
|
||||||
|
begin
|
||||||
|
KeyCode := rcTableCode(IQual,rcTableIdx(ICode));
|
||||||
|
KeySet^.KeyCode := KeyCode;
|
||||||
|
KeySet^.Flags := kbPhys;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
// left alt or ctrl is pressed -> check for alternative Scancode -> commando
|
||||||
|
if ((IQual and IEQUALIFIER_LALT) <> 0) or HasCtrl(IQual) then
|
||||||
|
begin
|
||||||
|
OldKeyCode := KeyCode; // save keycode if nothing found
|
||||||
|
KeyCode := 0;
|
||||||
|
ie.ie_Class := IECLASS_RAWKEY; // get keycode without qualifier easier case
|
||||||
|
ie.ie_SubClass := 0;
|
||||||
|
ie.ie_Code := ICode;
|
||||||
|
ie.ie_Qualifier := 0;
|
||||||
|
ie.ie_NextEvent := nil;
|
||||||
|
Buff[0] := #0;
|
||||||
|
Ret := MapRawKey(@ie, @Buff[0], 1, nil);
|
||||||
|
if Ret > 0 then
|
||||||
|
begin
|
||||||
|
if ((IQual and IEQUALIFIER_LALT) <> 0) then // check left alt keycodes
|
||||||
|
begin
|
||||||
|
case Buff[0] of // Alt - keys already defined
|
||||||
|
'a': KeyCode := kbAltA shl 8;
|
||||||
|
'b': KeyCode := kbAltB shl 8;
|
||||||
|
'c': KeyCode := kbAltC shl 8;
|
||||||
|
'd': KeyCode := kbAltD shl 8;
|
||||||
|
'e': KeyCode := kbAltE shl 8;
|
||||||
|
'f': KeyCode := kbAltF shl 8;
|
||||||
|
'g': KeyCode := kbAltG shl 8;
|
||||||
|
'h': KeyCode := kbAltH shl 8;
|
||||||
|
'i': KeyCode := kbAltI shl 8;
|
||||||
|
'j': KeyCode := kbAltJ shl 8;
|
||||||
|
'k': KeyCode := kbAltK shl 8;
|
||||||
|
'l': KeyCode := kbAltL shl 8;
|
||||||
|
'm': KeyCode := kbAltM shl 8;
|
||||||
|
'n': KeyCode := kbAltN shl 8;
|
||||||
|
'o': KeyCode := kbAltO shl 8;
|
||||||
|
'p': KeyCode := kbAltP shl 8;
|
||||||
|
'q': KeyCode := kbAltQ shl 8;
|
||||||
|
'r': KeyCode := kbAltR shl 8;
|
||||||
|
's': KeyCode := kbAltS shl 8;
|
||||||
|
't': KeyCode := kbAltT shl 8;
|
||||||
|
'u': KeyCode := kbAltU shl 8;
|
||||||
|
'v': KeyCode := kbAltV shl 8;
|
||||||
|
'w': KeyCode := kbAltW shl 8;
|
||||||
|
'x': KeyCode := kbAltX shl 8;
|
||||||
|
'y': KeyCode := kbAltY shl 8;
|
||||||
|
'z': KeyCode := kbAltZ shl 8;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
case Buff[0] of // ctrl - keys defined in FreeVision/drivers.pas -> so here direct numbers
|
||||||
|
'a': KeyCode := $1E01;
|
||||||
|
'b': KeyCode := $3002;
|
||||||
|
'c': KeyCode := $2E03;
|
||||||
|
'd': KeyCode := $2004;
|
||||||
|
'e': KeyCode := $1205;
|
||||||
|
'f': KeyCode := $2106;
|
||||||
|
'g': KeyCode := $2207;
|
||||||
|
'h': KeyCode := $2308;
|
||||||
|
'i': KeyCode := $1709;
|
||||||
|
'j': KeyCode := $240a;
|
||||||
|
'k': KeyCode := $250b;
|
||||||
|
'l': KeyCode := $260c;
|
||||||
|
'm': KeyCode := $320d;
|
||||||
|
'n': KeyCode := $310e;
|
||||||
|
'o': KeyCode := $180f;
|
||||||
|
'p': KeyCode := $1910;
|
||||||
|
'q': KeyCode := $1011;
|
||||||
|
'r': KeyCode := $1312;
|
||||||
|
's': KeyCode := $1F13;
|
||||||
|
't': KeyCode := $1414;
|
||||||
|
'u': KeyCode := $1615;
|
||||||
|
'v': KeyCode := $2F16;
|
||||||
|
'w': KeyCode := $1117;
|
||||||
|
'x': KeyCode := $2D18;
|
||||||
|
'y': KeyCode := $1519;
|
||||||
|
'z': KeyCode := $2C1A;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if KeyCode <= 0 then // nothing found restore keycode
|
||||||
|
KeyCode := OldKeyCode;
|
||||||
|
KeySet^.KeyCode := KeyCode;
|
||||||
|
KeySet^.Flags := kbPhys;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if keycode <= 0 then
|
||||||
|
begin
|
||||||
|
KeySet^.KeyCode := 0;
|
||||||
|
KeyCode := 0;
|
||||||
|
end;
|
||||||
|
//writeln('raw keycode: ',iMsg^.code, ' -> $', IntToHex(keycode,4), ' ret: ', ret);
|
||||||
|
end;
|
||||||
|
else begin
|
||||||
|
KeyCode := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
Break;
|
||||||
|
until (not MouseEvent);
|
||||||
|
//
|
||||||
|
if SendMouse then
|
||||||
|
begin
|
||||||
|
PutMouseEvent(mes);
|
||||||
|
OldMouseX:=Mousex;
|
||||||
|
OldmouseY:=Mousey;
|
||||||
|
end;
|
||||||
|
if KeyCode <= 0 then // no keycode found then also delete flags and shiftstate
|
||||||
|
SysPollKeyEvent := 0
|
||||||
|
else
|
||||||
|
KeyQueue:=SysPollKeyEvent;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysGetKeyEvent: TKeyEvent;
|
||||||
|
var
|
||||||
|
Res: TKeyEvent;
|
||||||
|
me: TMouseEvent;
|
||||||
|
begin
|
||||||
|
Res := 0;
|
||||||
|
if VideoWindow <> nil then
|
||||||
|
begin
|
||||||
|
if KeyQueue <> 0 then
|
||||||
|
begin
|
||||||
|
SysGetKeyEvent := KeyQueue;
|
||||||
|
KeyQueue := 0;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
repeat
|
||||||
|
WaitPort(VideoWindow^.UserPort);
|
||||||
|
Res := SysPollKeyEvent;
|
||||||
|
until Res <> 0;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
me.Action := MouseActionDown;
|
||||||
|
me.Buttons := MouseRightButton;
|
||||||
|
PutMouseEvent(me);
|
||||||
|
end;
|
||||||
|
SysGetKeyEvent := Res;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{function SysTranslateKeyEvent(KeyEvent: TKeyEvent): TKeyEvent;
|
||||||
|
begin
|
||||||
|
end;}
|
||||||
|
|
||||||
|
function SysGetShiftState: Byte;
|
||||||
|
begin
|
||||||
|
//writeln('SysgetShiftState:',hexstr(LastShiftState,2));
|
||||||
|
SysGetShiftState := LastShiftState;
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
SysKeyboardDriver : TKeyboardDriver = (
|
||||||
|
InitDriver : @SysInitKeyBoard;
|
||||||
|
DoneDriver : @SysDoneKeyBoard;
|
||||||
|
GetKeyevent : @SysGetKeyEvent;
|
||||||
|
PollKeyEvent : @SysPollKeyEvent;
|
||||||
|
GetShiftState : @SysGetShiftState;
|
||||||
|
// TranslateKeyEvent : @SysTranslateKeyEvent;
|
||||||
|
TranslateKeyEvent : Nil;
|
||||||
|
TranslateKeyEventUnicode : Nil;
|
||||||
|
);
|
||||||
|
|
||||||
|
begin
|
||||||
|
SetKeyBoardDriver(SysKeyBoardDriver);
|
||||||
|
end.
|
||||||
61
packages/rtl-console/src/aros/mouse.pp
Normal file
61
packages/rtl-console/src/aros/mouse.pp
Normal file
@ -0,0 +1,61 @@
|
|||||||
|
{
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2006 Karoly Balogh
|
||||||
|
member of the Free Pascal development team
|
||||||
|
|
||||||
|
Mouse unit for Amiga/MorphOS
|
||||||
|
|
||||||
|
See the file COPYING.FPC, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
unit Mouse;
|
||||||
|
interface
|
||||||
|
|
||||||
|
{$i mouseh.inc}
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$i mouse.inc}
|
||||||
|
|
||||||
|
function SysDetectMouse:byte;
|
||||||
|
var
|
||||||
|
num : dword;
|
||||||
|
begin
|
||||||
|
// Under Amiga/MorphOS, mouse is always there, and it's unable to easily
|
||||||
|
// detect number of buttons. So lets report 3, which is common nowadays. (KB)
|
||||||
|
SysDetectMouse:=3;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
const
|
||||||
|
SysMouseDriver : TMouseDriver = (
|
||||||
|
UseDefaultQueue : True;
|
||||||
|
InitDriver : Nil;
|
||||||
|
DoneDriver : Nil;
|
||||||
|
DetectMouse : @SysDetectMouse;
|
||||||
|
ShowMouse : Nil;
|
||||||
|
HideMouse : Nil;
|
||||||
|
GetMouseX : Nil;
|
||||||
|
GetMouseY : Nil;
|
||||||
|
GetMouseButtons : Nil;
|
||||||
|
SetMouseXY : Nil;
|
||||||
|
GetMouseEvent : Nil;
|
||||||
|
PollMouseEvent : Nil;
|
||||||
|
PutMouseEvent : Nil;
|
||||||
|
);
|
||||||
|
|
||||||
|
begin
|
||||||
|
SetMouseDriver(SysMouseDriver);
|
||||||
|
end.
|
||||||
606
packages/rtl-console/src/aros/video.pp
Normal file
606
packages/rtl-console/src/aros/video.pp
Normal file
@ -0,0 +1,606 @@
|
|||||||
|
{
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2006 by Karoly Balogh
|
||||||
|
member of the Free Pascal development team
|
||||||
|
|
||||||
|
Video unit for Amiga and MorphOS
|
||||||
|
|
||||||
|
See the file COPYING.FPC, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
|
||||||
|
unit Video;
|
||||||
|
|
||||||
|
{.$define VIDEODEBUG}
|
||||||
|
{.$define WITHBUFFERING}
|
||||||
|
|
||||||
|
|
||||||
|
{
|
||||||
|
Date: 2013-01-09
|
||||||
|
What: Adjusted FPC video unit for AROS (/AmigaOS?)
|
||||||
|
|
||||||
|
goal:
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
Attempt to add user-on-demand support for AROS Fullscreen to the FPC video
|
||||||
|
unit.
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
amigados, intuition, tagsarray, utility, sysutils;
|
||||||
|
|
||||||
|
{$i videoh.inc}
|
||||||
|
|
||||||
|
|
||||||
|
{ Amiga specific calls, to help interaction between Keyboard, Mouse and
|
||||||
|
Video units, and Free Vision }
|
||||||
|
procedure GotCloseWindow;
|
||||||
|
function HasCloseWindow: boolean;
|
||||||
|
procedure GotResizeWindow;
|
||||||
|
function HasResizeWindow(var winw:longint; var winh: longint): boolean;
|
||||||
|
|
||||||
|
var
|
||||||
|
VideoWindow: PWindow;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
exec, agraphics;
|
||||||
|
|
||||||
|
{$i video.inc}
|
||||||
|
|
||||||
|
{$i videodata.inc}
|
||||||
|
|
||||||
|
const
|
||||||
|
VIDEOSCREENNAME = 'FPC Video Screen Output';
|
||||||
|
|
||||||
|
var
|
||||||
|
OS_Screen : PScreen = nil; // To hold our screen, when necessary
|
||||||
|
FPC_VIDEO_FULLSCREEN : Boolean = False; // Global that defines when we need to attempt opening on own scren
|
||||||
|
|
||||||
|
var
|
||||||
|
VideoColorMap : PColorMap;
|
||||||
|
VideoPens : array[0..15] of LongInt;
|
||||||
|
|
||||||
|
OldCursorX,
|
||||||
|
OldCursorY : LongInt;
|
||||||
|
CursorType : Word;
|
||||||
|
OldCursorType : Word;
|
||||||
|
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
BitmapWidth, BitmapHeight: Integer;
|
||||||
|
BufRp: PRastPort;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
GotCloseWindowMsg : Boolean;
|
||||||
|
GotResizeWindowMsg : Boolean;
|
||||||
|
LastL, LastT: Integer;
|
||||||
|
LastW, LastH: Integer;
|
||||||
|
WindowForReqSave: PWindow;
|
||||||
|
Process: PProcess;
|
||||||
|
(*
|
||||||
|
GetScreen: pScreen;
|
||||||
|
|
||||||
|
Tries to open a custom screen, which attempt to clone the workbench,
|
||||||
|
and returns the pointer to the screen. Result can be nil when failed
|
||||||
|
otherwise the screen got opened correctly.
|
||||||
|
*)
|
||||||
|
Function GetScreen: pScreen;
|
||||||
|
var
|
||||||
|
ScreenTags: TTagsList;
|
||||||
|
Tags: PTagItem;
|
||||||
|
begin
|
||||||
|
AddTags(ScreenTags,[
|
||||||
|
SA_Title , VIDEOSCREENNAME,
|
||||||
|
SA_Left , 0,
|
||||||
|
SA_Top , 0,
|
||||||
|
SA_ShowTitle , 0, // Do not show the screen's TitleBar
|
||||||
|
SA_Type , 1 shl 1, // pubscreen
|
||||||
|
SA_PubName , VIDEOSCREENNAME,
|
||||||
|
SA_Quiet , True,
|
||||||
|
SA_LikeWorkbench , 1 // Let OS
|
||||||
|
]);
|
||||||
|
Tags := GetTagPtr(ScreenTags);
|
||||||
|
GetScreen := OpenScreenTagList(nil, Tags);
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
if (GetScreen <> nil) then
|
||||||
|
Writeln('DEBUG: Opened a new screen')
|
||||||
|
else
|
||||||
|
Writeln('ERROR: Failed to open new screen');
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
GetWindow: pWindow;
|
||||||
|
|
||||||
|
Tries to create and open a window. Returns the pointer to
|
||||||
|
the window or nil in case of failure.
|
||||||
|
|
||||||
|
The routine keeps the global FPC_FULL_SCREEM option into
|
||||||
|
account and act accordingly.
|
||||||
|
|
||||||
|
In windowed mode it returns a window with another kind of
|
||||||
|
settings then when it has to reside on it's own customscreen.
|
||||||
|
*)
|
||||||
|
Function GetWindow: PWindow;
|
||||||
|
Var
|
||||||
|
WindowTags: TTagsList;
|
||||||
|
Tags: PTagItem;
|
||||||
|
begin
|
||||||
|
if FPC_VIDEO_FULLSCREEN then
|
||||||
|
begin
|
||||||
|
OS_Screen := GetScreen;
|
||||||
|
If OS_Screen = nil then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
WriteLn('DEBUG: Opened customscreen succesfully');
|
||||||
|
{$endif}
|
||||||
|
Addtags(WindowTags, [
|
||||||
|
WA_CustomScreen, OS_Screen,
|
||||||
|
WA_Left , 0,
|
||||||
|
WA_Top , 0,
|
||||||
|
WA_InnerWidth , (OS_Screen^.Width div 8) * 8,
|
||||||
|
WA_InnerHeight, (OS_Screen^.Height div 16) * 16,
|
||||||
|
WA_AutoAdjust , 1,
|
||||||
|
WA_Activate , 1,
|
||||||
|
WA_Borderless , 1,
|
||||||
|
WA_BackDrop , 1,
|
||||||
|
WA_FLAGS , (WFLG_GIMMEZEROZERO or WFLG_REPORTMOUSE or WFLG_RMBTRAP or
|
||||||
|
WFLG_SMART_REFRESH or WFLG_NOCAREREFRESH),
|
||||||
|
WA_IDCMP , (IDCMP_RAWKEY or
|
||||||
|
IDCMP_MOUSEMOVE or IDCMP_MOUSEBUTTONS or
|
||||||
|
IDCMP_CHANGEWINDOW or IDCMP_CLOSEWINDOW)
|
||||||
|
]);
|
||||||
|
end else
|
||||||
|
begin // Windowed Mode
|
||||||
|
AddTags(WindowTags, [
|
||||||
|
WA_Left , LastL,
|
||||||
|
WA_Top , LastT,
|
||||||
|
WA_InnerWidth , LastW*8,
|
||||||
|
WA_InnerHeight, LastH*16,
|
||||||
|
WA_MaxWidth , 32768,
|
||||||
|
WA_MaxHeight , 32768,
|
||||||
|
WA_Title , PChar('FPC Video Window Output'),
|
||||||
|
WA_Activate , 1,
|
||||||
|
WA_FLAGS , (WFLG_GIMMEZEROZERO or WFLG_REPORTMOUSE or
|
||||||
|
WFLG_SMART_REFRESH or WFLG_NOCAREREFRESH or
|
||||||
|
WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or
|
||||||
|
WFLG_SIZEBBOTTOM or WFLG_RMBTRAP or WFLG_CLOSEGADGET),
|
||||||
|
WA_IDCMP , (IDCMP_RAWKEY or
|
||||||
|
IDCMP_MOUSEMOVE or IDCMP_MOUSEBUTTONS or
|
||||||
|
IDCMP_CHANGEWINDOW or IDCMP_CLOSEWINDOW)//,
|
||||||
|
]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Tags := GetTagPtr(WindowTags);
|
||||||
|
GetWindow := OpenWindowTagList(nil, Tags);
|
||||||
|
|
||||||
|
Process := PProcess(FindTask(nil));
|
||||||
|
WindowForReqSave := Process^.pr_WindowPtr;
|
||||||
|
Process^.pr_WindowPtr := GetWindow;
|
||||||
|
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
If GetWindow <> nil then
|
||||||
|
WriteLn('DEBUG: Sucessfully opened videounit Window')
|
||||||
|
else
|
||||||
|
WriteLn('ERROR: Failed to open videounit Window');
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// ==========================================================================
|
||||||
|
// ==
|
||||||
|
// == Original source code continues, with minor adjustments
|
||||||
|
// ==
|
||||||
|
// ==========================================================================
|
||||||
|
|
||||||
|
|
||||||
|
procedure SysInitVideo;
|
||||||
|
var
|
||||||
|
Counter: LongInt;
|
||||||
|
begin
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
WriteLn('FULLSCREEN VIDEO UNIT MODIFICATION v2');
|
||||||
|
if FPC_VIDEO_FULLSCREEN then
|
||||||
|
WriteLn('DEBUG: Recognized fullscreen mode')
|
||||||
|
else
|
||||||
|
WriteLn('DEBUG: Recognized windowed mode');
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
// fill videobuf and oldvideobuf with different bytes, to allow proper first draw
|
||||||
|
FillDword(VideoBuf^, VideoBufSize div 4, $1234D3AD);
|
||||||
|
FillDword(OldVideoBuf^, VideoBufSize div 4, $4321BEEF);
|
||||||
|
|
||||||
|
VideoWindow := GetWindow;
|
||||||
|
|
||||||
|
// nice hardcode values are probably going to screw up things
|
||||||
|
// so wee neeed a way to detrmined how many chars could be on
|
||||||
|
// the screen in both directions. And a bit accurate.
|
||||||
|
if FPC_VIDEO_FULLSCREEN then
|
||||||
|
begin
|
||||||
|
// just to make sure that we are going to use the window width
|
||||||
|
// and height instead of the one from the screen.
|
||||||
|
// This is to circumvent that the window (or virtual window from
|
||||||
|
// vision based on characters pixels * characters in both
|
||||||
|
// dimensions) is actually smaller then the window it resides on.
|
||||||
|
//
|
||||||
|
// Can happen for instance when the window does not hide it's
|
||||||
|
// borders or title as intended.
|
||||||
|
ScreenWidth := VideoWindow^.GZZWidth div 8;
|
||||||
|
ScreenHeight := VideoWindow^.GZZHeight div 16;
|
||||||
|
ScreenColor := False;
|
||||||
|
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
Writeln('DEBUG: Fullscreen - windowed - Width * Heigth = ',ScreenWidth,' * ',ScreenHeight);
|
||||||
|
{$endif}
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
ScreenWidth := LastW;
|
||||||
|
ScreenHeight := LastH;
|
||||||
|
ScreenColor := True;
|
||||||
|
end;
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
BufRp^.Bitmap := AllocBitmap(VideoWindow^.GZZWidth, VideoWindow^.GZZHeight, VideoWindow^.RPort^.Bitmap^.Depth, BMF_CLEAR, VideoWindow^.RPort^.Bitmap);
|
||||||
|
BitmapWidth := VideoWindow^.GZZWidth;
|
||||||
|
BitmapHeight := VideoWindow^.GZZHeight;
|
||||||
|
{$endif}
|
||||||
|
{ viewpostcolormap info }
|
||||||
|
videoColorMap := pScreen(videoWindow^.WScreen)^.ViewPort.ColorMap;
|
||||||
|
|
||||||
|
for Counter := 0 to 15 do
|
||||||
|
begin
|
||||||
|
VideoPens[Counter] := ObtainPen(VideoColorMap, LongWord(-1),
|
||||||
|
vgacolors[counter, 0] shl 24, vgacolors[counter, 1] shl 24, vgacolors[counter, 2] shl 24,
|
||||||
|
PEN_EXCLUSIVE);
|
||||||
|
{$ifdef VIDEODEBUG}
|
||||||
|
If VideoPens[Counter] = -1 then
|
||||||
|
WriteLn('errr color[',Counter,'] = ', VideoPens[Counter])
|
||||||
|
else
|
||||||
|
WriteLn('good color[',Counter,'] = ', VideoPens[Counter]);
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
CursorX := 0;
|
||||||
|
CursorY := 0;
|
||||||
|
OldCursorX := 0;
|
||||||
|
OldCursorY := 0;
|
||||||
|
CursorType := crHidden;
|
||||||
|
OldCursorType := crHidden;
|
||||||
|
|
||||||
|
GotCloseWindowMsg := false;
|
||||||
|
GotResizeWindowMsg := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SysDoneVideo;
|
||||||
|
var
|
||||||
|
Counter: LongInt;
|
||||||
|
begin
|
||||||
|
if VideoWindow <> nil then
|
||||||
|
begin
|
||||||
|
Process^.pr_WindowPtr := WindowForReqSave;
|
||||||
|
if not FPC_VIDEO_FULLSCREEN then
|
||||||
|
begin
|
||||||
|
LastL := VideoWindow^.LeftEdge;
|
||||||
|
LastT := VideoWindow^.TopEdge;
|
||||||
|
end;
|
||||||
|
CloseWindow(videoWindow);
|
||||||
|
end;
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
FreeBitmap(BufRp^.Bitmap);
|
||||||
|
BufRp^.Bitmap := nil;
|
||||||
|
{$endif}
|
||||||
|
VideoWindow := nil;
|
||||||
|
for Counter := 0 to 15 do
|
||||||
|
ReleasePen(VideoColorMap, VideoPens[Counter]);
|
||||||
|
if ((FPC_VIDEO_FULLSCREEN) and (OS_Screen <> nil)) then
|
||||||
|
begin
|
||||||
|
CloseScreen(OS_Screen);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysSetVideoMode(const Mode: TVideoMode): Boolean;
|
||||||
|
var
|
||||||
|
dx: integer;
|
||||||
|
dy: integer;
|
||||||
|
begin
|
||||||
|
if ScreenColor <> Mode.Color then
|
||||||
|
begin
|
||||||
|
SysDoneVideo;
|
||||||
|
FPC_VIDEO_FULLSCREEN := not Mode.color;
|
||||||
|
if not FPC_VIDEO_FULLSCREEN then
|
||||||
|
begin
|
||||||
|
LastT := 50;
|
||||||
|
LastL := 50;
|
||||||
|
LastW := 80;
|
||||||
|
LastH := 25;
|
||||||
|
end;
|
||||||
|
SysInitVideo;
|
||||||
|
end else
|
||||||
|
if not FPC_VIDEO_FULLSCREEN then
|
||||||
|
begin
|
||||||
|
dx := (Mode.col * 8) - VideoWindow^.GZZWidth;
|
||||||
|
dy := (Mode.row * 16) - VideoWindow^.GZZHeight;
|
||||||
|
SizeWindow(videoWindow, dx, dy);
|
||||||
|
end;
|
||||||
|
ScreenWidth := Mode.col;
|
||||||
|
ScreenHeight := Mode.row;
|
||||||
|
LastW := Mode.Col;
|
||||||
|
LastH := Mode.Row;
|
||||||
|
ScreenColor := Mode.color;
|
||||||
|
SysSetVideoMode := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
OldSH, OldSW : longint;
|
||||||
|
|
||||||
|
procedure SysClearScreen;
|
||||||
|
begin
|
||||||
|
oldSH := -1;
|
||||||
|
oldSW := -1;
|
||||||
|
UpdateScreen(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure DrawChar(rp: PRastPort; x, y: LongInt; crType: Word);
|
||||||
|
var
|
||||||
|
TmpCharData: Word;
|
||||||
|
TmpChar: Byte;
|
||||||
|
TmpFGColor: Byte;
|
||||||
|
TmpBGColor: Byte;
|
||||||
|
sX, sY: LongInt;
|
||||||
|
begin
|
||||||
|
TmpCharData := VideoBuf^[y * ScreenWidth + x];
|
||||||
|
TmpChar := TmpCharData and $0ff;
|
||||||
|
TmpFGColor := (TmpCharData shr 8) and %00001111;
|
||||||
|
TmpBGColor := (TmpCharData shr 12) and %00000111;
|
||||||
|
|
||||||
|
sX := x * 8;
|
||||||
|
sY := y * 16;
|
||||||
|
|
||||||
|
if crType <> crBlock then
|
||||||
|
begin
|
||||||
|
SetABPenDrMd(rp, VideoPens[TmpFGColor], VideoPens[tmpBGColor], JAM2);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
{ in case of block cursor, swap fg/bg colors
|
||||||
|
and BltTemplate() below will take care of everything }
|
||||||
|
SetABPenDrMd(rp, VideoPens[tmpBGColor], VideoPens[tmpFGColor], JAM2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
BltTemplate(@Vgafont[tmpChar, 0], 0, 1, rp, sX, sY, 8, 16);
|
||||||
|
|
||||||
|
if crType = crUnderLine then
|
||||||
|
begin
|
||||||
|
{ draw two lines at the bottom of the char, in case of underline cursor }
|
||||||
|
GfxMove(rp, sX, sY + 14); Draw(rp, sX + 7, sY + 14);
|
||||||
|
GfxMove(rp, sX, sY + 15); Draw(rp, sX + 7, sY + 15);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SysUpdateScreen(Force: Boolean);
|
||||||
|
var
|
||||||
|
BufCounter: Longint;
|
||||||
|
SmallForce: Boolean;
|
||||||
|
Counter, CounterX, CounterY: LongInt;
|
||||||
|
//BufRp: PRastPort;
|
||||||
|
t: Double;
|
||||||
|
NumChanged: Integer;
|
||||||
|
begin
|
||||||
|
SmallForce := False;
|
||||||
|
|
||||||
|
// override forced update when screen dimensions haven't changed
|
||||||
|
if Force then
|
||||||
|
begin
|
||||||
|
if (OldSH = ScreenHeight) and (OldSW = ScreenWidth) then
|
||||||
|
Force:=false
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
OldSH := ScreenHeight;
|
||||||
|
OldSW := ScreenWidth;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Force then
|
||||||
|
begin
|
||||||
|
SmallForce:=true;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
Counter:=0;
|
||||||
|
while not smallforce and (Counter < (VideoBufSize div 4) - 1) do
|
||||||
|
begin
|
||||||
|
SmallForce := (PDWord(VideoBuf)[Counter] <> PDWord(OldVideoBuf)[Counter]);
|
||||||
|
inc(Counter);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
if (VideoWindow^.GZZWidth > BitmapWidth) or (VideoWindow^.GZZHeight > BitmapHeight) then
|
||||||
|
begin
|
||||||
|
FreeBitmap(BufRp^.Bitmap);
|
||||||
|
BufRp^.Bitmap := AllocBitmap(VideoWindow^.GZZWidth, VideoWindow^.GZZHeight, VideoWindow^.RPort^.Bitmap^.Depth, BMF_CLEAR, VideoWindow^.RPort^.Bitmap);
|
||||||
|
BitmapWidth := VideoWindow^.GZZWidth;
|
||||||
|
BitmapHeight := VideoWindow^.GZZHeight;
|
||||||
|
Force := True;
|
||||||
|
Smallforce := True;
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
BufCounter:=0;
|
||||||
|
NumChanged:=0;
|
||||||
|
if Smallforce then
|
||||||
|
begin
|
||||||
|
//t := now();
|
||||||
|
for CounterY := 0 to ScreenHeight - 1 do
|
||||||
|
begin
|
||||||
|
for CounterX := 0 to ScreenWidth - 1 do
|
||||||
|
begin
|
||||||
|
if (VideoBuf^[BufCounter] <> OldVideoBuf^[BufCounter]) or Force then
|
||||||
|
begin
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
DrawChar(BufRp, CounterX, CounterY, crHidden);
|
||||||
|
{$else}
|
||||||
|
DrawChar(VideoWindow^.RPort, CounterX, CounterY, crHidden);
|
||||||
|
{$endif}
|
||||||
|
OldVideoBuf^[BufCounter] := VideoBuf^[BufCounter];
|
||||||
|
Inc(NumChanged);
|
||||||
|
end;
|
||||||
|
Inc(BufCounter);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
//if NumChanged > 100 then
|
||||||
|
// writeln('redraw time: ', floattoStrF((Now-t)* 24 * 60 * 60 * 1000000 / NumChanged, fffixed, 8,3), ' us/char' ); // ms
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (CursorType <> OldCursorType) or
|
||||||
|
(CursorX <> OldCursorX) or (CursorY <> OldCursorY) or
|
||||||
|
SmallForce then
|
||||||
|
begin
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
DrawChar(BufRp, OldCursorY, OldCursorX, crHidden);
|
||||||
|
DrawChar(BufRp, CursorY, CursorX, CursorType);
|
||||||
|
{$else}
|
||||||
|
DrawChar(VideoWindow^.RPort, OldCursorY, OldCursorX, crHidden);
|
||||||
|
DrawChar(VideoWindow^.RPort, CursorY, CursorX, CursorType);
|
||||||
|
{$endif}
|
||||||
|
OldCursorX := CursorX;
|
||||||
|
OldCursorY := CursorY;
|
||||||
|
OldcursorType := CursorType;
|
||||||
|
end;
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
BltBitMapRastPort(BufRp^.Bitmap, 0, 0, VideoWindow^.RPort, 0, 0, ScreenWidth * 8, ScreenHeight * 16, $00C0);
|
||||||
|
{$endif}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
|
||||||
|
begin
|
||||||
|
CursorX := NewCursorY;
|
||||||
|
CursorY := NewCursorX;
|
||||||
|
SysUpdateScreen(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysGetCapabilities: Word;
|
||||||
|
begin
|
||||||
|
SysGetCapabilities := cpColor or cpChangeCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysGetCursorType: Word;
|
||||||
|
begin
|
||||||
|
SysGetCursorType := cursorType;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure SysSetCursorType(NewType: Word);
|
||||||
|
begin
|
||||||
|
cursorType := newType;
|
||||||
|
{ FIXME: halfBlock cursors are not supported for now
|
||||||
|
by the rendering code }
|
||||||
|
if CursorType = crHalfBlock then
|
||||||
|
cursorType := crBlock;
|
||||||
|
|
||||||
|
SysUpdateScreen(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// Amiga specific calls
|
||||||
|
procedure GotCloseWindow;
|
||||||
|
begin
|
||||||
|
GotCloseWindowMsg := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasCloseWindow: Boolean;
|
||||||
|
begin
|
||||||
|
HasCloseWindow := GotCloseWindowMsg;
|
||||||
|
GotCloseWindowMsg := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure GotResizeWindow;
|
||||||
|
begin
|
||||||
|
GotResizeWindowMsg := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasResizeWindow(var WinW: LongInt; var WinH: LongInt): Boolean;
|
||||||
|
begin
|
||||||
|
//writeln('Has resize ', GotResizeWindowMsg);
|
||||||
|
WinW := 0;
|
||||||
|
WinH := 0;
|
||||||
|
HasResizeWindow := GotResizeWindowMsg;
|
||||||
|
if Assigned(VideoWindow) then
|
||||||
|
begin
|
||||||
|
//writeln('resize');
|
||||||
|
WinW := VideoWindow^.GZZWidth div 8;
|
||||||
|
WinH := VideoWindow^.GZZHeight div 16;
|
||||||
|
LastW := WinW;
|
||||||
|
LastH := WinH;
|
||||||
|
end;
|
||||||
|
GotResizeWindowMsg := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysGetVideoModeCount: Word;
|
||||||
|
begin
|
||||||
|
SysGetVideoModeCount := 2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SysGetVideoModeData(Index: Word; var Mode: TVideoMode): Boolean;
|
||||||
|
var
|
||||||
|
Screen: PScreen;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0: begin
|
||||||
|
Mode.Col := 80;
|
||||||
|
Mode.Row := 25;
|
||||||
|
Mode.Color := True;
|
||||||
|
end;
|
||||||
|
1: begin
|
||||||
|
Screen := LockPubScreen('Workbench');
|
||||||
|
Mode.Col := Screen^.Width div 8;
|
||||||
|
Mode.Row := Screen^.Height div 16;
|
||||||
|
UnlockPubScreen('Workbench', Screen);
|
||||||
|
Mode.Color := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
SysGetVideoModeData := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
const
|
||||||
|
SysVideoDriver : TVideoDriver = (
|
||||||
|
InitDriver : @SysInitVideo;
|
||||||
|
DoneDriver : @SysDoneVideo;
|
||||||
|
UpdateScreen : @SysUpdateScreen;
|
||||||
|
ClearScreen : @SysClearScreen;
|
||||||
|
SetVideoMode : @SysSetVideoMode;
|
||||||
|
GetVideoModeCount : @SysGetVideoModeCount;
|
||||||
|
GetVideoModeData : @SysGetVideoModeData;
|
||||||
|
SetCursorPos : @SysSetCursorPos;
|
||||||
|
GetCursorType : @SysGetCursorType;
|
||||||
|
SetCursorType : @SysSetCursorType;
|
||||||
|
GetCapabilities : @SysGetCapabilities
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
SetVideoDriver(SysVideoDriver);
|
||||||
|
LastT := 50;
|
||||||
|
LastL := 50;
|
||||||
|
LastW := 80;
|
||||||
|
LastH := 25;
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
BufRp := CreateRastPort;
|
||||||
|
BufRp^.Layer := nil;
|
||||||
|
BufRp^.Bitmap := nil;
|
||||||
|
{$endif}
|
||||||
|
finalization
|
||||||
|
{$ifdef WITHBUFFERING}
|
||||||
|
if Assigned(BufRp^.Bitmap) then
|
||||||
|
FreeBitmap(BufRp^.Bitmap);
|
||||||
|
FreeRastPort(BufRp);
|
||||||
|
{$endif}
|
||||||
|
end.
|
||||||
281
packages/rtl-console/src/aros/videodata.inc
Normal file
281
packages/rtl-console/src/aros/videodata.inc
Normal file
@ -0,0 +1,281 @@
|
|||||||
|
|
||||||
|
const
|
||||||
|
vgacolors : array[0..15,0..2] of byte = (
|
||||||
|
( 0, 0, 0 ), // black
|
||||||
|
( 0, 0, 153 ), // blue
|
||||||
|
( 0, 153, 0 ), // green
|
||||||
|
( 0, 153, 153 ), // cyan
|
||||||
|
( 153, 0, 0 ), // red
|
||||||
|
( 153, 0, 153 ), // magenta
|
||||||
|
( 153, 102, 0 ), // brown
|
||||||
|
( 153, 153, 153 ), // lightgray
|
||||||
|
|
||||||
|
( 102, 102, 102 ), // darkgray
|
||||||
|
( 102, 102, 255 ), // lightblue
|
||||||
|
( 102, 255, 102 ), // lightgreen
|
||||||
|
( 102, 255, 255 ), // lightcyan
|
||||||
|
( 255, 102, 102 ), // lightred
|
||||||
|
( 255, 102, 255 ), // lightmagenta
|
||||||
|
( 255, 255, 102 ), // yellow
|
||||||
|
( 255, 255, 255 ) // white
|
||||||
|
);
|
||||||
|
|
||||||
|
const
|
||||||
|
vgafont : array[0..255,0..15] of byte = (
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7E, $81, $A5, $81, $81, $A5, $99, $81, $81, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7E, $FF, $DB, $FF, $FF, $DB, $E7, $FF, $FF, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $6C, $FE, $FE, $FE, $FE, $7C, $38, $10, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $10, $38, $7C, $FE, $7C, $38, $10, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $18, $3C, $3C, $E7, $E7, $E7, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $18, $3C, $7E, $FF, $FF, $7E, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $18, $3C, $3C, $18, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $FF, $FF, $FF, $FF, $FF, $FF, $E7, $C3, $C3, $E7, $FF, $FF, $FF, $FF, $FF, $FF ),
|
||||||
|
( $00, $00, $00, $00, $00, $3C, $66, $42, $42, $66, $3C, $00, $00, $00, $00, $00 ),
|
||||||
|
( $FF, $FF, $FF, $FF, $FF, $C3, $99, $BD, $BD, $99, $C3, $FF, $FF, $FF, $FF, $FF ),
|
||||||
|
( $00, $00, $1E, $06, $0E, $1A, $78, $CC, $CC, $CC, $CC, $78, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $66, $66, $66, $66, $3C, $18, $7E, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3F, $33, $3F, $30, $30, $30, $30, $70, $F0, $E0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7F, $63, $7F, $63, $63, $63, $63, $67, $E7, $E6, $C0, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $18, $18, $DB, $3C, $E7, $3C, $DB, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $80, $C0, $E0, $F0, $F8, $FE, $F8, $F0, $E0, $C0, $80, $00, $00, $00, $00 ),
|
||||||
|
( $00, $02, $06, $0E, $1E, $3E, $FE, $3E, $1E, $0E, $06, $02, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $3C, $7E, $18, $18, $18, $7E, $3C, $18, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $66, $66, $66, $66, $66, $66, $66, $00, $66, $66, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7F, $DB, $DB, $DB, $7B, $1B, $1B, $1B, $1B, $1B, $00, $00, $00, $00 ),
|
||||||
|
( $00, $7C, $C6, $60, $38, $6C, $C6, $C6, $6C, $38, $0C, $C6, $7C, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $FE, $FE, $FE, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $3C, $7E, $18, $18, $18, $7E, $3C, $18, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $3C, $7E, $18, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $18, $18, $18, $18, $18, $18, $7E, $3C, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $18, $0C, $FE, $0C, $18, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $30, $60, $FE, $60, $30, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $C0, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $28, $6C, $FE, $6C, $28, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $10, $38, $38, $7C, $7C, $FE, $FE, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $FE, $FE, $7C, $7C, $38, $38, $10, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $3C, $3C, $3C, $18, $18, $18, $00, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $66, $66, $66, $24, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $6C, $6C, $FE, $6C, $6C, $6C, $FE, $6C, $6C, $00, $00, $00, $00 ),
|
||||||
|
( $18, $18, $7C, $C6, $C2, $C0, $7C, $06, $06, $86, $C6, $7C, $18, $18, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $C2, $C6, $0C, $18, $30, $60, $C6, $86, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $6C, $6C, $38, $76, $DC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $30, $30, $30, $60, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $0C, $18, $30, $30, $30, $30, $30, $30, $18, $0C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $30, $18, $0C, $0C, $0C, $0C, $0C, $0C, $18, $30, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $66, $3C, $FF, $3C, $66, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $18, $18, $7E, $18, $18, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $18, $18, $18, $30, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $02, $06, $0C, $18, $30, $60, $C0, $80, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $6C, $C6, $C6, $D6, $D6, $C6, $C6, $6C, $38, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $38, $78, $18, $18, $18, $18, $18, $18, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $06, $0C, $18, $30, $60, $C0, $C6, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $06, $06, $3C, $06, $06, $06, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $0C, $1C, $3C, $6C, $CC, $FE, $0C, $0C, $0C, $1E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $C0, $C0, $C0, $FC, $06, $06, $06, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $60, $C0, $C0, $FC, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $C6, $06, $06, $0C, $18, $30, $30, $30, $30, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $C6, $7C, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $C6, $7E, $06, $06, $06, $0C, $78, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $18, $18, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $18, $18, $00, $00, $00, $18, $18, $30, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $06, $0C, $18, $30, $60, $30, $18, $0C, $06, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7E, $00, $00, $7E, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $60, $30, $18, $0C, $06, $0C, $18, $30, $60, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $0C, $18, $18, $18, $00, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $7C, $C6, $C6, $DE, $DE, $DE, $DC, $C0, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $10, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FC, $66, $66, $66, $7C, $66, $66, $66, $66, $FC, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $66, $C2, $C0, $C0, $C0, $C0, $C2, $66, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $F8, $6C, $66, $66, $66, $66, $66, $66, $6C, $F8, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $66, $62, $68, $78, $68, $60, $62, $66, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $66, $62, $68, $78, $68, $60, $60, $60, $F0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $66, $C2, $C0, $C0, $DE, $C6, $C6, $66, $3A, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $C6, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $18, $18, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $1E, $0C, $0C, $0C, $0C, $0C, $CC, $CC, $CC, $78, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $E6, $66, $66, $6C, $78, $78, $6C, $66, $66, $E6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $F0, $60, $60, $60, $60, $60, $60, $62, $66, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $EE, $FE, $FE, $D6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $E6, $F6, $FE, $DE, $CE, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FC, $66, $66, $66, $7C, $60, $60, $60, $60, $F0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $D6, $DE, $7C, $0C, $0E, $00, $00 ),
|
||||||
|
( $00, $00, $FC, $66, $66, $66, $7C, $6C, $66, $66, $66, $E6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7C, $C6, $C6, $60, $38, $0C, $06, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $7E, $7E, $5A, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $6C, $38, $10, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $C6, $C6, $C6, $D6, $D6, $D6, $FE, $EE, $6C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $C6, $6C, $7C, $38, $38, $7C, $6C, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $66, $66, $66, $66, $3C, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $C6, $86, $0C, $18, $30, $60, $C2, $C6, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $30, $30, $30, $30, $30, $30, $30, $30, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $80, $C0, $E0, $70, $38, $1C, $0E, $06, $02, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $0C, $0C, $0C, $0C, $0C, $0C, $0C, $0C, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $10, $38, $6C, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $FF, $00, $00 ),
|
||||||
|
( $30, $30, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $E0, $60, $60, $78, $6C, $66, $66, $66, $66, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7C, $C6, $C0, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $1C, $0C, $0C, $3C, $6C, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $6C, $64, $60, $F0, $60, $60, $60, $60, $F0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $76, $CC, $CC, $CC, $CC, $CC, $7C, $0C, $CC, $78, $00 ),
|
||||||
|
( $00, $00, $E0, $60, $60, $6C, $76, $66, $66, $66, $66, $E6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $18, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $06, $06, $00, $0E, $06, $06, $06, $06, $06, $06, $66, $66, $3C, $00 ),
|
||||||
|
( $00, $00, $E0, $60, $60, $66, $6C, $78, $78, $6C, $66, $E6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $18, $18, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $EC, $FE, $D6, $D6, $D6, $D6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $DC, $66, $66, $66, $66, $66, $66, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $DC, $66, $66, $66, $66, $66, $7C, $60, $60, $F0, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $76, $CC, $CC, $CC, $CC, $CC, $7C, $0C, $0C, $1E, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $DC, $76, $66, $60, $60, $60, $F0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7C, $C6, $60, $38, $0C, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $10, $30, $30, $FC, $30, $30, $30, $30, $36, $1C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $66, $66, $66, $66, $66, $3C, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $C6, $C6, $D6, $D6, $D6, $FE, $6C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $C6, $6C, $38, $38, $38, $6C, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $0C, $F8, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $FE, $CC, $18, $30, $60, $C6, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $0E, $18, $18, $18, $70, $18, $18, $18, $18, $0E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $18, $18, $18, $18, $00, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $70, $18, $18, $18, $0E, $18, $18, $18, $18, $70, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $76, $DC, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $10, $38, $6C, $C6, $C6, $C6, $FE, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3C, $66, $C2, $C0, $C0, $C0, $C2, $66, $3C, $0C, $06, $7C, $00, $00 ),
|
||||||
|
( $00, $00, $CC, $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $0C, $18, $30, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $10, $38, $6C, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $CC, $00, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $60, $30, $18, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $38, $6C, $38, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $3C, $66, $60, $60, $66, $3C, $0C, $06, $3C, $00, $00, $00 ),
|
||||||
|
( $00, $10, $38, $6C, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $00, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $60, $30, $18, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $66, $00, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $18, $3C, $66, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $60, $30, $18, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $C6, $00, $10, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $38, $6C, $38, $00, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $18, $30, $60, $00, $FE, $66, $60, $7C, $60, $60, $66, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $CC, $76, $36, $7E, $D8, $D8, $6E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $3E, $6C, $CC, $CC, $FE, $CC, $CC, $CC, $CC, $CE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $10, $38, $6C, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $60, $30, $18, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $30, $78, $CC, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $60, $30, $18, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $C6, $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $0C, $78, $00 ),
|
||||||
|
( $00, $C6, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $C6, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $18, $18, $3C, $66, $60, $60, $60, $66, $3C, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $38, $6C, $64, $60, $F0, $60, $60, $60, $60, $E6, $FC, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $66, $66, $3C, $18, $7E, $18, $7E, $18, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $F8, $CC, $CC, $F8, $C4, $CC, $DE, $CC, $CC, $CC, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $0E, $1B, $18, $18, $18, $7E, $18, $18, $18, $18, $18, $D8, $70, $00, $00 ),
|
||||||
|
( $00, $18, $30, $60, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $0C, $18, $30, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $18, $30, $60, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $18, $30, $60, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $76, $DC, $00, $DC, $66, $66, $66, $66, $66, $66, $00, $00, $00, $00 ),
|
||||||
|
( $76, $DC, $00, $C6, $E6, $F6, $FE, $DE, $CE, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $3C, $6C, $6C, $3E, $00, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $38, $6C, $6C, $38, $00, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $30, $30, $00, $30, $30, $60, $C0, $C6, $C6, $7C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $FE, $C0, $C0, $C0, $C0, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $FE, $06, $06, $06, $06, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $C0, $C0, $C2, $C6, $CC, $18, $30, $60, $DC, $86, $0C, $18, $3E, $00, $00 ),
|
||||||
|
( $00, $C0, $C0, $C2, $C6, $CC, $18, $30, $66, $CE, $9E, $3E, $06, $06, $00, $00 ),
|
||||||
|
( $00, $00, $18, $18, $00, $18, $18, $18, $3C, $3C, $3C, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $36, $6C, $D8, $6C, $36, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $D8, $6C, $36, $6C, $D8, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44 ),
|
||||||
|
( $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA ),
|
||||||
|
( $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $F8, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FE, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $00, $00, $00, $00, $00, $F8, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $36, $36, $36, $36, $36, $F6, $06, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $00, $00, $00, $00, $00, $FE, $06, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $F6, $06, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $18, $18, $18, $18, $18, $F8, $18, $F8, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $1F, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $1F, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $37, $30, $3F, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $3F, $30, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $F7, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $FF, $00, $F7, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $37, $30, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $00, $00, $00, $00, $00, $FF, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $36, $36, $36, $36, $36, $F7, $00, $F7, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $18, $18, $18, $18, $18, $FF, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $FF, $00, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FF, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $3F, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $18, $18, $18, $18, $18, $1F, $18, $1F, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $1F, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $3F, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $36, $36, $36, $36, $36, $36, $36, $FF, $36, $36, $36, $36, $36, $36, $36, $36 ),
|
||||||
|
( $18, $18, $18, $18, $18, $FF, $18, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $F8, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ),
|
||||||
|
( $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0 ),
|
||||||
|
( $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F ),
|
||||||
|
( $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $76, $DC, $D8, $D8, $D8, $DC, $76, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $78, $CC, $CC, $CC, $D8, $CC, $C6, $C6, $C6, $CC, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $FE, $C6, $C6, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $FE, $6C, $6C, $6C, $6C, $6C, $6C, $6C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $FE, $C6, $60, $30, $18, $30, $60, $C6, $FE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7E, $D8, $D8, $D8, $D8, $D8, $70, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $66, $66, $66, $66, $66, $7C, $60, $60, $C0, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $76, $DC, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $7E, $18, $3C, $66, $66, $66, $3C, $18, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $38, $6C, $C6, $C6, $FE, $C6, $C6, $6C, $38, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $38, $6C, $C6, $C6, $C6, $6C, $6C, $6C, $6C, $EE, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $1E, $30, $18, $0C, $3E, $66, $66, $66, $66, $3C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $7E, $DB, $DB, $DB, $7E, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $03, $06, $7E, $DB, $DB, $F3, $7E, $60, $C0, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $1C, $30, $60, $60, $7C, $60, $60, $60, $30, $1C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $FE, $00, $00, $FE, $00, $00, $FE, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $18, $18, $7E, $18, $18, $00, $00, $FF, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $30, $18, $0C, $06, $0C, $18, $30, $00, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $0C, $18, $30, $60, $30, $18, $0C, $00, $7E, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $0E, $1B, $1B, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18 ),
|
||||||
|
( $18, $18, $18, $18, $18, $18, $18, $18, $D8, $D8, $D8, $70, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $18, $18, $00, $7E, $00, $18, $18, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $76, $DC, $00, $76, $DC, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $38, $6C, $6C, $38, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $18, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $0F, $0C, $0C, $0C, $0C, $0C, $EC, $6C, $6C, $3C, $1C, $00, $00, $00, $00 ),
|
||||||
|
( $00, $D8, $6C, $6C, $6C, $6C, $6C, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $70, $D8, $30, $60, $C8, $F8, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $7C, $7C, $7C, $7C, $7C, $7C, $7C, $00, $00, $00, $00, $00 ),
|
||||||
|
( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 )
|
||||||
|
);
|
||||||
Loading…
Reference in New Issue
Block a user