Wünsche et Anregungen | | | | |  | SaveBmp speichert pas qui OGL-Ausgabe. (Bestimmt nurn DC-Problem) [...] 
KompilierenMarqueSéparation {$cleq}
cls
ogl(init,%hwnd,0.0,0.0,0.0,1)
oGL(Clear)
--Cam:
oGL(Origin, 0, 0, -15)
oGL(Rotate, 10, 10, 0)
oGL(Move, 0, -1, 0)
--Objects:
ogl(Pop)
ogl(Push)
ogl(Move,0,-0.5,-50)
ogl(rotate,90,0,0)
ogl(color,3,3,3,1)
ogl(quad,100,100)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(color,1,0,0,1)
ogl(cuboid,3,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,2,0,0)
ogl(color,4,1,0,1)
ogl(cuboid,0.7,0.8,0.8)
ogl(Pop)
ogl(Push)
ogl(Move,2.32,0.3,0)
ogl(color,0,0,0,0)
ogl(cuboid,0.1,0.4,0.81)
ogl(Pop)
ogl(Push)
ogl(Move,2.32,0.04,0)
ogl(color,0,0,1,0)
ogl(cuboid,0.1,0.2,0.81)
ogl(Pop)
ogl(Push)
ogl(Move,0.4,-0.12,0)
ogl(color,1,0,0,1)
ogl(cuboid,3.8,0.1,1)
ogl(Pop)
ogl(Push)
ogl(Move,1.6,-0.51,-0.51)
ogl(disk,0.06,0.3,30)
ogl(Pop)
ogl(Push)
ogl(Move,1.6,-0.51,0.51)
ogl(disk,0.06,0.3,30)
ogl(Pop)
ogl(Push)
ogl(Move,-1.1,-0.51,0.51)
ogl(disk,0.06,0.3,30)
ogl(Pop)
ogl(Push)
ogl(Move,-1.1,-0.51,-0.51)
ogl(disk,0.06,0.3,30)
ogl(Pop)
ogl(Push)
ogl(Move,1.6,-0.2,0.5)
ogl(color,0,0,1,5)
ogl(rotate,-90,0,0)
ogl(tube,0.03,0.03,1,9)
ogl(Pop)
ogl(Push)
ogl(Move,-1.1,-0.2,0.5)
ogl(color,0,0,1,5)
ogl(rotate,-90,0,0)
ogl(tube,0.03,0.03,1,9)
ogl(Pop)
ogl(Push)
ogl(Move,2.34,0.06,0.25)
ogl(sphere,0.08,50,50)
ogl(Pop)
ogl(Push)
ogl(Move,2.34,0.06,-0.25)
ogl(sphere,0.08,50,50)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,0,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,15,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,30,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,45,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,60,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,75,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,90,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,105,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,120,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,135,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,150,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,165,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,180,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,195,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,210,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,225,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,240,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,255,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,270,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,285,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,300,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,315,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,330,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
ogl(Pop)
ogl(Push)
ogl(Move,0,0,0)
ogl(rotate,345,0,0)
ogl(move,0,10,0)
ogl(cuboid,1,1,1)
--
ogl(show)
savebmp c:\test.bmp,0,0 - width(%hwnd),height(%hwnd)
waitinput
cls
loadbmp c:\test.>, 0, 0; 0
waitinput
end
Workaround:
KompilierenMarqueSéparation
ogl.savebmp(string fle,long x,y,xx,yy){
savebmptoclip x,y - xx,yy
cliploadbmp x,y;0
savebmp fle,x,y - xx,yy
clearclip
}
le tort vom Workaround: qui Zwischenablage wird gelöscht. dans diesem Zusammenhang: Es fehlt une Proc clipsavebmp. (Clipboardbild dans Dossier Sauver) |
| | | | | | |
| | 
RGH | OpenGL benutz une eigenen, speziellen DeviceContext. Daher peut Befehle comment SaveBMP pas avec dem OpenGL-Bild marcher.
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 24.08.2007 ▲ |
| | |
| | 
Frank
Abbing | | Wäre mais sûrement simple den SpezialDC dans une normalen trop kopieren/konvertieren et ensuite trop Sauver. |
| | | | | | |
| |
RGH | certainement, mais es wäre doch un peu avec Verwaltungsaufwand verbunden, là cela oui seulement ensuite Sinn pouvoir, si cela Hauptfenster qui OpenGL-Bildschirm ist. en supplément devrait je un Flag créer. et probablement venez ensuite qui Wunsch sur, qui alle BMP-Befehle qui pour Hauptfenster gelten, dans diesem le cas ensuite aussi pour den OpenGL-DC gelten ...
... mais on pourrait drüber nachenken.
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 24.08.2007 ▲ |
| | |
| |
Frank
Abbing | Vous voyez, wieder Anregungen pour 11il Version...  |
| | | | | | |
| | | un Rolandsches ogl(savebmp serait cela Problem déjà lösen, ou bien besser un ogl(copybmptomem  |
| | | | | | |
| |
RGH | iF
un Rolandsches ogl(savebmp serait cela Problem déjà lösen, ou bien besser un ogl(copybmptomem
oui, daran J'ai eu d'abord aussi gedacht (wäre aussi qui einfachst trop realisierende variante), mais irgendwie allez mir le reste pas large genug ... mais je suis déjà am bricoler. Mir pouvoir Puzzeln nämlich Amusement ... et si es avec Programmcode ist ... ;)
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 25.08.2007 ▲ |
| | |
| |
RGH | Ok, un erster Schritt ist getan: si cela OGL-la fenêtre cela Hauptfenster ist, wird qui OGL-DC pris et iFs obiges Programme funktioniert comment de iF gewünscht, mais c'est encore pas alles ...
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 25.08.2007 ▲ |
| | |
| |
RGH | wohin je justement dabei suis, Schritt 2:
Bislang (ab XProfan 10) Ist es possible. avec create(hPic,0,&MEMBMP) une Bitmap trop erzeugen, qui qui Memorybitmap zum le contenu hat. ici habe je quelques weitere integrierte Ressourcennamen hinzugefügt:
&OGLBMP: un reflet des aktuellen OpenGL-Bildes wird comme Bitmap erzeugt
&SCRBMP: un reflet des aktuellen Hauptfensters wird comme Bitmap erzeugt
&DSKBMP: un reflet des aktuellen Desktops wird comme Bitmap erzeugt
Schritt 3:
SavePic Dateiname$, Bitmaphandle&
All cet (et autre) Bitmaps peux on sur son Bitmaphandle comme BMP-Dossier abspeichern.
Salut
Roland
PS: Alle Angaben sans Gewähr! (je überlege z.B. encore, si je chez SavePic qui paramètre vertauschen soll ... |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 26.08.2007 ▲ |
| | |
| | | chez SavePic den Dateinamen entier vorn.  Gewohnt de LoadBmp et SaveBmp .
Statt &SCRBMP besser &HDCBMP, simple GT. &hdc |
| | | | | | |
| |
RGH | iF
on pourrait aussi argumentieren: cela Handle d'abord. Gewohnt de DrawPic ... ;)
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 26.08.2007 ▲ |
| | |
| | | | non c'est ne...aucune Argument là Drawpic keinen Dateinamen nécessaire. mais je suis sûrement tu as toi jadis pour entschieden den Dateinamen comme ersten paramètre trop belegen, so comme aussi son soll[te]. |
| | | | | | |
|
répondreOptions du sujet | 7.206 Views |
Themeninformationencet Thema hat 4 participant: |
(1.144)
Deutsch
English
Français
Español
Italia