XProfan

//Version:0.0.9
 {$cleq}
 {$res noversioninfo,nomanifest,icon if.ico}
#include oglhelper.inc
#include gdi.inc
ogl.window(ogltest,true,maxx,maxy,$00FFFFFF,1,false,true,60)
ogl.vsync(false)
ogl.nolight
ogl.clear
ogl.2dnow
ogl.color(0,$FF)

whileloop 0,maxx,2 {

    ogl.line(0,loop,maxx,loop)
    ogl.line(loop,0,loop,maxy)

}

ogl.show
savepic C:\ogltest.bmp,create(hPic,0,&OGLBMP)

if gdi.init() {

    long img=gdi.loadimage(C:\ogltest.bmp)
    gdi.SaveAsPNG(img,C:\ogltest.png)
    deleteobject img

} else {

    messagebox no gdi :(,,0

}

ogl.done
end