mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 14:19:28 +02:00
rtl-console: unified AROS and MorphOS units except video (for now). but upgraded MorphOS' video unit to AROS level
git-svn-id: trunk@28554 -
This commit is contained in:
Károly Balogh
parent
4ae5441757
commit
143d7d7dd4
9
.gitattributes
vendored
9
.gitattributes
vendored
@ -6586,10 +6586,10 @@ packages/rtl-console/Makefile 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/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/amicommon/keyboard.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/amicommon/mouse.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/amicommon/videodata.inc 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/go32v2/crt.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/go32v2/keyboard.pp svneol=native#text/plain
|
||||
@ -6605,10 +6605,7 @@ packages/rtl-console/src/inc/mouse.inc svneol=native#text/plain
|
||||
packages/rtl-console/src/inc/mouseh.inc svneol=native#text/plain
|
||||
packages/rtl-console/src/inc/video.inc svneol=native#text/plain
|
||||
packages/rtl-console/src/inc/videoh.inc svneol=native#text/plain
|
||||
packages/rtl-console/src/morphos/keyboard.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/morphos/mouse.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/morphos/video.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/morphos/videodata.inc svneol=native#text/plain
|
||||
packages/rtl-console/src/msdos/crt.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/msdos/keyboard.pp svneol=native#text/plain
|
||||
packages/rtl-console/src/netware/crt.pp svneol=native#text/plain
|
||||
|
||||
@ -15,7 +15,7 @@ Const
|
||||
WinEventOSes = [win32,win64];
|
||||
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 and AROS
|
||||
CrtOSes = KVMALL+[msdos,WatCom]-[MorphOS,aros];
|
||||
KbdOSes = KVMALL+[msdos];
|
||||
VideoOSes = KVMALL;
|
||||
@ -52,10 +52,12 @@ begin
|
||||
P.SourcePath.Add('src/darwin',[iphonesim]);
|
||||
P.SourcePath.Add('src/unix',AllUnixOSes);
|
||||
P.SourcePath.Add('src/os2commn',[os2,emx]);
|
||||
P.SourcePath.Add('src/amicommon',[aros,morphos]);
|
||||
P.SourcePath.Add('src/win',WinEventOSes);
|
||||
|
||||
P.IncludePath.Add('src/inc');
|
||||
P.IncludePath.Add('src/unix',AllUnixOSes);
|
||||
P.IncludePath.add('src/amicommon',[aros,morphos]);
|
||||
P.IncludePath.Add('src/$(OS)');
|
||||
P.IncludePath.Add('src/darwin',[iphonesim]);
|
||||
|
||||
|
||||
@ -33,6 +33,9 @@ var
|
||||
procedure SysInitKeyboard;
|
||||
begin
|
||||
// writeln('sysinitkeyboard');
|
||||
{$IFDEF MORPHOS}
|
||||
InitKeyMapLibrary;
|
||||
{$ENDIF}
|
||||
LastShiftState := 0;
|
||||
OldMouseX := -1;
|
||||
OldmouseY := -1;
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,61 +0,0 @@
|
||||
{
|
||||
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.
|
||||
@ -13,12 +13,77 @@
|
||||
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.
|
||||
|
||||
DISCLAIMER:
|
||||
Experimental code only meant as PoC.
|
||||
|
||||
DON'T USE FOR PUBLICATION UNLESS ALL PERSONAL COMMENTS AND REFERENCES ARE
|
||||
REMOVED AND THE ACTUAL CODE IS APPROVED BY SOMEONE THAT KNOWS WHAT HE/SHE
|
||||
IS DOING.
|
||||
THIS CODE IS PROOF OF CONCEPT ONLY AND AS SUCH DOES NOT PROVIDE 100%
|
||||
RELIABLE CODE AND/OR APPROVED PROGRAMMING TECHNIQUES.
|
||||
|
||||
Idea:
|
||||
The idea of running a video-unit screen on its own graphical screen
|
||||
emerged from ALB42's port of the dos-based fp-editor that is distributed
|
||||
with freepascal. In it's original form the editor would be run from dos
|
||||
and would present itself in a full-screen modus fashion.
|
||||
|
||||
This behaviour changed slightly with the ending of the dos era, and
|
||||
instead a commando window started to appear in regular OS'.
|
||||
|
||||
But even when this changed, Windows users were still able to view this
|
||||
command window in full-screen by means of pressing ctrl-enter.
|
||||
|
||||
Since this behaviour is not present on current next gen amigaOS systems,
|
||||
we have to live without that.
|
||||
|
||||
And so begun the idea of letting the video-unit somehow be influenced
|
||||
in such a way that an Freevision application that uses the videounit
|
||||
could be shown in fullscreen.
|
||||
|
||||
In order to accomplish this task we missuse the color tag of TVideomode.
|
||||
When the color is set to monochrome it will show the
|
||||
dos-screen on a full graphics screen and the dos-output will be shown
|
||||
in a borderless backdrop window. That way it appears that the vision
|
||||
application is running full-screen.
|
||||
|
||||
The current implementation has a limitation that cannot be solved.
|
||||
|
||||
Namely, the vision screens are based on a ascii character screen, so
|
||||
the final measurements of the full-screen-window will depend
|
||||
on the amount of pixels that maximally can be displayed by means of
|
||||
those same character-sizes.
|
||||
Since the used font is currently 8 pixels width and 16 pixels high,
|
||||
it becomes clear that not every screen-resolution is suitable to
|
||||
exactly fit both dimensions pixelwise. As a result a small
|
||||
stripe (of default backgroundcolor) on the bottom or right may appear.
|
||||
|
||||
HAVE FUN !
|
||||
|
||||
MaGoRiuM
|
||||
}
|
||||
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
intuition;
|
||||
amigados, intuition, {tagsarray,} utility, sysutils;
|
||||
|
||||
{$i videoh.inc}
|
||||
|
||||
@ -26,13 +91,14 @@ uses
|
||||
{ Amiga specific calls, to help interaction between Keyboard, Mouse and
|
||||
Video units, and Free Vision }
|
||||
procedure GotCloseWindow;
|
||||
function HasCloseWindow: boolean;
|
||||
function HasCloseWindow: boolean;
|
||||
procedure GotResizeWindow;
|
||||
function HasResizeWindow(var winw:longint; var winh: longint): boolean;
|
||||
function HasResizeWindow(var winw:longint; var winh: longint): boolean;
|
||||
|
||||
|
||||
|
||||
var
|
||||
videoWindow : pWindow;
|
||||
|
||||
VideoWindow: PWindow;
|
||||
|
||||
implementation
|
||||
|
||||
@ -44,253 +110,504 @@ uses
|
||||
{$i videodata.inc}
|
||||
|
||||
const
|
||||
LastCursorType: word = crUnderline;
|
||||
OrigScreen: PVideoBuf = nil;
|
||||
OrigScreenSize: cardinal = 0;
|
||||
VIDEOSCREENNAME = 'FPC Video Screen Output';
|
||||
|
||||
var
|
||||
videoColorMap : pColorMap;
|
||||
videoPens : array[0..15] of longint;
|
||||
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
|
||||
|
||||
oldCursorX, oldCursorY: longint;
|
||||
cursorType: word;
|
||||
oldcursorType: word;
|
||||
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;
|
||||
begin
|
||||
GetScreen:=OpenScreenTags(nil,[
|
||||
SA_Title , DWord(PChar(VIDEOSCREENNAME)),
|
||||
SA_Left , 0,
|
||||
SA_Top , 0,
|
||||
SA_ShowTitle , 0, // Do not show the screen's TitleBar
|
||||
SA_Type , PUBLICSCREEN_F,
|
||||
SA_PubName , DWord(PChar(VIDEOSCREENNAME)),
|
||||
SA_Quiet , 1,
|
||||
SA_LikeWorkbench , 1 // Let OS
|
||||
]);
|
||||
{$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;
|
||||
begin
|
||||
GetWindow:=nil;
|
||||
|
||||
if FPC_VIDEO_FULLSCREEN then
|
||||
begin
|
||||
OS_Screen := GetScreen;
|
||||
If OS_Screen = nil then
|
||||
Exit;
|
||||
|
||||
{$ifdef VIDEODEBUG}
|
||||
WriteLn('DEBUG: Opened customscreen succesfully');
|
||||
{$endif}
|
||||
GetWindow:=OpenWindowTags(nil, [
|
||||
WA_CustomScreen, PtrUInt(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
|
||||
GetWindow:=OpenWindowTags(nil,[
|
||||
WA_Left , LastL,
|
||||
WA_Top , LastT,
|
||||
WA_InnerWidth , LastW*8,
|
||||
WA_InnerHeight, LastH*16,
|
||||
WA_MaxWidth , 32768,
|
||||
WA_MaxHeight , 32768,
|
||||
WA_Title , PtrUInt(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;
|
||||
|
||||
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
|
||||
// ==
|
||||
// ==========================================================================
|
||||
|
||||
gotCloseWindowMsg: boolean;
|
||||
gotResizeWindowMsg: boolean;
|
||||
|
||||
procedure SysInitVideo;
|
||||
var counter: longint;
|
||||
var
|
||||
Counter: LongInt;
|
||||
begin
|
||||
InitGraphicsLibrary;
|
||||
InitIntuitionLibrary;
|
||||
{$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);
|
||||
// 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:=OpenWindowTags(Nil, [
|
||||
WA_Left,50,
|
||||
WA_Top,50,
|
||||
WA_InnerWidth,80*8,
|
||||
WA_InnerHeight,25*16,
|
||||
WA_MaxWidth,32768,
|
||||
WA_MaxHeight,32768,
|
||||
WA_IDCMP,IDCMP_VANILLAKEY Or IDCMP_RAWKEY Or
|
||||
IDCMP_MOUSEMOVE Or IDCMP_MOUSEBUTTONS Or
|
||||
IDCMP_CLOSEWINDOW Or IDCMP_CHANGEWINDOW,
|
||||
WA_Title,DWord(PChar('Free Pascal Video Output')),
|
||||
WA_Flags,(WFLG_GIMMEZEROZERO Or WFLG_SMART_REFRESH Or WFLG_NOCAREREFRESH Or
|
||||
WFLG_ACTIVATE Or WFLG_DRAGBAR Or WFLG_DEPTHGADGET Or WFLG_REPORTMOUSE Or
|
||||
WFLG_SIZEGADGET Or WFLG_SIZEBBOTTOM Or WFLG_RMBTRAP Or
|
||||
WFLG_CLOSEGADGET)
|
||||
]);
|
||||
VideoWindow := GetWindow;
|
||||
|
||||
ScreenWidth := 80;
|
||||
ScreenHeight := 25;
|
||||
ScreenColor := true;
|
||||
// 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;
|
||||
|
||||
videoColorMap := pScreen(videoWindow^.WScreen)^.ViewPort.ColorMap;
|
||||
for counter:=0 to 15 do begin
|
||||
videoPens[counter]:=ObtainPen(videoColorMap,-1,
|
||||
vgacolors[counter,0] shl 24,vgacolors[counter,1] shl 24,vgacolors[counter,2] shl 24,
|
||||
PEN_EXCLUSIVE);
|
||||
// writeln(videoPens[counter]);
|
||||
// XXX: do checks for -1 colors (KB)
|
||||
{$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;
|
||||
|
||||
CursorX:=0;
|
||||
CursorY:=0;
|
||||
oldCursorX:=0;
|
||||
oldCursorY:=0;
|
||||
cursorType:=crHidden;
|
||||
oldcursorType:=crHidden;
|
||||
|
||||
gotCloseWindowMsg:=false;
|
||||
gotResizeWindowMsg:=false;
|
||||
GotCloseWindowMsg := false;
|
||||
GotResizeWindowMsg := false;
|
||||
end;
|
||||
|
||||
|
||||
procedure SysDoneVideo;
|
||||
var counter: longint;
|
||||
var
|
||||
Counter: LongInt;
|
||||
begin
|
||||
if videoWindow<>nil then CloseWindow(videoWindow);
|
||||
for counter:=0 to 15 do ReleasePen(videoColorMap,videoPens[counter]);
|
||||
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;
|
||||
|
||||
function SysSetVideoMode(const Mode: TVideoMode): Boolean;
|
||||
var
|
||||
I : Integer;
|
||||
dx : integer;
|
||||
dy : integer;
|
||||
dx: integer;
|
||||
dy: integer;
|
||||
begin
|
||||
dx := (Mode.col * 8) - videoWindow^.GZZWidth;
|
||||
dy := (Mode.row * 16) - videoWindow^.GZZHeight;
|
||||
SizeWindow(videoWindow,dx,dy);
|
||||
|
||||
ScreenWidth:=Mode.col;
|
||||
ScreenHeight:=Mode.row;
|
||||
ScreenColor:=Mode.color;
|
||||
SysSetVideoMode:=true;
|
||||
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;
|
||||
OldSH, OldSW : longint;
|
||||
|
||||
procedure SysClearScreen;
|
||||
begin
|
||||
oldSH := -1;
|
||||
oldSW := -1;
|
||||
UpdateScreen(true);
|
||||
UpdateScreen(True);
|
||||
end;
|
||||
|
||||
|
||||
procedure DrawChar(x,y: longint; crType: word);
|
||||
var tmpCharData: word;
|
||||
tmpChar : byte;
|
||||
tmpFGColor : byte;
|
||||
tmpBGColor : byte;
|
||||
procedure DrawChar(rp: PRastPort; x, y: LongInt; crType: Word);
|
||||
var
|
||||
counterX, counterY:longint;
|
||||
sX,sY: longint;
|
||||
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;
|
||||
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;
|
||||
sX := x * 8;
|
||||
sY := y * 16;
|
||||
|
||||
if crType <> crBlock then begin
|
||||
SetABPenDrMd(videoWindow^.RPort,videoPens[tmpFGColor],videoPens[tmpBGColor],JAM2);
|
||||
end else begin
|
||||
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(videoWindow^.RPort,videoPens[tmpBGColor],videoPens[tmpFGColor],JAM2);
|
||||
SetABPenDrMd(rp, VideoPens[tmpBGColor], VideoPens[tmpFGColor], JAM2);
|
||||
end;
|
||||
|
||||
BltTemplate(@vgafont[tmpChar,0],0,1,videoWindow^.RPort,sX,sY,8,16);
|
||||
BltTemplate(@Vgafont[tmpChar, 0], 0, 1, rp, sX, sY, 8, 16);
|
||||
|
||||
if crType = crUnderLine then begin
|
||||
if crType = crUnderLine then
|
||||
begin
|
||||
{ draw two lines at the bottom of the char, in case of underline cursor }
|
||||
gfxMove(videoWindow^.RPort,sX,sY+14); Draw(videoWindow^.RPort,sX+7,sY+14);
|
||||
gfxMove(videoWindow^.RPort,sX,sY+15); Draw(videoWindow^.RPort,sX+7,sY+15);
|
||||
agraphics.gfxMove(rp, sX, sY + 14); Draw(rp, sX + 7, sY + 14);
|
||||
agraphics.gfxMove(rp, sX, sY + 15); Draw(rp, sX + 7, sY + 15);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure SysUpdateScreen(force: boolean);
|
||||
procedure SysUpdateScreen(Force: Boolean);
|
||||
var
|
||||
BufCounter : Longint;
|
||||
smallforce : boolean;
|
||||
cursormoved : boolean;
|
||||
counter, counterX, counterY: longint;
|
||||
BufCounter: Longint;
|
||||
SmallForce: Boolean;
|
||||
Counter, CounterX, CounterY: LongInt;
|
||||
//BufRp: PRastPort;
|
||||
t: Double;
|
||||
NumChanged: Integer;
|
||||
begin
|
||||
smallforce:=false;
|
||||
cursormoved:=false;
|
||||
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;
|
||||
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);
|
||||
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;
|
||||
if smallforce then begin
|
||||
for counterY:=0 to ScreenHeight-1 do begin
|
||||
for counterX:=0 to ScreenWidth-1 do begin
|
||||
if (VideoBuf^[BufCounter]<>OldVideoBuf^[BufCounter]) or force then
|
||||
DrawChar(counterX,counterY,crHidden);
|
||||
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;
|
||||
move(VideoBuf^,OldVideoBuf^,VideoBufSize);
|
||||
//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
|
||||
DrawChar(oldCursorY,oldCursorX,crHidden);
|
||||
DrawChar(CursorY,CursorX,cursorType);
|
||||
oldCursorX:=CursorX;
|
||||
oldCursorY:=CursorY;
|
||||
oldcursorType:=cursorType;
|
||||
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);
|
||||
CursorX := NewCursorY;
|
||||
CursorY := NewCursorX;
|
||||
SysUpdateScreen(False);
|
||||
end;
|
||||
|
||||
function SysGetCapabilities: Word;
|
||||
begin
|
||||
SysGetCapabilities:=cpColor or cpChangeCursor;
|
||||
SysGetCapabilities := cpColor or cpChangeCursor;
|
||||
end;
|
||||
|
||||
function SysGetCursorType: Word;
|
||||
begin
|
||||
SysGetCursorType:=cursorType;
|
||||
SysGetCursorType := cursorType;
|
||||
end;
|
||||
|
||||
|
||||
procedure SysSetCursorType(NewType: Word);
|
||||
begin
|
||||
cursorType:=newType;
|
||||
cursorType := newType;
|
||||
{ FIXME: halfBlock cursors are not supported for now
|
||||
by the rendering code }
|
||||
if cursorType = crHalfBlock then cursorType:=crBlock;
|
||||
if CursorType = crHalfBlock then
|
||||
cursorType := crBlock;
|
||||
|
||||
SysUpdateScreen(false);
|
||||
SysUpdateScreen(False);
|
||||
end;
|
||||
|
||||
|
||||
// Amiga specific calls
|
||||
procedure GotCloseWindow;
|
||||
begin
|
||||
gotCloseWindowMsg:=true;
|
||||
GotCloseWindowMsg := True;
|
||||
end;
|
||||
|
||||
function HasCloseWindow: boolean;
|
||||
function HasCloseWindow: Boolean;
|
||||
begin
|
||||
HasCloseWindow:=gotCloseWindowMsg;
|
||||
gotCloseWindowMsg:=false;
|
||||
HasCloseWindow := GotCloseWindowMsg;
|
||||
GotCloseWindowMsg := False;
|
||||
end;
|
||||
|
||||
procedure GotResizeWindow;
|
||||
begin
|
||||
gotResizeWindowMsg:=true;
|
||||
GotResizeWindowMsg := True;
|
||||
end;
|
||||
|
||||
function HasResizeWindow(var winw:longint; var winh: longint): boolean;
|
||||
function HasResizeWindow(var WinW: LongInt; var WinH: LongInt): Boolean;
|
||||
begin
|
||||
HasResizeWindow:=gotResizeWindowMsg;
|
||||
winw:=videoWindow^.GZZWidth div 8;
|
||||
winh:=videoWindow^.GZZHeight div 16;
|
||||
gotResizeWindowMsg:=false;
|
||||
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;
|
||||
|
||||
|
||||
@ -301,8 +618,8 @@ const
|
||||
UpdateScreen : @SysUpdateScreen;
|
||||
ClearScreen : @SysClearScreen;
|
||||
SetVideoMode : @SysSetVideoMode;
|
||||
GetVideoModeCount : nil;
|
||||
GetVideoModeData : nil;
|
||||
GetVideoModeCount : @SysGetVideoModeCount;
|
||||
GetVideoModeData : @SysGetVideoModeData;
|
||||
SetCursorPos : @SysSetCursorPos;
|
||||
GetCursorType : @SysGetCursorType;
|
||||
SetCursorType : @SysSetCursorType;
|
||||
@ -312,4 +629,19 @@ const
|
||||
|
||||
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.
|
||||
|
||||
@ -1,281 +0,0 @@
|
||||
|
||||
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