|
[object Object]
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,371
Написано 2,477 полезных сообщений
(для 6,865 пользователей)
|
Ответ: Инфракрасное Зрение (ака у терминатора)
Cube?
Function CreateCamQuad(surf%, zoom# = 1.0, near# = 1.0)
Local xscr%, yscr%, xcnt%, ycnt%, xpos#, ypos#, i%[4]
;размеры экрана
xscr = GraphicsWidth()
yscr = GraphicsHeight()
;координаты центра экрана
xcnt = xscr Shr 1
ycnt = yscr Shr 1
;проекция левого верхнего угла
xpos = ( 0 - xcnt) * near / +zoom / xcnt
ypos = ( 0 - ycnt) * near / -zoom / xcnt
i[0] = AddVertex(surf, xpos, ypos, 0.0, 0.0, 0.0)
;проекция правого верхнего угла
xpos = (xscr - xcnt) * near / +zoom / xcnt
ypos = ( 0 - ycnt) * near / -zoom / xcnt
i[1] = AddVertex(surf, xpos, ypos, 0.0, 0.0, 0.0)
;проекция правого нижнего угла
xpos = (xscr - xcnt) * near / +zoom / xcnt
ypos = (yscr - ycnt) * near / -zoom / xcnt
i[2] = AddVertex(surf, xpos, ypos, 0.0, 0.0, 0.0)
;проекция левого нижнего угла
xpos = ( 0 - xcnt) * near / +zoom / xcnt
ypos = (yscr - ycnt) * near / -zoom / xcnt
i[3] = AddVertex(surf, xpos, ypos, 0.0, 0.0, 0.0)
AddTriangle(surf, i[0], i[1], i[2])
AddTriangle(surf, i[2], i[3], i[0])
Return i[0]
End Function
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 4090 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
|