'
' Automatically detect DPI settings - december 2010, PvE - GPL
'

CONST inch_factor = 25.4

IMPORT "gdk_screen_get_default" FROM "libgdk-x11-2.0.so.0" TYPE long
IMPORT "gdk_screen_get_width(long)" FROM "libgdk-x11-2.0.so.0" TYPE int
IMPORT "gdk_screen_get_width_mm(long)" FROM "libgdk-x11-2.0.so.0" TYPE int
IMPORT "gdk_screen_get_height(long)" FROM "libgdk-x11-2.0.so.0" TYPE int
IMPORT "gdk_screen_get_height_mm(long)" FROM "libgdk-x11-2.0.so.0" TYPE int
IMPORT "gtk_init(int*,char*)" FROM "libgtk-x11-2.0.so.0" TYPE void

gtk_init(0, 0)

hpixels = gdk_screen_get_width(gdk_screen_get_default())
hmm = gdk_screen_get_width_mm(gdk_screen_get_default())

vpixels = gdk_screen_get_height(gdk_screen_get_default())
vmm = gdk_screen_get_height_mm(gdk_screen_get_default())

PRINT NL$, "Your current DPI is: ", hpixels/(hmm/inch_factor), " by ", vpixels/(vmm/inch_factor), NL$