if instead.tiny then

    return

  end;

  elseif unscaled_sw ~= 640 or unscaled_sh ~= 480 then

    local animheight = 600 * scale;

    if width == 640 and height == 480 then

      animheight=360 * scale;

    end;

          h = animheight, 

    local animheight = 600 * scale;

    if width == 640 and height == 480 then

      animheight=360 * scale;

    end;

          h = animheight,

          h = animheight,

          h = animheight,

          background = true,

    local animheight = 600;

    if width == 640 and height == 480 then

      animheight = 420;

    end;

          h = animheight * scale,

          h = animheight * scale,

local function bayer(size)

  if size == 1 then

    return {

      {0}

    };

  end;

  local u = bayer(size / 2);

  local v = 4;

  local h = size / 2;

  local m = {};

  for j = 1, h do

    m[j] = {};

    for i = 1, h do

      m[j][i] = u[j][i] * v;

    end;

  end;

  for j = h + 1, size do

    m[j] = {};

    for i = 1, h do

      m[j][i] = u[j - h][i] * v + 3;

    end;

  end;

  for j = 1, h do

    for i = h + 1, size  do

      m[j][i] = u[j][i - h] * v + 2;

    end;

  end;

  for j = h + 1, size do

    for i = h + 1, size do

      m[j][i] = u[j - h][i - h] * v + 1;

    end;

  end;

  return m;

end;

    if instead.tiny then

      return;

    end;

    if width == 640 and height == 480 then

      height = 300;

    end;

    if pic_dx < 0 or pic_dy < 0 then

      local src2 = sprite.new(width, height);

      src:copy(-pic_dx, -pic_dy, width, height, src2, 0, 0);

      src = src2;

    end;

    -- A tiny performance test: painting 1 - 512 lines, doubling every time. If any of the operations takes more than 10ms -- switch to lo-perf mode

    local passed = true;

    local test = 1;

    while passed and test <= 512 do

      local t = instead.ticks();

      local tdst = sprite.new(width, test);

      tdst:draw(-pic_dx, 0, width, test, newsrc, 0, 0, 1);

      if instead.ticks() - t > 10 then

        passed = false;

      end;

      test = test * 2;

    end;

    src:copy(0, 0, width, height, newsrc, 0, 0);

    local partheight;

    local dalpha = 1;

    local alternative = false;

    local delta = 25;

    -- Now calculate animation speed

    -- Expected duration is 125 ms before shifting alpha by 1

    if passed then

      -- Test passed, can paint the whole sprite in one part

      partcount = 1;

      partheight = height;

    else

      -- test failed; Calculate, how fast painting can be done

      test = math.max(test / 4, 1); -- Rows in one frame

      partcount = math.ceil(height / test);

      dalpha = math.floor(partcount / 5);

      alpha = dalpha;

      partheight = math.floor(height / partcount);

    end;  

    if partcount > 25 then

      -- test completely failed; Use alternative animation

      alternative = true;

      alpha = 1;

      delta = 125;

    else

        dst:copy(-pic_dx, (i - 1) * partheight - pic_dy, width, partheight, parts[i], 0, 0);

      end;

      dst = nil;

    local process;

    if alternative then

      local map = {};

      local m = bayer(16);

      for j = 1, 16 do

        for i = 1, 16 do

          map[i + j * 16 - 16] = m[j][i];

        end;

      end;      

      dst = dst:scale(scale, scale, false);

      process = function(s)

        local i = map[alpha];

        while i < height do

          if scale == 1 then

            dst:copy(-pic_dx, i - pic_dy, width, 1, s.sprite, 0, i);

          else

            dst:copy(-pic_dy, i * scale - pic_dy, width * scale, scale, s.sprite, 0, i * scale);

          end;

          i = i + 256;

        end;

        alpha = alpha + 1;

        if alpha == 257 then

          s.process = nil

        end;

      end;

    else

      process = function(s)

        src:copy(0, part * partheight, width, partheight, newsrc, 0, part * partheight);

          parts[part + 1]:draw(newsrc, 0, part * partheight, alpha);

          parts[part + 1]:copy(newsrc, 0, part * partheight);

          part = 0

          alpha = alpha + dalpha;

          elseif partcount > 1 then

    end;

    elseif partcount == 1 then

      spr = newsrc;

      {type="image", image=spr, x=dx * scale, y=dy * scale, w=width * scale, h=height * scale, process=process, delay=125, background=true};

    if instead.tiny then

      return;

    end;

    local animheight = 600 * scale;

    if width == 640 and height == 480 then

      animheight=360 * scale;

    end;

          h = animheight,

          h = animheight,

    if instead.tiny then

      return;

    end;

    if instead.tiny then

      return;

    end;

function credits_text(centered) 

  local closed_beta_participants = 'arbtttrn6, De@th K!d, Fehatt, Lesha Pak, Łukasz Sawicki, Niko Flang, Oleg Bosh, Terracon, Андрей Лобанов';

  local tab = '<tab>';

  if centered then

    tab = '';

  end;

  return translate_now("menu_locale", 'credits_author') .. ': Khaelenmore Thaal^' ..

      translate_now("menu_locale", 'credits_art') .. ': Sabra Naikomy^' ..

      translate_now("menu_locale", 'credits_music') .. ': Khaelenmore Thaal^' ..

      translate_now("menu_locale", 'credits_engine') .. ': INSTEAD ' .. translate_now("menu_locale", 'credits_engine_author') .. ' {$link https://github.com/instead-hub/instead/}^' ..

      translate_now("menu_locale", 'credits_sounds') .. ': {$link https://freesound.org/} CC-0^' ..

      translate_now("menu_locale", 'credits_fonts') .. ': VileR {$link https://int10h.org/oldschool-pc-fonts/} CC-BY-SA 4.0^^' ..

      translate_now("menu_locale", 'credits_closed_beta') .. ': ' .. closed_beta_participants.. '^^'..

      translate_now("menu_locale", "credits_translation") .. ':^' ..

      tab .. 'Esperanto: arbtttrn6' .. '^^' ..

      translate_now("menu_locale", 'credits_thanks');

end;

    return credits_text(true);

if instead.tiny then

  -- Stub the theme if instead.tiny is present

  function set_theme(t) end;

  return;

end;

function set_theme(t)  

  -- resetting defaults

  fmt.para = true;

  std.scene_delim = '^^';

  theme.set('snd.click', 'sound/click.wav');

  D {'settings_open'};

  local tname, tcolor_text, tcolor_link, tcolor_alink;

  local width, height = diretheme.get_screen();

  -- 640x480 is the base size

  local scale = get_graphic_scale();

  local max_scale_x = math.floor(width / 640);

  local max_scale_y = math.floor(height / 480);

  -- Fail-safe for too small screen

  if max_scale_x < 1 then max_scale_x = 1; end;

  if max_scale_y < 1 then max_scale_y = 1; end;

  local max_scale = math.min(max_scale_x, max_scale_y);

  if scale > max_scale then

    scale = max_scale;

    prefs.graphic_scale = false;

  end;

  local cursor_scale = get_cursor_scale();

  if cursor_scale > 2 * max_scale then

    cursor_scale = 2 * max_scale;

  end;

  local font_scale = get_font_scale() / 100;

  if font_scale > 2 * scale then

    font_scale = scale;

    prefs.font_scale = font_scale * 100

  end;

  local inv_scale = get_inventory_font_scale() / 100;

  local text_align = 'justify';

  if prefs.text_alignment == 2 then

    text_align = 'left';

  end;

  local hpadding, vpadding = 0, 0;

  if prefs.text_padding == 2 then

    hpadding, vpadding = 24, 12;

  end;

  local interval = '1.0';

  if prefs.text_interval == 2 then

    interval = '1.5';

  end;

  local canvas = diretheme.set_canvas({rmax = 2, rmin = 1});

  diretheme.set_scale(scale);

  local scaled_width, scaled_height = diretheme.get_scaled_screen();

  current_theme = t;

  local tvariant = 0;

  if t:match("_bw$") then

    t = t:gsub("_bw$", "");

    tvariant = 1;

  end;

  -- Most text area settings are per-theme

  local text_area = {};

  -- Hide inventory by default

  local inventory = {

    rect = {

      lx = width + 1,

      y = 0,

      wmax = 1,

      wmin = 1,

      ty = 2,

      by = 2,

      ax = 1

    }

  };

  -- And image

  local image_area = {

    rect = {

      lx = width + 1,

      ax = 1,

      wmax = 584,

      hmax = 258,

      wmin = 584,

      hmin = 258

    };

    bg = {};

    mode = 'float';

  };

  -- Preset colors

  local theme_directory = nil;

  local text_color, link_color, alink_color;

  local inv_color, inv_link, inv_alink;

  if t == 'terminal' or t == 'black' then

    diretheme.set_canvas({

      lx = 0, ty = 0, rx = 0, by = 0

    });

    text_color = '#D0FFFF';

    link_color = '#ABDECE';

    alink_color = '#9BCEBE';  

    theme_directory = 'images/tower_theme';

    text_area.text = {

      font = 'fonts/vga.ttf',

      color = text_color,

      link = link_color,

      alink = alink_color,

      size = 16

    };

  else

    canvas = diretheme.set_canvas({

      lx = 0, ty = 0, rx = 0, by = 0, rmin = 1.2, rmax = 1.8

    });

    if t == 'menu' or t == 'main' or t == 'ending_outside' or t == 'credits_outside' then

      inv_color = '#403426';

      inv_link = '#403426';

      inv_alink = '#61503A';

      if tvariant == 0 then

        text_color = '#000504';

        link_color = '#80382A';

        alink_color = '#80605D';

        theme_directory = 'images/main_theme';

      else

        text_color = '#040404';

        link_color = '#434343';

        alink_color = '#585858';

        theme_directory = 'images/bwm_theme';

      end;

      text_area.uppos = {ax=1, x = 12, y = 0, ay=-1};

      text_area.downpos = {ax=1, x = 12, y = 0, ay=1};

      text_area.bg = {

        image = theme_directory .. '/text_bg.png',

        options = {

          mode = 6,

          drawmethod = 2,

          slice = {

            x = 9,

            y = 6,

            w = 96,

            h = 96

          },

          scale = true

        }

      };

    elseif t == 'tower' or t == 'ending_inside' or t == 'credits_inside' then

      inv_color = '#6b9e8e';

      inv_link = '#9bcebe';

      inv_alink = '#Bbeede';

      if tvariant == 0 then

        text_color = '#93DDCD';

        link_color = '#E0F0EA';

        alink_color = '#FFFFFF';

        theme_directory = 'images/tower_theme';

      else

        text_color = '#ADADAD';

        link_color = '#CDCDCD';

        alink_color = '#BDBDBD';

        theme_directory = 'images/bwt_theme';

      end;

      text_area.uppos = {ax=1, x = 16, y = 0, ay=-1};

      text_area.downpos = {ax=1, x = 16, y = 0, ay=1};

      text_area.bg = {

        image = theme_directory .. '/text_bg.png',

        options = {

          mode = 6,

          drawmethod = 2,

          slice = {

            x = 6,

            y = 6,

            w = 128,

            h = 128

          },

          scale = true

        }

      };

    end;

    if t == 'ending_inside' or t == 'ending_outside' then

      canvas = diretheme.set_canvas({

        lx = 0, ty = 0, rx = 0, by = 0

      });

    end;

    text_area.align = text_align;

    text_area.height = interval;

    text_area.scaleui = true;

    text_area.up = theme_directory .. '/arrow_up.png';

    text_area.down = theme_directory .. '/arrow_down.png';

    text_area.text = {

      font = 'fonts/{sans,sans-b,sans-i,sans-bi}.ttf',

      color = text_color,

      link = link_color,

      alink = alink_color,

      size = math.floor(16 * font_scale),

      noscale = true

    };

    inventory.up = theme_directory .. '/arrow_up.png';

    inventory.down = theme_directory .. '/arrow_down.png';

    inventory.uppos = {ax=1, x = 8, y = 0, ay=-1};

    inventory.downpos = {ax=1, x = 8, y = 0, ay=1};

    inventory.text = {

      color = inv_color,

      link = inv_link,

      alink = inv_alink,

      size = math.floor(16 * inv_scale),

      noscale = true

    };

    inventory.height = interval;

  end;

  if t == 'main' or t == 'tower' then

    std.scene_delim = '^' .. fmt.c(fmt.img(theme_directory .. '/line_separator.png')) .. '^'

  end;

 -- And menu, but need theme_directory to have proper button image

  local menu = {

    button = {

      image = theme_directory ..'/menu.png';

      options = {

        mode = 1,

        scale = true

      }

    };

    buttonrect = {

      x = width + 1,

      y = 0,

      w = 50,

      h = 16

    };

    text = {

      size = math.floor(15 * font_scale),

      noscale = true

    },

    height = interval,

    scaleui = true;

  };

  local cursor, active_cursor = 'images/cursor.png', 'images/cursor_active.png';

  if tvariant == 1 then

    cursor, active_cursor = 'images/cursor_bw.png', 'images/cursor_active_bw.png'

  end;

  diretheme.set_cursor({

    x = 2,

    y = 2,

    normal = cursor,

    active = active_cursor,

    scale = true;

    scalefactor = cursor_scale;

  });

  if t == 'menu' then

    diretheme.set_background('#89C6AE', 255, 'images/main_theme/background.png', {mode=2, scale=true});

    local padding_delta = -10;

    if height < 520 * scale then

      padding_delta = -95;

    end;

    text_area.rect = {

      ty = padding_delta + vpadding,

      wmax = 538 - hpadding * 2,

      hmax = 322 - vpadding * 2,

      ay = 0

    };

    text_area.text = text_area.text;

    text_area.uppos = {ax=1, x = 15, y = 65, ay=-1};

    text_area.downpos = {ax=1, x = 15, y = -20, ay=1};

    text_area.contentrect = {wf=prefs.text_width / 100};

    text_area.bg = '';

  elseif t == 'main' then

    diretheme.set_background('#89C6AE', 255, 'images/main_theme/background.png', {mode=2, scale = true});

    local image_bg = 'images/main_theme/picture_bg.png';

    if canvas.w < 800 * scale then

      image_bg = 'images/main_theme/picture_bg_small.png';

    end;

    image_area.leftof = 'inv';

    image_area.topof = 'text';

    image_area.rect = {

      ax = 0,

      wmax = 584,

      hmax = 265,

      wmin = 584,

      hmin = 265

    };

    image_area.contentrect = {

      ax = 0,

      ay = -1,

      ty = 11,

      wmin = 320,

      hmin = 240,

      wmax = 320,

      hmax = 240

    };

    image_area.bg = {

      image = image_bg,

      options = {

        mode = 1,

        scale = true

      }

    };

    text_area.leftof = 'inv';

    text_area.rect = {

      lx = 7,

      ty = 266,

      rx = 8,

      by = 2,

      ax = 1,

      ay = 1

    };

    text_area.contentrect = {

      lx = 21 + hpadding,

      rx = 21 + hpadding,

      ty = 14 + vpadding,

      by = 14 + vpadding,

      wf=prefs.text_width / 100

    };

    inventory.rect = {

      rx = 2,

      y = 2,

      wmax = 208,

      wmin = 208,

      ty = 2,

      by = 2,

      ax = 1

    };

    inventory.contentrect = {

      lx = 25,

      rx = 25,

      ty = 40,

      by = 40

    };

    inventory.bg = {

      image = function(tpx, rect)

        local top = pixels.new('images/main_theme/inv_top.png'):scale(scale, scale, false);

        local mid = pixels.new('images/main_theme/inv_mid.png'):scale(scale, scale, false);

        local bottom = pixels.new('images/main_theme/inv_bottom.png'):scale(scale, scale, false);

        dire_draw_tile(mid, tpx, { x=rect.x + 11 * scale, y=rect.y + 10 * scale, w=rect.w - 22 * scale, h = rect.h - 20 * scale}, {});

        dire_draw_center(top, tpx, {x=rect.x, y=rect.y, w=208 * scale, h=60 * scale});

        dire_draw_center(bottom, tpx, {x=rect.x, y=rect.y + rect.h - 60 * scale, w=208 * scale, h=60 * scale});