3D Kugel auf Screenshot erstellen.

mein ziel:

auf dem Aktuellem Bildschirm fenster soll mein Rotierende Kugel erstellt werden.

momentan hänge ich an der zeile

@Create("hPic",&SCRBMP,bg_stars&)
  texture%[0] = Ogl("GetTextureBMP",minigame&,3)
  texture%[1] = Ogl("GetTextureBMP",bg_stars&,3)

weis wer wie ich das mit &SCRBMP richtig formuliere ?
danke

er meckert systemvariable nicht bekannt.
in der anleitung hilfe steht nur

Wenn der Typ = 0 ist, gibt es zusätzlich noch fünf vordefinierte interne Ressourcen-Namen:

"&MEMBMP" - Es wird eine Bitmapkopie mit der aktuellen mit MCLS oder MLOADBMP erzeugten Speicherbitmap erstellt.
"&OGLBMP" - Es wird eine Bitmapkopie des aktuellen OpenGL-Bildschirms erstellt.
"&SCRBMP" - Es wird eine Bitmapkopie des aktuellen Hauptfensters erstellt.

hm ok doofer fehler
mal gespannt obs jetzt klappt.

richtig so habe ich jetzt auch gemacht

nur bin mit der lösung noch unzurfrieden

der Screenshot welcher mit SCRBMP ist ca 80-90% kleiner hat en schwarzen rand.

update: müsst nur noch bilder von euch einfügen.
dann sieht man den rand wunderbar

hintergrund bild sollte die breite von 1500 px haben
textur egal.

Window 0,0-1500,900
Declare texturb&,bg_stars&,bg_ingamea&,ende%
declare texture%[5]
declare xrot!, \
        yrot!, \
        zrot!
declare xpos!, xspeed!, \
        ypos!, yspeed!, \
        zpos!, zspeed!
declare sp%, object% 


texturb& = @Create("hPic",-1,"texturb.png")
bg_stars& = @Create("hPic",-1,"bg.png")
bg_ingamea& = @Create("hPic",-1,"bg_ingamea.jpg")


DrawPic bg_ingamea&,0,0;0


oGL("Init",%hWnd, 0, 0, 0, 0)
bg_stars& = @Create("hPic",0,"&SCRBMP")
texture%[0] = Ogl("GetTextureBMP",texturb&,3)
texture%[1] = Ogl("GetTextureBMP",bg_stars&,3)


xpos! = 0
ypos! = 0
zpos! = -5
xrot! = 0
yrot! = -90
zrot! = 0
xspeed! = 0
yspeed! = 2
zspeed! = 0
Ende% = 0
setTimer 20 


  declare id&
  xrot! = xrot! + xspeed!
  yrot! = yrot! + yspeed!
  zrot! = zrot! + zspeed!
  oGL("Clear")
  oGL("Origin", xpos!, ypos!, zpos!)
  oGL("Rotate", xrot!, yrot!, zrot!)
  oGL("Move", 0, -1, 0)
  oGL("Texture", texture%[0], 1)
  oGL("Sphere",1,32,32)    
  oGL("Texture", texture%[1], 1)
  oGL("Origin", 0, -10, -24)
  oGL("Quad", 29, 20)
  oGL("Show")

While 1
EndWhile

bis jetzt habe ich rausgefunden das der fehler erst ab einer breite von 1200px auftrittt.
es liegt wohl an dem befehl
oGL("Quad", 29, 20)

wusste nicht das der den hintergrund erst erstellt.
Fehler behoben.
der schwarze Rand ist weg.

danke trotzdem.

ja das war ein beispiel code klar das keine endlos schleife gut is.

danke euch beiden.