Sub DumpGraphKadrToConsole()

    Dim tbl
    Set tbl = Rastr.Tables("graph_kadr")

    If tbl.size < 2 Then
        Rastr.Printp "error=graph_kadr_has_less_than_2_rows;"
        Exit Sub
    End If

    ' ---------- Первая строка (левый верх) ----------
    Dim wx1, wy1, wox1, woy1, masht
    wx1 = tbl.Cols("wx").Z(0)
    wy1 = tbl.Cols("wy").Z(0)
    wox1 = tbl.Cols("wox").Z(0)   
    woy1 = tbl.Cols("woy").Z(0)   
    'masht =tbl.Cols("masht").Z(0) 

    ' ---------- Вторая строка (правый низ) ----------
    Dim wx2, wy2, wox2, woy2
    wx2 = tbl.Cols("wx").Z(1)
    wy2 = tbl.Cols("wy").Z(1)
    wox2 = tbl.Cols("wox").Z(1)   
    woy2 = tbl.Cols("woy").Z(1)   

    ' ---------- Реальные координаты ----------
    Dim x1, y1, x2, y2
    x1 = wx1 + wox1 / 1024
    y1 = wy1 + woy1 / 1024

    x2 = wx2 + wox2 / 1024
    y2 = wy2 + woy2 / 1024

    ' ---------- Размер кадра ----------
    Dim width, height
    width = x2 - x1
    height = y2 - y1

    ' ---------- Вывод в консоль ----------
    msg = "wx=" & x1 & "; wy=" & y1  & "; width=" & width & "; height=" & height
    Rastr.Printp msg
    '& "; wx2=" & wx2 & "; wy2=" & wy2 & "; wox2=" & wox2 & "; woy2=" & woy2 & "; masht=" & masht & "; wox=" & wox1 & "; woy=" & woy1 
    '& "x1=" & x1 & "; "& "y1=" & y1 & "; "& "x2=" & x2 & "; " & "y2=" & y2 & "; "

    ' ---------- Копирование в буфер обмена ----------
    Dim objHTML
    Set objHTML = CreateObject("htmlfile")
    objHTML.ParentWindow.clipboardData.SetData "text", msg
    Set objHTML = Nothing


End Sub
DumpGraphKadrToConsole