| 0,0 → 1,515 |
|---|
| include 'opengl_const.inc' |
| include 'zbuffer.inc' |
| include 'zmath.inc' |
| |
| ;#define fputc(...) /*nothing*/ |
| ;#define fprintf(...) /*nothing*/ |
| ;#define vfprintf(...) /*nothing*/ |
| ;#undef stderr |
| ;#define stderr ((FILE*)-1) |
| |
| |
| ;enum { OP_ ## a , ... } |
| s1 equ 0 |
| macro ADD_OP a,b,c |
| { |
| OP_#a equ s1 |
| s1 equ (s1+1) |
| } |
| include 'opinfo.inc' |
| |
| |
| ;initially # of allocated GLVertexes (will grow when necessary) |
| POLYGON_MAX_VERTEX equ 16 |
| |
| ;Max # of specular light pow buffers |
| MAX_SPECULAR_BUFFERS equ 8 |
| ;# of entries in specular buffer |
| SPECULAR_BUFFER_SIZE equ 1024 |
| ;specular buffer granularity |
| SPECULAR_BUFFER_RESOLUTION equ 1024 |
| |
| |
| MAX_MODELVIEW_STACK_DEPTH equ 32 |
| MAX_PROJECTION_STACK_DEPTH equ 8 |
| MAX_TEXTURE_STACK_DEPTH equ 8 |
| MAX_NAME_STACK_DEPTH equ 64 |
| MAX_TEXTURE_LEVELS equ 11 |
| MAX_LIGHTS equ 16 |
| |
| VERTEX_HASH_SIZE equ 1031 |
| |
| MAX_DISPLAY_LISTS equ 1024 |
| OP_BUFFER_MAX_SIZE equ 512 |
| |
| TGL_OFFSET_FILL equ 0x1 |
| TGL_OFFSET_LINE equ 0x2 |
| TGL_OFFSET_POINT equ 0x4 |
| |
| struct GLSpecBuf |
| shininess_i dd ? ;int |
| last_used dd ? ;int |
| buf rd SPECULAR_BUFFER_SIZE+1 ;float[SPECULAR_BUFFER_SIZE+1] |
| next dd ? ;struct GLSpecBuf* |
| ends |
| |
| struct GLLight |
| ambient V4 |
| diffuse V4 |
| specular V4 |
| position V4 |
| spot_direction V3 |
| spot_exponent dd ? ;float |
| spot_cutoff dd ? ;float |
| attenuation rd 3 ;float[3] |
| ; precomputed values |
| cos_spot_cutoff dd ? ;float |
| norm_spot_direction V3 |
| norm_position V3 |
| ; we use a linked list to know which are the enabled lights |
| enabled dd ? ;int |
| next dd ? ;struct GLLight* |
| prev dd ? ;struct GLLight* |
| ends |
| |
| offs_ligh_ambient equ 0 ;V4 |
| offs_ligh_diffuse equ 16 ;V4 |
| offs_ligh_specular equ 32 ;V4 |
| offs_ligh_position equ 48 ;V4 |
| offs_ligh_spot_direction equ 64 ;V3 |
| offs_ligh_spot_exponent equ 76 ;dd ? |
| offs_ligh_spot_cutoff equ 80 ;dd ? |
| offs_ligh_attenuation equ 84 ;rd 3 |
| offs_ligh_cos_spot_cutoff equ 96 ;dd ? |
| offs_ligh_norm_spot_direction equ 100 ;V3 |
| offs_ligh_norm_position equ 112 ;V3 |
| offs_ligh_enabled equ 124 ;dd ? |
| offs_ligh_next equ 128 ;dd ? |
| offs_ligh_prev equ 132 ;dd ? |
| |
| struct GLMaterial |
| emission V4 |
| ambient V4 |
| diffuse V4 |
| specular V4 |
| shininess dd ? ;float |
| |
| ; computed values |
| shininess_i dd ? ;int |
| do_specular dd ? ;int |
| ends |
| |
| offs_mate_emission equ 0 ;V4 |
| offs_mate_ambient equ 16 ;V4 |
| offs_mate_diffuse equ 32 ;V4 |
| offs_mate_specular equ 48 ;V4 |
| offs_mate_shininess equ 64 ;dd |
| offs_mate_shininess_i equ 68 ;dd |
| offs_mate_do_specular equ 72 ;dd |
| |
| struct GLViewport |
| xmin dd ? ;int |
| ymin dd ? ;int |
| xsize dd ? ;int |
| ysize dd ? ;int |
| scale V3 |
| trans V3 |
| updated dd ? ;int |
| ends |
| |
| offs_vpor_xmin equ 0 |
| offs_vpor_ymin equ 4 |
| offs_vpor_xsize equ 8 |
| offs_vpor_ysize equ 12 |
| offs_vpor_scale equ 16 |
| offs_vpor_trans equ 28 |
| offs_vpor_updated equ 40 |
| |
| struct GLParamBuffer |
| ops rd OP_BUFFER_MAX_SIZE ;GLParam[OP_BUFFER_MAX_SIZE] |
| next dd ? ;struct GLParamBuffer* |
| ends |
| |
| struct GLList |
| first_op_buffer dd ? ;GLParamBuffer* |
| ; /* TODO: extensions for an hash table or a better allocating scheme */ |
| ends |
| |
| struct GLVertex |
| edge_flag dd ? ;int |
| normal V3 |
| coord V4 |
| tex_coord V4 |
| color V4 |
| |
| ; computed values |
| ec V4 ; eye coordinates |
| pc V4 ; coordinates in the normalized volume |
| clip_code dd ? ;int ; clip code |
| zp ZBufferPoint ; integer coordinates for the rasterization |
| ends |
| |
| offs_vert_edge_flag equ 0 |
| offs_vert_normal equ 4 |
| offs_vert_coord equ 16 |
| offs_vert_tex_coord equ 32 |
| offs_vert_color equ 48 |
| offs_vert_ec equ 64 |
| offs_vert_pc equ 80 |
| offs_vert_clip_code equ 96 |
| offs_vert_zp equ 100 |
| |
| struct GLImage |
| pixmap dd ? ;void* |
| xsize dd ? ;int |
| ysize dd ? ;int |
| ends |
| |
| offs_imag_pixmap equ 0 |
| |
| ; textures |
| |
| TEXTURE_HASH_TABLE_SIZE equ 256 ;должно быть кратное 2, в коде берется остаток от деления (через and быстрее чем div) |
| |
| struct GLTexture |
| images rb sizeof.GLImage * MAX_TEXTURE_LEVELS ;GLImage[MAX_TEXTURE_LEVELS] |
| handle dd ? ;int |
| next dd ? ;struct GLTexture* |
| prev dd ? ;struct GLTexture* |
| ends |
| |
| offs_text_images equ 0 |
| offs_text_handle equ sizeof.GLImage*MAX_TEXTURE_LEVELS |
| offs_text_next equ 4+offs_text_handle |
| offs_text_prev equ 8+offs_text_handle |
| |
| ; shared state |
| |
| struct GLSharedState |
| lists dd ? ;GLList** |
| texture_hash_table dd ? ;GLTexture** |
| ends |
| |
| |
| ; display context |
| |
| struct GLContext |
| ; Z buffer |
| zb dd ? ;ZBuffer* |
| |
| ; lights |
| lights rb sizeof.GLLight * MAX_LIGHTS ;GLLight[MAX_LIGHTS] |
| first_light dd ? ;GLLight* |
| ambient_light_model V4 |
| local_light_model dd ? ;int |
| lighting_enabled dd ? ;int |
| light_model_two_side dd ? ;int |
| |
| ; materials |
| materials rb sizeof.GLMaterial * 2 ;GLMaterial[2] |
| color_material_enabled dd ? ;int |
| current_color_material_mode dd ? ;int |
| current_color_material_type dd ? ;int |
| |
| ; textures |
| current_texture dd ? ;GLTexture* |
| texture_2d_enabled dd ? ;int |
| |
| ; shared state |
| shared_state GLSharedState |
| |
| ; current list |
| current_op_buffer dd ? ;GLParamBuffer* |
| current_op_buffer_index dd ? ;int |
| exec_flag dd ? ;int |
| compile_flag dd ? ;int |
| print_flag dd ? ;int |
| |
| ; matrix |
| |
| matrix_mode dd ? ;int режим активного вида матрицы (один из 3-х: GL_MODELVIEW, GL_PROJECTION, GL_TEXTURE) |
| matrix_stack rd 3 ;*M4[3] указатель на начало массива матриц |
| matrix_stack_ptr rd 3 ;*M4[3] указатель на активную матрицу из массива |
| matrix_stack_depth_max rd 3 ;int[3] максимальное число матриц в массивах matrix_stack |
| |
| matrix_model_view_inv M4 |
| matrix_model_projection M4 |
| matrix_model_projection_updated dd ? ;int |
| matrix_model_projection_no_w_transform dd ? ;int |
| apply_texture_matrix dd ? ;int |
| |
| ; viewport |
| viewport GLViewport |
| |
| ; current state |
| polygon_mode_back dd ? ;int |
| polygon_mode_front dd ? ;int |
| |
| current_front_face dd ? ;int |
| current_shade_model dd ? ;int |
| current_cull_face dd ? ;int |
| cull_face_enabled dd ? ;int |
| normalize_enabled dd ? ;int |
| draw_triangle_front dd ? ;gl_draw_triangle_func |
| draw_triangle_back dd ? ;gl_draw_triangle_func |
| |
| ; selection |
| render_mode dd ? ;int |
| select_buffer dd ? ;unsigned int* |
| select_size dd ? ;int |
| select_ptr dd ? ;unsigned int* |
| select_hit dd ? ;unsigned int* |
| select_overflow dd ? ;int |
| select_hits dd ? ;int |
| |
| ; names |
| name_stack rd MAX_NAME_STACK_DEPTH ;unsigned int[MAX_NAME_STACK_DEPTH] |
| name_stack_size dd ? ;int |
| |
| ; clear |
| clear_depth dd ? ;float |
| clear_color V4 |
| |
| ; current vertex state |
| current_color V4 |
| longcurrent_color rd 3 ;unsigned int[3] ;precomputed integer color |
| current_normal V4 |
| current_tex_coord V4 |
| current_edge_flag dd ? ;int |
| |
| ; glBegin / glEnd |
| in_begin dd ? ;int |
| begin_type dd ? ;int |
| vertex_n dd ? ;int |
| vertex_cnt dd ? ;int |
| vertex_max dd ? ;int |
| vertex dd ? ;GLVertex* |
| |
| ; opengl 1.1 arrays |
| vertex_array dd ? ;float* |
| vertex_array_size dd ? ;int |
| vertex_array_stride dd ? ;int |
| normal_array dd ? ;float* |
| normal_array_stride dd ? ;int |
| color_array dd ? ;float* |
| color_array_size dd ? ;int |
| color_array_stride dd ? ;int |
| texcoord_array dd ? ;float* |
| texcoord_array_size dd ? ;int |
| texcoord_array_stride dd ? ;int |
| client_states dd ? ;int |
| |
| ; opengl 1.1 polygon offset |
| offset_factor dd ? ;float |
| offset_units dd ? ;float |
| offset_states dd ? ;int |
| |
| ; specular buffer. could probably be shared between contexts, |
| ; but that wouldn't be 100% thread safe |
| specbuf_first dd ? ;GLSpecBuf* |
| specbuf_used_counter dd ? ;int |
| specbuf_num_buffers dd ? ;int |
| |
| ; opaque structure for user's use |
| opaque dd ? ;void* |
| ; resize viewport function |
| gl_resize_viewport dd ? ;(struct GLContext *c,int *xsize,int *ysize) |
| |
| ; depth test |
| depth_test dd ? ;int |
| ends |
| |
| offs_cont_s0 equ (4 + sizeof.GLLight * MAX_LIGHTS) |
| offs_cont_s1 equ (32 + offs_cont_s0 + sizeof.GLMaterial * 2) |
| offs_cont_s2 equ (228 + offs_cont_s1 + sizeof.GLViewport) |
| offs_cont_s3 equ (64 + offs_cont_s2 + MAX_NAME_STACK_DEPTH * 4) |
| |
| offs_cont_zb equ 0 ;ZBuffer* |
| offs_cont_lights equ 4 ;GLLight[MAX_LIGHTS] |
| offs_cont_first_light equ offs_cont_s0 ;GLLight* |
| offs_cont_ambient_light_model equ 4+offs_cont_s0 ;V4 |
| offs_cont_local_light_model equ 20+offs_cont_s0 ;int |
| offs_cont_lighting_enabled equ 24+offs_cont_s0 ;int |
| offs_cont_light_model_two_side equ 28+offs_cont_s0 ;int |
| offs_cont_materials equ 32+offs_cont_s0 ;GLMaterial[2] |
| offs_cont_color_material_enabled equ offs_cont_s1 ;int |
| offs_cont_current_color_material_mode equ 4+offs_cont_s1 ;int |
| offs_cont_current_color_material_type equ 8+offs_cont_s1 ;int |
| offs_cont_current_texture equ 12+offs_cont_s1 ;GLTexture* |
| offs_cont_texture_2d_enabled equ 16+offs_cont_s1 ;int |
| offs_cont_shared_state equ 20+offs_cont_s1 ;GLSharedState |
| offs_cont_current_op_buffer equ 28+offs_cont_s1 ;GLParamBuffer* |
| offs_cont_current_op_buffer_index equ 32+offs_cont_s1 ;int |
| offs_cont_exec_flag equ 36+offs_cont_s1 ;int |
| offs_cont_compile_flag equ 40+offs_cont_s1 ;int |
| offs_cont_print_flag equ 44+offs_cont_s1 ;int |
| offs_cont_matrix_mode equ 48+offs_cont_s1 ;int |
| offs_cont_matrix_stack equ 52+offs_cont_s1 ;*M4[3] |
| offs_cont_matrix_stack_ptr equ 64+offs_cont_s1 ;*M4[3] |
| offs_cont_matrix_stack_depth_max equ 76+offs_cont_s1 ;int[3] |
| offs_cont_matrix_model_view_inv equ 88+offs_cont_s1 ;M4 |
| offs_cont_matrix_model_projection equ 152+offs_cont_s1 ;M4 |
| offs_cont_matrix_model_projection_updated equ 216+offs_cont_s1 ;int |
| offs_cont_matrix_model_projection_no_w_transform equ 220+offs_cont_s1 ;int |
| offs_cont_apply_texture_matrix equ 224+offs_cont_s1 ;int |
| offs_cont_viewport equ 228+offs_cont_s1 ;GLViewport |
| offs_cont_polygon_mode_back equ offs_cont_s2 ;int |
| offs_cont_polygon_mode_front equ 4+offs_cont_s2 ;int |
| offs_cont_current_front_face equ 8+offs_cont_s2 ;int |
| offs_cont_current_shade_model equ 12+offs_cont_s2 ;int |
| offs_cont_current_cull_face equ 16+offs_cont_s2 ;int |
| offs_cont_cull_face_enabled equ 20+offs_cont_s2 ;int |
| offs_cont_normalize_enabled equ 24+offs_cont_s2 ;int |
| offs_cont_draw_triangle_front equ 28+offs_cont_s2 ;gl_draw_triangle_func |
| offs_cont_draw_triangle_back equ 32+offs_cont_s2 ;gl_draw_triangle_func |
| offs_cont_render_mode equ 36+offs_cont_s2 ;int |
| offs_cont_select_buffer equ 40+offs_cont_s2 ;unsigned int* |
| offs_cont_select_size equ 44+offs_cont_s2 ;int |
| offs_cont_select_ptr equ 48+offs_cont_s2 ;unsigned int* |
| offs_cont_select_hit equ 52+offs_cont_s2 ;unsigned int* |
| offs_cont_select_overflow equ 56+offs_cont_s2 ;int |
| offs_cont_select_hits equ 60+offs_cont_s2 ;int |
| offs_cont_name_stack equ 64+offs_cont_s2 ;unsigned int[MAX_NAME_STACK_DEPTH] |
| offs_cont_name_stack_size equ offs_cont_s3 ;int |
| offs_cont_clear_depth equ 4+offs_cont_s3 ;float |
| offs_cont_clear_color equ 8+offs_cont_s3 ;V4 |
| offs_cont_current_color equ 24+offs_cont_s3 ;V4 |
| offs_cont_longcurrent_color equ 40+offs_cont_s3 ;unsigned int[3] |
| offs_cont_current_normal equ 52+offs_cont_s3 ;V4 |
| offs_cont_current_tex_coord equ 68+offs_cont_s3 ;V4 |
| offs_cont_current_edge_flag equ 84+offs_cont_s3 ;int |
| offs_cont_in_begin equ 88+offs_cont_s3 ;int |
| offs_cont_begin_type equ 92+offs_cont_s3 ;int |
| offs_cont_vertex_n equ 96+offs_cont_s3 ;int |
| offs_cont_vertex_cnt equ 100+offs_cont_s3 ;int |
| offs_cont_vertex_max equ 104+offs_cont_s3 ;int |
| offs_cont_vertex equ 108+offs_cont_s3 ;GLVertex* |
| offs_cont_vertex_array equ 112+offs_cont_s3 ;float* |
| offs_cont_vertex_array_size equ 116+offs_cont_s3 ;int |
| offs_cont_vertex_array_stride equ 120+offs_cont_s3 ;int |
| offs_cont_normal_array equ 124+offs_cont_s3 ;float* |
| offs_cont_normal_array_stride equ 128+offs_cont_s3 ;int |
| offs_cont_color_array equ 132+offs_cont_s3 ;float* |
| offs_cont_color_array_size equ 136+offs_cont_s3 ;int |
| offs_cont_color_array_stride equ 140+offs_cont_s3 ;int |
| offs_cont_texcoord_array equ 144+offs_cont_s3 ;float* |
| offs_cont_texcoord_array_size equ 148+offs_cont_s3 ;int |
| offs_cont_texcoord_array_stride equ 152+offs_cont_s3 ;int |
| offs_cont_client_states equ 156+offs_cont_s3 ;int |
| offs_cont_offset_factor equ 160+offs_cont_s3 ;float |
| offs_cont_offset_units equ 164+offs_cont_s3 ;float |
| offs_cont_offset_states equ 168+offs_cont_s3 ;int |
| offs_cont_specbuf_first equ 172+offs_cont_s3 ;GLSpecBuf* |
| offs_cont_specbuf_used_counter equ 176+offs_cont_s3 ;int |
| offs_cont_specbuf_num_buffers equ 180+offs_cont_s3 ;int |
| offs_cont_opaque equ 184+offs_cont_s3 ;void* |
| offs_cont_gl_resize_viewport equ 188+offs_cont_s3 ;(struct GLContext *c,int *xsize,int *ysize) |
| offs_cont_depth_test equ 192+offs_cont_s3 ;int |
| |
| align 16 |
| gl_ctx dd ? ;extern GLContext* |
| |
| align 16 |
| proc gl_get_context |
| mov eax,[gl_ctx] |
| ret |
| endp |
| |
| ; this clip epsilon is needed to avoid some rounding errors after |
| ; several clipping stages |
| |
| CLIP_EPSILON dd 1.0e-5 |
| |
| align 4 |
| proc gl_clipcode uses ebx, x:dword, y:dword, z:dword, w1:dword |
| xor ebx,ebx |
| |
| ;ffree st0 |
| ;fincstp |
| fld1 |
| fadd dword[CLIP_EPSILON] |
| fmul dword[w1] |
| |
| fcom dword[x] |
| fstsw ax |
| sahf |
| ja @f |
| or ebx,2 |
| @@: |
| fcom dword[y] |
| fstsw ax |
| sahf |
| ja @f |
| or ebx,8 |
| @@: |
| fcom dword[z] |
| fstsw ax |
| sahf |
| ja @f |
| or ebx,32 |
| @@: |
| |
| fchs |
| fcom dword[x] |
| fstsw ax |
| sahf |
| jbe @f |
| or ebx,1 |
| @@: |
| fcom dword[y] |
| fstsw ax |
| sahf |
| jbe @f |
| or ebx,4 |
| @@: |
| fcom dword[z] |
| fstsw ax |
| sahf |
| jbe @f |
| or ebx,16 |
| @@: |
| |
| mov eax,ebx |
| if DEBUG ;gl_clipcode |
| push edi |
| mov ecx,80 |
| lea edi,[buf_param] |
| stdcall convert_int_to_str,ecx |
| stdcall str_n_cat,edi,txt_nl,2 |
| stdcall dbg_print,f_clipcode,buf_param |
| pop edi |
| end if |
| ret |
| endp |
| |
| ;input: |
| ; rf,gf,bf - значения float |
| ; ri,gi,bi - адреса куда будут записаны rf,gf,bf преобразованые в int |
| align 4 |
| proc RGBFtoRGBI uses eax, rf:dword,gf:dword,bf:dword, ri:dword,gi:dword,bi:dword |
| locals |
| s dd ? |
| endl |
| mov dword[s],(ZB_POINT_RED_MAX - ZB_POINT_RED_MIN) |
| fild dword[s] |
| fmul dword[rf] |
| mov eax,[ri] |
| fistp dword[eax] |
| add dword[eax],ZB_POINT_RED_MIN |
| |
| mov dword[s],(ZB_POINT_GREEN_MAX - ZB_POINT_GREEN_MIN) |
| fild dword[s] |
| fmul dword[gf] |
| mov eax,[gi] |
| fistp dword[eax] |
| add dword[eax],ZB_POINT_GREEN_MIN |
| |
| ;bi = (unsigned int) (bf * (ZB_POINT_BLUE_MAX - ZB_POINT_BLUE_MIN) + ZB_POINT_BLUE_MIN); |
| mov dword[s],(ZB_POINT_BLUE_MAX - ZB_POINT_BLUE_MIN) |
| fild dword[s] |
| fmul dword[bf] |
| mov eax,[bi] |
| fistp dword[eax] |
| add dword[eax],ZB_POINT_BLUE_MIN |
| ret |
| endp |