Here's the file: kamera.pdf
This code draws the boxes where the links are... they are about half of their size in wrong positions.
Code: Select all
@REQUIRE "polybios", {Version=1, Revision=1}
pdf.OpenDocument(1, "kamera.pdf")
id, t = pdf.GetBrush(1, 5, 1, False, True)
ChangeDisplaySize(GetAttribute(#BRUSH,1,#ATTRWIDTH), GetAttribute(#BRUSH,1,#ATTRHEIGHT))
DisplayBrush(1,0,0)
DebugPrint(ListItems(t))
For Local i=0 To ListItems(t)-1
Box(t[i].left, GetAttribute(#BRUSH,1,#ATTRHEIGHT)-t[i].top, t[i].right-t[i].left, t[i].top-t[i].bottom)
Next
WaitLeftMouse()