From 3bae11f13b84d54bb1d8bbc5f4c36b49c9010e9e Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 1 Mar 2012 20:24:38 -0500
Subject: [PATCH] Yellow snow

---
 mdl/m_output_crt.pas     |  2 --
 mdl/m_output_windows.pas | 22 +---------------------
 2 files changed, 1 insertion(+), 23 deletions(-)

diff --git a/mdl/m_output_crt.pas b/mdl/m_output_crt.pas
index f9d6e91..6a1bbf8 100644
--- a/mdl/m_output_crt.pas
+++ b/mdl/m_output_crt.pas
@@ -310,8 +310,6 @@ Begin
 
   SetTextAttr(OldAttr);
   CursorXY (OldX, OldY);
-
-  BufFlush;
 End;
 
 Procedure TOutputCRT.WriteXYPipe (X, Y, Attr, Pad: Integer; Text: String);
diff --git a/mdl/m_output_windows.pas b/mdl/m_output_windows.pas
index 73e1044..db0c62b 100644
--- a/mdl/m_output_windows.pas
+++ b/mdl/m_output_windows.pas
@@ -588,7 +588,7 @@ Var
   CountX  : Byte;
   CountY  : Byte;
   BufPos  : Integer;
-  TempBuf : Array[1..SizeOf(TConsoleScreenRec) DIV 4] of LongInt Absolute Image.Data;
+  TempBuf : Array[1..SizeOf(TConsoleScreenRec) DIV 2] of LongInt Absolute Image.Data;
 Begin
   BufSize.X     := Image.X2 - Image.X1 + 1;
   BufSize.Y     := Image.Y2 - Image.Y1 + 1;
@@ -697,33 +697,13 @@ Begin
 End;
 
 Function TOutputWindows.ReadCharXY (X, Y: Byte) : Char;
-//Var
-//  Coord   : TCoord;
-//  WasRead : ULong;
 Begin
-//  Coord.X := X;
-//  Coord.Y := Y - 1;
-
-  // should use buffer instead
-
-//  ReadConsoleOutputCharacter(ConOut, @Result, 1, Coord, WasRead);
-
   Result := Buffer[Y][X].UnicodeChar;
 End;
 
 Function TOutputWindows.ReadAttrXY (X, Y: Byte) : Byte;
-//Var
-//  Coord   : TCoord;
-//  WasRead : ULong;
 Begin
-//  Coord.X := X;
-//  Coord.Y := Y - 1;
-
-  // should use buffer instead
-
   Result := Buffer[Y][X].Attributes;
-
-//  ReadConsoleOutputAttribute(ConOut, @Result, 1, Coord, WasRead);
 End;
 
 Procedure TOutputWindows.BufFlush;