Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. (überarbeitet) funktioniert jetzt
Autor: peter (---.pools.arcor-ip.net)
Datum:   06.01.22 13:20

Hallo, guten Tag.

Dieses :
~GL_UNSIGNED_BYTE
wird bei XProfanx4 nicht mehr erkannt bei "proc drawglscene"

Bei XProfanx3 wird es erkannt.

Was ist bitte der Ersatz dafür?

Gruss

----------------------------
declare hWin&,hintergrpic&,vordergrpic&,vordergrpic1&,dxy&
declare ende&,winkel!,groesse&,dib&,array&
declare bild_auto&,auto1&,pi180!
declare bmi#,ogl_rgb#
declare x1!,y1!,dx!,dy!
Declare ClassName$

Def &GL_BGR $80E0
DEF &GL_UNSIGNED_BYTE $1401
DEF CreateDIB(2) !"dib","CreateDIB"
DEF FreeDIB(1) !"dib","FreeDIB"
DEF DrawDIB(4) !"dib","DrawDIB"
DEF CloneDIB(1) !"dib","CloneDIB"
DEF setDIBits(7) !"gdi32","SetDIBits"

dib&=usedll("dib.dll")

hintergrpic& = create("hNewPic", 700,700,rgb(255,255,0))
vordergrpic& = create("hNewPic", 700,700,rgb(255,255,0))
vordergrpic1& = create("hNewPic", 400,400,rgb(255,255,0))
bild_auto& = create("hNewPic", 128,128,rgb(255,255,0))

dxy&=200
Pi180!=0.0174532925199433
ende&=1
array&=CreateDIB(128,128)
groesse&=128*128*4
dim ogl_rgb#,groesse&

MCls 128,128

Window 20,20-800,600
Cls RGB(220,220,220)

ClassName$ = "Fenster"
External("User32", "GetClassNameA", %HWnd, ClassName$, 64)
hWin& = Control(Trim$(ClassName$), "", $50000000, 10, 10, 128, 128, %HWnd, 0, %HInstance)

oGL("Init",hwin&,0,0,0,0)
oGL("PosMode", 1)

auto1&=oGL("LoadTextureBMP","d:/xprofanx4/pebi-prf/data/auto1.bmp",1)

OGL("Clear")
OGL("texture",auto1&,1)

StartPaint hintergrpic&
UsePen 0,4,$ff0000
Ellipse 300,300,380,380
UsePen 0,4,$0000ff
Line 0,0-700,700
UsePen 0,4,$00ff00
Line 700,0-0,700
EndPaint

drawglscene
drawglscene
zeichne

WHILE ende&

if isKey(89)
OGL("texture",auto1&,1)
drawglscene
zeichne
ElseIf Iskey(65)
OGL("texture",auto11&,1)
drawglscene
zeichne
EndIf

if isKey(87)
y1!=Sin(-winkel!*Pi180!)*0.3
x1!=Cos(-winkel!*Pi180!)*0.3
dx!=dx!-x1!
dy!=dy!-y1!
zeichne
Elseif isKey(83)
y1!=Sin(-winkel!*Pi180!)*0.3
x1!=Cos(-winkel!*Pi180!)*0.3
dx!=dx!+x1!
dy!=dy!+y1!
zeichne
endif

if isKey(81)
winkel!=winkel!+0.5
drawglscene
zeichne
Elseif isKey(69)
winkel!=winkel!-0.5
drawglscene
zeichne
EndIf

EndWhile
end

Proc zeichne
StartPaint vordergrpic&
DrawPic hintergrpic&,0,0;0
drawpic bild_auto&,dxy&+dx!,dxy&+dy!;-1
EndPaint

StartPaint vordergrpic1&
DrawPic vordergrpic&, -150,-150;0
EndPaint

StartPaint vordergrpic&
CopyBmpToMem dxy&+dx!,dxy&+dy! -128,128>0,0
EndPaint

StartPaint %hdc
MCopyBmp 0,0-128,128>10,200;0
EndPaint

DrawPic vordergrpic1&,200,50;0
EndProc

proc drawglscene
OGL("quad",0.5,0.5)
OGL("origin",0,0,-1.2)
OGL("rotate",0,0,winkel!)
OGL("show")
ogl("glReadPixels",0,0,128,128,&GL_BGR, &GL_UNSIGNED_BYTE,ogl_rgb#)
setDIBits(%hdc,bild_auto&,0,128,ogl_rgb#,array&,0)
endproc
--------------------------------



Nachricht bearbeitet (06.01.22 20:54)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. (überarbeitet) funktioniert jetzt  Neu
peter 06.01.22 13:20 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
Heinz Brill 06.01.22 16:49 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
peter 06.01.22 19:22 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
Heinz Brill 06.01.22 20:31 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
peter 06.01.22 20:42 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
Heinz Brill 06.01.22 20:51 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
peter 07.01.22 09:14 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. Aber bei XProfanx3.  Neu
Sven Bader 13.01.22 18:24 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. (überarbeitet) funktioniert jetzt  Neu
Heinz Brill 07.01.22 10:25 
 Re: ~GL_UNSIGNED_BYTE wird unter XProfenxr4 nicht erkannt. (überarbeitet) funktioniert jetzt  Neu
peter 07.01.22 12:51 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org