/*
Релизация gluPerspective
gluPerspective
gluPerspective(90.0, Width / Height, 0.1, 32.0);
все переменные типа GLdouble  
fovy
Определяет  область(поле)  угла  представления(вида), в степенях(градусах),
в y руководстве(направлении).
aspect
Определяет    отношение    аспекта,    которое   определяет   область(поле)
представления(вида)   в   x   руководстве(направлении).  Отношение  аспекта
- отношение x (ширина) к y (высота).
zNear
Определяет  расстояние  от  зрителя  к  около  обрезания  самолета  (всегда
положительный).
zFar
Определяет  расстояние  от  зрителя  на  далекий обрезающий самолет (всегда
положительный).
*/

:BOOLEAN _gluPerspective(DWORD fovy_low,fovy_high,width,height,zNear_low,zNear_high,zFar_low,zFar_high)
{
$push zFar_high   
$push zFar_low      

$push zNear_high              
$push zNear_low            



$fild SSDWORD [#width]
$fild SSDWORD [#height]
$fdiv ST(1),ST(0)
$add esp,-8
//fstp qword [ss:esp]
$DB 0xDD, 0x1C, 0x24

$wait

$push fovy_high      
$push fovy_low        
gluPerspective();

RETURN TRUE;
}


