Глупый вопрос о шейдерах

[DirectXManiac]

Аж стыдно. Просто никогда не работал!
Как определить версию шейдера через капсы. Точнее как выделить
x.x из возвращаемого D3DCAPS8 значения. У меня например возвращает -65xxx. Вообщем там закодировано. Помогите выделить!

[GSerg]

The main version number is encoded in the second byte. The low byte contains a sub-version number.

[DirectXManiac]

GSerg
Я это прочитал. Скажи как выделить. Я чё то Запарился((

[GSerg]

Выдели r, g, b из RGB. Умеешь, знаем.
Попей чаю, размышляя о природе вещей и взаимосвязях предметов и явлений. Ответ откроется тебе.

[DirectXManiac]

GSerg
Ёмаё. давайте в цитаты... Самому смешно!

[Хакер]

Он просто наставляет тебя на путь дзенствующих.

[Mikle]

Код: Выделить всё

Option Explicit

Dim dx As New DirectX8
Dim d3d As Direct3D8
Dim Caps As D3DCAPS8

Private Sub Form_Load()
  Set d3d = dx.Direct3DCreate
  d3d.GetDeviceCaps D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Caps
  Me.Caption = "PS " & Format((Caps.PixelShaderVersion And &HFF00&) \ &H100&, "#") & "." & Format(Caps.PixelShaderVersion And &HFF&, "#")
  Set d3d = Nothing
End Sub


[DirectXManiac]

Mikle
Спасибо, но я давно сделал!