چطوری میشه این دستورات در direct x را تبدیل کرد به open gl
سلام کسی میدونه این چند خط را چطوری میشه تبدیل کرد به opengl این مثال ها مربوط به directx هست اما برخی توابع به نظر میرسه یا وجود نداره یا باید به شکل دیگه کد نویسی بشه
کد:
Dim lrc As D3DLOCKED_RECT
Private texRefl As Direct3DTexture8
.
.
.
'srfOff.LockRect lrc, ByVal 0&, 0
'SetDIBitsToDevice Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, 0, Me.ScaleHeight, ByVal lrc.pBits, biWnd, 0
'srfOff.UnlockRect
و همچنین این :
کد:
texRefl.LockRect 0, lrc, ByVal 0&, D3DLOCK_DISCARD
and
StretchBlt dstDc, 0, 0, refQ, refQ, srcDc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, vbSrcCopy
memcpy ByVal lrc.pBits, ByVal lpDat, refQ * refQ * 4