Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7929 → Rev 8059

/programs/develop/libraries/TinyGL/asm_fork/api.asm
538,29 → 538,23
endp
 
align 4
proc glFrustum uses eax, left:dword,right:dword,bottom:dword,top:dword,\
near:dword,farv:dword
proc glFrustum uses eax, left:qword, right:qword, bottom:qword, top:qword,\
near:qword, farv:qword
locals
p rd 7
endl
mov dword[p],OP_Frustum
mov eax,[left]
fld qword[eax]
fld qword[left]
fstp dword[p+4]
mov eax,[right]
fld qword[eax]
fld qword[right]
fstp dword[p+8]
mov eax,[bottom]
fld qword[eax]
fld qword[bottom]
fstp dword[p+12]
mov eax,[top]
fld qword[eax]
fld qword[top]
fstp dword[p+16]
mov eax,[near]
fld qword[eax]
fld qword[near]
fstp dword[p+20]
mov eax,[farv]
fld qword[eax]
fld qword[farv]
fstp dword[p+24]
 
mov eax,ebp
/programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm
1,5 → 1,5
use32
org 0x0
org 0
db 'MENUET01'
dd 1,start,i_end,mem,stacktop,0,cur_dir_path
 
18,6 → 18,13
dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
}
 
;Так как некоторые извращенческие функции OpenGL воспринимают только параметры
;типа double (8 байт) то придется пихать их в стек макросом glpush
macro glpush GLDoubleVar {
push dword[GLDoubleVar+4]
push dword[GLDoubleVar]
}
 
align 4
start:
load_library name_tgl, cur_dir_path, library_path, system_path, \
65,6 → 72,21
align 4
red_win:
call draw_window
mcall SF_THREAD_INFO,procinfo,-1
mov eax,dword[procinfo.box.height]
cmp eax,120
jge @f
mov eax,120 ;min size
@@:
sub eax,42
mov ebx,dword[procinfo.box.width]
cmp ebx,200
jge @f
mov ebx,200
@@:
sub ebx,10
stdcall reshape, ebx,eax
.end0:
 
align 16
still:
93,12 → 115,11
 
; new window size or exposure
align 4
proc reshape uses ebx ecx, width:dword, height:dword
proc reshape, width:dword, height:dword
locals
h dq ?
mh dq ?
endl
 
stdcall [glViewport], 0, 0, [width], [height]
stdcall [glMatrixMode], GL_PROJECTION
stdcall [glLoadIdentity]
107,11 → 128,15
fst qword[h] ;h = height / width
fchs
fstp qword[mh]
mov ebx,ebp
sub ebx,8
mov ecx,ebp
sub ecx,16
stdcall [glFrustum], dword p1, dword p2, ebx, ecx, dword p5, dword p6
glpush p6
glpush p5
glpush h
glpush mh
glpush p2
glpush p1
call [glFrustum]
stdcall [glMatrixMode], GL_MODELVIEW
stdcall [glLoadIdentity]
stdcall [glTranslatef], 0.0, 0.0, -40.0
198,7 → 223,6
fstp dword[view_roty]
call draw_3d
@@:
 
jmp still
 
align 4
220,10 → 244,6
fps: db 'FPS:'
.end: db 0
 
align 4
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
 
align 16
draw_3d:
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
887,14 → 907,18
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
err_message_found_lib db 'Sorry I cannot load library tinygl.obj',0
 
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library tinygl.obj',0
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
procinfo process_information
rb 4096
stacktop:
cur_dir_path:
/programs/develop/libraries/TinyGL/asm_fork/export.inc
161,6 → 161,7
; glu functions
;
 
E_LIB gluPerspective ;(double, double, double, double)
E_LIB gluNewQuadric
E_LIB gluDeleteQuadric
E_LIB gluQuadricDrawStyle
/programs/develop/libraries/TinyGL/asm_fork/glu.asm
12,6 → 12,13
offs_qobj_Normals equ 12
offs_qobj_ErrorFunc equ 16
 
;Так как некоторые извращенческие функции OpenGL воспринимают только параметры
;типа double (8 байт) то придется пихать их в стек макросом glpush
macro glpush GLDoubleVar {
push dword[GLDoubleVar+4]
push dword[GLDoubleVar]
}
 
;void drawTorus(float rc, int numc, float rt, int numt)
;{
;}
20,10 → 27,44
;{
;}
 
;void gluPerspective(GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar )
;{
;}
align 4
an360f dd 360.0
 
align 16
proc gluPerspective, fovy:qword, aspect:qword, zNear:qword, zFar:qword
locals
mfW dq ?
fW dq ?
mfH dq ?
fH dq ?
endl
fldpi
fmul qword[fovy]
fdiv dword[an360f]
fptan
ffree st0 ;выкидываем 1.0 которая осталось после вычисления тангенса
fincstp
fmul qword[zNear]
fld st0
fchs
fstp qword[mfH]
fst qword[fH]
fmul qword[aspect]
fld st0
fchs
fstp qword[mfW]
fstp qword[fW]
 
glpush zFar
glpush zNear
glpush fH
glpush mfH
glpush fW
glpush mfW
call glFrustum
ret
endp
 
;void gluLookAt(GLdouble eyex, GLdouble eyey, GLdouble eyez,
; GLdouble centerx, GLdouble centery, GLdouble centerz,
; GLdouble upx, GLdouble upy, GLdouble upz)