Quellcode
- Declare Handle st, bmp1, bmp2, bild
- Declare Int ende
- WindowTitle <a title="Click to Continue > by WordShark" class="nsvacvuwqy" href="#46329962"> Fenster<img src="http://cdncache-a.akamaihd.net/items/it/img/arrow-10x10.png" unselectable="on"></a>"
- <a title="Click to Continue > by WordShark" class="nsvacvuwqy" href="#80014538"> Window<img src="http://cdncache-a.akamaihd.net/items/it/img/arrow-10x10.png" unselectable="on"></a>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
- bmp2 = @Create("hPic", 0, "&OGLBMP")
- bild = @Create("Bitmap", %HWnd, bmp2, 10, 180)
- 'SavePic "G:\OGL.BMP", bmp2
- EndProc
- Proc DrawGLScene
- oGL("Clear")
- oGL(<a title="Click to Continue > by WordShark" class="nsvacvuwqy" href="#20240730"> Origin<img src="http://cdncache-a.akamaihd.net/items/it/img/arrow-10x10.png" unselectable="on"></a>", -1.5, -1.5, -6.0)
- oGL("Sphere", 1.5, 32, 32)
- oGL("Show")
- EndProc
Hallo,
ich möchte gerne eine OGL-Scene in eine Bitmap haben.
Leider funktioniert das nicht so einfach.
Wenn ich im obigen Code &MEMBMP, &DSKBMP oder
&CLPBMP setze, geht das.
&OGLBMP und &SCRBMP scheinen da nicht zu funktionieren.
Oder hängt das am Fenster (Static) ?