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

rtl-console: unified AROS and MorphOS units except video (for now). but upgraded MorphOS' video unit to AROS level

Browse Source 
git-svn-id: trunk@28554 -
This commit is contained in:
Károly Balogh 2014-08-31 14:48:58 +00:00
parent 4ae5441757
commit 143d7d7dd4
9 changed files with 497 additions and 1675 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.gitattributes vendored
View File

@ -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 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/amicommon/keyboard.pp svneol=native#text/plain
packages/rtl-console/src/aros/mouse.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/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
@ -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/mouseh.inc svneol=native#text/plain
packages/rtl-console/src/inc/video.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/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/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/crt.pp svneol=native#text/plain
packages/rtl-console/src/msdos/keyboard.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 packages/rtl-console/src/netware/crt.pp svneol=native#text/plain

4
packages/rtl-console/fpmake.pp
View File

@ -15,7 +15,7 @@ Const
WinEventOSes = [win32,win64]; WinEventOSes = [win32,win64];
KVMAll = [emx,go32v2,MorphOS,aros,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 and AROS
CrtOSes = KVMALL+[msdos,WatCom]-[MorphOS,aros]; CrtOSes = KVMALL+[msdos,WatCom]-[MorphOS,aros];
KbdOSes = KVMALL+[msdos]; KbdOSes = KVMALL+[msdos];
VideoOSes = KVMALL; VideoOSes = KVMALL;
@ -52,10 +52,12 @@ begin
P.SourcePath.Add('src/darwin',[iphonesim]); P.SourcePath.Add('src/darwin',[iphonesim]);
P.SourcePath.Add('src/unix',AllUnixOSes); P.SourcePath.Add('src/unix',AllUnixOSes);
P.SourcePath.Add('src/os2commn',[os2,emx]); P.SourcePath.Add('src/os2commn',[os2,emx]);
P.SourcePath.Add('src/amicommon',[aros,morphos]);
P.SourcePath.Add('src/win',WinEventOSes); P.SourcePath.Add('src/win',WinEventOSes);
P.IncludePath.Add('src/inc'); P.IncludePath.Add('src/inc');
P.IncludePath.Add('src/unix',AllUnixOSes); P.IncludePath.Add('src/unix',AllUnixOSes);
P.IncludePath.add('src/amicommon',[aros,morphos]);
P.IncludePath.Add('src/$(OS)'); P.IncludePath.Add('src/$(OS)');
P.IncludePath.Add('src/darwin',[iphonesim]); P.IncludePath.Add('src/darwin',[iphonesim]);

3
packages/rtl-console/src/aros/keyboard.pp → packages/rtl-console/src/amicommon/keyboard.pp
View File

@ -33,6 +33,9 @@ var
procedure SysInitKeyboard; procedure SysInitKeyboard;
begin begin
// writeln('sysinitkeyboard'); // writeln('sysinitkeyboard');
{$IFDEF MORPHOS}
InitKeyMapLibrary;
{$ENDIF}
LastShiftState := 0; LastShiftState := 0;
OldMouseX := -1; OldMouseX := -1;
OldmouseY := -1; OldmouseY := -1;

0
packages/rtl-console/src/aros/mouse.pp → packages/rtl-console/src/amicommon/mouse.pp
View File

0
packages/rtl-console/src/aros/videodata.inc → packages/rtl-console/src/amicommon/videodata.inc
View File

1170
packages/rtl-console/src/morphos/keyboard.pp
View File

File diff suppressed because it is too large Load Diff

61
packages/rtl-console/src/morphos/mouse.pp
View File

@ -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.

644
packages/rtl-console/src/morphos/video.pp
View File

@ -13,12 +13,77 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
unit Video; 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 interface
uses uses
intuition; amigados, intuition, {tagsarray,} utility, sysutils;
{$i videoh.inc} {$i videoh.inc}
@ -26,13 +91,14 @@ uses
{ Amiga specific calls, to help interaction between Keyboard, Mouse and { Amiga specific calls, to help interaction between Keyboard, Mouse and
Video units, and Free Vision } Video units, and Free Vision }
procedure GotCloseWindow; procedure GotCloseWindow;
function HasCloseWindow: boolean; function HasCloseWindow: boolean;
procedure GotResizeWindow; procedure GotResizeWindow;
function HasResizeWindow(var winw:longint; var winh: longint): boolean; function HasResizeWindow(var winw:longint; var winh: longint): boolean;
var var
videoWindow : pWindow; VideoWindow: PWindow;
implementation implementation
@ -44,253 +110,504 @@ uses
{$i videodata.inc} {$i videodata.inc}
const const
LastCursorType: word = crUnderline; VIDEOSCREENNAME = 'FPC Video Screen Output';
OrigScreen: PVideoBuf = nil;
OrigScreenSize: cardinal = 0;
var var
videoColorMap : pColorMap; OS_Screen : PScreen = nil; // To hold our screen, when necessary
videoPens : array[0..15] of longint; FPC_VIDEO_FULLSCREEN : Boolean = False; // Global that defines when we need to attempt opening on own scren
oldCursorX, oldCursorY: longint; var
cursorType: word; VideoColorMap : PColorMap;
oldcursorType: word; 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; procedure SysInitVideo;
var counter: longint; var
Counter: LongInt;
begin begin
InitGraphicsLibrary; {$ifdef VIDEODEBUG}
InitIntuitionLibrary; 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 // fill videobuf and oldvideobuf with different bytes, to allow proper first draw
FillDword(VideoBuf^,VideoBufSize Div 4,$1234D3AD); FillDword(VideoBuf^, VideoBufSize div 4, $1234D3AD);
FillDword(OldVideoBuf^,VideoBufSize Div 4,$4321BEEF); FillDword(OldVideoBuf^, VideoBufSize div 4, $4321BEEF);
videoWindow:=OpenWindowTags(Nil, [ VideoWindow := GetWindow;
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)
]);
ScreenWidth := 80; // nice hardcode values are probably going to screw up things
ScreenHeight := 25; // so wee neeed a way to detrmined how many chars could be on
ScreenColor := true; // 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; {$ifdef VIDEODEBUG}
for counter:=0 to 15 do begin Writeln('DEBUG: Fullscreen - windowed - Width * Heigth = ',ScreenWidth,' * ',ScreenHeight);
videoPens[counter]:=ObtainPen(videoColorMap,-1, {$endif}
vgacolors[counter,0] shl 24,vgacolors[counter,1] shl 24,vgacolors[counter,2] shl 24, end else
PEN_EXCLUSIVE); begin
// writeln(videoPens[counter]); ScreenWidth := LastW;
// XXX: do checks for -1 colors (KB) ScreenHeight := LastH;
ScreenColor := True;
end; 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; GotCloseWindowMsg := false;
CursorY:=0; GotResizeWindowMsg := false;
oldCursorX:=0;
oldCursorY:=0;
cursorType:=crHidden;
oldcursorType:=crHidden;
gotCloseWindowMsg:=false;
gotResizeWindowMsg:=false;
end; end;
procedure SysDoneVideo; procedure SysDoneVideo;
var counter: longint; var
Counter: LongInt;
begin begin
if videoWindow<>nil then CloseWindow(videoWindow); if VideoWindow <> nil then
for counter:=0 to 15 do ReleasePen(videoColorMap,videoPens[counter]); 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; end;
function SysSetVideoMode(const Mode: TVideoMode): Boolean;
function SysSetVideoMode (Const Mode : TVideoMode) : Boolean;
var var
I : Integer; dx: integer;
dx : integer; dy: integer;
dy : integer;
begin begin
dx := (Mode.col * 8) - videoWindow^.GZZWidth; if ScreenColor <> Mode.Color then
dy := (Mode.row * 16) - videoWindow^.GZZHeight; begin
SizeWindow(videoWindow,dx,dy); SysDoneVideo;
FPC_VIDEO_FULLSCREEN := not Mode.color;
ScreenWidth:=Mode.col; if not FPC_VIDEO_FULLSCREEN then
ScreenHeight:=Mode.row; begin
ScreenColor:=Mode.color; LastT := 50;
SysSetVideoMode:=true; 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; end;
var var
oldSH, oldSW : longint; OldSH, OldSW : longint;
procedure SysClearScreen; procedure SysClearScreen;
begin begin
oldSH := -1; oldSH := -1;
oldSW := -1; oldSW := -1;
UpdateScreen(true); UpdateScreen(True);
end; end;
procedure DrawChar(rp: PRastPort; x, y: LongInt; crType: Word);
procedure DrawChar(x,y: longint; crType: word);
var tmpCharData: word;
tmpChar : byte;
tmpFGColor : byte;
tmpBGColor : byte;
var var
counterX, counterY:longint; TmpCharData: Word;
sX,sY: longint; TmpChar: Byte;
TmpFGColor: Byte;
TmpBGColor: Byte;
sX, sY: LongInt;
begin begin
tmpCharData:=VideoBuf^[y*ScreenWidth+x]; TmpCharData := VideoBuf^[y * ScreenWidth + x];
tmpChar :=tmpCharData and $0ff; TmpChar := TmpCharData and $0ff;
tmpFGColor :=(tmpCharData shr 8) and %00001111; TmpFGColor := (TmpCharData shr 8) and %00001111;
tmpBGColor :=(tmpCharData shr 12) and %00000111; TmpBGColor := (TmpCharData shr 12) and %00000111;
sX:=x*8; sX := x * 8;
sY:=y*16; sY := y * 16;
if crType <> crBlock then begin if crType <> crBlock then
SetABPenDrMd(videoWindow^.RPort,videoPens[tmpFGColor],videoPens[tmpBGColor],JAM2); begin
end else begin SetABPenDrMd(rp, VideoPens[TmpFGColor], VideoPens[tmpBGColor], JAM2);
end else
begin
{ in case of block cursor, swap fg/bg colors { in case of block cursor, swap fg/bg colors
and BltTemplate() below will take care of everything } and BltTemplate() below will take care of everything }
SetABPenDrMd(videoWindow^.RPort,videoPens[tmpBGColor],videoPens[tmpFGColor],JAM2); SetABPenDrMd(rp, VideoPens[tmpBGColor], VideoPens[tmpFGColor], JAM2);
end; 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 } { 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); agraphics.gfxMove(rp, sX, sY + 14); Draw(rp, sX + 7, sY + 14);
gfxMove(videoWindow^.RPort,sX,sY+15); Draw(videoWindow^.RPort,sX+7,sY+15); agraphics.gfxMove(rp, sX, sY + 15); Draw(rp, sX + 7, sY + 15);
end; end;
end; end;
procedure SysUpdateScreen(Force: Boolean);
procedure SysUpdateScreen(force: boolean);
var var
BufCounter : Longint; BufCounter: Longint;
smallforce : boolean; SmallForce: Boolean;
cursormoved : boolean; Counter, CounterX, CounterY: LongInt;
counter, counterX, counterY: longint; //BufRp: PRastPort;
t: Double;
NumChanged: Integer;
begin begin
smallforce:=false; SmallForce := False;
cursormoved:=false;
// override forced update when screen dimensions haven't changed // override forced update when screen dimensions haven't changed
if force then begin if Force then
if (oldSH = ScreenHeight) and begin
(oldSW = ScreenWidth) then if (OldSH = ScreenHeight) and (OldSW = ScreenWidth) then
force:=false Force:=false
else begin else
oldSH := ScreenHeight; begin
oldSW := ScreenWidth; OldSH := ScreenHeight;
OldSW := ScreenWidth;
end; end;
end; end;
if force then begin if Force then
smallforce:=true; begin
end else begin SmallForce:=true;
counter:=0; end else
while not smallforce and (counter<(VideoBufSize div 4)-1) do begin begin
smallforce:=(PDWord(VideoBuf)[counter] <> PDWord(OldVideoBuf)[counter]); Counter:=0;
inc(counter); while not smallforce and (Counter < (VideoBufSize div 4) - 1) do
begin
SmallForce := (PDWord(VideoBuf)[Counter] <> PDWord(OldVideoBuf)[Counter]);
inc(Counter);
end; end;
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; BufCounter:=0;
if smallforce then begin NumChanged:=0;
for counterY:=0 to ScreenHeight-1 do begin if Smallforce then
for counterX:=0 to ScreenWidth-1 do begin begin
if (VideoBuf^[BufCounter]<>OldVideoBuf^[BufCounter]) or force then //t := now();
DrawChar(counterX,counterY,crHidden); 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); Inc(BufCounter);
end; end;
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; end;
if (cursorType<>oldcursorType) or if (CursorType <> OldCursorType) or
(CursorX<>oldCursorX) or (CursorY<>oldCursorY) or (CursorX <> OldCursorX) or (CursorY <> OldCursorY) or
smallforce then begin SmallForce then
DrawChar(oldCursorY,oldCursorX,crHidden); begin
DrawChar(CursorY,CursorX,cursorType); {$ifdef WITHBUFFERING}
oldCursorX:=CursorX; DrawChar(BufRp, OldCursorY, OldCursorX, crHidden);
oldCursorY:=CursorY; DrawChar(BufRp, CursorY, CursorX, CursorType);
oldcursorType:=cursorType; {$else}
DrawChar(VideoWindow^.RPort, OldCursorY, OldCursorX, crHidden);
DrawChar(VideoWindow^.RPort, CursorY, CursorX, CursorType);
{$endif}
OldCursorX := CursorX;
OldCursorY := CursorY;
OldcursorType := CursorType;
end; end;
{$ifdef WITHBUFFERING}
BltBitMapRastPort(BufRp^.Bitmap, 0, 0, VideoWindow^.RPort, 0, 0, ScreenWidth * 8, ScreenHeight * 16, $00C0);
{$endif}
end; end;
procedure SysSetCursorPos(NewCursorX, NewCursorY: Word); procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
begin begin
CursorX:=NewCursorY; CursorX := NewCursorY;
CursorY:=NewCursorX; CursorY := NewCursorX;
SysUpdateScreen(false); SysUpdateScreen(False);
end; end;
function SysGetCapabilities: Word; function SysGetCapabilities: Word;
begin begin
SysGetCapabilities:=cpColor or cpChangeCursor; SysGetCapabilities := cpColor or cpChangeCursor;
end; end;
function SysGetCursorType: Word; function SysGetCursorType: Word;
begin begin
SysGetCursorType:=cursorType; SysGetCursorType := cursorType;
end; end;
procedure SysSetCursorType(NewType: Word); procedure SysSetCursorType(NewType: Word);
begin begin
cursorType:=newType; cursorType := newType;
{ FIXME: halfBlock cursors are not supported for now { FIXME: halfBlock cursors are not supported for now
by the rendering code } by the rendering code }
if cursorType = crHalfBlock then cursorType:=crBlock; if CursorType = crHalfBlock then
cursorType := crBlock;
SysUpdateScreen(false); SysUpdateScreen(False);
end; end;
// Amiga specific calls // Amiga specific calls
procedure GotCloseWindow; procedure GotCloseWindow;
begin begin
gotCloseWindowMsg:=true; GotCloseWindowMsg := True;
end; end;
function HasCloseWindow: boolean; function HasCloseWindow: Boolean;
begin begin
HasCloseWindow:=gotCloseWindowMsg; HasCloseWindow := GotCloseWindowMsg;
gotCloseWindowMsg:=false; GotCloseWindowMsg := False;
end; end;
procedure GotResizeWindow; procedure GotResizeWindow;
begin begin
gotResizeWindowMsg:=true; GotResizeWindowMsg := True;
end; end;
function HasResizeWindow(var winw:longint; var winh: longint): boolean; function HasResizeWindow(var WinW: LongInt; var WinH: LongInt): Boolean;
begin begin
HasResizeWindow:=gotResizeWindowMsg; WinW := 0;
winw:=videoWindow^.GZZWidth div 8; WinH := 0;
winh:=videoWindow^.GZZHeight div 16; HasResizeWindow := GotResizeWindowMsg;
gotResizeWindowMsg:=false; 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; end;
@ -301,8 +618,8 @@ const
UpdateScreen : @SysUpdateScreen; UpdateScreen : @SysUpdateScreen;
ClearScreen : @SysClearScreen; ClearScreen : @SysClearScreen;
SetVideoMode : @SysSetVideoMode; SetVideoMode : @SysSetVideoMode;
GetVideoModeCount : nil; GetVideoModeCount : @SysGetVideoModeCount;
GetVideoModeData : nil; GetVideoModeData : @SysGetVideoModeData;
SetCursorPos : @SysSetCursorPos; SetCursorPos : @SysSetCursorPos;
GetCursorType : @SysGetCursorType; GetCursorType : @SysGetCursorType;
SetCursorType : @SysSetCursorType; SetCursorType : @SysSetCursorType;
@ -312,4 +629,19 @@ const
initialization initialization
SetVideoDriver(SysVideoDriver); 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. end.

281
packages/rtl-console/src/morphos/videodata.inc
View File

@ -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 )
);