-- See http://forum.farmanager.com/viewtopic.php?p=112243#p112243
local function Set(list)
  local set={}
  for _,l in ipairs(list) do set[l]=true end
  return set
end
local Refresh=Set{"CtrlLeft","CtrlRight","CtrlUp","CtrlDown","CtrlClear","CtrlNum4","CtrlNum6","CtrlNum2","CtrlNum8"}
local Mouse1=Set{"MsWheelDown","MsWheelUp"}
local Mouse2=Set{"MsM1Click"}
local Mouse3=Set{"MsLClick"}
local BGColor=function() return 0xff000000 end
local F=far.Flags
local K=far.Colors
local ffi=require'ffi'
local C=ffi.C
ffi.cdef[[
int SetProcessDpiAwareness(int);
]]
local function setdpi()
  local shcore=ffi.load'shcore'
  shcore.SetProcessDpiAwareness(2)
end
pcall(setdpi)
local function safe_cdef(def) pcall(ffi.cdef,def) end
safe_cdef[[
typedef enum GpStatus {
  Ok = 0,
  GenericError = 1,
  InvalidParameter = 2,
  OutOfMemory = 3,
  ObjectBusy = 4,
  InsufficientBuffer = 5,
  NotImplemented = 6,
  Win32Error = 7,
  WrongState = 8,
  Aborted = 9,
  FileNotFound = 10,
  ValueOverflow = 11,
  AccessDenied = 12,
  UnknownImageFormat = 13,
  FontFamilyNotFound = 14,
  FontStyleNotFound = 15,
  NotTrueTypeFont = 16,
  UnsupportedGdiplusVersion = 17,
  GdiplusNotInitialized = 18,
  PropertyNotFound = 19,
  PropertyNotSupported = 20,
  ProfileNotFound = 21
} GpStatus;
]]
safe_cdef[[
typedef struct GdiplusStartupInput {
  uint32_t GdiplusVersion;
  void* DebugEventCallback;
  int SuppressBackgroundThread;
  int SuppressExternalCodecs;
} GdiplusStartupInput;
]]
safe_cdef[[
typedef struct GdiplusStartupOutput {
  void* NotificationHook;
  void* NotificationUnhook;
} GdiplusStartupOutput;
]]
safe_cdef[[
typedef struct {
  unsigned long Data1;
  unsigned short Data2;
  unsigned short Data3;
  unsigned char Data4[8];
} GUID;
]]
safe_cdef[[
typedef struct PropertyItem {
  unsigned long id;
  unsigned long length;
  unsigned short type;
  void* value;
} PropertyItem;
]]
safe_cdef[[
typedef enum RotateFlipType {
  RotateNoneFlipNone,
  Rotate90FlipNone,
  Rotate180FlipNone,
  Rotate270FlipNone,
  RotateNoneFlipX,
  Rotate90FlipX,
  Rotate180FlipX,
  Rotate270FlipX,
  RotateNoneFlipY,
  Rotate90FlipY,
  Rotate180FlipY,
  Rotate270FlipY,
  RotateNoneFlipXY,
  Rotate90FlipXY,
  Rotate180FlipXY,
  Rotate270FlipXY
} RotateFlipType;
]]
ffi.cdef[[
GpStatus GdiplusStartup(void**,const GdiplusStartupInput*,GdiplusStartupOutput*);
void GdiplusShutdown(void*);
GpStatus GdipLoadImageFromFile(const wchar_t*,void** GpImage);
GpStatus GdipCreateFromHDC(void* HDC,void** GpGraphics);
GpStatus GdipDrawImageRectI(void* GpGraphics,void* GpImage,int,int,int,int);
GpStatus GdipGetImageWidth(void* GpImage,unsigned int*);
GpStatus GdipGetImageHeight(void* GpImage,unsigned int*);
GpStatus GdipDeleteGraphics(void* GpGraphics);
GpStatus GdipDisposeImage(void* GpImage);
GpStatus GdipImageGetFrameDimensionsCount(void* GpImage,unsigned int*);
GpStatus GdipImageGetFrameDimensionsList(void* GpImage,GUID*,unsigned int);
GpStatus GdipImageGetFrameCount(void* GpImage,const GUID*,unsigned int*);
GpStatus GdipImageSelectActiveFrame(void* GpImage,const GUID*,unsigned int);
GpStatus GdipFillRectangleI(void* GpGraphics,void* GpBrush,int,int,int,int);
GpStatus GdipCreateSolidFill(unsigned long,void** GpSolidFill);
GpStatus GdipDeleteBrush(void* GpBrush);
GpStatus GdipCreateBitmapFromScan0(int,int,int,int,unsigned char*,void** GpBitmap);
GpStatus GdipGetImageGraphicsContext(void* GpImage,void** GpGraphics);
GpStatus GdipGetPropertyItemSize(void* GpImage,unsigned long,unsigned int*);
GpStatus GdipGetPropertyItem(void* GpImage,unsigned long,unsigned int,PropertyItem*);
GpStatus GdipImageRotateFlip(void* GpImage,RotateFlipType);
GpStatus GdipBitmapGetPixel(void* bitmap, int x, int y, unsigned int* color);
]]
safe_cdef[[
typedef struct _COORD {
  short X;
  short Y;
} COORD;
]]
safe_cdef[[
typedef struct _SMALL_RECT {
  short Left;
  short Top;
  short Right;
  short Bottom;
} SMALL_RECT;
]]
safe_cdef[[
typedef struct _RECT {
  long left;
  long top;
  long right;
  long bottom;
} RECT;
]]
safe_cdef[[
typedef struct _CONSOLE_SCREEN_BUFFER_INFO {
  COORD dwSize;
  COORD dwCursorPosition;
  unsigned short wAttributes;
  SMALL_RECT srWindow;
  COORD dwMaximumWindowSize;
} CONSOLE_SCREEN_BUFFER_INFO;
]]
safe_cdef[[
typedef struct _CONSOLE_SCREEN_BUFFER_INFOEX {
  unsigned long cbSize;
  COORD dwSize;
  COORD dwCursorPosition;
  unsigned short wAttributes;
  SMALL_RECT srWindow;
  COORD dwMaximumWindowSize;
  unsigned short wPopupAttributes;
  int bFullscreenSupported;
  unsigned long ColorTable[16];
} CONSOLE_SCREEN_BUFFER_INFOEX;
]]
ffi.cdef[[
void* GetDC(void* HWND);
int ReleaseDC(void* HWND,void* HDC);
int32_t GetConsoleScreenBufferInfo(void* hConsoleOutput,CONSOLE_SCREEN_BUFFER_INFO* lpConsoleScreenBufferInfo);
int32_t GetConsoleScreenBufferInfoEx(void* hConsoleOutput,CONSOLE_SCREEN_BUFFER_INFOEX* lpConsoleScreenBufferInfoEx);
void* GetStdHandle(uint32_t nStdHandle);
int32_t GetClientRect(void*,RECT*);
DWORD GetPixel(void* HDC,int x,int y);
DWORD SetPixel(void* HDC,int x,int y,DWORD color);
]]
local gdiplus=ffi.load'gdiplus'
local gdip_handle=ffi.new'void*[1]'
local startup=ffi.new'GdiplusStartupInput'
startup.GdiplusVersion=1
gdiplus.GdiplusStartup(gdip_handle,startup,ffi.NULL)

local configguid='6B6CA451-58D1-46B6-94A9-FF1157393926'
local function ReadSettings()
  local s=far.CreateSettings()
  local sk=s:CreateSubkey(F.FSSF_ROOT,configguid,'Picture')
  local cr=s:Get(sk,'console_renderer',F.FST_QWORD) or 0
  s:Free()
  return cr
end
local function WriteSettings(cr)
  local s=far.CreateSettings()
  local sk=s:CreateSubkey(F.FSSF_ROOT,configguid,'Picture')
  s:Set(sk,'console_renderer',F.FST_QWORD,cr)
  s:Free()
end
local console_renderer=ReadSettings()

local function Rect(left,top,right,bottom)
  return {left=left;top=top;right=right;bottom=bottom;unpack=function(t) return t.left,t.top,t.right,t.bottom end}
end
local function Size(width,height) return {width=width;height=height;unpack=function(t) return t.width,t.height end} end
local function RectSize(rect) return Size(rect.right-rect.left,rect.bottom-rect.top) end -- TODO check for off-by-1 err
local function Round(n) return math.floor(n+.5) end -- simplest, for positive numbers

local function ToWChar(str)
  str=win.Utf8ToUtf16(str)
  local result=ffi.new("wchar_t[?]",#str/2+1)
  ffi.copy(result,str)
  return result
end

local function LongPath(path)
  local type = path:match[[^\\(.?.?)]]
  return type and (([[?\]]==type or [[.\]]==type) and path or [[\\?\UNC]]..path:sub(2)) or [[\\?\]]..path
end

local function BGR2RGB(color)
  return bit64.bor(bit64.band(bit64.rshift(color,16),0x000000ff),bit64.band(color,0xff00ff00),
                   bit64.band(bit64.lshift(color,16),0x00ff0000))
end

local function PointInRect(point,rect)
  return point.MousePositionX>=rect.left and point.MousePositionX<=rect.right and
         point.MousePositionY>=rect.top and point.MousePositionY<=rect.bottom
end

local function getDNG(filename)
  local function intBE(b)
    local result=0
    for _,v in ipairs(b) do
      if not v then break end
      result=result*256+v
    end
    return result
  end
  local result,thumbs,fix=false,{},function(a) return a end
  local int=function(b) return (b[1] or 0)+(b[2] or 0)*256+(b[3] or 0)*65536+(b[4] or 0)*16777216 end
  local function get(file,bytes) return int{string.byte(file:read(bytes),1,bytes)} end
  local function get2(file) return get(file,2) end
  local function get4(file) return get(file,4) end
  local function parse_ifd(file,base,process)
    local entries,index=get2(file),#thumbs+1
    thumbs[index]={size=0,compression=6}
    for _=1,entries do
      local d={f=file,process=process,value=thumbs[index],base=base,
               tag=get2(file),type=get2(file),count=get4(file),offset=get4(file)}
      process(d)
    end
  end
  local orient,f = 0,io.open(filename,'rb')
  if f then
    local tag=f:read(2)
    if tag=="II" or tag=="MM" then
      if tag=="MM" then
        int=intBE
        fix=function(a) return a/65536 end
      end
      get2(f)
      while true do
        local offset=get4(f)
        if offset==0 then break end
        f:seek('set',offset)
        parse_ifd(f,0,function(d1)
          if d1.tag==46 then d1.value.data,d1.value.size=(d1.base+d1.offset),d1.count
          elseif d1.tag==259 then d1.value.compression=fix(d1.offset)
          elseif (d1.tag==273 or d1.tag==513) and d1.offset~=0xffffffff then d1.value.data=d1.base+d1.offset
          elseif d1.tag==274 then d1.value.orient =fix(d1.offset)
          elseif d1.tag==277 then d1.value.samples=fix(d1.offset)
          elseif (d1.tag==279 or d1.tag==514) and d1.offset>0 then d1.value.size=d1.offset
          elseif d1.tag==330 then
            local size,pos1=4*d1.count,d1.f:seek()
            for ii=1,d1.count do
              d1.f:seek('set',d1.base+d1.offset+(ii-1)*4)
              if size>4 then d1.f:seek('set',get4(d1.f)) end
              parse_ifd(d1.f,d1.base,d1.process)
            end
            d1.f:seek('set',pos1)
          elseif d1.tag==34665 then
            local pos2=d1.f:seek()
            d1.f:seek('set',d1.base+d1.offset)
            parse_ifd(d1.f,d1.base,function(d2)
              if d2.tag==37500 then
                local pos3=d2.f:seek()
                d2.f:seek('set',d2.base+d2.offset)
                local new_base=d2.f:seek()
                local maker=d2.f:read(10)
                if maker=="OLYMPUS\0II" then
                  get2(d2.f)
                  parse_ifd(d2.f,new_base,function(d3)
                    if d3.tag==8224 then
                      local pos4=d3.f:seek()
                      d3.f:seek('set',d3.base+d3.offset)
                      parse_ifd(d3.f,d3.base,function(d4) if d4.tag==257 then d4.value.data=d4.base+d4.offset
                                                       elseif d4.tag==258 then d4.value.size=d4.offset
                                                       end end)
                      d3.f:seek('set',pos4)
                    end
                  end)
                end
                d2.f:seek('set',pos3)
              end
            end)
            d1.f:seek('set',pos2)
          elseif d1.tag==50752 then d1.value.raw=true end
        end)
      end
    end
    table.sort(thumbs,function(a,b) return a.size>b.size end)
    for _,v in ipairs(thumbs) do
      if v.data and not v.raw and (v.compression==6 or (v.samples==3 and v.compression==7)) then
        result=far.MkTemp()
        local w=io.open(result,"wb")
        if w then
          f:seek('set',v.data)
          w:write(f:read(v.size))
          w:close()
          orient = v.orient or 0
        end
        break
      end
    end
    for _,v in ipairs(thumbs) do
      if orient~=0 then break end
      orient = v.orient or 0
    end
    f:close()
  end
  return result,orient
end

local function InitBGColor()
  local color=far.AdvControl(F.ACTL_GETCOLOR,K.COL_PANELTEXT)
  local bgcolor
  if bit64.band(color.Flags,F.FCF_BG_4BIT)~=0 then
    local info=ffi.new'CONSOLE_SCREEN_BUFFER_INFOEX'
    info.cbSize=ffi.sizeof(info)
    C.GetConsoleScreenBufferInfoEx(C.GetStdHandle(-11),info)
    bgcolor=bit64.bor(BGR2RGB(info.ColorTable[bit64.band(color.BackgroundColor,0xf)]),0xff000000)
  else
    bgcolor=BGR2RGB(color.BackgroundColor)
  end
  BGColor=function() return bgcolor end
end

local RotFlipByOrient={                            -- From exiftool documentation
  [1]={tr=false,op='RotateNoneFlipNone',mn='R0F0'},-- Horizontal (normal)
  [2]={tr=false,op='RotateNoneFlipX'   ,mn='R0FX'},-- Mirror horizontal
  [3]={tr=false,op='Rotate180FlipNone' ,mn='R2F0'},-- Rotate 180
  [4]={tr=false,op='Rotate180FlipX'    ,mn='R2FX'},-- Mirror vertical
  [5]={tr=true ,op='Rotate90FlipX'     ,mn='R1FX'},-- Mirror horizontal and rotate 270 CW
  [6]={tr=true ,op='Rotate90FlipNone'  ,mn='R1F0'},-- Rotate 90 CW
  [7]={tr=true ,op='Rotate270FlipX'    ,mn='R3FX'},-- Mirror horizontal and rotate 90 CW
  [8]={tr=true ,op='Rotate270FlipNone' ,mn='R3F0'} -- Rotate 270 CW
}
local function CanReorient(image)
  return image.frames==1 --TODO support reorienting animations (e.g. multipage TIFFs)
end
local function ExifOrient(image)
  local exifOrient = 0
  local exifOrientSize = ffi.new'unsigned int[1]'
  gdiplus.GdipGetPropertyItemSize(image[0],0x112,exifOrientSize)
  if exifOrientSize[0]>0 then
    local exifOrientRaw_buffer = ffi.new('char[?]',exifOrientSize[0])
    local exifOrientRaw = ffi.cast('PropertyItem*',exifOrientRaw_buffer)
    gdiplus.GdipGetPropertyItem(image[0],0x112,exifOrientSize[0],exifOrientRaw)
    exifOrient = ffi.cast('unsigned short*',exifOrientRaw.value)[0]
  end
  return exifOrient
end

local function InitImage(filename)
  local cameraRawMasks = '*.dng,*.pef,*.nef,*.cr2,*.sr2,*.arw,*.orf,*.rw2,*.srw'
  local isCamRaw = far.ProcessName(F.PN_CMPNAMELIST,cameraRawMasks,filename,F.PN_SKIPPATH)
  local camRawPath,exifOrient = nil,0
  if isCamRaw then camRawPath,exifOrient = getDNG(filename) end
  local wnd=far.AdvControl(F.ACTL_GETFARHWND)
  local dc=C.GetDC(wnd)
  local image=ffi.new'void*[1]'
  local status=gdiplus.GdipLoadImageFromFile(ToWChar(LongPath(camRawPath or filename)),image)
  if status==0 then
    local graphics=ffi.new'void*[1]'
    gdiplus.GdipCreateFromHDC(dc,graphics)
    local width=ffi.new'unsigned int[1]'
    gdiplus.GdipGetImageWidth(image[0],width)
    local height=ffi.new'unsigned int[1]'
    gdiplus.GdipGetImageHeight(image[0],height)
    local count=ffi.new'unsigned int[1]'
    gdiplus.GdipImageGetFrameDimensionsCount(image[0],count)
    local dimensionIDs=ffi.new("GUID[?]",count[0])
    gdiplus.GdipImageGetFrameDimensionsList(image[0],dimensionIDs,count[0])
    local frames=ffi.new'unsigned int[1]'
    gdiplus.GdipImageGetFrameCount(image[0],dimensionIDs,frames)
    local delay
    local delaysize=ffi.new'unsigned int[1]'
    gdiplus.GdipGetPropertyItemSize(image[0],0x5100,delaysize)
    if delaysize[0]>0 then
      delay={}
      local delayraw_buffer=ffi.new("char[?]",delaysize[0])
      local delayraw=ffi.cast("PropertyItem*",delayraw_buffer)
      gdiplus.GdipGetPropertyItem(image[0],0x5100,delaysize[0],delayraw)
      for ii=1,frames[0] do
        local value=ffi.cast("long*",delayraw.value)[ii-1]
        table.insert(delay,value>0 and value or 1)
      end
    end
    if exifOrient==0 then exifOrient = ExifOrient(image) end
    if exifOrient==0 and isCamRaw then -- slow fallback
      -- Use ExifTool as GDI+ fails to load raw images and I'm too lazy for WIC machinery.
      -- Not using 'LongPath()' because ExifTool (at least v12.63) rejects the "\\?\" prefix.
      local h = io.popen(('ExifTool.exe -s3 -n -Orientation "%s" 2>NUL'):format(filename)) -- code injection possible :(
      exifOrient = h and tonumber(h:read()) or 0
    end
    local brush=ffi.new'void*[1]'
    gdiplus.GdipCreateSolidFill(BGColor(),brush)
    local memimage=ffi.new'void*[1]'
    local tr=RotFlipByOrient[exifOrient] and RotFlipByOrient[exifOrient].tr and CanReorient{frames=frames[0]}
    local wh,hw=tr and height[0] or width[0],tr and width[0] or height[0]
    gdiplus.GdipCreateBitmapFromScan0(wh,hw,0,0x26200a,ffi.NULL,memimage)
    local memgraphics=ffi.new'void*[1]'
    gdiplus.GdipGetImageGraphicsContext(memimage[0],memgraphics)
    return {wnd=wnd,dc=dc,image=image,graphics=graphics,brush=brush,width=wh,height=hw,orient=exifOrient,delay=delay,
            frames=frames[0],guid=dimensionIDs,delete=camRawPath,memory={image=memimage,graphics=memgraphics}}
  end
  if camRawPath then win.DeleteFile(camRawPath) end -- extracted but failed to load
  return false
end

local function DeleteImage(params)
  gdiplus.GdipDisposeImage(params.image.image[0])
  gdiplus.GdipDeleteGraphics(params.image.graphics[0])
  gdiplus.GdipDeleteBrush(params.image.brush[0])
  gdiplus.GdipDeleteGraphics(params.image.memory.graphics[0])
  gdiplus.GdipDisposeImage(params.image.memory.image[0])
  C.ReleaseDC(params.image.wnd,params.image.dc)
  if params.image.delete then win.DeleteFile(params.image.delete) end
end

local function InitArea(params)
  local info=ffi.new'CONSOLE_SCREEN_BUFFER_INFO'
  local handle=C.GetStdHandle(-11)
  C.GetConsoleScreenBufferInfo(handle,info)
  local crect=ffi.new'RECT'
  C.GetClientRect(params.image.wnd,crect)
  local gui=crect.bottom~=0;
  local dx=gui and Round((crect.right-crect.left)/(info.srWindow.Right-info.srWindow.Left+1)) or 8
  local dy=gui and Round((crect.bottom-crect.top)/(info.srWindow.Bottom-info.srWindow.Top+1)) or 16
  local DCRect={}
  DCRect.left=math.floor(dx*(params.DrawRect.left-info.srWindow.Left))
  DCRect.right=math.floor(dx*(params.DrawRect.right+1-info.srWindow.Left))
  DCRect.top=math.floor(dy*(params.DrawRect.top))
  DCRect.bottom=math.floor(dy*(params.DrawRect.bottom+1))
  return DCRect,Size(dx,dy),gui
end

local function RangingPic(params,InRect,fix)
  local asp_dst=(InRect.right-InRect.left)/(InRect.bottom-InRect.top)
  local asp_src=params.image.width/(params.image.height*(fix and fix.width*2/fix.height or 1))

  local dst_w,dst_h

  if asp_dst<asp_src then
    dst_w=math.min(InRect.right-InRect.left,params.image.width)
    dst_h=math.floor(dst_w/asp_src)
  else
    dst_h=math.min(InRect.bottom-InRect.top,params.image.height)
    dst_w=math.floor(asp_src*dst_h)
  end

  local left=InRect.left+math.floor((InRect.right-InRect.left-dst_w)/2)
  local top=InRect.top+math.floor((InRect.bottom-InRect.top-dst_h)/2)

  return Rect(left,top,dst_w,dst_h)
end

local function UpdateImage(params,dlg)
  local update=function(graphics,size,rect)
    gdiplus.GdipFillRectangleI(graphics,params.image.brush[0],0,0,size:unpack())
    --GdipDrawImageI fails on some images
    --FIXME: какая-то ересь, на некоторых картинках первый вызов GdipDrawImageRectI завершается с ошибкой.
    for _=0,1 do
      if C.Win32Error~=gdiplus.GdipDrawImageRectI(graphics,params.image.image[0],rect:unpack()) then break end
    end
  end

  if 0==console_renderer then
    local x,y=params.RangedRect.left,params.RangedRect.top
    if params.image.frames>1 or C.GetPixel(params.image.dc,x,y)~=params.CheckColor then
      local size=Size(params.image.width,params.image.height)
      update(params.image.memory.graphics[0],size,Rect(0,0,size:unpack()))
      gdiplus.GdipDrawImageRectI(params.image.graphics[0],params.image.memory.image[0],x,y,
                                 params.RangedRect.right,params.RangedRect.bottom)
      params.CheckColor=C.SetPixel(params.image.dc,x,y,C.GetPixel(params.image.dc,x,y)+1)
    end
  else
    if params.image.frames>1 or not params.Drawn then
      local bitmap=ffi.new'void*[1]'
      gdiplus.GdipCreateBitmapFromScan0(params.cr.width,params.cr.height,0,0x26200a,ffi.NULL,bitmap)
      local graphics=ffi.new'void*[1]'
      gdiplus.GdipGetImageGraphicsContext(bitmap[0],graphics)
      update(graphics[0],params.cr,params.RangedCRRect)

      local color0=ffi.new'unsigned int[1]'
      local color1=ffi.new'unsigned int[1]'

      for iy=0,(params.cr.height-1),2 do
        for ix=0,params.cr.width-1 do
          gdiplus.GdipBitmapGetPixel(bitmap[0],ix,iy+0,color0)
          gdiplus.GdipBitmapGetPixel(bitmap[0],ix,iy+1,color1)
          local textel={Char='▀',Attributes={Flags=0,ForegroundColor=BGR2RGB(color0[0]),BackgroundColor=BGR2RGB(color1[0])}}
          params.cr.buffer[iy/2*params.cr.width+ix+1]=textel
        end
      end

      gdiplus.GdipDeleteGraphics(graphics[0])
      gdiplus.GdipDisposeImage(bitmap[0])
      params.Drawn=true
      dlg:send(F.DM_REDRAW)
    end
  end
  if params.timer and not params.timer.Closed then
    params.timer.Interval=params.image.delay and params.image.delay[params.image.frame+1]*10 or (params.image.frames>1 and 500 or 50)
    if not params.timer.Enabled then params.timer.Enabled=true end
    params.image.frame=params.image.frame+1
    if params.image.frame==params.image.frames then
      params.image.frame=0
    end
    gdiplus.GdipImageSelectActiveFrame(params.image.image[0],params.image.guid,params.image.frame);
  end
end

local function ShowImage(xpanel)
  local time0 = Far.UpTime
  local vinfo,pinfo=viewer.GetInfo(),panel.GetPanelInfo(nil,xpanel)
  if pinfo and vinfo and vinfo.WindowSizeX==(pinfo.PanelRect.right-pinfo.PanelRect.left-1) and
                         pinfo.PanelType==F.PTYPE_QVIEWPANEL then
    local params={CurPanel=bit64.band(pinfo.Flags,F.PFLAGS_FOCUS)~=0,Redraw=false,Gui=true,Key=false,Exit=false,CheckColor=-1,Drawn=false}
    params.image=InitImage(viewer.GetFileName())
    local time1 = Far.UpTime
    if params.image then
      local width,height=pinfo.PanelRect.right-pinfo.PanelRect.left-1,pinfo.PanelRect.bottom-pinfo.PanelRect.top-1
      params.cr=Size(width,height*2)
      params.cr.buffer=far.CreateUserControl(width,height)
      local function FillBuffer()
        local color=far.AdvControl(F.ACTL_GETCOLOR,K.COL_PANELTEXT)
        local textel={Char='▀',Attributes={Flags=(bit64.band(color.Flags,F.FCF_BG_4BIT)==0) and 0
                                                 or bit64.bor(F.FCF_FG_4BIT,F.FCF_BG_4BIT),
                                           ForegroundColor=color.BackgroundColor,BackgroundColor=color.BackgroundColor}}
        local buffer=params.cr.buffer
        for ii=1,#buffer do
          buffer[ii]=textel
        end
        params.CheckColor=-1
        params.Drawn=false
      end
      FillBuffer()
      local rotFlip=RotFlipByOrient[params.image.orient]
      if rotFlip and rotFlip.mn~='R0F0' and CanReorient(params.image) then
        gdiplus.GdipImageRotateFlip(params.image.image[0],rotFlip.op)
      end
      local time2 = Far.UpTime
      local orientMarker=rotFlip and ' '..rotFlip.mn or ''
      if not CanReorient(params.image) then orientMarker=orientMarker:lower() end
      params.DrawRect={}
      params.DrawRect.left=pinfo.PanelRect.left+1
      params.DrawRect.top=pinfo.PanelRect.top+1
      params.DrawRect.right=pinfo.PanelRect.right-1
      params.DrawRect.bottom=pinfo.PanelRect.bottom-1
      params.DCRect,params.FontSize,params.Gui=InitArea(params)
      if not params.Gui then console_renderer=true end
      params.RangedRect=RangingPic(params,params.DCRect)
      params.PanelRect=pinfo.PanelRect
      params.RangedCRRect=RangingPic(params,{left=0;right=params.cr.width;top=0;bottom=params.cr.height},params.FontSize)
      local function PercentScale(canvasSize,imageSize)
        local scaleX=canvasSize.width /imageSize.width
        local scaleY=canvasSize.height/imageSize.height
        return Round(100*math.min(scaleX,scaleY,1.)) -- duplicates the logic of image scaling
      end
      local cr=console_renderer~=0
      local scaleMark=cr and ' ~ ' or ' @ '
      local scaleStr=scaleMark..PercentScale(cr and params.cr or RectSize(params.DCRect),params.image)..'%'
      local timeStr = ' / '..tostring(time1-time0)..'+'..tostring(time2-time1)..'ms'
      local items={
        {'DI_DOUBLEBOX',0,0,width+1,height+1,0,0,0,0,
          params.image.width..' x '..params.image.height..' * '..params.image.frames..orientMarker..scaleStr..timeStr},
        {"DI_USERCONTROL",1,1,width,height,params.cr.buffer,0,0,0,""}
      }
      local function DlgProc(dlg,msg,param1,param2)
        local function CloseCommonTimer(timer) if timer then timer:Close() end end
        local function CloseTimer() CloseCommonTimer(params.timer) end
        local function CloseDelayTimer() CloseCommonTimer(params.DelayTimer) end
        local function CloseDialog(check,key)
          if not params.Exit then
            key=key and key or far.InputRecordToName(param2)
            if not check or check(key) then
              params.Exit=true
              CloseTimer()
              if Refresh[key] then key=key.." CtrlR" end
              far.MacroPost("Keys'Esc "..key.."'")
              return true
            end
          end
        end
        if msg==F.DN_INITDIALOG then
          far.SendDlgMessage(dlg,F.DM_SETMOUSEEVENTNOTIFY,1)
          local function ShowAnimation()
            if params.timer and not params.timer.Closed then params.timer.Enabled=false end
            UpdateImage(params,dlg)
          end
          params.timer=far.Timer(1000000,ShowAnimation)
          params.timer.Enabled=false
          params.image.frame=0
        elseif msg==F.DN_CTLCOLORDLGITEM then
          if param1==1 then
            local colors=
            {
              far.AdvControl(F.ACTL_GETCOLOR,params.CurPanel and K.COL_PANELSELECTEDTITLE or K.COL_PANELTITLE),
              far.AdvControl(F.ACTL_GETCOLOR,K.COL_PANELTITLE),
              far.AdvControl(F.ACTL_GETCOLOR,K.COL_PANELTEXT)
            }
            return colors
          end
        elseif msg==F.DN_DRAWDLGITEM then
          if 0==console_renderer then
            params.Redraw=true
          else
            UpdateImage(params,dlg)
          end
        elseif msg==F.DN_DRAWDIALOGDONE then
          if 0==console_renderer then
            if params.Redraw then
              params.Redraw=false
              CloseDelayTimer()
              params.DelayTimer=far.Timer(0,function(timer)
                timer:Close()
                far.Text(0,0,0,nil)
                UpdateImage(params,dlg)
              end)
            end
          end
        elseif msg==F.DN_INPUT then
          if param2.EventType==F.FOCUS_EVENT and param2.SetFocus then
            UpdateImage(params,dlg)
          elseif param2.EventType==F.MOUSE_EVENT then
            return not CloseDialog(
              function(key) return Mouse2[key] or Mouse3[key] and not PointInRect(param2,params.PanelRect) end)
          end
        elseif msg==F.DN_CONTROLINPUT then
          if "F4"==far.InputRecordToName(param2) then -- TODO update dialog title (scale)
            console_renderer=0==console_renderer and 1 or 0
            FillBuffer()
            dlg:send(F.DM_REDRAW)
          elseif param1~=-1 then
            return CloseDialog(function(key)
                return (param2.EventType==F.KEY_EVENT or param2.EventType==F.FARMACRO_KEY_EVENT) and param2.KeyDown or
                        param2.EventType==F.MOUSE_EVENT and Mouse1[key]
              end)
          end
          return true
        elseif msg==F.DN_RESIZECONSOLE then
          CloseDialog(nil,"CtrlR")
        elseif msg==F.DN_DRAGGED then
          return false
        elseif msg==F.DN_CLOSE then
          CloseTimer()
          CloseDelayTimer()
        end
      end
      local dialog=far.DialogInit(win.Uuid'BFC62A3A-1ED5-4590-AF86-A582F6237E6F',
                                  pinfo.PanelRect.left,pinfo.PanelRect.top,pinfo.PanelRect.right,pinfo.PanelRect.bottom,
                                  nil,items,F.FDLG_NODRAWSHADOW,DlgProc)
      far.DialogRun(dialog)
      far.DialogFree(dialog)
      DeleteImage(params)
    end
  end
end

Event
{
  group="ViewerEvent";
  action=function(id,event,param)
    local _,_=id,param
    if event==F.VE_READ then
      local xpanel=0
      local winType=far.AdvControl(F.ACTL_GETWINDOWTYPE)
      if winType and winType.Type==F.WTYPE_PANELS then
        if panel.GetPanelInfo(nil,0).PanelType==F.PTYPE_INFOPANEL then return end
        local type=panel.GetPanelInfo(nil,1).PanelType
        if type==F.PTYPE_INFOPANEL then return end
        if type==F.PTYPE_QVIEWPANEL then xpanel=1 end
        for ii=0,1 do panel.RedrawPanel(nil,ii) end
      end
      pcall(InitBGColor)
      ShowImage(xpanel)
    end
  end
}

Event
{
  group="ExitFAR";
  action=function()
    gdiplus.GdiplusShutdown(gdip_handle[0])
  end
}

MenuItem
{
  menu='Config';
  guid='A1514770-1F60-4734-A3B2-E2E66CB9D661';
  text='Picture';
  action=function()
    local KCheck=2
    console_renderer=ReadSettings()
    local items={
      {'DI_DOUBLEBOX', 3,1,71,3,0,               0,0,0,'Picture'},
      {'DI_CHECKBOX',  5,2, 0,0,console_renderer,0,0,0,'&Console renderer (F4 in the viewer overrides for the session)'}
    }
    local dialog=far.DialogInit(win.Uuid'9399CDDC-47B0-481D-985B-580E1CE0C8CB',-1,-1,75,5,nil,items,0)
    if 0<far.DialogRun(dialog) then WriteSettings(dialog:send(F.DM_GETCHECK,KCheck)) end
    far.DialogFree(dialog)
    console_renderer=ReadSettings()
  end
}