OpenEuphoria

Neil.e clear_screen() fix

• Posted by "Lucius L. Hilley III" <lhilley at CDC.NET> Apr 19, 2000
• 720 views

Fiestaclear_screen() would fail for text modes.  This fixes it

procedure oldclear_screen()
  clear_screen()
end procedure

global procedure clear_screen()
--> Clears the screen to the color set by bg_color and moves cursor to (0,0)
  if mode_type then
    text_x = 0
    text_y = 0
    display_image({0,0}, repeat(repeat(back_color, SCREEN_W), SCREEN_H))
  else
    oldclear_screen()
  end if
end procedure


        Lucius L. Hilley III
.     __         __  __     ______     ______     __  __    _____
.    /\ \       /\ \/\ \   /\     \   /\     \   /\ \/\ \  /\    \
.   /  \_\     /  \_\ \_\ /  \_____\  \ \_____\ /  \_\ \_\/  \____\
.  /   / /    /   / / / //   / ____/  /\_   __//   / / / /\  /  __ \
. /   / /    /   / / / //   / /    __/   / /  /   / / / /\_\/  /_ \/
./   / /\   /   / /\/ //   / /\   /\ \  / /  /   / /\/ /\ \ \__  \
.\  / /__\  \  / /_/ / \  / /__\  \ \_\/ /_\ \  / /_/ /  \/\_\/  /
. \/_____/   \/_____/   \/_____/   \/______/  \/_____/    \_____/