| |
|
|
| Yo glaube, &OGLBMP funktioniert no: KompilierenMarcaSeparaciónCLS 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
|
|
|
| |
|
|
|
| &SCRBMP funktioniert en el Principio auch no, pero kommt una Meldung: KompilierenMarcaSeparaciónCLS 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
Und &SCRBMP son desafortunadamente auch encima el Ventana liegende Teile de: KompilierenMarcaSeparaciónCLS
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
- wäre vlt. una hDC2-Kopie hilfreicher. |
|
|
| |
|
|
|
| Das hier funktioniert ya algo mejor, es auch kein ogl.show notwendig: KompilierenMarcaSeparación {$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
|
|
|
| |
|
|