Wünsche y Sugerencias | | | | |  | SaveBmp speichert no el OGL-Edición. (Bestimmt nurn DC-Problema) [...] 
KompilierenMarcaSeparación {$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:
KompilierenMarcaSeparación
ogl.savebmp(cadena fle,long x,y,xx,yy){
savebmptoclip x,y - xx,yy
cliploadbmp x,y;0
savebmp fle,x,y - xx,yy
clearclip
}
Nachteil vom Workaround: El Zwischenablage se gelöscht. In diesem Zusammenhang: Lo fehlt una Proc clipsavebmp. (Clipboardbild en Expediente speichern) |
| | | | | | |
| | 
RGH | OpenGL benutz una eigenen, speziellen DeviceContext. Daher puede Befehle como SaveBMP no con el OpenGL-Bild trabajo.
Saludo
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 aber sicher simplemente el SpezialDC en una normalen a kopieren/konvertieren y luego a speichern. |
| | | | | | |
| |
RGH | Gewiß, pero wäre doch una wenig con Verwaltungsaufwand verbunden, como el sí sólo entonces Sinn macht, si la ventana principal el OpenGL-Bildschirm es. Dazu müßte Yo una Flag schaffen. Und vermutlich kommt entonces el Wunsch en, daß todos BMP-Befehle el fürs Ventana principal gelten, en diesem Fall entonces auch para el OpenGL-DC gelten ...
... aber uno podría drüber nachenken.
Saludo
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 | Siehste, otra vez Sugerencias para 11él Versión...  |
| | | | | | |
| | | Ein Rolandsches ogl(savebmp sería el problema ya lösen, oder mejor una ogl(copybmptomem  |
| | | | | | |
| |
RGH | IF
Ein Rolandsches ogl(savebmp sería el problema ya lösen, oder mejor una ogl(copybmptomem
Sí, daran Tuve zuerst auch pensamiento (wäre auch el einfachst a realisierende Variante), aber irgendwie va me todavía no weit genug ... pero yo bin ya al Basteln. Mir macht Puzzeln nämlich Spaß ... y si con Programmcode es ... ;)
Saludo
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, una erster Schritt es getan: Si el OGL-Ventana la ventana principal es, se el OGL-DC genommen y iFs obiges Programa funktioniert como de IF gewünscht, aber el es todavía no alles ...
Saludo
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 | Wo Yo gerade esta bin, Schritt 2:
Bislang (de XProfan 10) ¿Es posible. con create(hPic,0,&MEMBMP) una Mapa de bits a erzeugen, el el Memorybitmap para Inhalt ha. Hier Yo algunos weitere integrierte Ressourcennamen hinzugefügt:
&OGLBMP: Ein Abbild des aktuellen OpenGL-Bildes se como Mapa de bits producido
&SCRBMP: Ein Abbild des aktuellen Hauptfensters se como Mapa de bits producido
&DSKBMP: Ein Abbild des aktuellen Desktops se como Mapa de bits producido
Schritt 3:
SavePic Dateiname$, Bitmaphandle&
All esta (y otro) Bitmaps puede ser encima ihr Bitmaphandle como BMP-Expediente abspeichern.
Saludo
Roland
PS: Alle Angaben sin Gewähr! (Yo überlege z.B. todavía, si Yo en SavePic el Parámetro vertauschen se ... |
| | | | 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 ▲ |
| | |
| | | En SavePic el Dateinamen bastante vorn.  Gewohnt de LoadBmp y SaveBmp .
Statt &SCRBMP mejor &HDCBMP, simplemente ca. &hdc |
| | | | | | |
| |
RGH | IF
Man podría auch argumentieren: Das Handle zuerst. Gewohnt de DrawPic ... ;)
Saludo
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 ▲ |
| | |
| | | | Nein el es kein Argument como Drawpic no Dateinamen benötigt. Aber Yo bin sicher Usted hast Usted längst dafür entschieden el Dateinamen como ersten Parámetro a ocupar, ya que auch ser se[te]. |
| | | | | | |
|
RespuestaThemeninformationenDieses Thema ha 4 subscriber: |
(497)
Deutsch
English
Français
Español
Italia