Rev 5218 | Rev 6108 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5218 | Rev 5290 | ||
---|---|---|---|
1 | struct GLUquadricObj |
1 | struct GLUquadricObj |
2 | DrawStyle dd ? ; GLU_FILL, LINE, SILHOUETTE, or POINT |
2 | DrawStyle dd ? ; GLU_FILL, LINE, SILHOUETTE, or POINT |
3 | Orientation dd ? ; GLU_INSIDE or GLU_OUTSIDE |
3 | Orientation dd ? ; GLU_INSIDE or GLU_OUTSIDE |
4 | TextureFlag dd ? ; Generate texture coords? |
4 | TextureFlag dd ? ; Generate texture coords? |
5 | Normals dd ? ; GLU_NONE, GLU_FLAT, or GLU_SMOOTH |
5 | Normals dd ? ; GLU_NONE, GLU_FLAT, or GLU_SMOOTH |
6 | ErrorFunc dd ? ; Error handler callback function |
6 | ErrorFunc dd ? ; Error handler callback function |
7 | ends |
7 | ends |
8 | 8 | ||
9 | offs_qobj_DrawStyle equ 0 |
9 | offs_qobj_DrawStyle equ 0 |
10 | offs_qobj_Orientation equ 4 |
10 | offs_qobj_Orientation equ 4 |
11 | offs_qobj_TextureFlag equ 8 |
11 | offs_qobj_TextureFlag equ 8 |
12 | offs_qobj_Normals equ 12 |
12 | offs_qobj_Normals equ 12 |
13 | offs_qobj_ErrorFunc equ 16 |
13 | offs_qobj_ErrorFunc equ 16 |
14 | 14 | ||
15 | ;void drawTorus(float rc, int numc, float rt, int numt) |
15 | ;void drawTorus(float rc, int numc, float rt, int numt) |
16 | ;{ |
16 | ;{ |
17 | ;} |
17 | ;} |
18 | 18 | ||
19 | ;static void normal3f(GLfloat x, GLfloat y, GLfloat z ) |
19 | ;static void normal3f(GLfloat x, GLfloat y, GLfloat z ) |
20 | ;{ |
20 | ;{ |
21 | ;} |
21 | ;} |
22 | 22 | ||
23 | ;void gluPerspective(GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar ) |
23 | ;void gluPerspective(GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar ) |
24 | ;{ |
24 | ;{ |
25 | ;} |
25 | ;} |
26 | 26 | ||
27 | ;void gluLookAt(GLdouble eyex, GLdouble eyey, GLdouble eyez, |
27 | ;void gluLookAt(GLdouble eyex, GLdouble eyey, GLdouble eyez, |
28 | ; GLdouble centerx, GLdouble centery, GLdouble centerz, |
28 | ; GLdouble centerx, GLdouble centery, GLdouble centerz, |
29 | ; GLdouble upx, GLdouble upy, GLdouble upz) |
29 | ; GLdouble upx, GLdouble upy, GLdouble upz) |
30 | ;{ |
30 | ;{ |
31 | ;} |
31 | ;} |
32 | 32 | ||
33 | align 4 |
33 | align 4 |
34 | gluNewQuadric: |
34 | gluNewQuadric: |
35 | stdcall gl_malloc, sizeof.GLUquadricObj |
35 | stdcall gl_malloc, sizeof.GLUquadricObj |
36 | or eax,eax |
36 | or eax,eax |
37 | jz @f |
37 | jz @f |
38 | mov dword[eax+offs_qobj_DrawStyle],GLU_FILL |
38 | mov dword[eax+offs_qobj_DrawStyle],GLU_FILL |
39 | mov dword[eax+offs_qobj_Orientation],GLU_OUTSIDE |
39 | mov dword[eax+offs_qobj_Orientation],GLU_OUTSIDE |
40 | mov dword[eax+offs_qobj_TextureFlag],GL_FALSE |
40 | mov dword[eax+offs_qobj_TextureFlag],GL_FALSE |
41 | mov dword[eax+offs_qobj_Normals],GLU_SMOOTH |
41 | mov dword[eax+offs_qobj_Normals],GLU_SMOOTH |
42 | mov dword[eax+offs_qobj_ErrorFunc],0 ;NULL |
42 | mov dword[eax+offs_qobj_ErrorFunc],0 ;NULL |
43 | @@: |
43 | @@: |
44 | ret |
44 | ret |
45 | 45 | ||
46 | align 4 |
46 | align 4 |
47 | proc gluDeleteQuadric, state:dword |
47 | proc gluDeleteQuadric, state:dword |
48 | cmp dword[state],0 |
48 | cmp dword[state],0 |
49 | je @f |
49 | je @f |
50 | stdcall gl_free,[state] |
50 | stdcall gl_free,[state] |
51 | @@: |
51 | @@: |
52 | ret |
52 | ret |
53 | endp |
53 | endp |
- | 54 | ||
- | 55 | ; |
|
- | 56 | ; Set the drawing style to be GLU_FILL, GLU_LINE, GLU_SILHOUETTE, |
|
- | 57 | ; or GLU_POINT. |
|
- | 58 | ; |
|
54 | 59 | align 4 |
|
- | 60 | proc gluQuadricDrawStyle uses eax ebx, qobj:dword, drawStyle:dword |
|
- | 61 | mov eax,[qobj] |
|
- | 62 | or eax,eax |
|
- | 63 | jz .err_q |
|
- | 64 | mov ebx,[drawStyle] |
|
- | 65 | cmp ebx,GLU_FILL |
|
- | 66 | je @f |
|
- | 67 | cmp ebx,GLU_LINE |
|
- | 68 | je @f |
|
- | 69 | cmp ebx,GLU_SILHOUETTE |
|
- | 70 | je @f |
|
- | 71 | cmp ebx,GLU_POINT |
|
- | 72 | je @f |
|
- | 73 | jmp .err_q |
|
- | 74 | @@: |
|
- | 75 | mov dword[eax+offs_qobj_DrawStyle],ebx |
|
- | 76 | jmp @f |
|
- | 77 | .err_q: |
|
- | 78 | ;quadric_error(qobj, GLU_INVALID_ENUM, "qluQuadricDrawStyle") |
|
- | 79 | @@: |
|
- | 80 | ret |
|
- | 81 | endp |
|
55 | ;void gluQuadricDrawStyle(GLUquadricObj *obj, int style) |
82 | |
- | 83 | ; |
|
56 | ;{ |
84 | ; Set the orientation to GLU_INSIDE or GLU_OUTSIDE. |
- | 85 | ; |
|
- | 86 | align 4 |
|
- | 87 | proc gluQuadricOrientation uses eax ebx, qobj:dword, orientation:dword |
|
- | 88 | mov eax,[qobj] |
|
- | 89 | or eax,eax |
|
- | 90 | jz .err_q |
|
- | 91 | mov ebx,[orientation] |
|
- | 92 | cmp ebx,GLU_INSIDE |
|
- | 93 | je @f |
|
- | 94 | cmp ebx,GLU_OUTSIDE |
|
- | 95 | je @f |
|
- | 96 | jmp .err_q |
|
- | 97 | @@: |
|
- | 98 | mov dword[eax+offs_qobj_Orientation],ebx |
|
- | 99 | jmp @f |
|
- | 100 | .err_q: |
|
- | 101 | ;quadric_error(qobj, GLU_INVALID_ENUM, "qluQuadricOrientation") |
|
- | 102 | @@: |
|
- | 103 | ret |
|
57 | ;} |
104 | endp |
58 | 105 | ||
59 | ;void gluCylinder(GLUquadricObj *qobj, GLdouble baseRadius, GLdouble topRadius, GLdouble height, GLint slices, GLint stacks ) |
106 | ;void gluCylinder(GLUquadricObj *qobj, GLdouble baseRadius, GLdouble topRadius, GLdouble height, GLint slices, GLint stacks ) |
60 | ;{ |
107 | ;{ |
61 | ;} |
108 | ;} |
62 | 109 | ||
63 | ; Disk (adapted from Mesa) |
110 | ; Disk (adapted from Mesa) |
64 | 111 | ||
65 | ;void gluDisk(GLUquadricObj *qobj, GLdouble innerRadius, GLdouble outerRadius, GLint slices, GLint loops ) |
112 | ;void gluDisk(GLUquadricObj *qobj, GLdouble innerRadius, GLdouble outerRadius, GLint slices, GLint loops ) |
66 | ;{ |
113 | ;{ |
67 | ;} |
114 | ;} |
68 | 115 | ||
69 | ; |
116 | ; |
70 | ; Sphere (adapted from Mesa) |
117 | ; Sphere (adapted from Mesa) |
71 | ; |
118 | ; |
72 | 119 | ||
73 | ;input: |
120 | ;input: |
74 | ; float radius, int slices, int stacks |
121 | ; float radius, int slices, int stacks |
75 | align 4 |
122 | align 4 |
76 | proc gluSphere qobj:dword, radius:dword, slices:dword, stacks:dword |
123 | proc gluSphere qobj:dword, radius:dword, slices:dword, stacks:dword |
77 | locals |
124 | locals |
78 | rho dd ? ;float |
125 | rho dd ? ;float |
79 | drho dd ? |
126 | drho dd ? |
80 | theta dd ? |
127 | theta dd ? |
81 | dtheta dd ? |
128 | dtheta dd ? |
82 | x dd ? ;float |
129 | x dd ? ;float |
83 | y dd ? ;float |
130 | y dd ? ;float |
84 | z dd ? ;float |
131 | z dd ? ;float |
85 | s dd ? ;float |
132 | s dd ? ;float |
86 | t dd ? ;float |
133 | t dd ? ;float |
87 | d_s dd ? ;float |
134 | d_s dd ? ;float |
88 | d_t dd ? ;float |
135 | d_t dd ? ;float |
89 | i dd ? ;int |
136 | i dd ? ;int |
90 | j dd ? ;int |
137 | j dd ? ;int |
91 | imax dd ? ;int |
138 | imax dd ? ;int |
92 | normals dd ? ;int |
139 | normals dd ? ;int |
93 | nsign dd ? ;float |
140 | nsign dd ? ;float |
94 | endl |
141 | endl |
95 | pushad |
142 | pushad |
96 | 143 | ||
97 | mov eax,[qobj] |
144 | mov eax,[qobj] |
98 | cmp dword[eax+offs_qobj_Normals],GLU_NONE ;if (qobj.Normals==GLU_NONE) |
145 | cmp dword[eax+offs_qobj_Normals],GLU_NONE ;if (qobj.Normals==GLU_NONE) |
99 | jne .els_0 |
146 | jne .els_0 |
100 | mov dword[normals],GL_FALSE |
147 | mov dword[normals],GL_FALSE |
101 | jmp @f |
148 | jmp @f |
102 | .els_0: |
149 | .els_0: |
103 | mov dword[normals],GL_TRUE |
150 | mov dword[normals],GL_TRUE |
104 | @@: |
151 | @@: |
105 | cmp dword[eax+offs_qobj_Orientation],GLU_INSIDE ;if (qobj.Orientation==GLU_INSIDE) |
152 | cmp dword[eax+offs_qobj_Orientation],GLU_INSIDE ;if (qobj.Orientation==GLU_INSIDE) |
106 | jne .els_1 |
153 | jne .els_1 |
107 | mov dword[nsign],-1.0 |
154 | mov dword[nsign],-1.0 |
108 | jmp @f |
155 | jmp @f |
109 | .els_1: |
156 | .els_1: |
110 | mov dword[nsign],1.0 |
157 | mov dword[nsign],1.0 |
111 | @@: |
158 | @@: |
112 | 159 | ||
113 | fldpi |
160 | fldpi |
114 | fidiv dword[stacks] |
161 | fidiv dword[stacks] |
115 | fstp dword[drho] |
162 | fstp dword[drho] |
116 | fld1 |
163 | fld1 |
117 | fldpi |
164 | fldpi |
118 | fscale |
165 | fscale |
119 | fidiv dword[slices] |
166 | fidiv dword[slices] |
120 | fstp dword[dtheta] |
167 | fstp dword[dtheta] |
121 | ffree st0 |
168 | ffree st0 |
122 | fincstp |
169 | fincstp |
- | 170 | ||
- | 171 | cmp dword[eax+offs_qobj_DrawStyle],GLU_FILL ;if (qobj.DrawStyle==GLU_FILL) |
|
- | 172 | jne .if_glu_line |
|
123 | 173 | ||
124 | ; draw +Z end as a triangle fan |
174 | ; draw +Z end as a triangle fan |
125 | stdcall glBegin,GL_TRIANGLE_FAN |
175 | stdcall glBegin,GL_TRIANGLE_FAN |
126 | cmp dword[normals],GL_TRUE |
176 | cmp dword[normals],GL_TRUE |
127 | jne @f |
177 | jne @f |
128 | stdcall glNormal3f, 0.0, 0.0, 1.0 |
178 | stdcall glNormal3f, 0.0, 0.0, 1.0 |
129 | @@: |
179 | @@: |
130 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
180 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
131 | je @f |
181 | je @f |
132 | ;glTexCoord2f(0.5,0.0) |
182 | ;glTexCoord2f(0.5,0.0) |
133 | @@: |
183 | @@: |
134 | sub esp,4 |
184 | sub esp,4 |
135 | fld dword[nsign] |
185 | fld dword[nsign] |
136 | fmul dword[radius] |
186 | fmul dword[radius] |
137 | fstp dword[esp] |
187 | fstp dword[esp] |
138 | stdcall glVertex3f, 0.0, 0.0 ;, nsign * radius |
188 | stdcall glVertex3f, 0.0, 0.0 ;, nsign * radius |
139 | fld dword[drho] |
189 | fld dword[drho] |
140 | fcos |
190 | fcos |
141 | fmul dword[nsign] |
191 | fmul dword[nsign] |
142 | fstp dword[z] ;z = nsign * cos(drho) |
192 | fstp dword[z] ;z = nsign * cos(drho) |
143 | mov dword[j],0 |
193 | mov dword[j],0 |
144 | mov ecx,[slices] |
194 | mov ecx,[slices] |
145 | align 4 |
195 | align 4 |
146 | .cycle_0: ;for (j=0;j<=slices;j++) |
196 | .cycle_0: ;for (j=0;j<=slices;j++) |
147 | cmp dword[j],ecx |
197 | cmp dword[j],ecx |
148 | jg .cycle_0_end |
198 | jg .cycle_0_end |
149 | fld dword[drho] |
199 | fld dword[drho] |
150 | fsin |
200 | fsin |
151 | je @f |
201 | je @f |
152 | fild dword[j] |
202 | fild dword[j] |
153 | fmul dword[dtheta] |
203 | fmul dword[dtheta] |
154 | jmp .t0_end |
204 | jmp .t0_end |
155 | @@: |
205 | @@: |
156 | fldz |
206 | fldz |
157 | .t0_end: |
207 | .t0_end: |
158 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
208 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
159 | fsin |
209 | fsin |
160 | fchs |
210 | fchs |
161 | fmul st0,st1 |
211 | fmul st0,st1 |
162 | fstp dword[x] ;x = -sin(theta) * sin(drho) |
212 | fstp dword[x] ;x = -sin(theta) * sin(drho) |
163 | fld dword[theta] |
213 | fld dword[theta] |
164 | fcos |
214 | fcos |
165 | fmulp |
215 | fmulp |
166 | fstp dword[y] ;y = cos(theta) * sin(drho) |
216 | fstp dword[y] ;y = cos(theta) * sin(drho) |
167 | cmp dword[normals],GL_TRUE |
217 | cmp dword[normals],GL_TRUE |
168 | jne @f |
218 | jne @f |
169 | fld dword[nsign] |
219 | fld dword[nsign] |
170 | fld dword[z] |
220 | fld dword[z] |
171 | fmul st0,st1 |
221 | fmul st0,st1 |
172 | fstp dword[esp-4] |
222 | fstp dword[esp-4] |
173 | fld dword[y] |
223 | fld dword[y] |
174 | fmul st0,st1 |
224 | fmul st0,st1 |
175 | fstp dword[esp-8] |
225 | fstp dword[esp-8] |
176 | fld dword[x] |
226 | fld dword[x] |
177 | fmul st0,st1 |
227 | fmulp |
178 | fstp dword[esp-12] |
228 | fstp dword[esp-12] |
179 | sub esp,12 |
229 | sub esp,12 |
180 | ffree st0 |
- | |
181 | fincstp |
- | |
182 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
230 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
183 | @@: |
231 | @@: |
184 | fld dword[radius] |
232 | fld dword[radius] |
185 | fld dword[z] |
233 | fld dword[z] |
186 | fmul st0,st1 |
234 | fmul st0,st1 |
187 | fstp dword[esp-4] |
235 | fstp dword[esp-4] |
188 | fld dword[y] |
236 | fld dword[y] |
189 | fmul st0,st1 |
237 | fmul st0,st1 |
190 | fstp dword[esp-8] |
238 | fstp dword[esp-8] |
191 | fld dword[x] |
239 | fld dword[x] |
192 | fmul st0,st1 |
240 | fmulp |
193 | fstp dword[esp-12] |
241 | fstp dword[esp-12] |
194 | sub esp,12 |
242 | sub esp,12 |
195 | ffree st0 |
- | |
196 | fincstp |
- | |
197 | call glVertex3f ;x*radius, y*radius, z*radius |
243 | call glVertex3f ;x*radius, y*radius, z*radius |
198 | inc dword[j] |
244 | inc dword[j] |
199 | jmp .cycle_0 |
245 | jmp .cycle_0 |
200 | .cycle_0_end: |
246 | .cycle_0_end: |
201 | stdcall glEnd |
247 | call glEnd |
202 | 248 | ||
203 | fld1 |
249 | fld1 |
204 | fidiv dword[slices] |
250 | fidiv dword[slices] |
205 | fstp dword[d_s] ;1.0 / slices |
251 | fstp dword[d_s] ;1.0 / slices |
206 | fld1 |
252 | fld1 |
207 | fidiv dword[stacks] |
253 | fidiv dword[stacks] |
208 | fstp dword[d_t] ;1.0 / stacks |
254 | fstp dword[d_t] ;1.0 / stacks |
209 | mov dword[t],1.0 ; because loop now runs from 0 |
255 | mov dword[t],1.0 ; because loop now runs from 0 |
210 | mov ebx,[stacks] |
256 | mov ebx,[stacks] |
211 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
257 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
212 | je .els_2 |
258 | je .els_2 |
213 | mov dword[i],0 |
259 | mov dword[i],0 |
214 | mov [imax],ebx |
260 | mov [imax],ebx |
215 | jmp @f |
261 | jmp @f |
216 | .els_2: |
262 | .els_2: |
217 | mov dword[i],1 |
263 | mov dword[i],1 |
218 | dec ebx |
264 | dec ebx |
219 | mov [imax],ebx |
265 | mov [imax],ebx |
220 | @@: |
266 | @@: |
221 | 267 | ||
222 | ; draw intermediate stacks as quad strips |
268 | ; draw intermediate stacks as quad strips |
223 | mov ebx,[imax] |
269 | mov ebx,[imax] |
224 | align 4 |
270 | align 4 |
225 | .cycle_1: ;for (i=imin;i |
271 | .cycle_1: ;for (i=imin;i |
226 | cmp dword[i],ebx |
272 | cmp dword[i],ebx |
227 | jge .cycle_1_end |
273 | jge .cycle_1_end |
228 | fild dword[i] |
274 | fild dword[i] |
229 | fmul dword[drho] |
275 | fmul dword[drho] |
230 | fstp dword[rho] ;rho = i * drho |
276 | fstp dword[rho] ;rho = i * drho |
231 | stdcall glBegin,GL_QUAD_STRIP |
277 | stdcall glBegin,GL_QUAD_STRIP |
232 | mov dword[s],0.0 |
278 | mov dword[s],0.0 |
233 | mov dword[j],0 |
279 | mov dword[j],0 |
234 | align 4 |
280 | align 4 |
235 | .cycle_2: ;for (j=0;j<=slices;j++) |
281 | .cycle_2: ;for (j=0;j<=slices;j++) |
236 | cmp dword[j],ecx |
282 | cmp dword[j],ecx |
237 | jg .cycle_2_end |
283 | jg .cycle_2_end |
238 | fld dword[rho] |
284 | fld dword[rho] |
239 | fsin |
285 | fsin |
240 | je @f |
286 | je @f |
241 | fild dword[j] |
287 | fild dword[j] |
242 | fmul dword[dtheta] |
288 | fmul dword[dtheta] |
243 | jmp .t1_end |
289 | jmp .t1_end |
244 | @@: |
290 | @@: |
245 | fldz |
291 | fldz |
246 | .t1_end: |
292 | .t1_end: |
247 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
293 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
248 | fsin |
294 | fsin |
249 | fchs |
295 | fchs |
250 | fmul st0,st1 |
296 | fmul st0,st1 |
251 | fstp dword[x] ;x = -sin(theta) * sin(rho) |
297 | fstp dword[x] ;x = -sin(theta) * sin(rho) |
252 | fld dword[theta] |
298 | fld dword[theta] |
253 | fcos |
299 | fcos |
254 | fmulp |
300 | fmulp |
255 | fstp dword[y] ;y = cos(theta) * sin(rho) |
301 | fstp dword[y] ;y = cos(theta) * sin(rho) |
256 | fld dword[rho] |
302 | fld dword[rho] |
257 | fcos |
303 | fcos |
258 | fmul dword[nsign] |
304 | fmul dword[nsign] |
259 | fstp dword[z] ;z = nsign * cos(rho) |
305 | fstp dword[z] ;z = nsign * cos(rho) |
260 | cmp dword[normals],GL_TRUE |
306 | cmp dword[normals],GL_TRUE |
261 | jne @f |
307 | jne @f |
262 | fld dword[nsign] |
308 | fld dword[nsign] |
263 | fld dword[z] |
309 | fld dword[z] |
264 | fmul st0,st1 |
310 | fmul st0,st1 |
265 | fstp dword[esp-4] |
311 | fstp dword[esp-4] |
266 | fld dword[y] |
312 | fld dword[y] |
267 | fmul st0,st1 |
313 | fmul st0,st1 |
268 | fstp dword[esp-8] |
314 | fstp dword[esp-8] |
269 | fld dword[x] |
315 | fld dword[x] |
270 | fmul st0,st1 |
316 | fmulp |
271 | fstp dword[esp-12] |
317 | fstp dword[esp-12] |
272 | sub esp,12 |
318 | sub esp,12 |
273 | ffree st0 |
- | |
274 | fincstp |
- | |
275 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
319 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
276 | @@: |
320 | @@: |
277 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
321 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
278 | je @f |
322 | je @f |
279 | ;glTexCoord2f(s,1-t) |
323 | ;glTexCoord2f(s,1-t) |
280 | @@: |
324 | @@: |
281 | fld dword[radius] |
325 | fld dword[radius] |
282 | fld dword[z] |
326 | fld dword[z] |
283 | fmul st0,st1 |
327 | fmul st0,st1 |
284 | fstp dword[esp-4] |
328 | fstp dword[esp-4] |
285 | fld dword[y] |
329 | fld dword[y] |
286 | fmul st0,st1 |
330 | fmul st0,st1 |
287 | fstp dword[esp-8] |
331 | fstp dword[esp-8] |
288 | fld dword[x] |
332 | fld dword[x] |
289 | fmul st0,st1 |
333 | fmulp |
290 | fstp dword[esp-12] |
334 | fstp dword[esp-12] |
291 | sub esp,12 |
335 | sub esp,12 |
292 | ffree st0 |
- | |
293 | fincstp |
- | |
294 | call glVertex3f ;x*radius, y*radius, z*radius |
336 | call glVertex3f ;x*radius, y*radius, z*radius |
295 | fld dword[rho] |
337 | fld dword[rho] |
296 | fadd dword[drho] |
338 | fadd dword[drho] |
297 | fsin ;st0 = sin(rho+drho) |
339 | fsin ;st0 = sin(rho+drho) |
298 | fld dword[theta] |
340 | fld dword[theta] |
299 | fsin |
341 | fsin |
300 | fchs |
342 | fchs |
301 | fmul st0,st1 |
343 | fmul st0,st1 |
302 | fstp dword[x] ;x = -sin(theta) * sin(rho+drho) |
344 | fstp dword[x] ;x = -sin(theta) * sin(rho+drho) |
303 | fld dword[theta] |
345 | fld dword[theta] |
304 | fcos |
346 | fcos |
305 | fmulp |
347 | fmulp |
306 | fstp dword[y] ;y = cos(theta) * sin(rho+drho) |
348 | fstp dword[y] ;y = cos(theta) * sin(rho+drho) |
307 | fld dword[rho] |
349 | fld dword[rho] |
308 | fadd dword[drho] |
350 | fadd dword[drho] |
309 | fcos |
351 | fcos |
310 | fmul dword[nsign] |
352 | fmul dword[nsign] |
311 | fstp dword[z] ;z = nsign * cos(rho+drho) |
353 | fstp dword[z] ;z = nsign * cos(rho+drho) |
312 | cmp dword[normals],GL_TRUE |
354 | cmp dword[normals],GL_TRUE |
313 | jne @f |
355 | jne @f |
314 | fld dword[nsign] |
356 | fld dword[nsign] |
315 | fld dword[z] |
357 | fld dword[z] |
316 | fmul st0,st1 |
358 | fmul st0,st1 |
317 | fstp dword[esp-4] |
359 | fstp dword[esp-4] |
318 | fld dword[y] |
360 | fld dword[y] |
319 | fmul st0,st1 |
361 | fmul st0,st1 |
320 | fstp dword[esp-8] |
362 | fstp dword[esp-8] |
321 | fld dword[x] |
363 | fld dword[x] |
322 | fmul st0,st1 |
364 | fmulp |
323 | fstp dword[esp-12] |
365 | fstp dword[esp-12] |
324 | sub esp,12 |
366 | sub esp,12 |
325 | ffree st0 |
- | |
326 | fincstp |
- | |
327 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
367 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
328 | @@: |
368 | @@: |
329 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
369 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
330 | je @f |
370 | je @f |
331 | ;glTexCoord2f(s,1-(t-dt)) |
371 | ;glTexCoord2f(s,1-(t-dt)) |
332 | fld dword[s] |
372 | fld dword[s] |
333 | fadd dword[d_s] |
373 | fadd dword[d_s] |
334 | fstp dword[s] |
374 | fstp dword[s] |
335 | @@: |
375 | @@: |
336 | fld dword[radius] |
376 | fld dword[radius] |
337 | fld dword[z] |
377 | fld dword[z] |
338 | fmul st0,st1 |
378 | fmul st0,st1 |
339 | fstp dword[esp-4] |
379 | fstp dword[esp-4] |
340 | fld dword[y] |
380 | fld dword[y] |
341 | fmul st0,st1 |
381 | fmul st0,st1 |
342 | fstp dword[esp-8] |
382 | fstp dword[esp-8] |
343 | fld dword[x] |
383 | fld dword[x] |
344 | fmul st0,st1 |
384 | fmulp |
345 | fstp dword[esp-12] |
385 | fstp dword[esp-12] |
346 | sub esp,12 |
386 | sub esp,12 |
347 | ffree st0 |
- | |
348 | fincstp |
- | |
349 | call glVertex3f ;x*radius, y*radius, z*radius |
387 | call glVertex3f ;x*radius, y*radius, z*radius |
350 | inc dword[j] |
388 | inc dword[j] |
351 | jmp .cycle_2 |
389 | jmp .cycle_2 |
352 | .cycle_2_end: |
390 | .cycle_2_end: |
353 | stdcall glEnd |
391 | call glEnd |
354 | fld dword[t] |
392 | fld dword[t] |
355 | fsub dword[d_t] |
393 | fsub dword[d_t] |
356 | fstp dword[t] |
394 | fstp dword[t] |
357 | inc dword[i] |
395 | inc dword[i] |
358 | jmp .cycle_1 |
396 | jmp .cycle_1 |
359 | .cycle_1_end: |
397 | .cycle_1_end: |
360 | 398 | ||
361 | ; draw -Z end as a triangle fan |
399 | ; draw -Z end as a triangle fan |
362 | stdcall glBegin,GL_TRIANGLE_FAN |
400 | stdcall glBegin,GL_TRIANGLE_FAN |
363 | cmp dword[normals],GL_TRUE |
401 | cmp dword[normals],GL_TRUE |
364 | jne @f |
402 | jne @f |
365 | stdcall glNormal3f, 0.0, 0.0, -1.0 |
403 | stdcall glNormal3f, 0.0, 0.0, -1.0 |
366 | @@: |
404 | @@: |
367 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
405 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
368 | je @f |
406 | je @f |
369 | ;glTexCoord2f(0.5,1.0) |
407 | ;glTexCoord2f(0.5,1.0) |
370 | mov dword[s],1.0 |
408 | mov dword[s],1.0 |
371 | mov ebx,[d_t] |
409 | mov ebx,[d_t] |
372 | mov [t],ebx |
410 | mov [t],ebx |
373 | @@: |
411 | @@: |
374 | sub esp,4 |
412 | sub esp,4 |
375 | fld dword[radius] |
413 | fld dword[radius] |
376 | fchs |
414 | fchs |
377 | fmul dword[nsign] |
415 | fmul dword[nsign] |
378 | fstp dword[esp] |
416 | fstp dword[esp] |
379 | stdcall glVertex3f, 0.0, 0.0 ;, -radius*nsign |
417 | stdcall glVertex3f, 0.0, 0.0 ;, -radius*nsign |
380 | fldpi |
418 | fldpi |
381 | fsub dword[drho] |
419 | fsub dword[drho] |
382 | fst dword[rho] |
420 | fst dword[rho] |
383 | fcos |
421 | fcos |
384 | fmul dword[nsign] |
422 | fmul dword[nsign] |
385 | fstp dword[z] ;z = nsign * cos(rho) |
423 | fstp dword[z] ;z = nsign * cos(rho) |
386 | mov [j],ecx |
424 | mov [j],ecx |
- | 425 | align 4 |
|
387 | .cycle_3: ;for (j=slices;j>=0;j--) |
426 | .cycle_3: ;for (j=slices;j>=0;j--) |
388 | cmp dword[j],0 |
427 | cmp dword[j],0 |
389 | jl .cycle_3_end |
428 | jl .cycle_3_end |
390 | fld dword[rho] |
429 | fld dword[rho] |
391 | fsin |
430 | fsin |
392 | je @f |
431 | je @f |
393 | fild dword[j] |
432 | fild dword[j] |
394 | fmul dword[dtheta] |
433 | fmul dword[dtheta] |
395 | jmp .t2_end |
434 | jmp .t2_end |
396 | @@: |
435 | @@: |
397 | fldz |
436 | fldz |
398 | .t2_end: |
437 | .t2_end: |
399 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
438 | fst dword[theta] ;theta = (j==slices) ? 0.0 : j * dtheta |
400 | fsin |
439 | fsin |
401 | fchs |
440 | fchs |
402 | fmul st0,st1 |
441 | fmul st0,st1 |
403 | fstp dword[x] ;x = -sin(theta) * sin(rho) |
442 | fstp dword[x] ;x = -sin(theta) * sin(rho) |
404 | fld dword[theta] |
443 | fld dword[theta] |
405 | fcos |
444 | fcos |
406 | fmulp |
445 | fmulp |
407 | fstp dword[y] ;y = cos(theta) * sin(rho) |
446 | fstp dword[y] ;y = cos(theta) * sin(rho) |
408 | cmp dword[normals],GL_TRUE |
447 | cmp dword[normals],GL_TRUE |
409 | jne @f |
448 | jne @f |
410 | fld dword[nsign] |
449 | fld dword[nsign] |
411 | fld dword[z] |
450 | fld dword[z] |
412 | fmul st0,st1 |
451 | fmul st0,st1 |
413 | fstp dword[esp-4] |
452 | fstp dword[esp-4] |
414 | fld dword[y] |
453 | fld dword[y] |
415 | fmul st0,st1 |
454 | fmul st0,st1 |
416 | fstp dword[esp-8] |
455 | fstp dword[esp-8] |
417 | fld dword[x] |
456 | fld dword[x] |
418 | fmul st0,st1 |
457 | fmul st0,st1 |
419 | fstp dword[esp-12] |
458 | fstp dword[esp-12] |
420 | sub esp,12 |
459 | sub esp,12 |
421 | ffree st0 |
460 | ffree st0 |
422 | fincstp |
461 | fincstp |
423 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
462 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
424 | @@: |
463 | @@: |
425 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
464 | cmp dword[eax+offs_qobj_TextureFlag],0 ;if (qobj.TextureFlag) |
426 | je @f |
465 | je @f |
427 | ;glTexCoord2f(s,1-t) |
466 | ;glTexCoord2f(s,1-t) |
428 | fld dword[s] |
467 | fld dword[s] |
429 | fsub dword[d_s] |
468 | fsub dword[d_s] |
430 | fstp dword[s] |
469 | fstp dword[s] |
431 | @@: |
470 | @@: |
432 | fld dword[radius] |
471 | fld dword[radius] |
433 | fld dword[z] |
472 | fld dword[z] |
434 | fmul st0,st1 |
473 | fmul st0,st1 |
435 | fstp dword[esp-4] |
474 | fstp dword[esp-4] |
436 | fld dword[y] |
475 | fld dword[y] |
437 | fmul st0,st1 |
476 | fmul st0,st1 |
438 | fstp dword[esp-8] |
477 | fstp dword[esp-8] |
439 | fld dword[x] |
478 | fld dword[x] |
440 | fmul st0,st1 |
479 | fmulp |
441 | fstp dword[esp-12] |
480 | fstp dword[esp-12] |
442 | sub esp,12 |
481 | sub esp,12 |
443 | ffree st0 |
- | |
444 | fincstp |
- | |
445 | call glVertex3f ;x*radius, y*radius, z*radius |
482 | call glVertex3f ;x*radius, y*radius, z*radius |
446 | dec dword[j] |
483 | dec dword[j] |
447 | jmp .cycle_3 |
484 | jmp .cycle_3 |
448 | .cycle_3_end: |
485 | .cycle_3_end: |
- | 486 | call glEnd |
|
- | 487 | jmp .end_f |
|
- | 488 | ||
- | 489 | .if_glu_line: |
|
- | 490 | cmp dword[eax+offs_qobj_DrawStyle],GLU_LINE ;if (qobj.DrawStyle==GLU_LINE) |
|
- | 491 | je @f |
|
- | 492 | cmp dword[eax+offs_qobj_DrawStyle],GLU_SILHOUETTE ;if (qobj.DrawStyle==GLU_SILHOUETTE) |
|
- | 493 | je @f |
|
- | 494 | jmp .if_glu_point |
|
- | 495 | @@: |
|
- | 496 | ||
- | 497 | ; draw stack lines |
|
- | 498 | mov dword[i],1 |
|
- | 499 | mov ebx,[stacks] |
|
- | 500 | mov ecx,[slices] |
|
- | 501 | align 4 |
|
- | 502 | .cycle_4: ;for (i=1;i |
|
- | 503 | cmp dword[i],ebx |
|
- | 504 | jge .cycle_4_end |
|
- | 505 | ; stack line at i==stacks-1 was missing here |
|
- | 506 | ||
- | 507 | fild dword[i] |
|
- | 508 | fmul dword[drho] |
|
- | 509 | fstp dword[rho] ;rho = i * drho |
|
- | 510 | stdcall glBegin,GL_LINE_LOOP |
|
- | 511 | mov dword[j],0 |
|
- | 512 | align 4 |
|
- | 513 | .cycle_5: ;for (j=0;j |
|
- | 514 | cmp dword[j],ecx |
|
- | 515 | jge .cycle_5_end |
|
- | 516 | fild dword[j] |
|
- | 517 | fmul dword[dtheta] |
|
- | 518 | fst dword[theta] ;theta = j * dtheta; |
|
- | 519 | fcos |
|
- | 520 | fld dword[rho] |
|
- | 521 | fsin |
|
- | 522 | fxch ;толкаем sin(rho) в st1 |
|
- | 523 | fmul st0,st1 |
|
- | 524 | fstp dword[x] ;x = cos(theta) * sin(rho) |
|
- | 525 | fld dword[theta] |
|
- | 526 | fsin |
|
- | 527 | fmulp ;множим на sin(rho) ранее записанный в st1 |
|
- | 528 | fstp dword[y] ;y = sin(theta) * sin(rho) |
|
- | 529 | fld dword[rho] |
|
- | 530 | fcos |
|
- | 531 | fstp dword[z] ;z = cos(rho) |
|
- | 532 | cmp dword[normals],GL_TRUE |
|
- | 533 | jne @f |
|
- | 534 | fld dword[nsign] |
|
- | 535 | fld dword[z] |
|
- | 536 | fmul st0,st1 |
|
- | 537 | fstp dword[esp-4] |
|
- | 538 | fld dword[y] |
|
- | 539 | fmul st0,st1 |
|
- | 540 | fstp dword[esp-8] |
|
- | 541 | fld dword[x] |
|
- | 542 | fmulp |
|
- | 543 | fstp dword[esp-12] |
|
- | 544 | sub esp,12 |
|
- | 545 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
|
- | 546 | @@: |
|
- | 547 | fld dword[radius] |
|
- | 548 | fld dword[z] |
|
- | 549 | fmul st0,st1 |
|
- | 550 | fstp dword[esp-4] |
|
- | 551 | fld dword[y] |
|
- | 552 | fmul st0,st1 |
|
- | 553 | fstp dword[esp-8] |
|
- | 554 | fld dword[x] |
|
- | 555 | fmulp |
|
- | 556 | fstp dword[esp-12] |
|
- | 557 | sub esp,12 |
|
- | 558 | call glVertex3f ;x*radius, y*radius, z*radius |
|
- | 559 | inc dword[j] |
|
- | 560 | jmp .cycle_5 |
|
- | 561 | .cycle_5_end: |
|
- | 562 | call glEnd |
|
- | 563 | inc dword[i] |
|
- | 564 | jmp .cycle_4 |
|
- | 565 | .cycle_4_end: |
|
- | 566 | ||
- | 567 | ; draw slice lines |
|
- | 568 | mov dword[j],0 |
|
- | 569 | align 4 |
|
- | 570 | .cycle_6: ;for (j=0;j |
|
- | 571 | cmp dword[j],ecx |
|
- | 572 | jge .cycle_6_end |
|
- | 573 | fild dword[j] |
|
- | 574 | fmul dword[dtheta] |
|
- | 575 | fstp dword[theta] ;theta = j * dtheta; |
|
- | 576 | stdcall glBegin,GL_LINE_STRIP |
|
- | 577 | mov dword[i],0 |
|
- | 578 | align 4 |
|
- | 579 | .cycle_7: ;for (i=0;i<=stacks;i++) |
|
- | 580 | cmp dword[i],ebx |
|
- | 581 | jg .cycle_7_end |
|
- | 582 | fild dword[i] |
|
- | 583 | fmul dword[drho] |
|
- | 584 | fst dword[rho] ;rho = i * drho |
|
- | 585 | fsin |
|
- | 586 | fld dword[theta] |
|
- | 587 | fcos |
|
- | 588 | fmul st0,st1 |
|
- | 589 | fstp dword[x] ;x = cos(theta) * sin(rho) |
|
- | 590 | fld dword[theta] |
|
- | 591 | fsin |
|
- | 592 | fmulp |
|
- | 593 | fstp dword[y] ;y = sin(theta) * sin(rho) |
|
- | 594 | fld dword[rho] |
|
- | 595 | fcos |
|
- | 596 | fstp dword[z] ;z = cos(rho) |
|
- | 597 | cmp dword[normals],GL_TRUE |
|
- | 598 | jne @f |
|
- | 599 | fld dword[nsign] |
|
- | 600 | fld dword[z] |
|
- | 601 | fmul st0,st1 |
|
- | 602 | fstp dword[esp-4] |
|
- | 603 | fld dword[y] |
|
- | 604 | fmul st0,st1 |
|
- | 605 | fstp dword[esp-8] |
|
- | 606 | fld dword[x] |
|
- | 607 | fmulp |
|
- | 608 | fstp dword[esp-12] |
|
- | 609 | sub esp,12 |
|
- | 610 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
|
- | 611 | @@: |
|
- | 612 | fld dword[radius] |
|
- | 613 | fld dword[z] |
|
- | 614 | fmul st0,st1 |
|
- | 615 | fstp dword[esp-4] |
|
- | 616 | fld dword[y] |
|
- | 617 | fmul st0,st1 |
|
- | 618 | fstp dword[esp-8] |
|
- | 619 | fld dword[x] |
|
- | 620 | fmulp |
|
- | 621 | fstp dword[esp-12] |
|
- | 622 | sub esp,12 |
|
- | 623 | call glVertex3f ;x*radius, y*radius, z*radius |
|
- | 624 | inc dword[i] |
|
- | 625 | jmp .cycle_7 |
|
- | 626 | .cycle_7_end: |
|
449 | stdcall glEnd |
627 | call glEnd |
- | 628 | inc dword[j] |
|
- | 629 | jmp .cycle_6 |
|
- | 630 | .cycle_6_end: |
|
- | 631 | jmp .end_f |
|
- | 632 | ||
- | 633 | .if_glu_point: |
|
- | 634 | cmp dword[eax+offs_qobj_DrawStyle],GLU_POINT ;if (qobj.DrawStyle==GLU_POINT) |
|
- | 635 | jne .end_f |
|
- | 636 | ||
- | 637 | ; top and bottom-most points |
|
- | 638 | stdcall glBegin,GL_POINTS |
|
- | 639 | cmp dword[normals],GL_TRUE |
|
- | 640 | jne @f |
|
- | 641 | stdcall glNormal3f, 0.0,0.0,dword[nsign] |
|
- | 642 | @@: |
|
- | 643 | stdcall glVertex3f, 0.0,0.0,dword[radius] |
|
- | 644 | cmp dword[normals],GL_TRUE |
|
- | 645 | jne @f |
|
- | 646 | sub esp,4 |
|
- | 647 | fld dword[nsign] |
|
- | 648 | fchs |
|
- | 649 | fstp dword[esp] |
|
- | 650 | stdcall glNormal3f, 0.0,0.0 ;,-nsign |
|
- | 651 | @@: |
|
- | 652 | sub esp,4 |
|
- | 653 | fld dword[radius] |
|
- | 654 | fchs |
|
- | 655 | fstp dword[esp] |
|
- | 656 | stdcall glVertex3f, 0.0,0.0 ;,-radius |
|
- | 657 | ||
- | 658 | ; loop over stacks |
|
- | 659 | mov dword[i],1 |
|
- | 660 | mov ebx,[stacks] |
|
- | 661 | mov ecx,[slices] |
|
- | 662 | align 4 |
|
- | 663 | .cycle_8: ;for (i=1;i |
|
- | 664 | cmp dword[i],ebx |
|
- | 665 | jge .cycle_8_end |
|
- | 666 | fild dword[i] |
|
- | 667 | fmul dword[drho] |
|
- | 668 | fstp dword[rho] ;rho = i * drho |
|
- | 669 | ||
- | 670 | mov dword[j],0 |
|
- | 671 | align 4 |
|
- | 672 | .cycle_9: ;for (j=0;j |
|
- | 673 | cmp dword[j],ecx |
|
- | 674 | jge .cycle_9_end |
|
- | 675 | fild dword[j] |
|
- | 676 | fmul dword[dtheta] |
|
- | 677 | fst dword[theta] ;theta = j * dtheta; |
|
- | 678 | fcos |
|
- | 679 | fld dword[rho] |
|
- | 680 | fsin |
|
- | 681 | fxch ;толкаем sin(rho) в st1 |
|
- | 682 | fmul st0,st1 |
|
- | 683 | fstp dword[x] ;x = cos(theta) * sin(rho) |
|
- | 684 | fld dword[theta] |
|
- | 685 | fsin |
|
- | 686 | fmulp ;множим на sin(rho) ранее записанный в st1 |
|
- | 687 | fstp dword[y] ;y = sin(theta) * sin(rho) |
|
- | 688 | fld dword[rho] |
|
- | 689 | fcos |
|
- | 690 | fstp dword[z] ;z = cos(rho) |
|
- | 691 | cmp dword[normals],GL_TRUE |
|
- | 692 | jne @f |
|
- | 693 | fld dword[nsign] |
|
- | 694 | fld dword[z] |
|
- | 695 | fmul st0,st1 |
|
- | 696 | fstp dword[esp-4] |
|
- | 697 | fld dword[y] |
|
- | 698 | fmul st0,st1 |
|
- | 699 | fstp dword[esp-8] |
|
- | 700 | fld dword[x] |
|
- | 701 | fmulp |
|
- | 702 | fstp dword[esp-12] |
|
- | 703 | sub esp,12 |
|
- | 704 | stdcall glNormal3f ;x*nsign, y*nsign, z*nsign |
|
- | 705 | @@: |
|
- | 706 | fld dword[radius] |
|
- | 707 | fld dword[z] |
|
- | 708 | fmul st0,st1 |
|
- | 709 | fstp dword[esp-4] |
|
- | 710 | fld dword[y] |
|
- | 711 | fmul st0,st1 |
|
- | 712 | fstp dword[esp-8] |
|
- | 713 | fld dword[x] |
|
- | 714 | fmulp |
|
- | 715 | fstp dword[esp-12] |
|
- | 716 | sub esp,12 |
|
- | 717 | call glVertex3f ;x*radius, y*radius, z*radius |
|
- | 718 | inc dword[j] |
|
- | 719 | jmp .cycle_9 |
|
- | 720 | .cycle_9_end: |
|
- | 721 | inc dword[i] |
|
- | 722 | jmp .cycle_8 |
|
- | 723 | .cycle_8_end: |
|
- | 724 | call glEnd |
|
- | 725 | ||
- | 726 | .end_f: |
|
450 | popad |
727 | popad |
451 | ret |
728 | ret |
452 | endp=slices;j++) |
729 | endp |
453 | > |
730 | > |
454 | >=slices;j++) |
731 | >=stacks;i++) |
455 | > |
732 | > |
- | 733 | > |
|
- | 734 | > |
|
- | 735 | >=slices;j++) |
|
- | 736 | > |
|
- | 737 | >=slices;j++) |
|
- | 738 | > |