TheCloud/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2025-09-14 14:42:52 -04:00
Code Issues Packages Projects Releases Wiki Activity
kolibrios/programs/develop/libraries/TinyGL/asm_fork/glu.asm
IgorA c18da5afae TinyGL: Added gluDisk. Fixed args in gluCylinder and gluSphere (#223) 
TinyGL:
- Fixed setting of `GL_FRONT_AND_BACK` mode;
- Fixed setting of `GL_SPOT_DIRECTION` angle;
- Optimization of drawing triangles and lines;
- Input parameters are adjusted to the OpenGL standard
  in `gluCylinder` and `gluSphere` functions;
- Added `gluDisk` function (the gluDisk function draws
  a disk-shaped quadric figure);
- Optimize function `calc_buf`.

Flag:
- Added lighting.

info3ds, info3ds_u, test_glu0, test_glu1, test_glu2,
textures0, textures1, textures2:
- Updated programs using `gluCylinder` and `gluSphere`.

Reviewed-on: https://git.kolibrios.org/KolibriOS/kolibrios/pulls/223
Reviewed-by: Ivan B <dunkaist@noreply.localhost>
Reviewed-by: Max Logaev <maxlogaev@proton.me>
Co-authored-by: IgorA <aie85playm@gmail.com>
Co-committed-by: IgorA <aie85playm@gmail.com>
2025-05-04 20:00:04 +02:00

1442 lines
29 KiB
NASM
Raw Permalink Blame History

struct GLUquadricObj
DrawStyle dd ? ; GLU_FILL, LINE, SILHOUETTE, or POINT
Orientation dd ? ; GLU_INSIDE or GLU_OUTSIDE
TextureFlag dd ? ; Generate texture coords?
Normals dd ? ; GLU_NONE, GLU_FLAT, or GLU_SMOOTH
ErrorFunc dd ? ; Error handler callback function
ends
align 4
fl_0_5 dd 0.5
fl_360 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[fl_360]
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)
;{
;}
align 16
gluNewQuadric:
stdcall gl_malloc, sizeof.GLUquadricObj
or eax,eax
jz @f
mov dword[eax+GLUquadricObj.DrawStyle],GLU_FILL
mov dword[eax+GLUquadricObj.Orientation],GLU_OUTSIDE
mov dword[eax+GLUquadricObj.TextureFlag],GL_FALSE
mov dword[eax+GLUquadricObj.Normals],GLU_SMOOTH
mov dword[eax+GLUquadricObj.ErrorFunc],0 ;NULL
@@:
ret
align 16
proc gluDeleteQuadric, state:dword
cmp dword[state],0
je @f
stdcall gl_free,[state]
@@:
ret
endp
;
; Set the drawing style to be GLU_FILL, GLU_LINE, GLU_SILHOUETTE,
; or GLU_POINT.
;
align 16
proc gluQuadricDrawStyle uses eax ebx, qobj:dword, drawStyle:dword
mov eax,[qobj]
or eax,eax
jz .err_q
mov ebx,[drawStyle]
cmp ebx,GLU_FILL
je @f
cmp ebx,GLU_LINE
je @f
cmp ebx,GLU_SILHOUETTE
je @f
cmp ebx,GLU_POINT
je @f
jmp .err_q
align 4
@@:
mov dword[eax+GLUquadricObj.DrawStyle],ebx
jmp @f
align 4
.err_q:
stdcall dbg_print,sz_gluQuadricDrawStyle,err_9
@@:
ret
endp
;
; Set the orientation to GLU_INSIDE or GLU_OUTSIDE.
;
align 16
proc gluQuadricOrientation uses eax ebx, qobj:dword, orientation:dword
mov eax,[qobj]
or eax,eax
jz .err_q
mov ebx,[orientation]
cmp ebx,GLU_INSIDE
je @f
cmp ebx,GLU_OUTSIDE
je @f
jmp .err_q
align 4
@@:
mov dword[eax+GLUquadricObj.Orientation],ebx
jmp @f
align 4
.err_q:
stdcall dbg_print,sz_gluQuadricOrientation,err_9
@@:
ret
endp
align 16
proc gluQuadricTexture uses eax ebx, qobj:dword, texture:dword
mov eax,[qobj]
or eax,eax
jz .err_q
mov ebx,[texture]
cmp ebx,GL_TRUE
je @f
cmp ebx,GL_FALSE
je @f
@@:
mov dword[eax+GLUquadricObj.TextureFlag],ebx
jmp @f
align 4
.err_q:
stdcall dbg_print,sz_gluQuadricTexture,err_9
@@:
ret
endp
align 16
proc gluCylinder qobj:dword, baseRadius:qword, topRadius:qword, height:qword,\
slices:dword, stacks:dword
locals
da dq ? ;double
r dq ? ;double
dr dq ? ;double
dz dq ? ;double
x dd ? ;float
y dd ? ;float
z dd ? ;float
nz dd ? ;float
nsign dd ? ;float
i dd ? ;GLint
j dd ? ;GLint
du dd ? ;float
dv dd ? ;float
tcx dd ? ;float
tcy dd ? ;float
x2 dd ? ;float
y2 dd ? ;float
endl
pushad
mov edx,[qobj]
fld1
cmp dword[edx+GLUquadricObj.Orientation],GLU_INSIDE
jne @f
fchs
@@:
fstp dword[nsign]
fldpi
fadd st0,st0
fidiv dword[slices]
fstp qword[da] ;da = 2.0*M_PI / slices
fld qword[topRadius]
fsub qword[baseRadius]
fld st0 ;copy: topRadius-baseRadius
fidiv dword[stacks]
fstp qword[dr] ;dr = (topRadius-baseRadius) / stacks
lea eax,[height]
fld qword[eax]
fidiv dword[stacks]
fstp qword[dz] ;dz = height / stacks
fchs
fdiv qword[eax]
fstp dword[nz] ;nz = (baseRadius-topRadius) / height ; Z component of normal vectors
cmp dword[edx+GLUquadricObj.DrawStyle],GLU_POINT
jne .else0
stdcall glBegin,GL_POINTS
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_0: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_0_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fst dword[x] ;x = cos(i*da)
fmul dword[nsign]
fstp dword[esp-12]
fsin
fst dword[y] ;y = sin(i*da)
fmul dword[nsign]
fstp dword[esp-8]
fld dword[nz]
fmul dword[nsign]
fstp dword[esp-4]
sub esp,12
call glNormal3f ;x*nsign, y*nsign, nz*nsign
mov dword[z],0.0
fld qword[baseRadius]
fstp qword[r] ;r = baseRadius
mov ecx,[stacks]
inc ecx
align 4
.cycle_1: ;for (j=0;j<=stacks;j++)
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*r, y*r, z
fld dword[z]
fadd qword[dz]
fstp dword[z] ;z += dz
fld qword[r]
fadd qword[dr]
fstp qword[r] ;r += dr
dec ecx
jnz .cycle_1
inc dword[i]
jmp .cycle_0
align 4
.cycle_0_end:
call glEnd
jmp .end_f
.else0:
cmp dword[edx+GLUquadricObj.DrawStyle],GLU_LINE
je @f
cmp dword[edx+GLUquadricObj.DrawStyle],GLU_SILHOUETTE
je .else2
jmp .else1
@@:
; Draw rings
mov dword[z],0.0
fld qword[baseRadius]
fstp qword[r] ;r = baseRadius
mov ecx,[stacks]
inc ecx
align 4
.cycle_2: ;for (j=0;j<=stacks;j++)
stdcall glBegin,GL_LINE_LOOP
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_3: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_3_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fst dword[x] ;x = cos(i*da)
fmul dword[nsign]
fstp dword[esp-12]
fsin
fst dword[y] ;y = sin(i*da)
fmul dword[nsign]
fstp dword[esp-8]
fld dword[nz]
fmul dword[nsign]
fstp dword[esp-4]
sub esp,12
call glNormal3f ;x*nsign, y*nsign, nz*nsign
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*r, y*r, z
inc dword[i]
jmp .cycle_3
align 4
.cycle_3_end:
call glEnd
fld dword[z]
fadd qword[dz]
fstp dword[z] ;z += dz
fld qword[r]
fadd qword[dr]
fstp qword[r] ;r += dr
dec ecx
jnz .cycle_2
jmp .else2_end
align 4
.else2:
; draw one ring at each end
lea ecx,[baseRadius]
fld qword[ecx]
ftst
fnstsw ax
ffree st0
fincstp
sahf
je .rad_b0
stdcall glBegin,GL_LINE_LOOP
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_4: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_4_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fstp dword[x] ;x = cos(i*da)
fsin
fstp dword[y] ;y = sin(i*da)
fld dword[nsign]
fmul dword[nz]
fstp dword[esp-4]
fld dword[nsign]
fmul dword[y]
fstp dword[esp-8]
fld dword[nsign]
fmul dword[x]
fstp dword[esp-12]
add esp,-12
call glNormal3f ;x*nsign, y*nsign, nz*nsign
push 0.0
fld qword[ecx]
fmul dword[y]
fstp dword[esp-4]
fld qword[ecx]
fmul dword[x]
fstp dword[esp-8]
add esp,-8
call glVertex3f ;x*baseRadius, y*baseRadius, 0.0
inc dword[i]
jmp .cycle_4
.cycle_4_end:
call glEnd
.rad_b0:
lea ecx,[topRadius]
fld qword[ecx]
ftst
fnstsw ax
ffree st0
fincstp
sahf
je .else2_end
stdcall glBegin,GL_LINE_LOOP
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_5: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_5_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fstp dword[x] ;x = cos(i*da)
fsin
fstp dword[y] ;y = sin(i*da)
fld dword[nsign]
fmul dword[nz]
fstp dword[esp-4]
fld dword[nsign]
fmul dword[y]
fstp dword[esp-8]
fld dword[nsign]
fmul dword[x]
fstp dword[esp-12]
add esp,-12
call glNormal3f ;x*nsign, y*nsign, nz*nsign
fld qword[height]
fstp dword[esp-4]
fld qword[ecx]
fmul dword[y]
fstp dword[esp-8]
fld qword[ecx]
fmul dword[x]
fstp dword[esp-12]
add esp,-12
call glVertex3f ;x*topRadius, y*topRadius, height
inc dword[i]
jmp .cycle_5
.cycle_5_end:
call glEnd
.else2_end:
; draw length lines
stdcall glBegin,GL_LINES
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_6: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_6_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fst dword[x] ;x = cos(i*da)
fmul dword[nsign]
fstp dword[esp-12]
fsin
fst dword[y] ;y = sin(i*da)
fmul dword[nsign]
fstp dword[esp-8]
fld dword[nz]
fmul dword[nsign]
fstp dword[esp-4]
sub esp,12
call glNormal3f ;x*nsign, y*nsign, nz*nsign
mov dword[esp-4],0.0
fld qword[baseRadius]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*baseRadius, y*baseRadius, 0.0
fld qword[height]
fstp dword[esp-4]
fld qword[topRadius]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*topRadius, y*topRadius, height
inc dword[i]
jmp .cycle_6
align 4
.cycle_6_end:
call glEnd
jmp .end_f
align 4
.else1:
cmp dword[edx+GLUquadricObj.DrawStyle],GLU_FILL
jne .end_f
fld1
fidiv dword[slices]
fstp dword[du] ;du = 1.0 / slices
fld1
fidiv dword[stacks]
fstp dword[dv] ;dv = 1.0 / stacks
mov dword[tcx],0.0
mov dword[tcy],0.0
mov ebx,[slices]
mov dword[i],0
align 4
.cycle_7: ;for (i=0;i<slices;i++)
cmp [i],ebx
jge .cycle_7_end
fild dword[i]
fmul qword[da]
fld st0
fcos
fstp dword[y] ;y1 = cos(i*da)
fsin
fchs
fstp dword[x] ;x1 = -sin(i*da)
inc dword[i]
fild dword[i]
fmul qword[da]
fld st0
fcos
fstp dword[y2] ;y2 = cos((i+1)*da)
fsin
fchs
fstp dword[x2] ;x2 = -sin((i+1)*da)
mov dword[z],0.0
fld qword[baseRadius]
fstp qword[r] ;r = baseRadius
mov dword[tcy],0.0
stdcall glBegin,GL_QUAD_STRIP
mov ecx,[stacks]
inc ecx
align 4
.cycle_8: ;for (j=0;j<=stacks;j++)
fld dword[nsign]
ftst
fstsw ax
sahf
jbe .else3
;if (nsign>0.0)
fld st0
fmul dword[nz]
fstp dword[esp-4]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glNormal3f ;x1*nsign, y1*nsign, nz*nsign
cmp dword[edx+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, [tcx],[tcy]
@@:
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x1*r, y1*r, z
fld dword[nsign]
fld st0
fmul dword[nz]
fstp dword[esp-4]
fld st0
fmul dword[y2]
fstp dword[esp-8]
fmul dword[x2]
fstp dword[esp-12]
sub esp,12
call glNormal3f ;x2*nsign, y2*nsign, nz*nsign
cmp dword[edx+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
push dword[tcy]
fld dword[tcx]
fadd dword[du]
fstp dword[esp-4]
sub esp,4
call glTexCoord2f ;tcx+du, tcy
@@:
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y2]
fstp dword[esp-8]
fmul dword[x2]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x2*r, y2*r, z
jmp .else3_end
.else3:
fld st0
fmul dword[nz]
fstp dword[esp-4]
fld st0
fmul dword[y2]
fstp dword[esp-8]
fmul dword[x2]
fstp dword[esp-12]
sub esp,12
call glNormal3f ;x2*nsign, y2*nsign, nz*nsign
cmp dword[edx+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, [tcx],[tcy]
@@:
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y2]
fstp dword[esp-8]
fmul dword[x2]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x2*r, y2*r, z
fld dword[nsign]
fld st0
fmul dword[nz]
fstp dword[esp-4]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glNormal3f ;x1*nsign, y1*nsign, nz*nsign
cmp dword[edx+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
push dword[tcy]
fld dword[tcx]
fadd dword[du]
fstp dword[esp-4]
sub esp,4
call glTexCoord2f ;tcx+du, tcy
@@:
mov eax,[z]
mov [esp-4],eax
fld qword[r]
fld st0
fmul dword[y]
fstp dword[esp-8]
fmul dword[x]
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x1*r, y1*r, z
.else3_end:
fld dword[z]
fadd qword[dz]
fstp dword[z] ;z += dz
fld qword[r]
fadd qword[dr]
fstp qword[r] ;r += dr
fld dword[tcy]
fadd dword[dv]
fstp dword[tcy] ;tcy += dv
dec ecx
jnz .cycle_8
call glEnd
fld dword[tcx]
fadd dword[du]
fstp dword[tcx] ;tcx += du
jmp .cycle_7
align 4
.cycle_7_end:
.end_f:
popad
ret
endp
; Disk (adapted from Mesa)
align 16
proc gluDisk uses eax ebx ecx edx esi, qobj:dword,\
innerRadius:qword, outerRadius:qword, slices:dword, loops:dword
locals
a dq ?
da dq ?
dr dd ?
r1 dd ?
r2 dd ?
dtc dd ?
s dd ? ;int
sa dd ?
ca dd ?
endl
;ebx = s
;ecx = l
;esi = slices
mov ecx,[loops]
cmp ecx,1
jl .end_f
mov esi,[slices]
cmp esi,1
jl .end_f
mov edx,[qobj]
cmp dword[edx+GLUquadricObj.DrawStyle],GLU_FILL
jne .no_fill
fld1
cmp dword[edx+GLUquadricObj.Orientation],GLU_OUTSIDE
je @f
fchs
@@:
add esp,-4
fstp dword[esp]
stdcall glNormal3f,0.0,0.0
fldpi
fadd st0,st0
fidiv dword[slices]
fstp qword[da] ;da = 2.0*M_PI / slices
fld qword[outerRadius]
fsub qword[innerRadius]
fild dword[loops]
fdivp st1,st
fstp dword[dr] ;dr = (outerRadius-innerRadius) / loops
; texture of a gluDisk is a cut out of the texture unit square
; x, y in [-outerRadius, +outerRadius]; s, t in [0, 1] (linear mapping)
fld1
fadd st0,st0
fmul qword[outerRadius]
fstp dword[dtc] ;dtc = 2.0*outerRadius
fld qword[innerRadius]
fstp dword[r1]
align 4
.cycle_0: ;for (l=loops;l>0;l--)
fld dword[r1]
fadd dword[dr]
fstp dword[r2] ;r2 = r1 + dr
stdcall glBegin,GL_QUAD_STRIP
xor ebx,ebx
.cycle_1: ;for (s=0;s<=slices;s++)
cmp esi,ebx
jne .u1
fldz
fstp qword[a]
jmp .u2
align 4
.u1:
mov [s],ebx
fild dword[s]
fmul qword[da]
fstp qword[a]
.u2:
fld qword[a]
fld st0
fsin
fstp dword[sa] ;sa = sin(a)
fcos
fstp dword[ca] ;ca = cos(a)
cmp dword[edx+GLUquadricObj.TextureFlag],0
je @f
fld dword[ca]
fmul dword[r2]
fdiv dword[dtc]
fadd dword[fl_0_5]
fstp dword[esp-4]
fld dword[sa]
fmul dword[r2]
fdiv dword[dtc]
fadd dword[fl_0_5]
add esp,-8
fstp dword[esp]
call glTexCoord2f ;0.5+sa*r2/dtc,0.5+ca*r2/dtc
@@:
fld dword[r2]
fmul dword[ca]
fstp dword[esp-4]
fld dword[r2]
fmul dword[sa]
add esp,-8
fstp dword[esp]
call glVertex2f ;r2*sa, r2*ca
cmp dword[edx+GLUquadricObj.TextureFlag],0
je @f
fld dword[ca]
fmul dword[r1]
fdiv dword[dtc]
fadd dword[fl_0_5]
fstp dword[esp-4]
fld dword[sa]
fmul dword[r1]
fdiv dword[dtc]
fadd dword[fl_0_5]
add esp,-8
fstp dword[esp]
call glTexCoord2f ;0.5+sa*r1/dtc,0.5+ca*r1/dtc
@@:
fld dword[r1]
fmul dword[ca]
fstp dword[esp-4]
fld dword[r1]
fmul dword[sa]
add esp,-8
fstp dword[esp]
call glVertex2f ;r1*sa, r1*ca
inc ebx
cmp esi,ebx
jge .cycle_1
.cycle_1_end:
call glEnd
mov eax,[r2]
mov [r1],eax
dec ecx
jnz .cycle_0
jmp .end_f
align 4
.no_fill:
push [loops]
push [slices]
sub esp,8
fldz
fstp qword[esp]
glpush innerRadius
glpush outerRadius
stdcall gluCylinder, [qobj]
.end_f:
ret
endp
; Sphere (adapted from Mesa)
;input:
; double radius, int slices, int stacks
align 16
proc gluSphere qobj:dword, radius:qword, slices:dword, stacks:dword
locals
rho dd ? ;float
drho dd ?
theta dd ?
dtheta dd ?
x dd ? ;float
y dd ? ;float
z dd ? ;float
s dd ? ;float
t dd ? ;float
d_s dd ? ;float
d_t dd ? ;float
i dd ? ;int
j dd ? ;int
imax dd ? ;int
normals dd ? ;int
nsign dd ? ;float
endl
pushad
mov eax,[qobj]
cmp dword[eax+GLUquadricObj.Normals],GLU_NONE ;if (qobj.Normals==GLU_NONE)
jne .els_0
mov dword[normals],GL_FALSE
jmp @f
align 4
.els_0:
mov dword[normals],GL_TRUE
@@:
cmp dword[eax+GLUquadricObj.Orientation],GLU_INSIDE ;if (qobj.Orientation==GLU_INSIDE)
jne .els_1
mov dword[nsign],-1.0
jmp @f
align 4
.els_1:
mov dword[nsign],1.0
@@:
fldpi
fidiv dword[stacks]
fstp dword[drho]
fld1
fldpi
fscale
fidiv dword[slices]
fstp dword[dtheta]
ffree st0
fincstp
cmp dword[eax+GLUquadricObj.DrawStyle],GLU_FILL ;if (qobj.DrawStyle==GLU_FILL)
jne .if_glu_line
; draw +Z end as a triangle fan
stdcall glBegin,GL_TRIANGLE_FAN
cmp dword[normals],GL_TRUE
jne @f
stdcall glNormal3f, 0.0, 0.0, 1.0
@@:
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, 0.5,1.0
@@:
sub esp,4
fld dword[nsign]
fmul qword[radius]
fstp dword[esp]
stdcall glVertex3f, 0.0, 0.0 ;, nsign * radius
fld dword[drho]
fcos
fmul dword[nsign]
fstp dword[z] ;z = nsign * cos(drho)
mov dword[j],0
mov ecx,[slices]
align 4
.cycle_0: ;for (j=0;j<=slices;j++)
cmp dword[j],ecx
jg .cycle_0_end
fld dword[drho]
fsin
je @f
fild dword[j]
fmul dword[dtheta]
jmp .t0_end
align 4
@@:
fldz
.t0_end:
fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta
fsin
fchs
fmul st0,st1
fstp dword[x] ;x = -sin(theta) * sin(drho)
fld dword[theta]
fcos
fmulp
fstp dword[y] ;y = cos(theta) * sin(drho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
inc dword[j]
jmp .cycle_0
align 4
.cycle_0_end:
call glEnd
fld1
fidiv dword[slices]
fstp dword[d_s] ;1.0 / slices
fld1
fidiv dword[stacks]
fstp dword[d_t] ;1.0 / stacks
mov dword[t],1.0 ; because loop now runs from 0
mov ebx,[stacks]
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je .els_2
mov dword[i],0
mov [imax],ebx
jmp @f
align 4
.els_2:
mov dword[i],1
dec ebx
mov [imax],ebx
@@:
; draw intermediate stacks as quad strips
mov ebx,[imax]
align 4
.cycle_1: ;for (i=imin;i<imax;i++)
cmp dword[i],ebx
jge .cycle_1_end
fild dword[i]
fmul dword[drho]
fstp dword[rho] ;rho = i * drho
stdcall glBegin,GL_QUAD_STRIP
mov dword[s],0.0
mov dword[j],0
align 4
.cycle_2: ;for (j=0;j<=slices;j++)
cmp dword[j],ecx
jg .cycle_2_end
fld dword[rho]
fsin
je @f
fild dword[j]
fmul dword[dtheta]
jmp .t1_end
align 4
@@:
fldz
.t1_end:
fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta
fsin
fchs
fmul st0,st1
fstp dword[x] ;x = -sin(theta) * sin(rho)
fld dword[theta]
fcos
fmulp
fstp dword[y] ;y = cos(theta) * sin(rho)
fld dword[rho]
fcos
fmul dword[nsign]
fstp dword[z] ;z = nsign * cos(rho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, [s],[t]
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
fld dword[rho]
fadd dword[drho]
fsin ;st0 = sin(rho+drho)
fld dword[theta]
fsin
fchs
fmul st0,st1
fstp dword[x] ;x = -sin(theta) * sin(rho+drho)
fld dword[theta]
fcos
fmulp
fstp dword[y] ;y = cos(theta) * sin(rho+drho)
fld dword[rho]
fadd dword[drho]
fcos
fmul dword[nsign]
fstp dword[z] ;z = nsign * cos(rho+drho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
fld dword[t]
fsub dword[d_t]
fstp dword[esp-4]
sub esp,4
stdcall glTexCoord2f, [s] ;,t-dt
fld dword[s]
fadd dword[d_s]
fstp dword[s]
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
inc dword[j]
jmp .cycle_2
align 4
.cycle_2_end:
call glEnd
fld dword[t]
fsub dword[d_t]
fstp dword[t]
inc dword[i]
jmp .cycle_1
align 4
.cycle_1_end:
; draw -Z end as a triangle fan
stdcall glBegin,GL_TRIANGLE_FAN
cmp dword[normals],GL_TRUE
jne @f
stdcall glNormal3f, 0.0, 0.0, -1.0
@@:
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, 0.5,0.0
mov dword[s],1.0
mov ebx,[d_t]
mov [t],ebx
@@:
sub esp,4
fld qword[radius]
fchs
fmul dword[nsign]
fstp dword[esp]
stdcall glVertex3f, 0.0, 0.0 ;, -radius*nsign
fldpi
fsub dword[drho]
fst dword[rho]
fcos
fmul dword[nsign]
fstp dword[z] ;z = nsign * cos(rho)
mov [j],ecx
align 4
.cycle_3: ;for (j=slices;j>=0;j--)
cmp dword[j],0
jl .cycle_3_end
fld dword[rho]
fsin
je @f
fild dword[j]
fmul dword[dtheta]
jmp .t2_end
align 4
@@:
fldz
.t2_end:
fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta
fsin
fchs
fmul st0,st1
fstp dword[x] ;x = -sin(theta) * sin(rho)
fld dword[theta]
fcos
fmulp
fstp dword[y] ;y = cos(theta) * sin(rho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmul st0,st1
fstp dword[esp-12]
sub esp,12
ffree st0
fincstp
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
cmp dword[eax+GLUquadricObj.TextureFlag],0 ;if (qobj.TextureFlag)
je @f
stdcall glTexCoord2f, [s],[t]
fld dword[s]
fsub dword[d_s]
fstp dword[s]
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
dec dword[j]
jmp .cycle_3
align 4
.cycle_3_end:
call glEnd
jmp .end_f
align 4
.if_glu_line:
cmp dword[eax+GLUquadricObj.DrawStyle],GLU_LINE ;if (qobj.DrawStyle==GLU_LINE)
je @f
cmp dword[eax+GLUquadricObj.DrawStyle],GLU_SILHOUETTE ;if (qobj.DrawStyle==GLU_SILHOUETTE)
je @f
jmp .if_glu_point
align 4
@@:
; draw stack lines
mov dword[i],1
mov ebx,[stacks]
mov ecx,[slices]
align 4
.cycle_4: ;for (i=1;i<stacks;i++)
cmp dword[i],ebx
jge .cycle_4_end
; stack line at i==stacks-1 was missing here
fild dword[i]
fmul dword[drho]
fstp dword[rho] ;rho = i * drho
stdcall glBegin,GL_LINE_LOOP
mov dword[j],0
align 4
.cycle_5: ;for (j=0;j<slices;j++)
cmp dword[j],ecx
jge .cycle_5_end
fild dword[j]
fmul dword[dtheta]
fst dword[theta] ;theta = j * dtheta;
fcos
fld dword[rho]
fsin
fxch ;толкаем sin(rho) в st1
fmul st0,st1
fstp dword[x] ;x = cos(theta) * sin(rho)
fld dword[theta]
fsin
fmulp ;множим на sin(rho) ранее записанный в st1
fstp dword[y] ;y = sin(theta) * sin(rho)
fld dword[rho]
fcos
fstp dword[z] ;z = cos(rho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
inc dword[j]
jmp .cycle_5
align 4
.cycle_5_end:
call glEnd
inc dword[i]
jmp .cycle_4
align 4
.cycle_4_end:
; draw slice lines
mov dword[j],0
align 4
.cycle_6: ;for (j=0;j<slices;j++)
cmp dword[j],ecx
jge .cycle_6_end
fild dword[j]
fmul dword[dtheta]
fstp dword[theta] ;theta = j * dtheta;
stdcall glBegin,GL_LINE_STRIP
mov dword[i],0
align 4
.cycle_7: ;for (i=0;i<=stacks;i++)
cmp dword[i],ebx
jg .cycle_7_end
fild dword[i]
fmul dword[drho]
fst dword[rho] ;rho = i * drho
fsin
fld dword[theta]
fcos
fmul st0,st1
fstp dword[x] ;x = cos(theta) * sin(rho)
fld dword[theta]
fsin
fmulp
fstp dword[y] ;y = sin(theta) * sin(rho)
fld dword[rho]
fcos
fstp dword[z] ;z = cos(rho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
inc dword[i]
jmp .cycle_7
align 4
.cycle_7_end:
call glEnd
inc dword[j]
jmp .cycle_6
align 4
.cycle_6_end:
jmp .end_f
align 4
.if_glu_point:
cmp dword[eax+GLUquadricObj.DrawStyle],GLU_POINT ;if (qobj.DrawStyle==GLU_POINT)
jne .end_f
; top and bottom-most points
stdcall glBegin,GL_POINTS
cmp dword[normals],GL_TRUE
jne @f
stdcall glNormal3f, 0.0,0.0,dword[nsign]
@@:
sub esp,4
fld qword[radius]
fstp dword[esp]
stdcall glVertex3f, 0.0,0.0
cmp dword[normals],GL_TRUE
jne @f
sub esp,4
fld dword[nsign]
fchs
fstp dword[esp]
stdcall glNormal3f, 0.0,0.0 ;,-nsign
@@:
sub esp,4
fld qword[radius]
fchs
fstp dword[esp]
stdcall glVertex3f, 0.0,0.0 ;,-radius
; loop over stacks
mov dword[i],1
mov ebx,[stacks]
mov ecx,[slices]
align 4
.cycle_8: ;for (i=1;i<stacks;i++)
cmp dword[i],ebx
jge .cycle_8_end
fild dword[i]
fmul dword[drho]
fstp dword[rho] ;rho = i * drho
mov dword[j],0
align 4
.cycle_9: ;for (j=0;j<slices;j++)
cmp dword[j],ecx
jge .cycle_9_end
fild dword[j]
fmul dword[dtheta]
fst dword[theta] ;theta = j * dtheta;
fcos
fld dword[rho]
fsin
fxch ;толкаем sin(rho) в st1
fmul st0,st1
fstp dword[x] ;x = cos(theta) * sin(rho)
fld dword[theta]
fsin
fmulp ;множим на sin(rho) ранее записанный в st1
fstp dword[y] ;y = sin(theta) * sin(rho)
fld dword[rho]
fcos
fstp dword[z] ;z = cos(rho)
cmp dword[normals],GL_TRUE
jne @f
fld dword[nsign]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
stdcall glNormal3f ;x*nsign, y*nsign, z*nsign
@@:
fld qword[radius]
fld dword[z]
fmul st0,st1
fstp dword[esp-4]
fld dword[y]
fmul st0,st1
fstp dword[esp-8]
fld dword[x]
fmulp
fstp dword[esp-12]
sub esp,12
call glVertex3f ;x*radius, y*radius, z*radius
inc dword[j]
jmp .cycle_9
align 4
.cycle_9_end:
inc dword[i]
jmp .cycle_8
align 4
.cycle_8_end:
call glEnd
.end_f:
popad
ret
endp
Reference in New Issue View Git Blame Copy Permalink