* * Copyright (C) 1996-1997 Id Software, Inc. * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License * as published by the Free Software Foundation; either version 2 * of the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * See the GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * ** ** Quake for AMIGA ** d_edge.c assembler implementations by Frank Wille ** XREF _vright XREF _vup XREF _vpn XREF _xscaleinv XREF _yscaleinv XREF _xcenter XREF _ycenter XREF _d_zistepu XREF _d_zistepv XREF _d_ziorigin XREF _d_sdivzstepu XREF _d_tdivzstepu XREF _d_sdivzstepv XREF _d_tdivzstepv XREF _d_sdivzorigin XREF _d_tdivzorigin XREF _sadjust XREF _tadjust XREF _bbextents XREF _bbextentt XREF _transformed_modelorg XREF _miplevel XREF _r_worldentity XREF _currententity XREF _r_drawflat XREF _surfaces XREF _surface_p XREF _r_drawnpolycount XREF _r_skymade XREF _r_clearcolor XREF _cacheblock XREF _cachewidth XREF _r_origin XREF _base_vpn XREF _base_vup XREF _base_vright XREF _base_modelorg XREF _d_drawspans XREF _scale_for_mip XREF _d_scalemip XREF _d_minmip XREF _modelorg XREF _screenedge XREF _view_clipplanes XREF _D_DrawSolidSurface XREF _D_DrawZSpans XREF _R_MakeSky XREF _D_DrawSkyScans8 XREF _D_DrawZSpans XREF _Turbulent8 XREF _R_RotateBmodel XREF _D_CacheSurface XDEF _D_CalcGradients XDEF _D_DrawSurfaces SURF_DRAWSKY = 4 SURF_DRAWTURB = $10 SURF_DRAWBACKGROUND = $40 MSURFACE_VISFRAME = 0 MSURFACE_DLIGHTFRAME = 4 MSURFACE_DLIGHTBITS = 8 MSURFACE_PLANE = 12 MSURFACE_FLAGS = 16 MSURFACE_FIRSTEDGE = 20 MSURFACE_NUMEDGES = 24 MSURFACE_CACHESPOTS = 28 MSURFACE_TEXTUREMINS = 44 MSURFACE_EXTENTS = 48 MSURFACE_TEXINFO = 52 MSURFACE_STYLES = 56 MSURFACE_SAMPLES = 60 MSURFACE_SIZEOF_EXP = 6 MSURFACE_SIZEOF = (1<spans) * continue; tst.l SURF_SPANS(a2) beq.b .next * d_zistepu = s->d_zistepu; * d_zistepv = s->d_zistepv; * d_ziorigin = s->d_ziorigin; * * D_DrawSolidSurface (s, (long)s->data & 0xFF); * D_DrawZSpans (s->spans); move.l SURF_D_ZISTEPU(a2),_d_zistepu move.l SURF_D_ZISTEPV(a2),_d_zistepv move.l SURF_D_ZIORIGIN(a2),_d_ziorigin move.l SURF_DATA(a2),d0 and.l #$ff,d0 move.l d0,-(sp) move.l a2,-(sp) jsr _D_DrawSolidSurface addq #8,sp move.l SURF_SPANS(a2),-(sp) jsr _D_DrawZSpans addq #4,sp .next lea SURF_SIZEOF(a2),a2 bra.b .loop .notflat move.l _surfaces,a2 lea SURF_SIZEOF(a2),a2 move.l _surface_p,d2 * for (s = &surfaces[1] ; sspans) * continue; .loop2 cmp.l d2,a2 bge.w .end tst.l SURF_SPANS(a2) beq.b .next2 * r_drawnpolycount++; * * d_zistepu = s->d_zistepu; * d_zistepv = s->d_zistepv; * d_ziorigin = s->d_ziorigin; addq.l #1,_r_drawnpolycount move.l SURF_D_ZISTEPU(a2),_d_zistepu move.l SURF_D_ZISTEPV(a2),_d_zistepv move.l SURF_D_ZIORIGIN(a2),_d_ziorigin * if (s->flags & SURF_DRAWSKY) * { * if (!r_skymade) * { * R_MakeSky (); * } * * D_DrawSkyScans8 (s->spans); * D_DrawZSpans (s->spans); * } move.l SURF_FLAGS(a2),d0 move.l d0,d1 and.l #SURF_DRAWSKY,d1 beq.b .nosky tst.l _r_skymade bne.b .skymade jsr _R_MakeSky .skymade move.l SURF_SPANS(a2),-(sp) jsr _D_DrawSkyScans8 jsr _D_DrawZSpans addq #4,sp bra.w .next2 * else if (s->flags & SURF_DRAWBACKGROUND) * { * // set up a gradient for the background surface that places it * // effectively at infinity distance from the viewpoint * d_zistepu = 0; * d_zistepv = 0; * d_ziorigin = -0.9; * * D_DrawSolidSurface (s, (int)r_clearcolor.value & 0xFF); * D_DrawZSpans (s->spans); * } .nosky move.l d0,d1 and.l #SURF_DRAWBACKGROUND,d1 beq.b .nobackground fmove.s #0,fp0 fmove.s fp0,_d_zistepu fmove.s fp0,_d_zistepv fmove.s #-0.9,fp0 fmove.s fp0,_d_ziorigin fmove.s _r_clearcolor+CVAR_VALUE,fp0 fmove.l fp0,d0 and.l #$ff,d0 move.l d0,-(sp) move.l a2,-(sp) jsr _D_DrawSolidSurface addq #8,sp move.l SURF_SPANS(a2),-(sp) jsr _D_DrawZSpans addq #4,sp bra.w .next2 * else if (s->flags & SURF_DRAWTURB) * { * pface = s->data; * miplevel = 0; * cacheblock = (pixel_t *) * ((byte *)pface->texinfo->texture + * pface->texinfo->texture->offsets[0]); * cachewidth = 64; .nobackground move.l d0,d1 and.l #SURF_DRAWTURB,d1 beq.w .noturb move.l SURF_DATA(a2),a3 clr.l _miplevel move.l MSURFACE_TEXINFO(a3),a0 move.l MTEXINFO_TEXTURE(a0),a0 add.l TEXTURE_OFFSETS(a0),a0 move.l a0,_cacheblock move.l #64,_cachewidth * if (s->insubmodel) * { * // FIXME: we don't want to do all this for every polygon! * // TODO: store once at start of frame * currententity = s->entity; //FIXME: make this passed in to * // R_RotateBmodel () * VectorSubtract (r_origin, currententity->origin, * local_modelorg); * TransformVector (local_modelorg, transformed_modelorg); * * R_RotateBmodel (); // FIXME: don't mess with the frustum, * // make entity passed in * } tst.l SURF_INSUBMODEL(a2) beq.b .nosub move.l SURF_ENTITY(a2),a0 move.l a0,_currententity lea ENTITY_ORIGIN(a0),a0 ****** VectorSubtract (inlined) lea _r_origin,a1 lea _transformed_modelorg,a4 fmove.s (a1)+,fp0 fsub.s (a0)+,fp0 fmove.s (a1)+,fp1 fsub.s (a0)+,fp1 fmove.s (a1)+,fp2 fsub.s (a0)+,fp2 ****** end of VectorSubtract (inlined) ****** TransformVector (inlined) lea _vright,a0 fmove.s (a0)+,fp6 fmul fp0,fp6 fmove.s (a0)+,fp7 fmul fp1,fp7 fadd fp7,fp6 fmove.s (a0)+,fp7 fmul fp2,fp7 fadd fp7,fp6 fmove.s fp6,(a4)+ lea _vup,a0 fmove.s (a0)+,fp6 fmul fp0,fp6 fmove.s (a0)+,fp7 fmul fp1,fp7 fadd fp7,fp6 fmove.s (a0)+,fp7 fmul fp2,fp7 fadd fp7,fp6 fmove.s fp6,(a4)+ lea _vpn,a0 fmul.s (a0)+,fp0 fmul.s (a0)+,fp1 fadd fp1,fp0 fmul.s (a0)+,fp2 fadd fp2,fp0 fmove.s fp0,(a4)+ lea -12(a4),a4 ****** end of TransformVector jsr _R_RotateBmodel * D_CalcGradients (pface); * Turbulent8 (s->spans); * D_DrawZSpans (s->spans); .nosub move.l a3,-(sp) jsr _D_CalcGradients addq #4,sp move.l SURF_SPANS(a2),-(sp) jsr _Turbulent8 jsr _D_DrawZSpans addq #4,sp * if (s->insubmodel) * { * // * // restore the old drawing state * // FIXME: we don't want to do this every time! * // TODO: speed up * // * currententity = &r_worldentity; * VectorCopy (world_transformed_modelorg, * transformed_modelorg); * VectorCopy (base_vpn, vpn); * VectorCopy (base_vup, vup); * VectorCopy (base_vright, vright); * VectorCopy (base_modelorg, modelorg); * R_TransformFrustum (); * } tst.l SURF_INSUBMODEL(a2) beq.w .next2 move.l #_r_worldentity,_currententity fmove.s fp3,(a4)+ fmove.s fp4,(a4)+ fmove.s fp5,(a4)+ lea _base_vpn,a0 lea _vpn,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_vup,a0 lea _vup,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_vright,a0 lea _vright,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_modelorg,a0 lea _modelorg,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ fmove.s fp3,-(sp) fmove.s fp4,-(sp) fmove.s fp5,-(sp) ****** R_TransformFrustum (inlined) moveq #4-1,d0 lea _screenedge,a0 lea _view_clipplanes,a1 lea _modelorg,a4 fmove.s (a4)+,fp7 .loop3 fmove.s (a0)+,fp1 fneg fp1 fmove.s (a0)+,fp2 fmove.s (a0)+,fp0 lea _vright,a3 fmove.s (a3)+,fp3 fmove.s (a3)+,fp4 fmove.s (a3)+,fp5 fmul fp1,fp3 fmul fp1,fp4 fmul fp1,fp5 lea _vup,a3 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp3 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp4 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp5 lea _vpn,a3 fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp3 fmove.s fp3,(a1)+ fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp4 fmove.s fp4,(a1)+ fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp5 fmove.s fp5,(a1)+ fmul fp7,fp3 fmul.s (a4),fp4 fadd fp4,fp3 fmul.s 4(a4),fp5 fadd fp5,fp3 fmove.s fp3,(a1)+ lea CLIP_SIZEOF-16(a1),a1 lea MPLANE_SIZEOF-12(a0),a0 dbra d0,.loop3 ****** end of R_TransformFrustum fmove.s (sp)+,fp5 fmove.s (sp)+,fp4 fmove.s (sp)+,fp3 bra.w .next2 .noturb * if (s->insubmodel) * { * // FIXME: we don't want to do all this for every polygon! * // TODO: store once at start of frame * currententity = s->entity; //FIXME: make this passed in to * // R_RotateBmodel () * VectorSubtract (r_origin, currententity->origin, local_modelorg); * TransformVector (local_modelorg, transformed_modelorg); * * R_RotateBmodel (); // FIXME: don't mess with the frustum, * // make entity passed in * } tst.l SURF_INSUBMODEL(a2) beq.b .nosub2 move.l SURF_ENTITY(a2),a0 move.l a0,_currententity lea ENTITY_ORIGIN(a0),a0 ****** VectorSubtract (inlined) lea _r_origin,a1 lea _transformed_modelorg,a4 fmove.s (a1)+,fp0 fsub.s (a0)+,fp0 fmove.s (a1)+,fp1 fsub.s (a0)+,fp1 fmove.s (a1)+,fp2 fsub.s (a0)+,fp2 ****** end of VectorSubtract ****** TransformVector (inlined) lea _vright,a0 fmove.s (a0)+,fp6 fmul fp0,fp6 fmove.s (a0)+,fp7 fmul fp1,fp7 fadd fp7,fp6 fmove.s (a0)+,fp7 fmul fp2,fp7 fadd fp7,fp6 fmove.s fp6,(a4)+ lea _vup,a0 fmove.s (a0)+,fp6 fmul fp0,fp6 fmove.s (a0)+,fp7 fmul fp1,fp7 fadd fp7,fp6 fmove.s (a0)+,fp7 fmul fp2,fp7 fadd fp7,fp6 fmove.s fp6,(a4)+ lea _vpn,a0 fmul.s (a0)+,fp0 fmul.s (a0)+,fp1 fadd fp1,fp0 fmul.s (a0)+,fp2 fadd fp2,fp0 fmove.s fp0,(a4)+ lea -12(a4),a4 ****** end of TransformVector jsr _R_RotateBmodel .nosub2 * pface = s->data; * miplevel = D_MipLevelForScale (s->nearzi * scale_for_mip * * pface->texinfo->mipadjust); * * // FIXME: make this passed in to D_CacheSurface * pcurrentcache = D_CacheSurface (pface, miplevel); * * cacheblock = (pixel_t *)pcurrentcache->data; * cachewidth = pcurrentcache->width; move.l SURF_DATA(a2),a3 fmove.s SURF_NEARZI(a2),fp0 fmul.s _scale_for_mip,fp0 move.l MSURFACE_TEXINFO(a3),a0 fmul.s MTEXINFO_MIPADJUST(a0),fp0 ****** D_MipLevelForScale (inlined) lea _d_scalemip,a1 moveq #0,d0 fcmp.s (a1),fp0 fboge.b .found moveq #1,d0 fcmp.s 4(a1),fp0 fboge.b .found moveq #2,d0 fcmp.s 8(a1),fp0 fboge.b .found moveq #3,d0 move.l _d_minmip,d1 cmp.l d1,d0 bge.b .found move.l d1,d0 .found ****** end of D_MipLevelForScale move.l d0,_miplevel move.l d0,-(sp) move.l a3,-(sp) jsr _D_CacheSurface addq #8,sp move.l d0,a0 lea SURFCACHE_DATA(a0),a1 move.l a1,_cacheblock move.l SURFCACHE_WIDTH(a0),_cachewidth * D_CalcGradients (pface); * * (*d_drawspans) (s->spans); * * D_DrawZSpans (s->spans); move.l a3,-(sp) jsr _D_CalcGradients addq #4,sp move.l SURF_SPANS(a2),-(sp) move.l _d_drawspans,a0 jsr (a0) jsr _D_DrawZSpans addq #4,sp * if (s->insubmodel) * { * // * // restore the old drawing state * // FIXME: we don't want to do this every time! * // TODO: speed up * // * VectorCopy (world_transformed_modelorg, * transformed_modelorg); * VectorCopy (base_vpn, vpn); * VectorCopy (base_vup, vup); * VectorCopy (base_vright, vright); * VectorCopy (base_modelorg, modelorg); * R_TransformFrustum (); * currententity = &r_worldentity; * } tst.l SURF_INSUBMODEL(a2) beq.w .next2 fmove.s fp3,(a4)+ fmove.s fp4,(a4)+ fmove.s fp5,(a4)+ lea _base_vpn,a0 lea _vpn,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_vup,a0 lea _vup,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_vright,a0 lea _vright,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ lea _base_modelorg,a0 lea _modelorg,a1 move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ move.l (a0)+,(a1)+ fmove.s fp3,-(sp) fmove.s fp4,-(sp) fmove.s fp5,-(sp) ****** R_TransformFrustum (inlined) moveq #4-1,d0 lea _screenedge,a0 lea _view_clipplanes,a1 lea _modelorg,a4 fmove.s (a4)+,fp7 .loop4 fmove.s (a0)+,fp1 fneg fp1 fmove.s (a0)+,fp2 fmove.s (a0)+,fp0 lea _vright,a3 fmove.s (a3)+,fp3 fmove.s (a3)+,fp4 fmove.s (a3)+,fp5 fmul fp1,fp3 fmul fp1,fp4 fmul fp1,fp5 lea _vup,a3 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp3 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp4 fmove.s (a3)+,fp6 fmul fp2,fp6 fadd fp6,fp5 lea _vpn,a3 fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp3 fmove.s fp3,(a1)+ fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp4 fmove.s fp4,(a1)+ fmove.s (a3)+,fp6 fmul fp0,fp6 fadd fp6,fp5 fmove.s fp5,(a1)+ fmul fp7,fp3 fmul.s (a4),fp4 fadd fp4,fp3 fmul.s 4(a4),fp5 fadd fp5,fp3 fmove.s fp3,(a1)+ lea CLIP_SIZEOF-16(a1),a1 lea MPLANE_SIZEOF-12(a0),a0 dbra d0,.loop4 ****** end of R_TransformFrustum fmove.s (sp)+,fp5 fmove.s (sp)+,fp4 fmove.s (sp)+,fp3 move.l #_r_worldentity,_currententity .next2 lea SURF_SIZEOF(a2),a2 bra.w .loop2 .end fmovem.x (sp)+,fp2-fp7 movem.l (sp)+,d2/a2-a4 rts