; TODOs: ; - Fix pixel errors at border ; ; Framework settings IFD FW_DEMO_PART IFD FW_HD_DEMO_PART include "../hamazing/hdtrackmo_settings.i" ELSE include "../hamazing/trackmo_settings.i" ENDC ELSE FW_STANDALONE_FILE_MODE = 1 ; enable standalone (part testing) FW_HD_TRACKMO_MODE = 0 ; DO NOT CHANGE (not supported for standalone mode) FW_MUSIC_SUPPORT = 1 FW_MUSIC_PLAYER_CHOICE = 2 ; 0 = None, 1 = LSP, 2 = LSP_CIA, 3 = P61A, 4 = Pretracker FW_LMB_EXIT_SUPPORT = 1 ; allows abortion of intro with LMB FW_MULTIPART_SUPPORT = 0 ; DO NOT CHANGE (not supported for standalone mode) FW_DYNAMIC_MEMORY_SUPPORT = 1 ; enable dynamic memory allocation. Otherwise, use fw_ChipMemStack/End etc fields. FW_MAX_MEMORY_STATES = 4 ; the amount of memory states FW_TOP_BOTTOM_MEM_SECTIONS = 0 ; allow allocations from both sides of the memory FW_64KB_PAGE_MEMORY_SUPPORT = 0 ; allow allocation of chip memory that doesn't cross the 64 KB page boundary FW_MULTITASKING_SUPPORT = 1 ; enable multitasking FW_ROUNDROBIN_MT_SUPPORT = 0 ; enable fair scheduling among tasks with same priority FW_BLITTERTASK_MT_SUPPORT = 0 ; enable single parallel task during large blits FW_MAX_VPOS_FOR_BG_TASK = 300 ; max vpos that is considered to be worth switching to a background task, if any FW_SINETABLE_SUPPORT = 1 ; enable creation of 1024 entries sin/cos table FW_SCRIPTING_SUPPORT = 1 ; enable simple timed scripting functions FW_PALETTE_LERP_SUPPORT = 1 ; enable basic palette fading functions FW_YIELD_FROM_MAIN_TOO = 0 ; adds additional code that copes with Yield being called from main code instead of task FW_VBL_IRQ_SUPPORT = 0 ; enable custom VBL IRQ routine FW_COPPER_IRQ_SUPPORT = 0 ; enable copper IRQ routine support FW_AUDIO_IRQ_SUPPORT = 0 ; enable audio IRQ support (unimplemented) FW_VBL_MUSIC_IRQ = 0 ; enable calling of VBL based music ticking (disable, if using CIA timing!) FW_BLITTERQUEUE_SUPPORT = 1 ; enable blitter queue support FW_A5_A6_UNTOUCHED = 1 ; speed up blitter queue if registers a5/a6 are never changed in main code FW_LZ4_SUPPORT = 0 ; compile in LZ4 decruncher FW_DOYNAX_SUPPORT = 0 ; compile in doynax decruncher FW_ZX0_SUPPORT = 0 ; compile in ZX0 decruncher FW_DO_FANCY_WORKBENCH_STUFF = 0 ; enable pre- and post-hook (os startup only) ENABLE_PART_MUSIC = 0 PART_MUSIC_START_POS = 0 ENDC GOURAUD_WIDTH = 128 GOURAUD_PLANES = 4 BENDIT_WIDTH = 128 BENDIT_HEIGHT = 128 CUBE_PRECALC_NUM = 16 NUM_RUBBER_FRAMES = 33 CUBE_WIDTH = 128 CUBE_HEIGHT = 128 CUBE_PLANES = 4 CUBE_X_OFFSET = 0 CUBE_Y_OFFSET = 0 CUBE_Y_CLIP = 0 CUBE_MAX_SIZE = 6400 GOURAUD_Z_DIST = 182 CULLING_EXT = 128 GOURAUD_Z_ADD = 8192+1000 ; 8192 is currently safe lower limit, 2*8192 is safe upper limit CUBE_BUF_WIDTH = 128 gouraudColShift = 10 gouraudErrShift = 6 NUM_BQ_LINES = 64 COP_PREAMBLE_INST = 2 ; wait and bplcon0 COP_POST_INST = 3 ; wait, 8x(sprctl + sprpos) COP_INST_PER_LINE = 2 ; bplptl, cop2lc, cop2lc, wait, 40 colors, skip, copjmp COP_LIST_SIZE = (500)*4 CHIPMEM_SIZE = ((CUBE_BUF_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES*3)+((CUBE_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES*NUM_RUBBER_FRAMES)+COP_LIST_SIZE*2 FASTMEM_SIZE = CUBE_PRECALC_NUM*cd_SIZEOF IFND DEBUG_DETAIL DEBUG_DETAIL SET 10 ENDC NEWAGE_DEBUG = 1 ; - CHIP BSS 2 x 128 x 128 x 4 = 16384 (DB) ; - CHIP BSS 3 x 128 x 128 x 4 = 24576 (3 line buffers for cube) ; - CHIP BSS 32 x 128 x 128 x 4 = 262144 (Rubber buffers) ; ; - FAST BSS 32 x 1424 = 45568 (Cube preprocessing) 12+3*3*2*2+8*3*2+8*2*2+12*(11*4+4+8*2) include "../framework/framework.i" STRUCTURE BQLine,bq_SIZEOF ULONG bql_BltCon01 APTR bql_BltCPt UWORD bql_BltBMod UWORD bql_BltAMod UWORD bql_BltAPtLo APTR bql_BltDPt UWORD bql_BltSize LABEL bql_SIZEOF STRUCTURE BQFillCube,bq_SIZEOF ULONG bqfc_BltCon01 UWORD bqfc_BltAMod UWORD bqfc_BltDMod APTR bqfc_BltAPt APTR bqfc_BltDPt UWORD bqfc_BltSize LABEL bqfc_SIZEOF STRUCTURE BQClear,bq_SIZEOF ULONG bqc_BltCon01 APTR bqc_BltDPt UWORD bqc_BltDMod UWORD bqc_BltCDat UWORD bqc_BltSize LABEL bqc_SIZEOF STRUCTURE CubeData,0 ULONG cd_PlanesToDraw UWORD cd_LinesToDraw UWORD cd_InnerLines STRUCT cd_CubeNormals,3*3*2*2 STRUCT cd_Coords,8*3*2 STRUCT cd_ProjCoords,8*2*2 STRUCT cd_IntCubeLines,12*il_SIZEOF LABEL cd_SIZEOF STRUCTURE IntCubeLine,0 STRUCT il_Coords,22*4 ; must be first UWORD il_NumCoords UBYTE il_Flipped UBYTE il_DzNeg UWORD il_FromCoord UWORD il_ToCoord UWORD il_FromX UWORD il_FromY UWORD il_ToX UWORD il_ToY UWORD il_FromZ UWORD il_ToZ LABEL il_SIZEOF STRUCTURE PartData,fw_SIZEOF APTR pd_CurrPlanesPtr APTR pd_LastPlanesPtr APTR pd_CurrTransPtr APTR pd_LastTransPtr APTR pd_CurrCubeLinePtr APTR pd_LastCubeLinePtr APTR pd_LastLastCubeLinePtr APTR pd_CurrCopListPtr APTR pd_LastCopListPtr UBYTE pd_CopListToggle UBYTE pd_DbToggle UBYTE pd_CubeBufToggle ALIGNWORD UWORD pd_PartCountDown APTR pd_CopperList1 APTR pd_CopperList2 APTR pd_RubberBuffer APTR pd_CubeLineBuffer1 ; ds.w (CUBE_BUF_WIDTH/16)*CUBE_HEIGHT*CUBE_PLANES APTR pd_CubeLineBuffer2 ; ds.w (CUBE_BUF_WIDTH/16)*CUBE_HEIGHT*CUBE_PLANES APTR pd_CubeLineBuffer3 ; ds.w (CUBE_BUF_WIDTH/16)*CUBE_HEIGHT*CUBE_PLANES UWORD pd_ScreenSinXOffset UWORD pd_ScreenSinYOffset WORD pd_ScreenX WORD pd_ScreenY ULONG pd_IntroFrameOffset ULONG pd_RubberFrameOffset UWORD pd_NumRubberFrames UWORD pd_BenditYPos BOOL pd_BenditKilled WORD pd_Ax ; order may not be changed! (movem) WORD pd_Ay WORD pd_Az WORD pd_AxSpeed WORD pd_AySpeed WORD pd_AzSpeed UWORD pd_CubeSize WORD pd_CubeSizeDir BOOL pd_QuitAsyncTask UWORD pd_CubeSinePos UWORD pd_CubeCosPos UWORD pd_CubeCullingValue APTR pd_CubeSceneRoutinePtr APTR pd_CubeDataReadPtr APTR pd_CubeDataWritePtr UWORD pd_CalculatedCubeFrames UWORD pd_PrecalculatedFrames APTR pd_CubeScriptPointer APTR pd_CubeDataPtr APTR pd_CubePrecalcBuffer ; ds.b cd_SIZEOF*CUBE_PRECALC_NUM APTR pd_CubePrecalcBufferEnd STRUCT pd_BQLineInit,bq_SIZEOF STRUCT pd_BQLines,NUM_BQ_LINES*bql_SIZEOF STRUCT pd_BQFillCube,bqfc_SIZEOF STRUCT pd_BQClearLineBuffer,bqc_SIZEOF STRUCT pd_RubberPalette,32*cl_SIZEOF STRUCT pd_BenditSprites,8*4 STRUCT pd_CubeCalcTask,ft_SIZEOF STRUCT pd_LinesFromBuffer,NUM_BQ_LINES*2*2 STRUCT pd_LinesToBuffer,NUM_BQ_LINES*2*2 LABEL pd_SIZEOF IFND FW_DEMO_PART include "../framework/framework.asm" ENDC entrypoint: IFD FW_DEMO_PART move.l #pd_SIZEOF,d0 CALLFW InitPart ENDC move.w #$000,color(a5) bsr gou_init lea gou_async_calc_task(pc),a0 lea pd_CubeCalcTask(a6),a1 CALLFW AddTask lea gou_copperlist,a0 CALLFW SetCopper bsr gou_clear_cube_line_buffer REPT 2 bsr gou_flip_db_frame bsr gou_clear_cube_line_buffer ENDR bsr gou_clear_rubber_buffers IFND FW_DEMO_PART IFD ENABLE_PART_MUSIC move.l #part_music_data,fw_MusicData(a6) move.l #part_music_smp,fw_MusicSamples(a6) CALLFW StartMusic ENDC ELSE CALLFW StartMusic ENDC bsr gou_intro bsr gou_main CALLFW SetBaseCopper lea pd_CubeCalcTask(a6),a1 CALLFW RemTask rts ;-------------------------------------------------------------------- gou_init: bsr gou_init_vars bsr gou_init_blitter_queue CALLFW SetBlitterQueueSingleFrame rts ;-------------------------------------------------------------------- gou_init_vars: move.l #gou_cube_advance_scene_standard_movement,pd_CubeSceneRoutinePtr(a6) move.w #4*2,pd_AxSpeed(a6) move.w #-5*2,pd_AySpeed(a6) move.w #-7*2,pd_AzSpeed(a6) move.w #CUBE_MAX_SIZE,pd_CubeSize(a6) move.w #((CUBE_MAX_SIZE*CUBE_MAX_SIZE)>>8)/GOURAUD_Z_DIST+CULLING_EXT,pd_CubeCullingValue(a6) move.w #237*2,pd_Ax(a6) move.w #32*2,pd_Ay(a6) move.w #128*2,pd_Az(a6) move.w #300,pd_CubeCosPos(a6) move.l #CUBE_PRECALC_NUM*cd_SIZEOF,d0 CALLFW AllocFast move.l a0,pd_CubePrecalcBuffer(a6) move.l a0,pd_CubeDataWritePtr(a6) move.l a0,pd_CubeDataReadPtr(a6) move.l a0,pd_CubeDataPtr(a6) add.l #CUBE_PRECALC_NUM*cd_SIZEOF,a0 move.l a0,pd_CubePrecalcBufferEnd(a6) move.l #(COP_LIST_SIZE*2),d0 CALLFW AllocChip move.l a0,pd_CopperList1(a6) move.l a0,pd_CurrCopListPtr(a6) lea COP_LIST_SIZE(a0),a0 move.l a0,pd_CopperList2(a6) move.l a0,pd_LastCopListPtr(a6) move.l #(CUBE_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES*NUM_RUBBER_FRAMES,d0 CALLFW AllocChip move.l a0,pd_RubberBuffer(a6) move.l #((CUBE_BUF_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES)*3,d0 CALLFW AllocChip move.l a0,pd_CubeLineBuffer1(a6) move.l a0,pd_CurrCubeLinePtr(a6) lea ((CUBE_BUF_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES)(a0),a0 move.l a0,pd_CubeLineBuffer2(a6) move.l a0,pd_LastCubeLinePtr(a6) lea ((CUBE_BUF_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES)(a0),a0 move.l a0,pd_CubeLineBuffer3(a6) move.l a0,pd_LastLastCubeLinePtr(a6) lea gou_gray_shuffle(pc),a2 lea gou_gray_palette(pc),a0 lea gou_sorted_palette(pc),a1 moveq.l #16-1,d7 .palloop move.w (a2)+,d0 move.w (a1)+,(a0,d0.w) dbra d7,.palloop lea gou_gray_shuffle(pc),a2 lea gou_gray_zebra_palette(pc),a0 lea gou_zebra_palette(pc),a1 moveq.l #16-1,d7 .palloop2 move.w (a2)+,d0 move.w (a1)+,(a0,d0.w) dbra d7,.palloop2 lea pd_BenditSprites(a6),a1 lea gou_bendit_sprite,a3 move.l a3,a2 moveq.l #(BENDIT_WIDTH/16)-1,d7 .sprloop move.l a3,a0 adda.w (a2)+,a0 move.l d0,(a0) move.l a0,(a1)+ dbra d7,.sprloop move.w #BENDIT_HEIGHT,pd_BenditYPos(a6) rts ;-------------------------------------------------------------------- gou_init_blitter_queue: lea gou_bq_InitLineDraw(pc),a0 move.l a0,pd_BQLineInit+bq_Routine(a6) lea gou_bq_LineDraw(pc),a0 lea pd_BQLines(a6),a1 moveq.l #NUM_BQ_LINES-1,d7 .bqlloop move.l a0,bq_Routine(a1) move.l #blitter_temp_output_word,bql_BltDPt(a1) lea bql_SIZEOF(a1),a1 dbra d7,.bqlloop lea pd_BQFillCube(a6),a1 lea gou_bq_FillCube(pc),a0 move.l a0,bq_Routine(a1) move.l #((BLTEN_AD|BLT_A)<<16)|BLTCON1F_EFE|BLTCON1F_DESC,bqfc_BltCon01(a1) ;move.l #((BLTEN_AD|(~BLT_A&$ff))<<16)|BLTCON1F_EFE|BLTCON1F_DESC,bqfc_BltCon01(a1) move.l #(((CUBE_BUF_WIDTH-CUBE_WIDTH)/8)<<16)|((GOURAUD_WIDTH-CUBE_WIDTH)/8),bqfc_BltAMod(a1) move.w #((CUBE_WIDTH)>>4)|(((CUBE_HEIGHT-2*CUBE_Y_CLIP)*CUBE_PLANES)<<6),bqfc_BltSize(a1) lea pd_BQClearLineBuffer(a6),a1 lea gou_bq_Clear(pc),a0 move.l a0,bq_Routine(a1) move.l #((BLTEN_D|BLT_C)<<16),bqc_BltCon01(a1) move.w #(CUBE_BUF_WIDTH-CUBE_WIDTH)/8,bqc_BltDMod(a1) clr.w bqc_BltCDat(a1) move.w #((CUBE_WIDTH)>>4)|(((CUBE_HEIGHT-2*CUBE_Y_CLIP)*CUBE_PLANES)<<6),bqc_BltSize(a1) rts ;-------------------------------------------------------------------- gou_intro: move.w #1,pd_PartCountDown(a6) lea .script(pc),a0 CALLFW InstallMusicScript PUTMSG 10,<"Main Frame Start %ld">,fw_FrameCounterLong(a6) .loop BLTWAIT CALLFW TriggerBlitterQueue bsr gou_flip_copperlists bsr gou_flip_db_frame bsr gou_flip_cube_buffer bsr gou_update_screen_pos move.l pd_CubeDataPtr(a6),a1 bsr gou_interpolate_outer_cube_lines moveq.l #16,d0 lea pd_RubberPalette(a6),a1 CALLFW DoFadePaletteStep move.l pd_CurrCopListPtr(a6),a0 move.l pd_IntroFrameOffset(a6),d4 bsr gou_create_main_copperlist_nosprites CALLFW JoinBlitterQueue bsr gou_create_blitter_queue CALLFW TerminateBlitterQueue bsr gou_update_copper_list_pointers CALLFW CheckMusicScript CALLFW VSyncWithTask tst.w pd_PartCountDown(a6) bne .loop add.l #$012302d3,pd_ScreenSinXOffset(a6) rts .script dc.w 0*6,.flash-* dc.w 4*6,.flash-* dc.w 8*6,.quitintro-* dc.w 0 .flash add.l #$015102d3,pd_ScreenSinXOffset(a6) moveq.l #16,d0 lea gou_gray_palette(pc),a0 lea pd_RubberPalette(a6),a1 CALLFW InitPaletteLerp moveq.l #16,d0 moveq.l #16,d1 lea gou_mauve_palette(pc),a0 lea pd_RubberPalette(a6),a1 CALLFW FadePaletteTo move.l pd_RubberFrameOffset(a6),pd_IntroFrameOffset(a6) rts .quitintro clr.w pd_PartCountDown(a6) rts ;-------------------------------------------------------------------- gou_main: move.w #1,pd_PartCountDown(a6) move.w #$fff,d0 move.w d0,color+17*2(a5) move.w d0,color+21*2(a5) move.w d0,color+25*2(a5) move.w d0,color+29*2(a5) move.w #$888,d0 move.w d0,color+18*2(a5) move.w d0,color+22*2(a5) move.w d0,color+26*2(a5) move.w d0,color+30*2(a5) moveq.l #0,d0 move.w d0,color+19*2(a5) move.w d0,color+23*2(a5) move.w d0,color+27*2(a5) move.w d0,color+31*2(a5) st pd_BenditKilled(a6) moveq.l #16,d0 lea gou_gray_palette(pc),a0 lea pd_RubberPalette(a6),a1 CALLFW InitPaletteLerp lea .script(pc),a0 CALLFW InstallMusicScript .loop BLTWAIT CALLFW TriggerBlitterQueue bsr gou_flip_copperlists bsr gou_flip_db_frame bsr gou_flip_cube_buffer bsr gou_update_screen_pos cmp.w #NUM_RUBBER_FRAMES,pd_NumRubberFrames(a6) beq.s .norubadd addq.w #1,pd_NumRubberFrames(a6) .norubadd move.l pd_CubeDataPtr(a6),a1 bsr gou_interpolate_outer_cube_lines bsr gou_update_bendit_sprites moveq.l #16,d0 lea pd_RubberPalette(a6),a1 CALLFW DoFadePaletteStep move.l pd_CurrCopListPtr(a6),a0 move.l pd_RubberFrameOffset(a6),d4 bsr gou_create_main_copperlist CALLFW JoinBlitterQueue bsr gou_create_blitter_queue CALLFW TerminateBlitterQueue bsr gou_update_copper_list_pointers CALLFW CheckMusicScript CALLFW VSyncWithTask tst pd_PartCountDown(a6) bne .loop st pd_QuitAsyncTask(a6) rts .script dc.w 48+32*6,.benditon-* dc.w 432,.benditoff-* dc.w 432+32*6,.fadezebra-* dc.w (8+3*64)*6-32-15,.startclearing-* dc.w (8+3*64)*6-15,.quitmain-* dc.w 0 .benditon clr.w pd_BenditKilled(a6) rts .benditoff st pd_BenditKilled(a6) rts .fadezebra move.w #-9*2,pd_AxSpeed(a6) move.w #-5*2,pd_AySpeed(a6) move.w #6*2,pd_AzSpeed(a6) moveq.l #16,d0 moveq.l #16,d1 lea gou_gray_zebra_palette(pc),a0 lea pd_RubberPalette(a6),a1 CALLFW FadePaletteTo rts .startclearing move.l #((BLTEN_D)<<16)|BLTCON1F_DESC,pd_BQFillCube+bqfc_BltCon01(a6) moveq.l #16,d0 moveq.l #32,d1 lea gou_black_palette(pc),a0 lea pd_RubberPalette(a6),a1 CALLFW FadePaletteTo rts .quitmain clr.w pd_PartCountDown(a6) rts ;-------------------------------------------------------------------- gou_update_screen_pos: move.l fw_SinTable(a6),a0 move.w pd_ScreenSinXOffset(a6),d0 move.w pd_ScreenSinYOffset(a6),d1 addq.w #8,d0 add.w #11,d1 move.w d0,pd_ScreenSinXOffset(a6) move.w d1,pd_ScreenSinYOffset(a6) and.w #1023*2,d0 and.w #1023*2,d1 move.w (a0,d0.w),d0 move.w (a0,d1.w),d1 muls #176*2,d0 muls #52*2,d1 swap d0 swap d1 move.w d0,pd_ScreenX(a6) move.b d1,pd_ScreenY(a6) rts ;-------------------------------------------------------------------- gou_update_bendit_sprites: lea pd_BenditSprites(a6),a2 moveq.l #0,d0 moveq.l #0,d1 tst.w pd_BenditKilled(a6) bne.s .filldata move.w #128+160-(BENDIT_WIDTH/2),d4 sub.w pd_ScreenX(a6),d4 move.b pd_ScreenY(a6),d1 ext.w d1 add.w #$6c,d1 move.w d1,d2 add.w #BENDIT_HEIGHT,d2 moveq.l #0,d0 lsl.w #8,d1 ; sv7-sv0 in d1 addx.w d0,d0 ; sv8 lsl.w #8,d2 ; ev7-ev0 in d2 addx.w d0,d0 ; ev8 lsr.w #1,d4 ; sh8-sh1 in d4 addx.w d0,d0 ; sh0 or.w d2,d0 ; ev7-ev0, sv8, ev8, sh0 in d0 move.b d4,d1 ; sv7-sv0, sh8-sh1 in d4 ;tas d0 ; att TAS sets bit 7 .filldata REPT (BENDIT_WIDTH/16) move.l (a2)+,a0 move.w d1,(a0)+ move.w d0,(a0)+ addq.w #8,d1 ENDR rts ;-------------------------------------------------------------------- gou_create_blitter_queue: lea pd_BQClearLineBuffer(a6),a0 move.l pd_LastCubeLinePtr(a6),a1 lea CUBE_Y_CLIP*(CUBE_BUF_WIDTH/8)*CUBE_PLANES(a1),a1 move.l a1,bqc_BltDPt(a0) CALLFW AddToBlitterQueue clr.l pd_BQLineInit+bq_Next(a6) move.l pd_CubeDataPtr(a6),a1 bsr gou_draw_inner_lines lea pd_BQFillCube(a6),a0 move.l pd_LastPlanesPtr(a6),a1 add.l #((CUBE_X_OFFSET+CUBE_WIDTH-16)/8)+(CUBE_Y_OFFSET+CUBE_HEIGHT-CUBE_Y_CLIP-1)*(GOURAUD_WIDTH/8)*GOURAUD_PLANES+(GOURAUD_WIDTH/8)*(GOURAUD_PLANES-1),a1 move.l a1,bqfc_BltDPt(a0) move.l pd_CurrCubeLinePtr(a6),a1 lea (CUBE_WIDTH-16)/8+(CUBE_HEIGHT-CUBE_Y_CLIP-1)*(CUBE_BUF_WIDTH/8)*CUBE_PLANES+(CUBE_BUF_WIDTH/8)*(CUBE_PLANES-1)(a1),a1 move.l a1,bqfc_BltAPt(a0) CALLFW AddToBlitterQueue .skip rts ;-------------------------------------------------------------------- gou_flip_copperlists: move.l pd_CurrCopListPtr(a6),pd_LastCopListPtr(a6) not.b pd_CopListToggle(a6) beq.s .selb1 move.l pd_CopperList2(a6),pd_CurrCopListPtr(a6) rts .selb1 move.l pd_CopperList1(a6),pd_CurrCopListPtr(a6) rts gou_flip_db_frame: move.l pd_CurrPlanesPtr(a6),pd_LastPlanesPtr(a6) move.l pd_LastCubeLinePtr(a6),pd_LastLastCubeLinePtr(a6) move.l pd_CurrCubeLinePtr(a6),pd_LastCubeLinePtr(a6) move.l pd_RubberBuffer(a6),a0 not.b pd_DbToggle(a6) move.l pd_RubberFrameOffset(a6),d0 add.l #(CUBE_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES,d0 cmp.l #((CUBE_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES*NUM_RUBBER_FRAMES),d0 bne.s .goodframe moveq.l #0,d0 .goodframe move.l d0,pd_RubberFrameOffset(a6) adda.l d0,a0 move.l a0,pd_CurrPlanesPtr(a6) move.b pd_CubeBufToggle(a6),d0 subq.b #1,d0 bmi.s .cb2 beq.s .cb1 .cb3 move.l pd_CubeLineBuffer3(a6),pd_CurrCubeLinePtr(a6) move.b d0,pd_CubeBufToggle(a6) rts .cb2 move.l pd_CubeLineBuffer2(a6),pd_CurrCubeLinePtr(a6) move.b #2,pd_CubeBufToggle(a6) rts .cb1 move.b d0,pd_CubeBufToggle(a6) move.l pd_CubeLineBuffer1(a6),pd_CurrCubeLinePtr(a6) rts ;-------------------------------------------------------------------- gou_update_copper_list_pointers: lea gou_extra_copperlist_ptr+2,a0 move.w pd_CurrCopListPtr(a6),(a0) move.w pd_CurrCopListPtr+2(a6),4(a0) move.w #copjmp2,6(a0) rts ;-------------------------------------------------------------------- gou_create_main_copperlist: lea pd_BenditSprites(a6),a1 move.w #sprpt,d1 moveq.l #(BENDIT_WIDTH/16)*2-1,d7 .sprloop move.w d1,(a0)+ move.w (a1)+,(a0)+ addq.w #2,d1 dbra d7,.sprloop COPIMOVE DMAF_SETCLR|DMAF_SPRITE,dmacon ; enable sprite dma gou_create_main_copperlist_nosprites: lea pd_RubberPalette(a6),a1 moveq.l #16-1,d7 move.w #color,d1 .palloop move.w d1,(a0)+ move.w cl_Color(a1),(a0)+ lea cl_SIZEOF(a1),a1 addq.w #2,d1 dbra d7,.palloop COPIMOVE $4200,bplcon0 move.l pd_RubberBuffer(a6),a1 move.w pd_ScreenX(a6),d0 moveq.l #16,d2 moveq.l #15,d1 sub.w d0,d2 and.w d1,d2 ; lower 4 bit move.w d2,d5 lsl.w #4,d5 or.w d5,d2 COPRMOVE d2,bplcon1 add.w d1,d0 asr.w #4,d0 lsl.w #3,d0 neg.w d0 add.w #$68,d0 COPRMOVE d0,ddfstrt add.w #$a0-$68,d0 COPRMOVE d0,ddfstop move.w #$6c81,d0 move.w pd_ScreenY(a6),d1 add.w d1,d0 COPRMOVE d0,diwstrt add.w #(CUBE_HEIGHT<<8)|($c1-$81),d0 COPRMOVE d0,diwstop moveq.l #-2,d3 moveq.l #CUBE_WIDTH/8,d2 move.l #((CUBE_WIDTH/8)*CUBE_HEIGHT*CUBE_PLANES*NUM_RUBBER_FRAMES),d5 move.l #(CUBE_WIDTH/8)*(CUBE_HEIGHT+4)*CUBE_PLANES,d6 sub.w #((CUBE_HEIGHT)<<8)-($07-$c1),d0 ;move.w #$6bd5,d0 move.w pd_NumRubberFrames(a6),d7 .cprloop lea (a1,d4.l),a2 COPPTMOVE a2,bplpt+0*4,d1 adda.l d2,a2 COPPTMOVE a2,bplpt+1*4,d1 adda.l d2,a2 COPPTMOVE a2,bplpt+2*4,d1 adda.l d2,a2 COPPTMOVE a2,bplpt+3*4,d1 add.l d6,d4 cmp.l d5,d4 blt.s .nowrap sub.l d5,d4 .nowrap add.w #$400,d0 bcc.s .no255 move.l #$ffdffffe,(a0)+ .no255 move.w d0,(a0)+ move.w d3,(a0)+ dbra d7,.cprloop move.b #$38,d0 move.w #$100,d2 move.l d3,(a0) rts ;-------------------------------------------------------------------- gou_clear_cube_line_buffer: moveq.l #-1,d2 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET D,0,0,0 move.w #0,bltdmod(a5) move.l pd_CurrCubeLinePtr(a6),bltdpt(a5) move.w #((CUBE_BUF_WIDTH)>>4)|(((CUBE_HEIGHT)*CUBE_PLANES)<<6),bltsize(a5) rts ;-------------------------------------------------------------------- gou_clear_rubber_buffers: BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET D,0,0,0 move.w #0,bltdmod(a5) move.l pd_RubberBuffer(a6),bltdpt(a5) move.w #(((CUBE_WIDTH*8)&1023)>>4)|(((CUBE_HEIGHT*CUBE_PLANES*2)&1023)<<6),bltsize(a5) CALLFW VSyncWithTask CALLFW VSyncWithTask BLTWAIT move.w #(((CUBE_WIDTH*8)&1023)>>4)|(((CUBE_HEIGHT*CUBE_PLANES*2)&1023)<<6),bltsize(a5) CALLFW VSyncWithTask CALLFW VSyncWithTask rts ;-------------------------------------------------------------------- gou_flip_cube_buffer: move.l pd_CubeDataReadPtr(a6),a0 move.l a0,pd_CubeDataPtr(a6) lea cd_SIZEOF(a0),a1 cmp.l pd_CubePrecalcBufferEnd(a6),a1 bne.s .nowrap move.l pd_CubePrecalcBuffer(a6),a1 .nowrap move.l a1,pd_CubeDataReadPtr(a6) IF DEBUG_DETAIL move.w pd_PrecalculatedFrames(a6),d0 cmp.w #10,d0 bgt.s .okay PUTMSG 10,<"pd_PrecalculatedFrames=%d">,d0 .okay ENDC subq.w #1,pd_PrecalculatedFrames(a6) rts ;-------------------------------------------------------------------- gou_async_calc_task: PUTMSG 10,<"%d: async_calc_task">,fw_FrameCounterLong(a6) move.l pd_CubeDataPtr(a6),a1 moveq.l #CUBE_PRECALC_NUM-1,d7 .cdloop lea cd_IntCubeLines(a1),a0 PUTMSG 20,<"IntCubeLines %p (%ld)">,a0,#il_SIZEOF lea gou_cube_lines(pc),a2 moveq.l #12-1,d6 .icloop move.l (a2)+,il_FromCoord(a0) ; and il_ToCoord lea il_SIZEOF(a0),a0 dbra d6,.icloop lea cd_SIZEOF(a1),a1 dbra d7,.cdloop .loop .fillup move.w pd_CalculatedCubeFrames(a6),d0 cmp.w #CUBE_PRECALC_NUM-1,pd_PrecalculatedFrames(a6) bge.s .skipprecalc addq.w #1,d0 move.w d0,pd_CalculatedCubeFrames(a6) move.l pd_CubeDataWritePtr(a6),a0 lea cd_SIZEOF(a0),a1 cmp.l pd_CubePrecalcBufferEnd(a6),a1 bne.s .nowrap move.l pd_CubePrecalcBuffer(a6),a1 .nowrap PUTMSG 40,<"Precalcing frame %p">,pd_CubeDataWritePtr(a6) PUSHM a1 move.l pd_CubeSceneRoutinePtr(a6),a0 jsr (a0) move.l pd_CubeDataWritePtr(a6),a1 bsr gou_calculate_cube_stuff bsr gou_interpolate_inner_cube_lines POPM move.l a1,pd_CubeDataWritePtr(a6) addq.w #1,pd_PrecalculatedFrames(a6) bra .fillup .skipprecalc .bufferfull CALLFW Yield tst.w pd_QuitAsyncTask(a6) beq .loop PUTMSG 10,<"Async-Task terminates..."> rts ;-------------------------------------------------------------------- MaxVerts = 8 MaxPlanes = 6 MaxLines = 12 PERSP2D MACRO ;final projection from world to screen coords neg.w d2 ;world +z is forward,screen perspective is away move.w d2,-(sp) move.b (sp)+,d2 ; shift d2 8 bits down ext.w d2 add.w #GOURAUD_Z_DIST,d2 ; 78 and eye Z determines Field of View. divs d2,d0 divs d2,d1 add.w #CUBE_WIDTH/2,d0 ;center horizontally on the screen ;asr.w #1,d0 add.w #CUBE_HEIGHT/2,d1 ;center vertically ;asr.w #1,d1 ENDM gou_calculate_cube_stuff: PUTMSG 50,<"Out CD %p">,a1 ; rotate 3D object bsr gou_rotate_cube lea cd_CubeNormals-6+4(a1),a2 lea gou_cube_plane_coords(pc),a3 ; calculate which planes use which coords moveq.l #-1,d1 lea cd_PlanesToDraw(a1),a0 move.l d1,(a0) move.w pd_CubeCullingValue(a6),d5 moveq.l #0,d1 ; coords in use moveq.l #0,d2 ; lines in use moveq.l #0,d3 ; inner lines moveq.l #MaxPlanes-1,d7 .planeloop1 addq.w #6,a2 move.l (a3)+,d0 cmp.w (a2),d5 dbmi d7,.planeloop1 bpl .doneculling move.b d7,(a0)+ ; write down first plane number (5 and decreasing) move.w d0,d1 ; coordinates used for first plane swap d0 move.w d0,d2 subq.w #1,d7 bmi .doneculling .planeloop2 addq.w #6,a2 move.l (a3)+,d0 cmp.w (a2),d5 dbmi d7,.planeloop2 bpl .doneculling move.b d7,(a0)+ ; write down second plane number (4 and decreasing) or.w d0,d1 ; or coordinates used for second plane swap d0 move.w d0,d4 and.w d2,d4 or.w d4,d3 ; inner lines or.w d0,d2 ; used lines subq.w #1,d7 bmi.s .doneculling .planeloop3 addq.w #6,a2 move.l (a3)+,d0 cmp.w (a2),d5 dbmi d7,.planeloop3 bpl.s .doneculling move.b d7,(a0)+ ; write down third plane number (3 and decreasing) or.w d0,d1 ; or coordinates used for third plane swap d0 move.w d0,d4 and.w d2,d4 or.w d4,d3 ; inner lines or.w d0,d2 ; used lines .doneculling move.w d2,cd_LinesToDraw(a1) move.w d3,cd_InnerLines(a1) move.w d1,d7 ; save coordinate mask for loop below ; do projection on required coordinates lea cd_Coords(a1),a0 ; rotated vertices lea cd_ProjCoords(a1),a2 ; projected coords bra.s .vertexl .skip beq.s .done addq.w #6,a0 addq.w #4,a2 .vertexl lsr.w #1,d7 bcc.s .skip movem.w (a0)+,d0-d2 ; x0,y0,z0 PERSP2D ; d0/d1 result, d2 trashed PUTMSG 50,<"Proj %d,%d">,d0,d1 move.w d0,(a2)+ move.w d1,(a2)+ bra.s .vertexl .done rts ;-------------------------------------------------------------------- SETGRAYCOL0 MACRO ; 0 ENDM SETGRAYCOL1 MACRO ; 1 bchg d7,(a4) ENDM SETGRAYCOL2 MACRO ; 3 bchg d7,(a4) bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL3 MACRO ; 7 bchg d7,(a4) bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL4 MACRO ; 15 bchg d7,(a4) bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL5 MACRO ; 11 bchg d7,(a4) bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL6 MACRO ; 9 bchg d7,(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL7 MACRO ; 8 bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL8 MACRO ; 12 bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL9 MACRO ; 13 bchg d7,0*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL10 MACRO ; 5 bchg d7,0*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL11 MACRO ; 4 bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL12 MACRO ; 6 bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL13 MACRO ; 14 bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,2*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL14 MACRO ; 10 bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) bchg d7,3*(CUBE_BUF_WIDTH/8)(a4) ENDM SETGRAYCOL15 MACRO ; 2 bchg d7,1*(CUBE_BUF_WIDTH/8)(a4) ENDM LINEDRAWSELECT MACRO add.w d1,d1 ; 2*dx move.w d2,d0 ; dy will become loopcount subq.w #1,d0 ; loopcount bmi .linedone ENDM LINEDRAW MACRO .enter\1 PUTMSG 50,<"dtdz=%lx, dcol=%lx, zerror=%lx">,d5,a3,d6 move.l d5,a1 ; dtdz move.w d2,d5 ; error = dy add.w d2,d2 ; 2*dy subq.w #1,d4 .yloop\@ PUTMSG 50,<"dtdz=%lx, dcol=%lx, zerror=%lx x=%d, y=%d">,a1,a3,d6,d3,d4 lea (CUBE_BUF_WIDTH/8)*CUBE_PLANES(a4),a4 addq.w #1,d4 ; !!!!! ypos++ sub.w d1,d5 ; error -= 2 * dx bpl.s .nox\@ sub.l a3,d6 ; zerror -= dcol (for y movement) .morex\@ IFGT \3 addq.w #1,d3 ; !!!!! xpos++ subq.w #1,d7 ; bitpos bpl.s .noai\@ moveq.l #7,d7 addq.w #1,a4 ELSE subq.w #1,d3 ; !!!!! xpos-- addq.w #1,d7 ; bitpos bne.s .noai\@ moveq.l #-8,d7 subq.w #1,a4 ENDC .noai\@ sub.l a3,d6 ; zerror -= dcol (for x movement) bpl.s .nozm\@ add.w d2,d5 ; error += 2 * dy .morez\1 .morez\@ PUTMSG 40,<"\1 ->> \2 LinePoint %d,%d %lx">,d3,d4,d6 move.w d4,(a2)+ ; add line point ypos move.w d3,(a2)+ ; add line point xpos add.l a1,d6 ; zerror += dtdz bmi.s .morez\2 tst.w d5 bra.s .nozm\2 .nozm\@ add.w d2,d5 ; error += 2 * dy .nozm\1 bmi.s .morex\@ bra.s .ldone\@ .nox\@ sub.l a3,d6 ; zerror -= dcol (for y movement) bmi.s .morez\@ .ldone\@ SETGRAYCOL\4 dbra d0,.yloop\@ bra .linedone ENDM LINEDRAW_SC MACRO .enter\1 move.w d2,d5 ; error = dy add.w d2,d2 ; 2*dy .yloop\@ lea (CUBE_BUF_WIDTH/8)*CUBE_PLANES(a4),a4 sub.w d1,d5 ; error -= 2 * dx bpl.s .ldone\@ .morex\@ IFGT \2 subq.w #1,d7 ; bitpos bpl.s .noai\@ moveq.l #7,d7 addq.w #1,a4 ELSE addq.w #1,d7 ; bitpos bne.s .noai\@ moveq.l #-8,d7 subq.w #1,a4 ENDC .noai\@ add.w d2,d5 ; error += 2 * dy bmi.s .morex\@ .ldone\@ SETGRAYCOL\3 dbra d0,.yloop\@ bra .linedone ENDM ZEROIPOL MACRO subq.w #1,d1 ; loopcount .xloop\@ IFGT \1 addq.w #1,d3 ; !!!!! xpos++ ELSE subq.w #1,d3 ; !!!!! xpos-- ENDC sub.l d0,d6 ; zerror -= dcol (for y movement) dbmi d1,.xloop\@ bpl .linedone .morez\@ PUTMSG 40,<"LinePoint %d,%d">,d3,d4 move.w d4,(a2)+ ; add line point ypos move.w d3,(a2)+ ; add line point xpos add.l d5,d6 ; zerror += dtdz dbmi d1,.xloop\@ bmi.s .morez\@ bra .linedone ENDM ;-------------------------------------------------------------------- ; a1 = cubedata gou_interpolate_outer_cube_lines: PUTMSG 20,<"%d: ----- gou_interpolate_outer_cube_lines">,fw_FrameCounterLong(a6) move.w cd_LinesToDraw(a1),d7 sub.w cd_InnerLines(a1),d7 bne.s .cont rts .cont lea cd_IntCubeLines(a1),a0 lea cd_ProjCoords(a1),a2 lea cd_Coords(a1),a3 ; z coords move.l pd_CurrCubeLinePtr(a6),a4 .loop PUTMSG 20,<"Line %x">,d7 lsr.w #1,d7 bcc .skipline PUSHM d7/a1-a4 PUTMSG 40,<"%p/%p/%p/%p From/To %d - %d">,a0,a1,a2,a3,il_FromCoord-2(a0),il_ToCoord-2(a0) move.w #GOURAUD_Z_ADD,d2 move.w il_FromCoord(a0),d0 move.l (a2,d0.w),il_FromX(a0) lsr.w #1,d0 add.w il_FromCoord(a0),d0 move.w 2*2(a3,d0.w),d0 add.w d2,d0 move.w d0,il_FromZ(a0) move.w il_ToCoord(a0),d1 move.l (a2,d1.w),il_ToX(a0) lsr.w #1,d1 add.w il_ToCoord(a0),d1 move.w 2*2(a3,d1.w),d1 add.w d2,d1 move.w d1,il_ToZ(a0) move.w d0,d2 eor.w d1,d2 cmp.w #1<,d0,d1 lea il_Coords(a0),a2 move.w d0,d6 ; will become zpos sub.w d1,d0 ; deltaz neg.w d0 move.w il_ToX(a0),d1 move.w il_FromX(a0),d3 ; startx sub.w d3,d1 ; deltax move.w il_ToY(a0),d2 move.w il_FromY(a0),d4 sub.w d4,d2 ; deltay smi il_Flipped(a0) beq .zerody bpl.s .noflipy neg.w d0 ; flip deltaz neg.w d1 ; flip deltax neg.w d2 ; flip deltay move.w il_ToX(a0),d3 ; swap startx move.w il_ToY(a0),d4 ; swap starty move.w il_ToZ(a0),d6 ; swap zpos .noflipy PUTMSG 40,<"X/Y/Z=%d,%d,%d, DX/DY/DZ = %d/%d/%d">,d3,d4,d6,d1,d2,d0 move.w d6,d7 lsr.w #8,d7 lsr.w #16-(gouraudErrShift+8),d7 ; col lsl.w #gouraudErrShift,d6 ; zpos tst.w d0 ; deltaz smi il_DzNeg(a0) bmi.s .noflipz not.w d6 ; $ffff - zpos neg.w d0 ; deltaz now negative .noflipz neg.w d0 ; abs(deltaz) ext.l d0 lsl.l #gouraudErrShift,d0 ; dcol PUTMSG 40,<"Col=%d, dcol=%ld, zpos=%x">,d7,d0,d6 moveq.l #0,d5 ; dtdz move.w d1,d5 bpl.s .noabsx neg.w d5 ; abs(dx) .noabsx add.w d2,d5 ; abs(dx)+dy (dy always positive) mulu d5,d6 ; zerror = (dtdz>>16)*zpos swap d5 ; now really dtdz lsl.w #2,d7 ; calculate color start routine move.w d7,a1 move.l d0,a3 move.w d4,d0 lsl.w #6,d0 ; replaced mulu by shift ;mulu #(CUBE_BUF_WIDTH/8)*CUBE_PLANES,d0 adda.w d0,a4 ; start pos y moveq.l #7,d7 and.w d3,d7 move.w d3,d0 lsr.w #3,d0 adda.w d0,a4 tst.w d1 ; dx? bmi .downleft .downright ; d0.w = loopcount.w ; d1.w = dx -> 2*dx.w ; d2.w = dy -> 2*dy.w ; d3.w = xpos -> xpos.w ; d4.w = ypos -> ypos.w ; d5.l = dtdz -> error.w ; d6.l = zerror.l ; d7.l = bitpos ; a1.l = dtdz.l ; a2.l = line output pointer ; a3.l = dcol.l ; a4.l = bitplane pointer eor.w #7,d7 tst.b il_DzNeg(a0) bmi.s .downright_neg LINEDRAWSELECT jmp .ruptab(pc,a1.w) .ruptab bra.w .enterrupm3 bra.w .enterrupm2 bra.w .enterrupm1 bra.w .enterrup0 bra.w .enterrup1 bra.w .enterrup2 bra.w .enterrup3 bra.w .enterrup4 bra.w .enterrup5 bra.w .enterrup6 bra.w .enterrup7 bra.w .enterrup8 bra.w .enterrup9 bra.w .enterrup10 bra.w .enterrup11 bra.w .enterrup12 bra.w .enterrup13 bra.w .enterrup14 bra.w .enterrup15 bra.w .enterrup15 bra.w .enterrup15 bra.w .enterrup15 bra.w .enterrup15 bra.w .enterrup15 .downright_neg LINEDRAWSELECT jmp .rdowntab(pc,a1.w) .rdowntab bra.w .enterrdown0 bra.w .enterrdown0 bra.w .enterrdown0 bra.w .enterrdown0 bra.w .enterrdown1 bra.w .enterrdown2 bra.w .enterrdown3 bra.w .enterrdown4 bra.w .enterrdown5 bra.w .enterrdown6 bra.w .enterrdown7 bra.w .enterrdown8 bra.w .enterrdown9 bra.w .enterrdown10 bra.w .enterrdown11 bra.w .enterrdown12 bra.w .enterrdown13 bra.w .enterrdown14 bra.w .enterrdown15 bra.w .enterrdown16 bra.w .enterrdown17 bra.w .enterrdown18 bra.w .enterrdown19 bra.w .enterrdown20 .downleft neg.w d1 not.w d7 tst.b il_DzNeg(a0) bmi.s .downleft_neg LINEDRAWSELECT jmp .luptab(pc,a1.w) .luptab bra.w .enterlupm3 bra.w .enterlupm2 bra.w .enterlupm1 bra.w .enterlup0 bra.w .enterlup1 bra.w .enterlup2 bra.w .enterlup3 bra.w .enterlup4 bra.w .enterlup5 bra.w .enterlup6 bra.w .enterlup7 bra.w .enterlup8 bra.w .enterlup9 bra.w .enterlup10 bra.w .enterlup11 bra.w .enterlup12 bra.w .enterlup13 bra.w .enterlup14 bra.w .enterlup15 bra.w .enterlup15 bra.w .enterlup15 bra.w .enterlup15 bra.w .enterlup15 bra.w .enterlup15 .downleft_neg LINEDRAWSELECT jmp .ldowntab(pc,a1.w) .ldowntab bra.w .enterldown0 bra.w .enterldown0 bra.w .enterldown0 bra.w .enterldown0 bra.w .enterldown1 bra.w .enterldown2 bra.w .enterldown3 bra.w .enterldown4 bra.w .enterldown5 bra.w .enterldown6 bra.w .enterldown7 bra.w .enterldown8 bra.w .enterldown9 bra.w .enterldown10 bra.w .enterldown11 bra.w .enterldown12 bra.w .enterldown13 bra.w .enterldown14 bra.w .enterldown15 bra.w .enterldown16 bra.w .enterldown17 bra.w .enterldown18 bra.w .enterldown19 bra.w .enterldown20 .zerodydx PUTMSG 40,<"Zero DX/DY"> moveq.l #0,d7 moveq.l #0,d6 move.b il_FromZ(a0),d7 lsr.w #gouraudColShift-8,d7 move.b il_ToZ(a0),d6 lsr.w #gouraudColShift-8,d6 sub.w d6,d7 beq.s .linedone bpl.s .noflipdz neg.w d7 .noflipdz subq.w #1,d7 .loopspotcols move.w d4,(a2)+ ; add line point ypos move.w d3,(a2)+ ; add line point xpos dbra d7,.loopspotcols bra.s .linedone .zerody PUTMSG 40,<"Zero DY"> tst.w d1 beq.s .zerodydx lsl.w #gouraudErrShift,d6 ; zpos tst.w d0 ; deltaz smi il_DzNeg(a0) bmi.s .noflipz2 not.w d6 ; $ffff - zpos neg.w d0 ; deltaz now negative .noflipz2 neg.w d0 ; abs(deltaz) ext.l d0 lsl.l #gouraudErrShift,d0 ; dcol moveq.l #0,d5 ; dtdz move.w d1,d5 bmi.s .plainleft ; d0.l = dcol.l ; d1.w = dx -> loopcount.w ; d3.w = xpos.w ; d3.w = ypos.w ; d5.l = dtdz.l ; d6.l = zerror.l .plainright mulu d5,d6 ; zerror = (dtdz>>16)*zpos swap d5 ; now really dtdz ZEROIPOL 1 .plainleft neg.w d5 ; abs(dx) mulu d5,d6 ; zerror = (dtdz>>16)*zpos swap d5 ; now really dtdz neg.w d1 ZEROIPOL -1 .linedone suba.l a0,a2 move.w a2,d0 lsr.w #2,d0 move.w d0,il_NumCoords(a0) POPM .skipline lea il_SIZEOF(a0),a0 tst.w d7 bne .loop rts .samecolorspecialcase PUTMSG 40,<"Same color special case from %d to %d">,d0,d1 lea il_Coords(a0),a2 move.w il_ToX(a0),d1 move.w il_FromX(a0),d3 ; startx sub.w d3,d1 ; deltax move.w il_ToY(a0),d2 move.w il_FromY(a0),d4 sub.w d4,d2 ; deltay smi il_Flipped(a0) beq.s .linedone bpl.s .noflipy_sc neg.w d1 ; flip deltax neg.w d2 ; flip deltay move.w il_ToX(a0),d3 ; swap startx move.w il_ToY(a0),d4 ; swap starty .noflipy_sc PUTMSG 50,<"X/Y=%d,%d, DX/DY = %d/%d">,d3,d4,d1,d2 move.w d0,d7 ;rol.w #(gouraudErrShift+2),d7 asr.w #8,d7 asr.w #16-(gouraudErrShift+8),d7 ; col PUTMSG 50,<"Col=%d">,d7 lsl.w #2,d7 ; calculate color start routine move.w d7,a1 lsl.w #6,d4 ; replaced mulu by shift ;mulu #(CUBE_BUF_WIDTH/8)*CUBE_PLANES,d4 adda.w d4,a4 ; start pos y moveq.l #7,d7 and.w d3,d7 move.w d3,d0 lsr.w #3,d0 adda.w d0,a4 tst.w d1 ; dx? bmi .downleft_sc .downright_sc ; d0.w = loopcount.w ; d1.w = dx -> 2*dx.w ; d2.w = dy -> 2*dy.w ; d3.w = xpos -> xpos.w ; d4.w = ypos -> ypos.w ; d7.l = bitpos ; a4.l = bitplane pointer eor.w #7,d7 tst.b il_DzNeg(a0) bmi.s .downright_neg_sc LINEDRAWSELECT jmp .ruptab_sc(pc,a1.w) .ruptab_sc bra.w .enterrup_sc0 bra.w .enterrup_sc0 bra.w .enterrup_sc0 bra.w .enterrup_sc0 bra.w .enterrup_sc1 bra.w .enterrup_sc2 bra.w .enterrup_sc3 bra.w .enterrup_sc4 bra.w .enterrup_sc5 bra.w .enterrup_sc6 bra.w .enterrup_sc7 bra.w .enterrup_sc8 bra.w .enterrup_sc9 bra.w .enterrup_sc10 bra.w .enterrup_sc11 bra.w .enterrup_sc12 bra.w .enterrup_sc13 bra.w .enterrup_sc14 bra.w .enterrup_sc15 bra.w .enterrup_sc15 bra.w .enterrup_sc15 bra.w .enterrup_sc15 bra.w .enterrup_sc15 bra.w .enterrup_sc15 .downright_neg_sc LINEDRAWSELECT jmp .rdowntab_sc(pc,a1.w) .rdowntab_sc bra.w .enterrdown_sc0 bra.w .enterrdown_sc0 bra.w .enterrdown_sc0 bra.w .enterrdown_sc0 bra.w .enterrdown_sc1 bra.w .enterrdown_sc2 bra.w .enterrdown_sc3 bra.w .enterrdown_sc4 bra.w .enterrdown_sc5 bra.w .enterrdown_sc6 bra.w .enterrdown_sc7 bra.w .enterrdown_sc8 bra.w .enterrdown_sc9 bra.w .enterrdown_sc10 bra.w .enterrdown_sc11 bra.w .enterrdown_sc12 bra.w .enterrdown_sc13 bra.w .enterrdown_sc14 bra.w .enterrdown_sc15 bra.w .enterrdown_sc15 bra.w .enterrdown_sc15 bra.w .enterrdown_sc15 bra.w .enterrdown_sc15 bra.w .enterrdown_sc15 .downleft_sc neg.w d1 not.w d7 tst.b il_DzNeg(a0) bmi.s .downleft_neg_sc LINEDRAWSELECT jmp .luptab_sc(pc,a1.w) .luptab_sc bra.w .enterlup_sc0 bra.w .enterlup_sc0 bra.w .enterlup_sc0 bra.w .enterlup_sc0 bra.w .enterlup_sc1 bra.w .enterlup_sc2 bra.w .enterlup_sc3 bra.w .enterlup_sc4 bra.w .enterlup_sc5 bra.w .enterlup_sc6 bra.w .enterlup_sc7 bra.w .enterlup_sc8 bra.w .enterlup_sc9 bra.w .enterlup_sc10 bra.w .enterlup_sc11 bra.w .enterlup_sc12 bra.w .enterlup_sc13 bra.w .enterlup_sc14 bra.w .enterlup_sc15 bra.w .enterlup_sc15 bra.w .enterlup_sc15 bra.w .enterlup_sc15 bra.w .enterlup_sc15 bra.w .enterlup_sc15 .downleft_neg_sc LINEDRAWSELECT jmp .ldowntab_sc(pc,a1.w) .ldowntab_sc bra.w .enterldown_sc0 bra.w .enterldown_sc0 bra.w .enterldown_sc0 bra.w .enterldown_sc0 bra.w .enterldown_sc1 bra.w .enterldown_sc2 bra.w .enterldown_sc3 bra.w .enterldown_sc4 bra.w .enterldown_sc5 bra.w .enterldown_sc6 bra.w .enterldown_sc7 bra.w .enterldown_sc8 bra.w .enterldown_sc9 bra.w .enterldown_sc10 bra.w .enterldown_sc11 bra.w .enterldown_sc12 bra.w .enterldown_sc13 bra.w .enterldown_sc14 bra.w .enterldown_sc15 bra.w .enterldown_sc15 bra.w .enterldown_sc15 bra.w .enterldown_sc15 bra.w .enterldown_sc15 bra.w .enterldown_sc15 LINEDRAW rupm3,rupm2,1,0 LINEDRAW rupm2,rupm1,1,0 LINEDRAW rupm1,rup0,1,0 LINEDRAW rup0,rup1,1,0 LINEDRAW rup1,rup2,1,1 LINEDRAW rup2,rup3,1,2 LINEDRAW rup3,rup4,1,3 LINEDRAW rup4,rup5,1,4 LINEDRAW rup5,rup6,1,5 LINEDRAW rup6,rup7,1,6 LINEDRAW rup7,rup8,1,7 LINEDRAW rup8,rup9,1,8 LINEDRAW rup9,rup10,1,9 LINEDRAW rup10,rup11,1,10 LINEDRAW rup11,rup12,1,11 LINEDRAW rup12,rup13,1,12 LINEDRAW rup13,rup14,1,13 LINEDRAW rup14,rup15,1,14 LINEDRAW rup15,rup15,1,15 LINEDRAW lupm3,lupm2,-1,0 LINEDRAW lupm2,lupm1,-1,0 LINEDRAW lupm1,lup0,-1,0 LINEDRAW lup0,lup1,-1,0 LINEDRAW lup1,lup2,-1,1 LINEDRAW lup2,lup3,-1,2 LINEDRAW lup3,lup4,-1,3 LINEDRAW lup4,lup5,-1,4 LINEDRAW lup5,lup6,-1,5 LINEDRAW lup6,lup7,-1,6 LINEDRAW lup7,lup8,-1,7 LINEDRAW lup8,lup9,-1,8 LINEDRAW lup9,lup10,-1,9 LINEDRAW lup10,lup11,-1,10 LINEDRAW lup11,lup12,-1,11 LINEDRAW lup12,lup13,-1,12 LINEDRAW lup13,lup14,-1,13 LINEDRAW lup14,lup15,-1,14 LINEDRAW lup15,lup15,-1,15 LINEDRAW rdown0,rdown0,1,0 LINEDRAW rdown1,rdown0,1,1 LINEDRAW rdown2,rdown1,1,2 LINEDRAW rdown3,rdown2,1,3 LINEDRAW rdown4,rdown3,1,4 LINEDRAW rdown5,rdown4,1,5 LINEDRAW rdown6,rdown5,1,6 LINEDRAW rdown7,rdown6,1,7 LINEDRAW rdown8,rdown7,1,8 LINEDRAW rdown9,rdown8,1,9 LINEDRAW rdown10,rdown9,1,10 LINEDRAW rdown11,rdown10,1,11 LINEDRAW rdown12,rdown11,1,12 LINEDRAW rdown13,rdown12,1,13 LINEDRAW rdown14,rdown13,1,14 LINEDRAW rdown15,rdown14,1,15 LINEDRAW rdown16,rdown15,1,15 LINEDRAW rdown17,rdown16,1,15 LINEDRAW rdown18,rdown17,1,15 LINEDRAW rdown19,rdown18,1,15 LINEDRAW rdown20,rdown19,1,15 LINEDRAW ldown0,ldown0,-1,0 LINEDRAW ldown1,ldown0,-1,1 LINEDRAW ldown2,ldown1,-1,2 LINEDRAW ldown3,ldown2,-1,3 LINEDRAW ldown4,ldown3,-1,4 LINEDRAW ldown5,ldown4,-1,5 LINEDRAW ldown6,ldown5,-1,6 LINEDRAW ldown7,ldown6,-1,7 LINEDRAW ldown8,ldown7,-1,8 LINEDRAW ldown9,ldown8,-1,9 LINEDRAW ldown10,ldown9,-1,10 LINEDRAW ldown11,ldown10,-1,11 LINEDRAW ldown12,ldown11,-1,12 LINEDRAW ldown13,ldown12,-1,13 LINEDRAW ldown14,ldown13,-1,14 LINEDRAW ldown15,ldown14,-1,15 LINEDRAW ldown16,ldown15,-1,15 LINEDRAW ldown17,ldown16,-1,15 LINEDRAW ldown18,ldown17,-1,15 LINEDRAW ldown19,ldown18,-1,15 LINEDRAW ldown20,ldown19,-1,15 LINEDRAW_SC rup_sc0,1,0 LINEDRAW_SC rup_sc1,1,1 LINEDRAW_SC rup_sc2,1,2 LINEDRAW_SC rup_sc3,1,3 LINEDRAW_SC rup_sc4,1,4 LINEDRAW_SC rup_sc5,1,5 LINEDRAW_SC rup_sc6,1,6 LINEDRAW_SC rup_sc7,1,7 LINEDRAW_SC rup_sc8,1,8 LINEDRAW_SC rup_sc9,1,9 LINEDRAW_SC rup_sc10,1,10 LINEDRAW_SC rup_sc11,1,11 LINEDRAW_SC rup_sc12,1,12 LINEDRAW_SC rup_sc13,1,13 LINEDRAW_SC rup_sc14,1,14 LINEDRAW_SC rup_sc15,1,15 LINEDRAW_SC lup_sc0,-1,0 LINEDRAW_SC lup_sc1,-1,1 LINEDRAW_SC lup_sc2,-1,2 LINEDRAW_SC lup_sc3,-1,3 LINEDRAW_SC lup_sc4,-1,4 LINEDRAW_SC lup_sc5,-1,5 LINEDRAW_SC lup_sc6,-1,6 LINEDRAW_SC lup_sc7,-1,7 LINEDRAW_SC lup_sc8,-1,8 LINEDRAW_SC lup_sc9,-1,9 LINEDRAW_SC lup_sc10,-1,10 LINEDRAW_SC lup_sc11,-1,11 LINEDRAW_SC lup_sc12,-1,12 LINEDRAW_SC lup_sc13,-1,13 LINEDRAW_SC lup_sc14,-1,14 LINEDRAW_SC lup_sc15,-1,15 LINEDRAW_SC rdown_sc0,1,0 LINEDRAW_SC rdown_sc1,1,1 LINEDRAW_SC rdown_sc2,1,2 LINEDRAW_SC rdown_sc3,1,3 LINEDRAW_SC rdown_sc4,1,4 LINEDRAW_SC rdown_sc5,1,5 LINEDRAW_SC rdown_sc6,1,6 LINEDRAW_SC rdown_sc7,1,7 LINEDRAW_SC rdown_sc8,1,8 LINEDRAW_SC rdown_sc9,1,9 LINEDRAW_SC rdown_sc10,1,10 LINEDRAW_SC rdown_sc11,1,11 LINEDRAW_SC rdown_sc12,1,12 LINEDRAW_SC rdown_sc13,1,13 LINEDRAW_SC rdown_sc14,1,14 LINEDRAW_SC rdown_sc15,1,15 LINEDRAW_SC ldown_sc0,-1,0 LINEDRAW_SC ldown_sc1,-1,1 LINEDRAW_SC ldown_sc2,-1,2 LINEDRAW_SC ldown_sc3,-1,3 LINEDRAW_SC ldown_sc4,-1,4 LINEDRAW_SC ldown_sc5,-1,5 LINEDRAW_SC ldown_sc6,-1,6 LINEDRAW_SC ldown_sc7,-1,7 LINEDRAW_SC ldown_sc8,-1,8 LINEDRAW_SC ldown_sc9,-1,9 LINEDRAW_SC ldown_sc10,-1,10 LINEDRAW_SC ldown_sc11,-1,11 LINEDRAW_SC ldown_sc12,-1,12 LINEDRAW_SC ldown_sc13,-1,13 LINEDRAW_SC ldown_sc14,-1,14 LINEDRAW_SC ldown_sc15,-1,15 ;-------------------------------------------------------------------- LINEIPOL MACRO move.w d2,d7 ; error (=dy) add.w d1,d1 ; 2*dx move.w d2,d0 add.w d2,d2 ; 2*dy subq.w #1,d0 ; loopcount (top word) bmi .linedone .yloop\@ addq.w #1,d4 ; !!!!! ypos++ sub.w d1,d7 ; error -= 2 * dx bpl.s .nox\@ sub.l a3,d6 ; zerror -= dcol (for y movement) .morex\@ IFGT \1 addq.w #1,d3 ; !!!!! xpos++ ELSE subq.w #1,d3 ; !!!!! xpos-- ENDC add.w d2,d7 ; error += 2 * dy sub.l a3,d6 ; zerror -= dcol (for x movement) bpl.s .nozm\@ .morez\@ PUTMSG 40,<"LinePoint %d,%d">,d3,d4 move.w d4,(a2)+ ; add line point (ypos) move.w d3,(a2)+ ; add line point (xpos) add.l d5,d6 ; zerror += dtdz bmi.s .morez\@ .nozm\@ tst.w d7 bmi.s .morex\@ dbra d0,.yloop\@ bra .linedone .nox\@ sub.l a3,d6 ; zerror -= dcol (for y movement) bpl.s .ldone\@ .zmin\@ PUTMSG 40,<"LinePoint %d,%d">,d3,d4 move.w d4,(a2)+ ; add line point (ypos) move.w d3,(a2)+ ; add line point (xpos) add.l d5,d6 ; zerror += dtdz bmi.s .zmin\@ .ldone\@ dbra d0,.yloop\@ bra .linedone ENDM ;-------------------------------------------------------------------- ; a1 = cubedata gou_interpolate_inner_cube_lines: PUTMSG 20,<"%d: ----- gou_interpolate_inner_cube_lines">,fw_FrameCounterLong(a6) move.w cd_InnerLines(a1),d7 bne.s .cont rts .cont lea cd_IntCubeLines(a1),a0 lea cd_ProjCoords(a1),a2 lea cd_Coords(a1),a3 ; z coords .loop PUTMSG 50,<"Line %x">,d7 lsr.w #1,d7 bcc .skipline PUSHM d7/a2-a3 PUTMSG 40,<"%p/%p/%p/%p From/To %d - %d">,a0,a1,a2,a3,il_FromCoord-2(a0),il_ToCoord-2(a0) move.w #GOURAUD_Z_ADD,d2 move.w il_FromCoord(a0),d0 move.l (a2,d0.w),il_FromX(a0) lsr.w #1,d0 add.w il_FromCoord(a0),d0 move.w 2*2(a3,d0.w),d0 add.w d2,d0 move.w d0,il_FromZ(a0) move.w il_ToCoord(a0),d1 move.l (a2,d1.w),il_ToX(a0) lsr.w #1,d1 add.w il_ToCoord(a0),d1 move.w 2*2(a3,d1.w),d1 add.w d2,d1 move.w d1,il_ToZ(a0) PUTMSG 40,<"Z from %d to %d">,d0,d1 lea il_Coords(a0),a2 move.l a2,a3 move.w d0,d6 ; will become zpos sub.w d1,d0 ; deltaz neg.w d0 move.w il_ToX(a0),d1 move.w il_FromX(a0),d3 ; startx sub.w d3,d1 ; deltax move.w il_ToY(a0),d2 move.w il_FromY(a0),d4 sub.w d4,d2 ; deltay smi il_Flipped(a0) bpl.s .noflipy neg.w d0 ; flip deltaz neg.w d1 ; flip deltax neg.w d2 ; flip deltay move.w il_ToX(a0),d3 ; swap startx move.w il_ToY(a0),d4 ; swap starty move.w il_ToZ(a0),d6 ; swap zpos .noflipy PUTMSG 40,<"X/Y/Z=%d,%d,%d, DX/DY/DZ = %d/%d/%d">,d3,d4,d6,d1,d2,d0 lsl.w #gouraudErrShift,d6 ; zpos tst.w d0 ; deltaz smi il_DzNeg(a0) bmi.s .noflipz not.w d6 ; $ffff - zpos neg.w d0 ; deltaz now negative .noflipz neg.w d0 ; abs(deltaz) ext.l d0 lsl.l #gouraudErrShift,d0 ; dcol PUTMSG 40,<"dcol=%ld, zpos=%x">,d0,d6 moveq.l #0,d5 ; dtdz move.w d1,d5 bpl.s .noabsx neg.w d5 ; abs(dx) .noabsx add.w d2,d5 ; abs(dx)+dy (dy always positive) mulu d5,d6 ; zerror = (dtdz>>16)*zpos swap d5 ; now really dtdz tst.w d2 beq .contzerody move.l d0,a3 tst.w d1 ; dx? bmi .downleft .downright ; d0.w = loopcount.w ; d1.w = dx -> 2*dx.w ; d2.w = dy -> 2*dy.w ; d3.w = xpos -> xpos.w ; d4.w = ypos -> ypos.w ; d5.l = dtdz.l ; d6.l = zerror.l ; d7.l = error.w ; a3.l = dcol.l ; LINEIPOL 1 .downleft neg.w d1 LINEIPOL -1 .zerodydx PUTMSG 40,<"Zero DX/DY (inner)"> moveq.l #0,d7 moveq.l #0,d6 move.b il_FromZ(a0),d7 lsr.w #gouraudColShift-8,d7 move.b il_ToZ(a0),d6 lsr.w #gouraudColShift-8,d6 sub.w d6,d7 beq.s .linedone bpl.s .noflipdz neg.w d7 .noflipdz subq.w #1,d7 .loopspotcols move.w d4,(a2)+ ; add line point ypos move.w d3,(a2)+ ; add line point xpos dbra d7,.loopspotcols bra.s .linedone .contzerody ; d0.l = dcol.l ; d1.w = dx -> loopcount.w ; d3.w = xpos.w ; d3.w = ypos.w ; d5.l = dtdz.l ; d6.l = zerror.l tst.w d1 ; dx? beq.s .zerodydx bmi .plainleft .plainright ZEROIPOL 1 .plainleft neg.w d1 ZEROIPOL -1 .linedone suba.l a0,a2 move.w a2,d0 lsr.w #2,d0 move.w d0,il_NumCoords(a0) POPM .skipline lea il_SIZEOF(a0),a0 tst.w d7 bne .loop rts ;-------------------------------------------------------------------- COPYLINEDATA MACRO move.w il_NumCoords(\1),d4 beq.s .lcskip\@ btst #\2,d5 IF \3 beq.s .lcrev\@ ELSE bne.s .lcrev\@ ENDC PUTMSG 50,<"\2 %d coords fwd">,d4 subq.w #1,d4 .lcloop\@ move.l (\1)+,(\4)+ ; write left part 1 (in order) dbra d4,.lcloop\@ bra.s .lcskip\@ .lcrev\@ PUTMSG 50,<"\2 %d coords bkw">,d4 adda.w d4,\1 adda.w d4,\1 adda.w d4,\1 adda.w d4,\1 subq.w #1,d4 .lcrloop\@ move.l -(\1),(\4)+ ; write left part 1 (in order) dbra d4,.lcrloop\@ .lcskip\@ ENDM ; a1 = cubedata gou_draw_inner_lines: moveq.l #0,d7 move.b cd_PlanesToDraw(a1),d7 bpl.s .cont .done rts .cont PUTMSG 40,<"Plane Number: %d">,d7 PUSHM a1 lea pd_BQLineInit(a6),a0 CALLFW AddToBlitterQueue POPM lea pd_BQLines(a6),a4 bsr.s .doit moveq.l #0,d7 move.b cd_PlanesToDraw+1(a1),d7 bmi.s .done bsr.s .doit moveq.l #0,d7 move.b cd_PlanesToDraw+2(a1),d7 bmi.s .done .doit PUSHM a1/a4 lsl.w #3,d7 move.l a1,a4 lea gou_cube_planes_to_lines(pc),a0 movem.w (a0,d7.w),a0-a3 adda.l a4,a0 adda.l a4,a1 adda.l a4,a2 adda.l a4,a3 PUTMSG 40,<"%p Lines %lx,%lx,%lx,%lx">,a1,il_FromCoord(a0),il_FromCoord(a1),il_FromCoord(a2),il_FromCoord(a3) move.l il_FromCoord(a0),d4 ; and il_ToCoord (0) move.l il_FromCoord(a1),d5 ; and il_ToCoord (1) cmp.w d4,d5 ; to_0 == to_1 ? beq.s .l1l_l2r_l3r_l4l ; l1 linear, l2 reversed swap d4 cmp.w d4,d5 ; from_0 == to_1 ? beq .l1r_l2r_l3l_l4l ; l1 reversed, l2 reversed .l1l_l2l_l3l_l4r move.w il_FromZ(a0),d4 sub.w il_FromZ(a2),d4 move.w d4,d6 bpl.s .nofl0 neg.w d6 .nofl0 move.w il_FromZ(a1),d5 sub.w il_ToZ(a3),d5 move.w d5,d7 bpl.s .nofr0 neg.w d7 .nofr0 cmp.w d7,d6 blt.s .l1l_l2l_l3l_l4r_dz13 ; abs(dz02) < abs(dz13) ; dz02 dominant move.b il_FromZ(a2),d6 ; startZ = coord 2 moveq.l #0+0+0+8+0+0,d7 tst.w d4 bpl .contl moveq.l #0+0+0+8+0+32,d7 move.b il_FromZ(a0),d6 ; startZ = coord 0 bra .contl .l1l_l2l_l3l_l4r_dz13 ; dz13 dominant move.b il_FromZ(a1),d6 ; startZ = coord 1 moveq.l #0+0+0+8+16+0,d7 tst.w d5 bmi .contl move.b il_ToZ(a3),d6 ; startZ = reversed coord 3 moveq.l #0+0+0+8+16+32,d7 bra .contl .l1l_l2r_l3r_l4l move.w il_FromZ(a0),d4 sub.w il_ToZ(a2),d4 move.w d4,d6 bpl.s .nofl1 neg.w d6 .nofl1 move.w il_ToZ(a1),d5 sub.w il_FromZ(a3),d5 move.w d5,d7 bpl.s .nofr1 neg.w d7 .nofr1 cmp.w d7,d6 blt.s .l1l_l2r_l3r_l4l_dz13 ; abs(dz02) < abs(dz13) ; dz02 dominant move.b il_ToZ(a2),d6 ; startZ = reversed coord 2 moveq.l #0+2+4+0+0+0,d7 tst.w d4 bpl.s .contl moveq.l #0+2+4+0+0+32,d7 move.b il_FromZ(a0),d6 ; startZ = coord 0 bra.s .contl .l1l_l2r_l3r_l4l_dz13 ; dz13 dominant move.b il_ToZ(a1),d6 ; startZ = reversed coord 1 moveq.l #0+2+4+0+16+0,d7 tst.w d5 bmi.s .contl move.b il_FromZ(a3),d6 ; startZ = coord 3 moveq.l #0+2+4+0+16+32,d7 bra.s .contl .l1r_l2r_l3l_l4l move.w il_ToZ(a0),d4 sub.w il_FromZ(a2),d4 move.w d4,d6 bpl.s .nofl2 neg.w d6 .nofl2 move.w il_ToZ(a1),d5 sub.w il_FromZ(a3),d5 move.w d5,d7 bpl.s .nofr2 neg.w d7 .nofr2 cmp.w d7,d6 blt.s .l1r_l2r_l3l_l4l_dz13 ; abs(dz02) < abs(dz13) ; dz02 dominant move.b il_FromZ(a2),d6 ; startZ = coord 2 moveq.l #1+2+0+0+0+0,d7 tst.w d4 bpl.s .contl move.b il_ToZ(a0),d6 ; startZ = reversed coord 0 moveq.l #1+2+0+0+0+32,d7 bra.s .contl .l1r_l2r_l3l_l4l_dz13 ; dz13 dominant move.b il_ToZ(a1),d6 ; startZ = reversed coord 1 moveq.l #1+2+0+0+16+0,d7 tst.w d5 bmi.s .contl move.b il_FromZ(a3),d6 ; startZ = coord 3 moveq.l #1+2+0+0+16+32,d7 .contl moveq.l #0,d5 sub.b il_Flipped(a3),d5 add.b d5,d5 sub.b il_Flipped(a2),d5 add.b d5,d5 sub.b il_Flipped(a1),d5 add.b d5,d5 sub.b il_Flipped(a0),d5 PUTMSG 50,<"copymode=%x/%x">,d5,d7 eor.w d7,d5 and.w #16+32,d7 jmp .jmptab(pc,d7.w) .jmptab bra .dz02dom_pl ds.b (.jmptab+16)-* bra.s .dz13dom_pl ds.b (.jmptab+32)-* bra .dz02dom_mi ds.b (.jmptab+48)-* bra .dz13dom_mi .dz13dom_pl PUTMSG 40,<"DZ13 PL"> lea pd_LinesFromBuffer(a6),a4 COPYLINEDATA a0,0,1,a4 COPYLINEDATA a3,3,1,a4 clr.w (a4)+ PUTMSG 50,<"Right"> lea pd_LinesToBuffer(a6),a4 COPYLINEDATA a1,1,0,a4 COPYLINEDATA a2,2,0,a4 clr.w (a4)+ bra .drawnow .dz02dom_pl PUTMSG 40,<"DZ02 PL"> lea pd_LinesFromBuffer(a6),a4 COPYLINEDATA a1,1,1,a4 COPYLINEDATA a0,0,1,a4 clr.w (a4)+ PUTMSG 50,<"Right"> lea pd_LinesToBuffer(a6),a4 COPYLINEDATA a2,2,0,a4 COPYLINEDATA a3,3,0,a4 clr.w (a4)+ bra .drawnow .dz13dom_mi PUTMSG 40,<"DZ13 MI"> lea pd_LinesFromBuffer(a6),a4 COPYLINEDATA a3,3,0,a4 COPYLINEDATA a0,0,0,a4 clr.w (a4)+ PUTMSG 50,<"Right"> lea pd_LinesToBuffer(a6),a4 COPYLINEDATA a2,2,1,a4 COPYLINEDATA a1,1,1,a4 clr.w (a4)+ bra .drawnow .dz02dom_mi PUTMSG 40,<"DZ02 MI"> lea pd_LinesFromBuffer(a6),a4 COPYLINEDATA a0,0,0,a4 COPYLINEDATA a1,1,0,a4 clr.w (a4)+ PUTMSG 50,<"Right"> lea pd_LinesToBuffer(a6),a4 COPYLINEDATA a3,3,1,a4 COPYLINEDATA a2,2,1,a4 clr.w (a4)+ ;bra .drawnow .drawnow POPM lea pd_LinesFromBuffer(a6),a0 lea pd_LinesToBuffer(a6),a2 ext.w d6 asr.w #gouraudColShift-8,d6 add.w d6,d6 .drawloop move.w (a0)+,d1 beq.s .end move.w (a0)+,d0 move.w (a2)+,d3 beq.s .end move.w (a2)+,d2 PUTMSG 40,<"%d: line %d,%d to %d,%d">,d6,d0,d1,d2,d3 move.w .graycodebits(pc,d6.w),d4 bmi.s .skipdraw PUSHM a0/a1 move.l pd_CurrCubeLinePtr(a6),a0 adda.w d4,a0 bsr gou_draw_singledot_line_bq POPM .skipdraw addq.w #2,d6 bra.s .drawloop .end ;clr.l -bql_SIZEOF+bq_Next(a4) rts ; val grayCode3Bits = arrayOf(0, 1, 0, 2, 0, 1, 0, 2) -> 1,0,2,0,1,0 ; val grayCode3Index = arrayOf(0, 1, 3, 2, 6, 7, 5, 4) ; val grayCode4Bits = arrayOf(0, 1, 2, 3, 2, 1, 0, 2, 0, 3, 0, 1, 3, 2, 3, 1) -> 1,2,3,2,1,0 ,2,0,3,0,1,3,2,3 ; val grayCode4Index = arrayOf(0, 1, 3, 7, 15, 11, 9, 8, 12, 13, 5, 4, 6, 14, 10, 2) .graycodebits dc.w -1,-1,-1,0*(CUBE_BUF_WIDTH/8) dc.w 1*(CUBE_BUF_WIDTH/8),2*(CUBE_BUF_WIDTH/8),3*(CUBE_BUF_WIDTH/8),2*(CUBE_BUF_WIDTH/8),1*(CUBE_BUF_WIDTH/8),0*(CUBE_BUF_WIDTH/8) dc.w 2*(CUBE_BUF_WIDTH/8),0*(CUBE_BUF_WIDTH/8),3*(CUBE_BUF_WIDTH/8),0*(CUBE_BUF_WIDTH/8),1*(CUBE_BUF_WIDTH/8),3*(CUBE_BUF_WIDTH/8) dc.w 2*(CUBE_BUF_WIDTH/8),3*(CUBE_BUF_WIDTH/8) dc.w -1,-1,-1,-1,-1 dc.w -1,-1,-1,-1 dc.w -1,-1,-1,-1,-1 dc.w -1,-1,-1,-1 ;---------------------------------------------------------------------------------- ; Draw regular blitter line to blitter queue ; ; in d0.w x0 ; d1.w y0 ; d2.w x1 ; d3.w y1 ; a0 bitplane ; a4 blitterqueue struct gou_draw_singledot_line_bq: cmp.w d1,d3 bgt.s .downward bne.s .cont rts .cont exg d0,d2 exg d1,d3 .downward move.w d1,d5 lsl.w #6,d5 ; replaced mulu by shift (CUBE_BUF_WIDTH) ;mulu d4,d5 adda.w d5,a0 moveq.l #-16,d4 and.w d0,d4 lsr.w #3,d4 add.w d4,a0 moveq.l #15,d4 and.w d0,d4 ror.w #4,d4 or.w #BLTCON0F_USEA|BLTCON0F_USEC|BLTCON0F_USED|(BLT_A&BLT_B^BLT_C),d4 swap d4 sub.w d0,d2 bpl.s .positiveDX neg.w d2 addq.w #1,d4 .positiveDX sub.w d1,d3 cmp.w d2,d3 bls.s .absDyLessThanAbsDx exg d2,d3 addq.w #4,d4 .absDyLessThanAbsDx move.b .octants(pc,d4.w),d4 add.w d3,d3 ; 2 * dy move.w d3,d5 sub.w d2,d5 ; 2 * dy - dx bpl.s .positiveGradient or.w #BLTCON1F_SIGN,d4 .positiveGradient add.w d5,d5 ; 4 * dy - 2 * dx ;cmp.w #20,d2 ;sgt bql_LongLine(a4) add.w d2,d2 ; 2 * dx add.w d2,d2 ; 4 * dx add.w d3,d3 ; 4 * dy move.w d3,d0 sub.w d2,d3 ; 4 * (dy - dx) addq.w #4,d2 ; extra word height lsl.w #4,d2 addq.w #2,d2 ; width == 2 move.l d4,bql_BltCon01(a4) movem.w d0/d3/d5,bql_BltBMod(a4) ; 4 * dy ;move.w d3,bql_BltAMod(a4) ; 4 * (dy - dx) ;move.w d5,bql_BltAPtLo(a4) ; 4 * dy - 2 * dx move.l a0,bql_BltCPt(a4) move.w d2,bql_BltSize(a4) move.l a4,a0 CALLFW AddToBlitterQueue lea bql_SIZEOF(a4),a4 rts .octants dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUD ; octant 7 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUD|BLTCON1F_AUL ; octant 4 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUD|BLTCON1F_SUL ; octant 0 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUD|BLTCON1F_SUL|BLTCON1F_AUL ; octant 3 dc.b BLTCON1F_SING|BLTCON1F_LINE|0 ; octant 6 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUL ; octant 5 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_AUL ; octant 1 dc.b BLTCON1F_SING|BLTCON1F_LINE|BLTCON1F_SUL|BLTCON1F_AUL ; octant 2 ;-------------------------------------------------------------------- gou_bq_InitLineDraw: PUTMSG 40,<"InitLineDraw"> moveq.l #-1,d0 move.w #BLTCON1F_LINE,bltcon1(a5) move.w #$8000,bltadat(a5) move.l d0,bltafwm(a5) move.w d0,bltbdat(a5) move.w #(CUBE_BUF_WIDTH/8)*CUBE_PLANES,bltcmod(a5) BLTHOGON moveq.l #0,d0 rts gou_bq_LineDraw: PUTMSG 40,<"LineDraw %p">,a0 move.l (a0)+,bltcon0(a5) move.l (a0)+,bltcpt(a5) move.l (a0)+,bltbmod(a5) move.l (a0)+,bltapt+2(a5) move.l (a0)+,bltdpt+2(a5) rts gou_bq_FillCube: PUTMSG 40,<"FillCube"> moveq.l #-1,d0 lea bltcon0(a5),a1 move.l (a0)+,(a1)+ ; bltcon0 move.l d0,(a1)+ ; bltafwm move.l (a0)+,bltamod(a5) addq.l #8,a1 move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w (a0)+,(a1) ; bltsize rts gou_bq_Clear: PUTMSG 40,<"Clear"> move.l (a0)+,bltcon0(a5) move.l (a0)+,bltdpt(a5) move.w (a0)+,bltdmod(a5) move.w (a0)+,bltcdat(a5) move.w (a0)+,bltsize(a5) rts gou_bq_InPlaceModify: PUTMSG 40,<"InPlaceModify"> BLTHOGON moveq.l #-1,d0 lea bltcon0(a5),a1 move.l (a0)+,(a1)+ ; bltcon0 move.l d0,(a1)+ ; bltafwm move.l (a0)+,d0 addq.l #8,a1 ; skip bltcpt/bltbpt move.l d0,(a1)+ ; bltapt move.l d0,(a1)+ ; bltdpt(a5) move.w (a0)+,d0 move.w d0,bltamod(a5) move.w d0,bltdmod(a5) move.w (a0)+,bltcdat(a5) move.w (a0)+,(a1) BLTWAIT rts gou_bq_ADCopy: PUTMSG 40,<"ADCopy"> BLTHOGON lea bltcon0(a5),a1 move.l (a0)+,(a1)+ ; bltcon0 move.l (a0)+,(a1)+ ; bltafwm move.l (a0)+,bltamod(a5) addq.l #8,a1 move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w (a0)+,(a1) ; bltsize BLTWAIT rts ;-------------------------------------------------------------------- ;-------------------------------------------------------------------- SinScale MACRO muls (a5,\1.w),\2 add.l \2,\2 add.l \2,\2 swap \2 ENDM CosScale MACRO muls (a0,\1.w),\2 add.l \2,\2 add.l \2,\2 swap \2 ENDM SinScaleK MACRO move.w (a5,\1.w),\3 muls \3,\2 add.l \2,\2 add.l \2,\2 swap \2 ENDM CosScaleK MACRO move.w (a0,\1.w),\3 muls \3,\2 add.l \2,\2 add.l \2,\2 swap \2 ENDM ScalePrev MACRO muls \1,\2 add.l \2,\2 add.l \2,\2 swap \2 ENDM gou_rotate_cube: ; a1 = CubeData DISABLE_INTS PUSHM a1/a5 lea cd_CubeNormals+3*3*2(a1),a1 move.w pd_CubeSize(a6),d7 move.l fw_SinTable(a6),a5 move.l fw_CosTable(a6),a0 ; suppress M68kDeadWrite movem.w pd_Ax(a6),a2-a4 ;ax,ay,az ; --- original formula --- ; x1 = x0*cos(az) - y0*sin(az) ; y1 = x0*sin(az) + y0*cos(az) ; z1 = z1 ; x2 = x1 ; y2 = y1*cos(ax) - z1*sin(ax) ; z2 = y1*sin(ax) + z1*cos(ax) ; x3 = z2*sin(ay) + x2*cos(ay) ; y3 = y2 ; z3 = z2*cos(ay) - x2*sin(ay) ; ---- ; x1 = sx*cos(az) - sy*sin(az) ; y1 = sx*sin(az) + sy*cos(az) ; z2 = y1*sin(ax) + sz*cos(ax) ; y3 = y1*cos(ax) - sz*sin(ax) ; x3 = z2*sin(ay) + x1*cos(ay) ; z3 = z2*cos(ay) - x1*sin(ay) ; for z-normal vector (0, 0, 1) ; z2 = s*cos(ax) ; y3 = -s*sin(ax) ; x3 = z2*sin(ay) ; z3 = z2*cos(ay) move.w d7,d3 move.w d7,d2 SinScale a2,d2 ;d2 = -y = s*sin(ax) neg.w d2 CosScale a2,d3 ;d3 = z2 = s*cos(ax) move.w d3,d1 SinScale a3,d1 ;d1 = x = z2*sin(ay) = s*cos(ax) * sin(ay) CosScale a3,d3 ;d3 = z = z2*cos(ay) = s*cos(ax) * cos(ay) movem.w d1-d3,-(a1) ;x/y/z ; for y-normal vector (0, 1, 0) ; x1 = s*sin(az) ; also used in x-normal ; y1 = s*cos(az) ; also used in x-normal ; z2 = y1*sin(ax) ; y3 = y1*cos(ax) = s*cos(az)*cos(ax) ; x3 = z2*sin(ay) - x1*cos(ay) = y1*sin(ax)*sin(ay) - x1*cos(ay) = s*cos(az)*sin(ax)*sin(ay) - s*sin(az)*cos(ay) ; z3 = z2*cos(ay) + x1*sin(ay) = y1*sin(ax)*cos(ay) + x1*sin(ay) = s*cos(az)*sin(ax)*cos(ay) + s*sin(az)*sin(ay) move.w d7,d6 SinScale a4,d7 ;d7 = x1 = s*sin(az) CosScale a4,d6 ;d6 = y1 = s*cos(az) move.w d6,d3 move.w d3,d2 CosScaleK a2,d2,d5 ;d2 = y = y1*cos(ax) = s*cos(az) * cos(ax) swap d5 ;keep cos(ax) in upper word for later SinScaleK a2,d3,d0 ;d3 = z2 = y1*sin(ax) = s*cos(az) * sin(ax) swap d0 ;keep sin(ax) in upper word for later move.w d3,d1 SinScaleK a3,d1,d5 ;d1 = z2*sin(ay) (keep sin(ay) in d5) move.w d7,d4 ScalePrev d5,d4 ;d4 = x1*sin(ay) CosScaleK a3,d3,d0 ;d3 = z2*cos(ay) (keep cos(ay) in d0) add.w d4,d3 ;d3 = z = z2*cos(ay) + x1*sin(ay) = s*cos(az)*sin(ax)*cos(ay) + s*sin(az)*sin(ay) move.w d7,d4 ScalePrev d0,d4 ;d4 = x1*cos(ay) sub.w d4,d1 ;d1 = x = z2*sin(ay) - x1*cos(ay) = s*cos(az)*sin(ax)*sin(ay) - s*sin(az)*cos(ay) movem.w d1-d3,-(a1) ;x/y/z ; for x-normal vector (1, 0, 0) ; x1 = s*cos(az) ; y1 = s*sin(az) ; z2 = y1*sin(ax) ; y3 = y1*cos(ax) = s*sin(az)*cos(ax) ; x3 = z2*sin(ay) + x1*cos(ay) = y1*sin(ax)*sin(ay) + x1*cos(ay) = s*sin(az)*sin(ax)*sin(ay) + s*cos(az)*cos(ay) ; z3 = z2*cos(ay) - x1*sin(ay) = y1*sin(ax)*cos(ay) - x1*sin(ay) = s*sin(az)*sin(ax)*cos(ay) - s*cos(az)*sin(ay) swap d5 ; d5 = cos(ax) move.w d7,d2 ScalePrev d5,d2 ; d2 = y = s*sin(az) * cos(ax) swap d0 ; d0 = sin(ax) ScalePrev d0,d7 ; d7 = z2 = s*sin(az) * sin(ax) swap d5 ; d5 = sin(ay) move.w d7,d1 ScalePrev d5,d1 ; d1 = z2*sin(ay) = s*sin(az) * sin(ax) * sin(ay) swap d0 ; d0 = cos(ay) move.w d6,d4 ScalePrev d0,d4 ; d4 = x1*cos(ay) = s*cos(az)*cos(ay) add.w d4,d1 ; d1 = x = z2*sin(ay) + x1*cos(ay) = s*sin(az)*sin(ax)*sin(ay) + s*cos(az)*cos(ay) ScalePrev d5,d6 ; d6 = x1*sin(ay) = s*cos(az)*sin(ay) move.w d7,d3 ScalePrev d0,d3 ; d3 = z2*cos(ay) = s*sin(az) * sin(ax) * cos(ay) sub.w d6,d3 ; d3 = z = z2*cos(ay) - x1*sin(ay) = s*sin(az)*sin(ax)*cos(ay) - s*cos(az)*sin(ay) movem.w d1-d3,-(a1) ;x/y/z move.w d1,d0 add.w d0,d0 move.w d2,a2 add.w d2,a2 move.w d3,d7 add.w d7,d7 movem.w 3*2(a1),d4-d6 add.w d4,d1 add.w d5,d2 add.w d6,d3 lea 12(a1),a3 add.w (a3)+,d1 add.w (a3)+,d2 add.w (a3)+,d3 move.l a1,a3 POPM ENABLE_INTS movem.w d1-d3,cd_Coords+6*3*2(a1) neg.w d1 neg.w d2 neg.w d3 movem.w d1-d3,cd_Coords+0*3*2(a1) ; 0*3*2(a1) add.w d0,d1 add.w a2,d2 add.w d7,d3 movem.w d1-d3,cd_Coords+1*3*2(a1) neg.w d1 neg.w d2 neg.w d3 movem.w d1-d3,cd_Coords+7*3*2(a1) sub.w d4,d1 sub.w d4,d1 sub.w d5,d2 sub.w d5,d2 sub.w d6,d3 sub.w d6,d3 movem.w d1-d3,cd_Coords+3*3*2(a1) neg.w d1 neg.w d2 neg.w d3 movem.w d1-d3,cd_Coords+5*3*2(a1) sub.w d0,d1 sub.w a2,d2 sub.w d7,d3 movem.w d1-d3,cd_Coords+4*3*2(a1) neg.w d1 neg.w d2 neg.w d3 movem.w d1-d3,cd_Coords+2*3*2(a1) ; create flipped normals movem.w (a3)+,d0-d7/a0 neg.w d0 neg.w d1 neg.w d2 neg.w d3 neg.w d4 neg.w d5 neg.w d6 neg.w d7 exg d0,a0 neg.w d0 exg d0,a0 movem.w d0-d7/a0,(a3) rts ;-------------------------------------------------------------------- gou_cube_advance_scene_standard_movement: move.w #1023*2,d6 movem.w pd_Ax(a6),d0-d5 add.w d3,d0 add.w d4,d1 add.w d5,d2 and.w d6,d0 and.w d6,d1 and.w d6,d2 movem.w d0-d2,pd_Ax(a6) rts ;******************************************************************** gou_gray_palette: ds.w 16 gou_gray_zebra_palette: ds.w 16 ; https://gradient-blaster-grahambates.vercel.app/?points=000@0,379@5,dc6@9,fff@16&steps=256&blendMode=oklab&ditherMode=off&target=amigaOcs gou_sorted_palette: dc.w $413,$002,$023,$035,$257,$379,$589,$8a8 dc.w $bb8,$dc6,$dd7,$ed9,$eea,$eec,$ffd,$fff gou_zebra_palette: dc.w $134,$112,$011,$145,$022,$379,$123,$49a dc.w $133,$4bb,$244,$6dc,$354,$aed,$455,$dfe gou_gray_shuffle: dc.w 0*2,1*2,3*2,7*2,15*2,11*2,9*2,8*2,12*2,13*2,5*2,4*2,6*2,14*2,10*2,2*2 gou_mauve_palette: REPT 16 dc.w $413 ENDR gou_black_palette: ds.w 16 PLANELINEMASK MACRO dc.w ((1<<\1)|(1<<\2)|(1<<\3)|(1<<\4)) ENDM PLANECOORDMASK MACRO dc.w (1<<\1)|(1<<\2)|(1<<\3)|(1<<\4) ENDM PROJPLANE MACRO dc.w (\1)*4,(\2)*4,(\3)*4,(\4)*4 ENDM ROTATEDPLANE MACRO dc.w (\1)*6,(\2)*6,(\3)*6,(\4)*6 ENDM PLANELINES MACRO dc.w cd_IntCubeLines+(\1)*il_SIZEOF dc.w cd_IntCubeLines+(\2)*il_SIZEOF dc.w cd_IntCubeLines+(\3)*il_SIZEOF dc.w cd_IntCubeLines+(\4)*il_SIZEOF ENDM gou_cube_plane_coords: PLANELINEMASK 5,10,1,9 PLANECOORDMASK 5,6,2,1 PLANELINEMASK 4,5,6,7 PLANECOORDMASK 4,5,6,7 PLANELINEMASK 6,11,2,10 PLANECOORDMASK 6,7,3,2 PLANELINEMASK 7,8,3,11 PLANECOORDMASK 7,4,0,3 PLANELINEMASK 0,1,2,3 PLANECOORDMASK 0,1,2,3 PLANELINEMASK 4,9,0,8 PLANECOORDMASK 4,5,1,0 ; ; 0_____________1 ; /| /| ; /_|__________/ | ; |3 | |2 | ; | | | | ; | | | | ; | 4|_________|__|5 ; | / | / ;7|/___________|/6 ; ; lines: ; 0: 0 <-> 1 ; 1: 1 <-> 2 ; 2: 2 <-> 3 ; 3: 3 <-> 0 ; 4: 4 <-> 5 ; 5: 5 <-> 6 ; 6: 6 <-> 7 ; 7: 7 <-> 4 ; 8: 0 <-> 4 ; 9: 1 <-> 5 ; 10: 2 <-> 6 ; 11: 3 <-> 7 gou_proj_cube_planes: ; attention, inverse order as plane number is counted backwards PROJPLANE 4,5,1,0 PROJPLANE 0,1,2,3 PROJPLANE 7,4,0,3 PROJPLANE 6,7,3,2 PROJPLANE 4,5,6,7 PROJPLANE 5,6,2,1 gou_rotated_cube_planes: ; attention, inverse order as plane number is counted backwards ROTATEDPLANE 4,5,1,0 ROTATEDPLANE 0,1,2,3 ROTATEDPLANE 7,4,0,3 ROTATEDPLANE 6,7,3,2 ROTATEDPLANE 4,5,6,7 ROTATEDPLANE 5,6,2,1 gou_cube_planes_to_lines: ; attention, inverse order as plane number is counted backwards PLANELINES 4,9,0,8 PLANELINES 0,1,2,3 PLANELINES 7,8,3,11 PLANELINES 6,11,2,10 PLANELINES 4,5,6,7 PLANELINES 5,10,1,9 gou_cube_lines: dc.w 0*4,1*4 ; 0 -> 01 dc.w 1*4,2*4 ; 1 -> 12 dc.w 2*4,3*4 ; 2 -> 23 dc.w 0*4,3*4 ; 3 -> 30 dc.w 4*4,5*4 ; 4 -> 45 dc.w 5*4,6*4 ; 5 -> 56 dc.w 6*4,7*4 ; 6 -> 67 dc.w 4*4,7*4 ; 7 -> 74 dc.w 0*4,4*4 ; 4 -> 04 dc.w 1*4,5*4 ; 5 -> 15 dc.w 2*4,6*4 ; 6 -> 26 dc.w 3*4,7*4 ; 7 -> 37 ;-------------------------------------------------------------------- section "gou_copper",data,chip gou_copperlist: COP_MOVE dmacon,DMAF_BLITHOG ; disable blitter hogging to avoid interrupt latency COP_MOVE bplcon3,$0c00 COP_MOVE fmode,$0000 ; fixes the aga modulo problem COP_MOVE bplcon0,$0200 COP_MOVE bplcon2,$0024 COP_MOVE bpl1mod,(CUBE_WIDTH/8)*(CUBE_PLANES-1) COP_MOVE bpl2mod,(CUBE_WIDTH/8)*(CUBE_PLANES-1) gou_extra_copperlist_ptr: COP_MOVE cop2lc,0 COP_MOVE cop2lc+2,0 COP_MOVE $1fe,0 COP_END gou_bendit_sprite: incbin "../data/gouraud/bendit128x128x4.SPR" blitter_temp_output_word: dc.w 0 IFND FW_DEMO_PART IFD ENABLE_PART_MUSIC section "part_music_samples",data,chip ; section for music playback part_music_smp: incbin "../data/music/dsr_68k_tune_2_v11.lsbank" section "part_music_data",data ; section for music playback part_music_data: incbin "../data/music/dsr_68k_tune_2_v11.lsmusic" ENDC ENDC END