Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum: 23.06.15 17:40
Ich möchte gerne OGL-Scenen, die auf einem
Static-Control sind, als einzelne Bitmap anzeigen
bzw. speichern.
Die Objekte sind natürlich starr.
Declare Handle bmp1, bmp2, st
Declare Int ende
WindowTitle "Fenster"
Window 800, 640
st = @Create("Static", %Hwnd, 10, 20, 200, 100)
oGL("Init", st, 0, 0, 0, 0)
DrawGlScene()
ShowBmp()
ende = 0
WhileNot ende
WaitInput
Case %Key = 2 : ende = 1
EndWhile
OGL("Done")
DeleteObject bmp1
End
Proc ShowBmp
bmp1 = @Create("hSizedPic", 0, "&OGLBMP", 200, 100, 0)
'SavePic "G:\OGL.BMP", bmp1
DrawPic bmp1, 10, 150;0
EndProc
Proc DrawGLScene
oGL("Clear")
oGL("Origin", -1.5, -1.5, -6.0)
oGL("Sphere", 1.5, 32, 32)
oGL("Show")
EndProc
Hier bekomme ich aber nur die graue Fläche des Static-Controls.
Weiß jemand Rat ?
Die entstandenen Bitmaps will ich später in einer ImageListe
verwalten.
H.Brill
XProfan X3 + FreeProfan
Nachricht bearbeitet (23.06.15 17:41)
|
|
