[*]Profan

CLS 0
showwindow(%hWnd,2)
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
oGL("Quad", 2, 2)
oGL("Show")
var hPic&=create("hPic",0,"&OGLBMP")
ogl("done")
cls $FFFFFF
showwindow(%hWnd,1)
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end

CLS 0
showwindow(%hWnd,2)
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
oGL("Quad", 2, 2)
oGL("Show")
var hPic&=create("hPic",0,"&SCRBMP")
ogl("done")
cls $FFFFFF
showwindow(%hWnd,1)
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end

CLS
var dlg&=create("Dialog",0,"Test",300,300,300,300)
var hPic&=create("HPIC",0,"&SCRBMP")
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end

 {$cle}
CLS 0
var width&=width(%hWnd)
var height&=height(%hWnd)
oGL("Init", %hWnd, 1, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
ogl("color",0,0,1,1)
oGL("Quad", 2, 2)
var hPic&=create.hPicFromOGL(width&,height&)
ogl("done")
drawSizedPic hPic&,0,(height&-1) - width&,(-height&);0
waitInput
end

proc create.hPicFromOGL

    parameters width&,height&
    var hPic&=create("hNewPic",width&,height&,0)
    var data&=globalAlloc(gPTR,width&*height&*4)
    ogl("glReadPixels",0,0,width&,height&,GL_BGRA,GL_UNSIGNED_BYTE,data&)
    SetBitmapBits(hPic&,width&*height&*4,data&)
    globalFree(data&)
    var hPic2&=create("hNewPic",width&,height&,0)
    startPaint2 hPic2&
    drawSizedPic hPic&,0,(height&-1) - width&,(-height&);0
    endPaint2
    deleteObject hPic&
    return hPic2&

ENDPROC