∙·∙· ∙+ ∙+ ∙+ ∙+ ∙+ ∙+ ∙+ ∙+ ∙+ move.w #$4000,$dff09a move.w #$01a0,$dff096 move.w #$2200,$dff100 move.w #$0000,$dff102 move.w #$0000,$dff104 move.w #0,$dff108 move.w #0,$dff10a move.w #$2ca1,$dff08e move.w #$f4a1,$dff090 move.w #$38a1,$dff090 move.w #$0048,$dff092 move.w #$00c0,$dff094 lea.l Screen1,a0 lea.l Screen2,a1 lea.l Screen3,a3 lea.l ScreenPnt,a2 move.l a0,(a2) move.l a1,4(a2) move.l a3,8(a2) move.l (a2),a1 lea.l bplcop,a2 moveq #1,d7 BplLoop: move.l a0,d1 move.w d1,6(a2) swap d1 move.w d1,2(a2) add.l #$2000,a0 add.l #8,a2 dbra d7,BplLoop lea.l copper,a1 move.l a1,$dff080 move.w $dff088,d0 move.w #$8580,$dff096 ; Blitter nasty. MainLoop1: move.l $dff004,d0 asr.l #8,d0 and.l #$1ff,d0 cmp.w #300,d0 bne.b mainloop1 bsr.w BlitterClear ; Clear screen bsr.w DrawTheLines ; hide lines, draw lines bsr.w fill ; fill surfaces bsr.w Calculate ; calculate rotation WB: btst #6,$dff002 bne.b WB bsr.b DblBuf ; Double Buffering move.l $dff004,d0 asr.l #8,d0 and.l #$1ff,d0 btst #6,$bfe001 bne.b MainLoop1 move.w #$0080,$dff096 move.l $04,a6 move.l 156(a6),a1 move.l 38(a1),$dff080 move.w #$80a0,$dff096 move.w #$c000,$dff09a rts ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;-------------------S-U-B-R-O-U-T-I-N-E-S------------------------------- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DblBuf: lea.l ScreenPnt,a0 move.l (a0),a1 move.l 4(a0),(a0) move.l 8(a0),4(a0) move.l a1,8(a0) move.l (a0),a1 lea.l bplcop,a2 moveq #1,d7 BplLoop2: move.l a1,d1 move.w d1,6(a2) swap d1 move.w d1,2(a2) add.l #$2000,a1 add.l #8,a2 dbra d7,BplLoop2 rts ;------------------------------------------------------------------------------ Calculate: add.w #YRot,XYZRotasjon ; X rotasjon add.w #XRot,XYZRotasjon+2 ; Y rotasjon add.w #ZRot,XYZRotasjon+4 ; Z rotasjon move.w XYZRotasjon,d0 ; X move.w XYZRotasjon+2,d1 ; Y swap d0 move.w XYZRotasjon+4,d0 ; Z swap d0 cmp.w #2890,d0 blo.b ikke_360xgrader sub.w #2890,XYZRotasjon sub.w #2890,d0 ikke_360xgrader: cmp.w #2890,d1 blo.b ikke_360ygrader sub.w #2890,XYZRotasjon+2 sub.w #2890,d1 ikke_360ygrader: swap d0 cmp.w #2890,d0 blo.b ikke_360zgrader sub.w #2890,XYZRotasjon+4 sub.w #2890,d0 ikke_360zgrader: swap d0 lea.l PunkterOrig,a0 lea.l sin,a2 ; Denne tabellen er daarlig (ca 2900 data). lea.l cos,a3 lea.l Punkter,a4 moveq #AntallPunkter-1,d7 CalcLoop: movem.w (a0)+,d2-d4 ; x,y og z kordinat ;-----------------------------------------------------------------------------; ************************ ROTASJON RUNDT Y-AKSEN ******************************* ;-----------------------------------------------------------------------------; swap d0 move.w d2,d5 ; x0 move.w d3,d6 ; y0 muls (a3,d0.w),d2 ; y0*cos(Zv) muls (a2,d0.w),d6 ; x0*sin(Zv) add.l d6,d2 muls (a3,d0.w),d3 ; x0*cos(Zv) muls (a2,d0.w),d5 ; y0*sin(Zv) sub.l d5,d3 lsl.l #1,d3 lsl.l #1,d2 swap d0 swap d2 swap d3 ;-----------------------------------------------------------------------------; ************************ ROTASJON RUNDT Y-AKSEN ******************************* ;-----------------------------------------------------------------------------; move.w d2,d5 ; xO move.w d4,d6 ; zO muls (a3,d0.w),d4 muls (a2,d0.w),d2 ; xO*sin(Yv) add.l d4,d2 muls (a3,d0.w),d5 ; xO*cos(Yv) muls (a2,d0.w),d6 sub.l d6,d5 lsl.l #1,d2 swap d2 ;-----------------------------------------------------------------------------; ************************ ROTASJON RUNDT X-AKSEN ******************************* ;-----------------------------------------------------------------------------; move.w d2,d4 ; z1 move.w d3,d6 ; yO muls (a3,d1.w),d2 ; z1*cos(Xv) muls (a2,d1.w),d3 ; yO*sin(Xv) add.l d2,d3 ; d3(z) = z1*cos(Xv)+yO*sin(Xv) muls (a3,d1.w),d6 ; yO*cos(Xv) muls (a2,d1.w),d4 ; z1*sin(Xv) sub.l d4,d6 ; d6(y) = yO*cos(Xv)-z1*sin(Xv) lsl.l #1,d3 swap d3 ;-----------------------------------------------------------------------------; ;-----------------------------------------------------------------------------; ;-----------------------------------------------------------------------------; ;-----------------------------------------------------------------------------; ****************************** PERSPEKTIV ************************************* ;-----------------------------------------------------------------------------; asr.l #3,d6 swap d6 asr.l #3,d5 swap d5 muls #4000,d5 move.l #4000,d4 sub.w d3,d4 divs d4,d5 ; x = (400*x)/(400-z) muls #4000,d6 move.l #4000,d4 sub.w d3,d4 divs d4,d6 ; y = (400*y)/(400-z) add.w #127,d5 add.w #127,d6 move.w d5,(a4)+ ; X move.w d6,(a4)+ ; Y dbra d7,CalcLoop rts ******************************************************************************* ******************************************************************************* BlitterClear: lea.l ScreenPnt+8,a2 move.l (a2),a0 WBlit: btst #6,$dff002 bne.b WBlit move.l a0,$dff054 move.w #0,$dff066 move.l #$01000000,$dff040 move.w #64*(512-234)+16,$dff058 moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 moveq #0,d4 moveq #0,d5 moveq #0,d6 moveq #0,d7 move.l d0,a0 move.l d0,a1 move.l d0,a2 move.l d0,a3 move.l d0,a4 move.l d0,a5 move.l d0,a6 move.l a7,StackPnt_Buf lea.l ScreenPnt+8,a7 move.l (a7),a7 lea.l $4000(a7),a7 movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) movem.l d0-d7/a0-a6,-(a7) move.l StackPnt_Buf,a7 rts ******************************************************************************* ******************************************************************************* Fill: lea.l ScreenPnt+4,a4 move.l (a4),a0 add.l #$3ffe,a0 WBlit2: btst #6,$dff002 bne.b WBlit2 move.l a0,$dff050 move.l a0,$dff054 move.w #0,$dff064 move.w #0,$dff066 move.l #$ffffffff,$dff044 move.w #$09f0,$dff040 move.w #$000a,$dff042 move.w #(64*512)+16,$dff058 rts ******************************************************************************* ******************************************************************************* DrawTheLines: lea.l Sider,a2 lea.l Punkter,a3 moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 moveq #0,d4 moveq #0,d5 moveq #0,d6 move.l #AntallSider,Var1 SurfaceLoop: add.l #2,a2 move.w 2(a2),d0 mulu #4,d0 move.w (a3,d0),d1 ; X2 move.w (a2),d0 mulu #4,d0 move.w (a3,d0),d2 ; X1 sub.w d2,d1 ; X2-X1 move.w 4(a2),d0 mulu #4,d0 move.w 2(a3,d0),d3 ; Y3 move.w (a2),d0 mulu #4,d0 move.w 2(a3,d0),d4 ; Y1 sub.w d4,d3 ; Y3-Y1 move.w 2(a2),d0 mulu #4,d0 move.w 2(a3,d0),d5 ; Y2 sub.w d4,d5 ; Y2-Y1 move.w 4(a2),d0 mulu #4,d0 move.w (a3,d0),d6 ; X3 sub.w d2,d6 ; X3-X1 muls d1,d3 ; (X2-X1)(Y3-Y1) muls d5,d6 ; (Y2-Y1)(X3-X1) sub.l d6,d3 ; (X2-X1)(Y3-Y1)-(Y2-Y1)(X3-X1) tst.w d3 bmi.w HIDDEN ; branch minus(negativ) move.w -2(a2),d5 add.w d5,d5 sub.w #2,d5 move.w (a2,d5),d7 move.l a2,a4 moveq #0,d6 move.l #2,Var3 ; Antall bitplan BPLLineLoop: lsr #1,d7 bcc skip move.l a4,a2 moveq #0,d5 move.w -2(a2),d5 subq #2,d5 move.l d5,Var2 ; Antall linjer til hver overflate. Line1Loop: move.w (a2),d5 mulu #4,d5 move.w (a3,d5),d0 ; X1 move.w 2(a3,d5),d1 ; Y1 move.w 2(a2),d5 mulu #4,d5 move.w (a3,d5),d2 ; X2 move.w 2(a3,d5),d3 ; Y2 lea.l ScreenPnt+4,a5 move.l (a5),a0 add.l d6,a0 move.l #$dff002,a6 moveq #32,d4 bsr.w DrawLine add.l #2,a2 sub.l #1,Var2 bne Line1Loop skip: add.l #$2000,d6 sub.l #1,Var3 bne BPLLineLoop move.l a4,a2 HIDDEN: move.w -2(a2),d5 add.w d5,d5 add.w d5,a2 sub.l #1,Var1 bne SurfaceLoop rts ******************************************************************************* * * * 'DrawLine V1.01' By TIP/SPREADPOINT * * ннннннннннннннннннннннннннннннннннн * * * ******************************************************************************* DL_Width = 32 DL_Fill = 1 ; 0=NOFILL / 1=FILL IFEQ DL_Fill DL_MInterns = $CA ELSE DL_MInterns = $4A ENDC ;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ; A0 = PlanePtr, A6 = $DFF002, D0/D1 = X0/Y0, D2/D3 = X1/Y1 ; D4 = PlaneWidth > Kills: D0-D4/A0-A1 (+D5 in Fill Mode) DrawLine: cmp.w d1,d3 ; Drawing only from Top to Bottom is bge.s .y1ly2 ; necessary for: exg d0,d2 ; 1) Up-down Differences (same coords) exg d1,d3 ; 2) Blitter Invert Bit (only at top of ; line) .y1ly2: sub.w d1,d3 ; D3 = yd ; Here we could do an Optimization with Special Shifts ; depending on the DL_Width value... I know it, but please, let it be. mulu d4,d1 ; Use muls for neg Y-Vals add.l d1,a0 ; Please don't use add.w here !!! moveq #0,d1 ; D1 = Quant-Counter sub.w d0,d2 ; D2 = xd bge.s .xdpos addq.w #2,d1 ; Set Bit 1 of Quant-Counter (here it ; could be a moveq) neg.w d2 .xdpos: moveq #$f,d4 ; D4 full cleaned (for later oktants ; move.b) and.w d0,d4 IFNE DL_Fill move.b d4,d5 ; D5 = Special Fill Bit not.b d5 ENDC lsr.w #3,d0 ; Yeah, on byte (necessary for bchg)... add.w d0,a0 ; ...Blitter ands automagically ror.w #4,d4 ; D4 = Shift or.w #$B00+DL_MInterns,d4 ; BLTCON0-codes swap d4 cmp.w d2,d3 ; Which Delta is the Biggest ? bge.s .dygdx addq.w #1,d1 ; Set Bit 0 of Quant-Counter exg d2,d3 ; Exchange xd with yd .dygdx: add.w d2,d2 ; D2 = xd*2 move.w d2,d0 ; D0 = Save for $52(a6) sub.w d3,d0 ; D0 = xd*2-yd addx.w d1,d1 ; Bit0 = Sign-Bit move.b Oktants(PC,d1.w),d4 ; In Low Byte of d4 ; (upper byte cleaned above) swap d2 move.w d0,d2 sub.w d3,d2 ; D2 = 2*(xd-yd) moveq #6,d1 ; D1 = ShiftVal (not necessary) ; + TestVal for the Blitter lsl.w d1,d3 ; D3 = BLTSIZE add.w #$42,d3 lea $52-2(a6),a1 ; A1 = CUSTOM+$52 ; WARNING : If you use FastMem and an extreme DMA-Access (e.g. 6 ; Planes and Copper), you should Insert a tst.b (a6) here (for the ; shitty AGNUS-BUG) .wb: btst d1,(a6) ; Waiting for the Blitter... bne.s .wb IFNE DL_Fill bchg d5,(a0) ; Inverting the First Bit of Line ENDC ;-------------- Not necessary, only for testing purposes ! (Cf Init Part...) move.w #$8000,$74-2(a6) move.w #-1,$44-2(a6) move.w #-1,$72-2(a6) move.w #DL_Width,$60-2(a6) move.w #DL_Width,$66-2(a6) ;-------------- move.l d4,$40-2(a6) ; Writing to the Blitter Regs as fast move.l d2,$62-2(a6) ; as possible move.l a0,$48-2(a6) move.w d0,(a1)+ move.l a0,(a1)+ ; Shit-Word Buffer Ptr... move.w d3,(a1) rts ;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн IFNE DL_Fill SML = 2 ELSE SML = 0 ENDC Oktants: dc.b SML+1,SML+1+$40 dc.b SML+17,SML+17+$40 dc.b SML+9,SML+9+$40 dc.b SML+21,SML+21+$40 ;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ; Optimized Init Part... A6 = $DFF000 > Kills : D0-D2 DL_Init: addq.w #2,a6 ; A6 = $DFF002 for DrawLine ! moveq #-1,d1 IFGT DL_Width-127 move.w #DL_Width,d0 ELSE moveq #DL_Width,d0 ENDC moveq #6,d2 .wb: btst d2,(a6) bne.s .wb move.w d1,$44-2(a6) move.w d1,$72-2(a6) move.w #$8000,$74-2(a6) move.w d0,$60-2(a6) move.w d0,$66-2(a6) rts DL_Exit: subq.w #2,a6 ; A6 = $DFF000 rts ******************************************************************************* ******************************************************************************* ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;---------------------------T-A-B-E-L-L-E-R----------------------------- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ cos: DC.W 32767,32767,32767,32766,32764,32762,32759,32756,32752 DC.W 32747,32742,32736,32729,32722,32714,32706,32697,32687,32677,32666,32654 DC.W 32642,32630,32616,32602,32588,32572,32556,32540,32523,32505,32487,32468 DC.W 32448,32428,32407,32386,32364,32341,32318,32294,32269,32244,32218,32192 DC.W 32165,32137,32109,32080,32051,32021,31990,31959,31927,31895,31862,31828 DC.W 31794,31759,31723,31687,31650,31613,31575,31537,31498,31458,31418,31377 DC.W 31335,31293,31250,31207,31163,31119,31074,31028,30982,30935,30888,30840 DC.W 30791,30742,30692,30642,30591,30539,30487,30434,30381,30327,30273,30218 DC.W 30162,30106,30049,29992,29934,29876,29817,29757,29697,29636,29575,29513 DC.W 29451,29388,29324,29260,29196,29130,29065,28998,28932,28864,28796,28728 DC.W 28659,28589,28519,28448,28377,28305,28233,28160,28087,28013,27938,27863 DC.W 27788,27712,27635,27558,27481,27403,27324,27245,27165,27085,27004,26923 DC.W 26841,26759,26676,26593,26509,26425,26340,26255,26169,26083,25996,25909 DC.W 25821,25732,25644,25554,25465,25375,25284,25193,25101,25009,24916,24823 DC.W 24730,24636,24541,24446,24351,24255,24158,24062,23964,23867,23768,23670 DC.W 23571,23471,23371,23271,23170,23068,22967,22865,22762,22659,22555,22451 DC.W 22347,22242,22137,22031,21925,21819,21712,21605,21497,21389,21280,21172 DC.W 21062,20953,20842,20732,20621,20510,20398,20286,20173,20061,19947,19834 DC.W 19720,19605,19491,19375,19260,19144,19028,18911,18794,18677,18559,18441 DC.W 18323,18204,18085,17966,17846,17726,17606,17485,17364,17242,17121,16999 DC.W 16876,16754,16631,16507,16384,16260,16135,16011,15886,15761,15635,15509 DC.W 15383,15257,15130,15003,14876,14748,14621,14492,14364,14235,14107,13977 DC.W 13848,13718,13588,13458,13328,13197,13066,12935,12803,12671,12539,12407 DC.W 12275,12142,12009,11876,11743,11609,11475,11341,11207,11073,10938,10803 DC.W 10668,10533,10397,10261,10126,9989,9853,9717,9580,9443,9306,9169 DC.W 9032,8894,8757,8619,8481,8343,8204,8066,7927,7788,7649,7510 DC.W 7371,7232,7092,6952,6813,6673,6533,6393,6252,6112,5971,5831 DC.W 5690,5549,5408,5267,5126,4985,4843,4702,4560,4419,4277,4135 DC.W 3993,3851,3709,3567,3425,3283,3141,2998,2856,2713,2571,2428 DC.W 2286,2143,2000,1858,1715,1572,1429,1286,1144,1001,858,715 DC.W 572,429,286,143,0,-142,-285,-428,-571,-714,-857,-1000 DC.W -1143,-1286,-1429,-1572,-1714,-1857,-2000,-2143,-2285,-2428,-2570,-2713 DC.W -2855,-2998,-3140,-3282,-3425,-3567,-3709,-3851,-3993,-4135,-4276,-4418 DC.W -4560,-4701,-4843,-4984,-5125,-5267,-5408,-5549,-5689,-5830,-5971,-6111 DC.W -6252,-6392,-6532,-6672,-6812,-6952,-7092,-7231,-7370,-7510,-7649,-7788 DC.W -7927,-8065,-8204,-8342,-8480,-8618,-8756,-8894,-9031,-9169,-9306,-9443 DC.W -9580,-9716,-9853,-9989,-10125,-10261,-10397,-10532,-10667,-10802,-10937,-11072 DC.W -11206,-11341,-11475,-11609,-11742,-11876,-12009,-12142,-12274,-12407,-12539,-12671 DC.W -12803,-12934,-13065,-13196,-13327,-13458,-13588,-13718,-13847,-13977,-14106,-14235 DC.W -14364,-14492,-14620,-14748,-14875,-15003,-15130,-15256,-15383,-15509,-15635,-15760 DC.W -15885,-16010,-16135,-16259,-16383,-16507,-16630,-16753,-16876,-16998,-17120,-17242 DC.W -17363,-17484,-17605,-17726,-17846,-17965,-18085,-18204,-18323,-18441,-18559,-18677 DC.W -18794,-18911,-19027,-19144,-19259,-19375,-19490,-19605,-19719,-19833,-19947,-20060 DC.W -20173,-20285,-20397,-20509,-20620,-20731,-20842,-20952,-21062,-21171,-21280,-21388 DC.W -21497,-21604,-21712,-21818,-21925,-22031,-22137,-22242,-22347,-22451,-22555,-22658 DC.W -22761,-22864,-22966,-23068,-23169,-23270,-23371,-23471,-23570,-23669,-23768,-23866 DC.W -23964,-24061,-24158,-24254,-24350,-24446,-24541,-24635,-24729,-24823,-24916,-25008 DC.W -25100,-25192,-25283,-25374,-25464,-25554,-25643,-25732,-25820,-25908,-25995,-26082 DC.W -26168,-26254,-26339,-26424,-26509,-26592,-26676,-26758,-26841,-26922,-27004,-27084 DC.W -27165,-27244,-27323,-27402,-27480,-27558,-27635,-27711,-27787,-27863,-27938,-28012 DC.W -28086,-28160,-28233,-28305,-28377,-28448,-28518,-28589,-28658,-28727,-28796,-28864 DC.W -28931,-28998,-29064,-29130,-29195,-29260,-29324,-29387,-29450,-29513,-29575,-29636 DC.W -29696,-29757,-29816,-29875,-29934,-29992,-30049,-30106,-30162,-30217,-30272,-30327 DC.W -30381,-30434,-30486,-30539,-30590,-30641,-30691,-30741,-30790,-30839,-30887,-30934 DC.W -30981,-31028,-31073,-31118,-31163,-31207,-31250,-31293,-31335,-31376,-31417,-31457 DC.W -31497,-31536,-31575,-31613,-31650,-31687,-31723,-31758,-31793,-31827,-31861,-31894 DC.W -31927,-31959,-31990,-32020,-32050,-32080,-32109,-32137,-32164,-32191,-32218,-32244 DC.W -32269,-32293,-32317,-32340,-32363,-32385,-32407,-32427,-32448,-32467,-32486,-32505 DC.W -32522,-32539,-32556,-32572,-32587,-32602,-32616,-32629,-32642,-32654,-32665,-32676 DC.W -32687,-32696,-32705,-32714,-32722,-32729,-32735,-32741,-32747,-32751,-32755,-32759 DC.W -32762,-32764,-32765,-32766,-32767,-32766,-32765,-32764,-32762,-32759,-32755,-32751 DC.W -32747,-32741,-32735,-32729,-32722,-32714,-32705,-32696,-32687,-32676,-32665,-32654 DC.W -32642,-32629,-32616,-32602,-32587,-32572,-32556,-32539,-32522,-32505,-32486,-32467 DC.W -32448,-32427,-32407,-32385,-32363,-32340,-32317,-32293,-32269,-32244,-32218,-32191 DC.W -32164,-32137,-32109,-32080,-32050,-32020,-31990,-31959,-31927,-31894,-31861,-31827 DC.W -31793,-31758,-31723,-31687,-31650,-31613,-31575,-31536,-31497,-31457,-31417,-31376 DC.W -31335,-31293,-31250,-31207,-31163,-31118,-31073,-31028,-30981,-30934,-30887,-30839 DC.W -30790,-30741,-30691,-30641,-30590,-30539,-30486,-30434,-30381,-30327,-30272,-30217 DC.W -30162,-30106,-30049,-29992,-29934,-29875,-29816,-29757,-29696,-29636,-29575,-29513 DC.W -29450,-29387,-29324,-29260,-29195,-29130,-29064,-28998,-28931,-28864,-28796,-28727 DC.W -28658,-28589,-28518,-28448,-28377,-28305,-28233,-28160,-28086,-28012,-27938,-27863 DC.W -27787,-27711,-27635,-27558,-27480,-27402,-27323,-27244,-27165,-27084,-27004,-26922 DC.W -26841,-26758,-26676,-26592,-26509,-26424,-26339,-26254,-26168,-26082,-25995,-25908 DC.W -25820,-25732,-25643,-25554,-25464,-25374,-25283,-25192,-25100,-25008,-24916,-24823 DC.W -24729,-24635,-24541,-24446,-24350,-24254,-24158,-24061,-23964,-23866,-23768,-23669 DC.W -23570,-23471,-23371,-23270,-23169,-23068,-22966,-22864,-22761,-22658,-22555,-22451 DC.W -22347,-22242,-22137,-22031,-21925,-21818,-21712,-21604,-21497,-21388,-21280,-21171 DC.W -21062,-20952,-20842,-20731,-20620,-20509,-20397,-20285,-20173,-20060,-19947,-19833 DC.W -19719,-19605,-19490,-19375,-19259,-19144,-19027,-18911,-18794,-18677,-18559,-18441 DC.W -18323,-18204,-18085,-17965,-17846,-17726,-17605,-17484,-17363,-17242,-17120,-16998 DC.W -16876,-16753,-16630,-16507,-16383,-16259,-16135,-16010,-15885,-15760,-15635,-15509 DC.W -15383,-15256,-15130,-15003,-14875,-14748,-14620,-14492,-14364,-14235,-14106,-13977 DC.W -13847,-13718,-13588,-13458,-13327,-13196,-13065,-12934,-12803,-12671,-12539,-12407 DC.W -12274,-12142,-12009,-11876,-11742,-11609,-11475,-11341,-11206,-11072,-10937,-10802 DC.W -10667,-10532,-10397,-10261,-10125,-9989,-9853,-9716,-9580,-9443,-9306,-9169 DC.W -9031,-8894,-8756,-8618,-8480,-8342,-8204,-8065,-7927,-7788,-7649,-7510 DC.W -7370,-7231,-7092,-6952,-6812,-6672,-6532,-6392,-6252,-6111,-5971,-5830 DC.W -5689,-5549,-5408,-5267,-5125,-4984,-4843,-4701,-4560,-4418,-4276,-4135 DC.W -3993,-3851,-3709,-3567,-3425,-3282,-3140,-2998,-2855,-2713,-2570,-2428 DC.W -2285,-2143,-2000,-1857,-1714,-1572,-1429,-1286,-1143,-1000,-857,-714 DC.W -571,-428,-285,-142 sin: DC.W 0,143,286,429,572,715,858,1001 DC.W 1144,1286,1429,1572,1715,1858,2000,2143,2286,2428,2571,2713 DC.W 2856,2998,3141,3283,3425,3567,3709,3851,3993,4135,4277,4419 DC.W 4560,4702,4843,4985,5126,5267,5408,5549,5690,5831,5971,6112 DC.W 6252,6393,6533,6673,6813,6952,7092,7232,7371,7510,7649,7788 DC.W 7927,8066,8204,8343,8481,8619,8757,8894,9032,9169,9306,9443 DC.W 9580,9717,9853,9989,10126,10261,10397,10533,10668,10803,10938,11073 DC.W 11207,11341,11475,11609,11743,11876,12009,12142,12275,12407,12539,12671 DC.W 12803,12935,13066,13197,13328,13458,13588,13718,13848,13977,14107,14235 DC.W 14364,14492,14621,14748,14876,15003,15130,15257,15383,15509,15635,15761 DC.W 15886,16011,16135,16260,16383,16507,16631,16754,16876,16999,17121,17242 DC.W 17364,17485,17606,17726,17846,17966,18085,18204,18323,18441,18559,18677 DC.W 18794,18911,19028,19144,19260,19375,19491,19605,19720,19834,19947,20061 DC.W 20173,20286,20398,20510,20621,20732,20842,20953,21062,21172,21280,21389 DC.W 21497,21605,21712,21819,21925,22031,22137,22242,22347,22451,22555,22659 DC.W 22762,22865,22967,23068,23170,23271,23371,23471,23571,23670,23768,23867 DC.W 23964,24062,24158,24255,24351,24446,24541,24636,24730,24823,24916,25009 DC.W 25101,25193,25284,25375,25465,25554,25644,25732,25821,25909,25996,26083 DC.W 26169,26255,26340,26425,26509,26593,26676,26759,26841,26923,27004,27085 DC.W 27165,27245,27324,27403,27481,27558,27635,27712,27788,27863,27938,28013 DC.W 28087,28160,28233,28305,28377,28448,28519,28589,28659,28728,28796,28864 DC.W 28932,28998,29065,29130,29196,29260,29324,29388,29451,29513,29575,29636 DC.W 29697,29757,29817,29876,29934,29992,30049,30106,30162,30218,30273,30327 DC.W 30381,30434,30487,30539,30591,30642,30692,30742,30791,30840,30888,30935 DC.W 30982,31028,31074,31119,31163,31207,31250,31293,31335,31377,31418,31458 DC.W 31498,31537,31575,31613,31650,31687,31723,31759,31794,31828,31862,31895 DC.W 31927,31959,31990,32021,32051,32080,32109,32137,32165,32192,32218,32244 DC.W 32269,32294,32318,32341,32364,32386,32407,32428,32448,32468,32487,32505 DC.W 32523,32540,32556,32572,32588,32602,32616,32630,32642,32654,32666,32677 DC.W 32687,32697,32706,32714,32722,32729,32736,32742,32747,32752,32756,32759 DC.W 32762,32764,32766,32767,32767,32767,32766,32764,32762,32759,32756,32752 DC.W 32747,32742,32736,32729,32722,32714,32706,32697,32687,32677,32666,32654 DC.W 32642,32630,32616,32602,32588,32572,32556,32540,32523,32505,32487,32468 DC.W 32448,32428,32407,32386,32364,32341,32318,32294,32269,32244,32218,32192 DC.W 32165,32137,32109,32080,32051,32021,31990,31959,31927,31895,31862,31828 DC.W 31794,31759,31723,31687,31650,31613,31575,31537,31498,31458,31418,31377 DC.W 31335,31293,31250,31207,31163,31119,31074,31028,30982,30935,30888,30840 DC.W 30791,30742,30692,30642,30591,30539,30487,30434,30381,30327,30273,30218 DC.W 30162,30106,30049,29992,29934,29876,29817,29757,29697,29636,29575,29513 DC.W 29451,29388,29324,29260,29196,29130,29065,28998,28932,28864,28796,28728 DC.W 28659,28589,28519,28448,28377,28305,28233,28160,28087,28013,27938,27863 DC.W 27788,27712,27635,27558,27481,27403,27324,27245,27165,27085,27004,26923 DC.W 26841,26759,26676,26593,26509,26425,26340,26255,26169,26083,25996,25909 DC.W 25821,25732,25644,25554,25465,25375,25284,25193,25101,25009,24916,24823 DC.W 24730,24636,24541,24446,24351,24255,24158,24062,23964,23867,23768,23670 DC.W 23571,23471,23371,23271,23170,23068,22967,22865,22762,22659,22555,22451 DC.W 22347,22242,22137,22031,21925,21819,21712,21605,21497,21389,21280,21172 DC.W 21062,20953,20842,20732,20621,20510,20398,20286,20173,20061,19947,19834 DC.W 19720,19605,19491,19375,19260,19144,19028,18911,18794,18677,18559,18441 DC.W 18323,18204,18085,17966,17846,17726,17606,17485,17364,17242,17121,16999 DC.W 16876,16754,16631,16507,16384,16260,16135,16011,15886,15761,15635,15509 DC.W 15383,15257,15130,15003,14876,14748,14621,14492,14364,14235,14107,13977 DC.W 13848,13718,13588,13458,13328,13197,13066,12935,12803,12671,12539,12407 DC.W 12275,12142,12009,11876,11743,11609,11475,11341,11207,11073,10938,10803 DC.W 10668,10533,10397,10261,10126,9989,9853,9717,9580,9443,9306,9169 DC.W 9032,8894,8757,8619,8481,8343,8204,8066,7927,7788,7649,7510 DC.W 7371,7232,7092,6952,6813,6673,6533,6393,6252,6112,5971,5831 DC.W 5690,5549,5408,5267,5126,4985,4843,4702,4560,4419,4277,4135 DC.W 3993,3851,3709,3567,3425,3283,3141,2998,2856,2713,2571,2428 DC.W 2286,2143,2000,1858,1715,1572,1429,1286,1144,1001,858,715 DC.W 572,429,286,143,0,-142,-285,-428,-571,-714,-857,-1000 DC.W -1143,-1286,-1429,-1572,-1714,-1857,-2000,-2143,-2285,-2428,-2570,-2713 DC.W -2855,-2998,-3140,-3282,-3425,-3567,-3709,-3851,-3993,-4135,-4276,-4418 DC.W -4560,-4701,-4843,-4984,-5125,-5267,-5408,-5549,-5689,-5830,-5971,-6111 DC.W -6252,-6392,-6532,-6672,-6812,-6952,-7092,-7231,-7370,-7510,-7649,-7788 DC.W -7927,-8065,-8204,-8342,-8480,-8618,-8756,-8894,-9031,-9169,-9306,-9443 DC.W -9580,-9716,-9853,-9989,-10125,-10261,-10397,-10532,-10667,-10802,-10937,-11072 DC.W -11206,-11341,-11475,-11609,-11742,-11876,-12009,-12142,-12274,-12407,-12539,-12671 DC.W -12803,-12934,-13065,-13196,-13327,-13458,-13588,-13718,-13847,-13977,-14106,-14235 DC.W -14364,-14492,-14620,-14748,-14875,-15003,-15130,-15256,-15383,-15509,-15635,-15760 DC.W -15885,-16010,-16135,-16259,-16383,-16507,-16630,-16753,-16876,-16998,-17120,-17242 DC.W -17363,-17484,-17605,-17726,-17846,-17965,-18085,-18204,-18323,-18441,-18559,-18677 DC.W -18794,-18911,-19027,-19144,-19259,-19375,-19490,-19605,-19719,-19833,-19947,-20060 DC.W -20173,-20285,-20397,-20509,-20620,-20731,-20842,-20952,-21062,-21171,-21280,-21388 DC.W -21497,-21604,-21712,-21818,-21925,-22031,-22137,-22242,-22347,-22451,-22555,-22658 DC.W -22761,-22864,-22966,-23068,-23169,-23270,-23371,-23471,-23570,-23669,-23768,-23866 DC.W -23964,-24061,-24158,-24254,-24350,-24446,-24541,-24635,-24729,-24823,-24916,-25008 DC.W -25100,-25192,-25283,-25374,-25464,-25554,-25643,-25732,-25820,-25908,-25995,-26082 DC.W -26168,-26254,-26339,-26424,-26509,-26592,-26676,-26758,-26841,-26922,-27004,-27084 DC.W -27165,-27244,-27323,-27402,-27480,-27558,-27635,-27711,-27787,-27863,-27938,-28012 DC.W -28086,-28160,-28233,-28305,-28377,-28448,-28518,-28589,-28658,-28727,-28796,-28864 DC.W -28931,-28998,-29064,-29130,-29195,-29260,-29324,-29387,-29450,-29513,-29575,-29636 DC.W -29696,-29757,-29816,-29875,-29934,-29992,-30049,-30106,-30162,-30217,-30272,-30327 DC.W -30381,-30434,-30486,-30539,-30590,-30641,-30691,-30741,-30790,-30839,-30887,-30934 DC.W -30981,-31028,-31073,-31118,-31163,-31207,-31250,-31293,-31335,-31376,-31417,-31457 DC.W -31497,-31536,-31575,-31613,-31650,-31687,-31723,-31758,-31793,-31827,-31861,-31894 DC.W -31927,-31959,-31990,-32020,-32050,-32080,-32109,-32137,-32164,-32191,-32218,-32244 DC.W -32269,-32293,-32317,-32340,-32363,-32385,-32407,-32427,-32448,-32467,-32486,-32505 DC.W -32522,-32539,-32556,-32572,-32587,-32602,-32616,-32629,-32642,-32654,-32665,-32676 DC.W -32687,-32696,-32705,-32714,-32722,-32729,-32735,-32741,-32747,-32751,-32755,-32759 DC.W -32762,-32764,-32765,-32766,-32767,-32766,-32765,-32764,-32762,-32759,-32755,-32751 DC.W -32747,-32741,-32735,-32729,-32722,-32714,-32705,-32696,-32687,-32676,-32665,-32654 DC.W -32642,-32629,-32616,-32602,-32587,-32572,-32556,-32539,-32522,-32505,-32486,-32467 DC.W -32448,-32427,-32407,-32385,-32363,-32340,-32317,-32293,-32269,-32244,-32218,-32191 DC.W -32164,-32137,-32109,-32080,-32050,-32020,-31990,-31959,-31927,-31894,-31861,-31827 DC.W -31793,-31758,-31723,-31687,-31650,-31613,-31575,-31536,-31497,-31457,-31417,-31376 DC.W -31335,-31293,-31250,-31207,-31163,-31118,-31073,-31028,-30981,-30934,-30887,-30839 DC.W -30790,-30741,-30691,-30641,-30590,-30539,-30486,-30434,-30381,-30327,-30272,-30217 DC.W -30162,-30106,-30049,-29992,-29934,-29875,-29816,-29757,-29696,-29636,-29575,-29513 DC.W -29450,-29387,-29324,-29260,-29195,-29130,-29064,-28998,-28931,-28864,-28796,-28727 DC.W -28658,-28589,-28518,-28448,-28377,-28305,-28233,-28160,-28086,-28012,-27938,-27863 DC.W -27787,-27711,-27635,-27558,-27480,-27402,-27323,-27244,-27165,-27084,-27004,-26922 DC.W -26841,-26758,-26676,-26592,-26509,-26424,-26339,-26254,-26168,-26082,-25995,-25908 DC.W -25820,-25732,-25643,-25554,-25464,-25374,-25283,-25192,-25100,-25008,-24916,-24823 DC.W -24729,-24635,-24541,-24446,-24350,-24254,-24158,-24061,-23964,-23866,-23768,-23669 DC.W -23570,-23471,-23371,-23270,-23169,-23068,-22966,-22864,-22761,-22658,-22555,-22451 DC.W -22347,-22242,-22137,-22031,-21925,-21818,-21712,-21604,-21497,-21388,-21280,-21171 DC.W -21062,-20952,-20842,-20731,-20620,-20509,-20397,-20285,-20173,-20060,-19947,-19833 DC.W -19719,-19605,-19490,-19375,-19259,-19144,-19027,-18911,-18794,-18677,-18559,-18441 DC.W -18323,-18204,-18085,-17965,-17846,-17726,-17605,-17484,-17363,-17242,-17120,-16998 DC.W -16876,-16753,-16630,-16507,-16383,-16259,-16135,-16010,-15885,-15760,-15635,-15509 DC.W -15383,-15256,-15130,-15003,-14875,-14748,-14620,-14492,-14364,-14235,-14106,-13977 DC.W -13847,-13718,-13588,-13458,-13327,-13196,-13065,-12934,-12803,-12671,-12539,-12407 DC.W -12274,-12142,-12009,-11876,-11742,-11609,-11475,-11341,-11206,-11072,-10937,-10802 DC.W -10667,-10532,-10397,-10261,-10125,-9989,-9853,-9716,-9580,-9443,-9306,-9169 DC.W -9031,-8894,-8756,-8618,-8480,-8342,-8204,-8065,-7927,-7788,-7649,-7510 DC.W -7370,-7231,-7092,-6952,-6812,-6672,-6532,-6392,-6252,-6111,-5971,-5830 DC.W -5689,-5549,-5408,-5267,-5125,-4984,-4843,-4701,-4560,-4418,-4276,-4135 DC.W -3993,-3851,-3709,-3567,-3425,-3282,-3140,-2998,-2855,-2713,-2570,-2428 DC.W -2285,-2143,-2000,-1857,-1714,-1572,-1429,-1286,-1143,-1000,-857,-714 DC.W -571,-428,-285,-142,0,143,286,429,572,715,858,1001 DC.W 1144,1286,1429,1572,1715,1858,2000,2143,2286,2428,2571,2713 DC.W 2856,2998,3141,3283,3425,3567,3709,3851,3993,4135,4277,4419 DC.W 4560,4702,4843,4985,5126,5267,5408,5549,5690,5831,5971,6112 DC.W 6252,6393,6533,6673,6813,6952,7092,7232,7371,7510,7649,7788 DC.W 7927,8066,8204,8343,8481,8619,8757,8894,9032,9169,9306,9443 DC.W 9580,9717,9853,9989,10126,10261,10397,10533,10668,10803,10938,11073 DC.W 11207,11341,11475,11609,11743,11876,12009,12142,12275,12407,12539,12671 DC.W 12803,12935,13066,13197,13328,13458,13588,13718,13848,13977,14107,14235 DC.W 14364,14492,14621,14748,14876,15003,15130,15257,15383,15509,15635,15761 DC.W 15886,16011,16135,16260,16384,16507,16631,16754,16876,16999,17121,17242 DC.W 17364,17485,17606,17726,17846,17966,18085,18204,18323,18441,18559,18677 DC.W 18794,18911,19028,19144,19260,19375,19491,19605,19720,19834,19947,20061 DC.W 20173,20286,20398,20510,20621,20732,20842,20952,21062,21172,21280,21389 DC.W 21497,21605,21712,21819,21925,22031,22137,22242,22347,22451,22555,22659 DC.W 22762,22864,22967,23068,23170,23271,23371,23471,23571,23670,23768,23867 DC.W 23964,24062,24158,24255,24351,24446,24541,24636,24730,24823,24916,25009 DC.W 25101,25193,25284,25375,25465,25554,25644,25732,25821,25909,25996,26083 DC.W 26169,26255,26340,26425,26509,26593,26676,26759,26841,26923,27004,27085 DC.W 27165,27245,27324,27403,27481,27558,27635,27712,27788,27863,27938,28013 DC.W 28087,28160,28233,28305,28377,28448,28519,28589,28659,28728,28796,28864 DC.W 28932,28998,29065,29130,29196,29260,29324,29388,29451,29513,29575,29636 DC.W 29697,29757,29817,29876,29934,29992,30049,30106,30162,30218,30273,30327 DC.W 30381,30434,30487,30539,30591,30642,30692,30742,30791,30840,30888,30935 DC.W 30982,31028,31074,31119,31163,31207,31250,31293,31335,31377,31418,31458 DC.W 31498,31537,31575,31613,31650,31687,31723,31759,31794,31828,31862,31895 DC.W 31927,31959,31990,32021,32051,32080,32109,32137,32165,32192,32218,32244 DC.W 32269,32294,32318,32341,32364,32386,32407,32428,32448,32468,32487,32505 DC.W 32523,32540,32556,32572,32588,32602,32616,32630,32642,32654,32666,32677 DC.W 32687,32697,32706,32714,32722,32729,32736,32742,32747,32752,32756,32759 DC.W 32762,32764,32766,32767,32767,32767,32766,32764,32762,32759,32756,32752 DC.W 32747,32742,32736,32729,32722,32714,32706,32697,32687,32677,32666,32654 DC.W 32642,32630,32616,32602,32588,32572,32556,32540,32523,32505,32487,32468 DC.W 32448,32428,32407,32386,32364,32341,32318,32294,32269,32244,32218,32192 DC.W 32165,32137,32109,32080,32051,32021,31990,31959,31927,31895,31862,31828 DC.W 31794,31759,31723,31687,31650,31613,31575,31537,31498,31458,31418,31377 DC.W 31335,31293,31250,31207,31163,31119,31074,31028,30982,30935,30888,30840 DC.W 30791,30742,30692,30642,30591,30539,30487,30434,30381,30327,30273,30218 DC.W 30162,30106,30049,29992,29934,29876,29817,29757,29697,29636,29575,29513 DC.W 29451,29388,29324,29260,29196,29130,29065,28998,28932,28864,28796,28728 DC.W 28659,28589,28519,28448,28377,28305,28233,28160,28087,28013,27938,27863 DC.W 27788,27712,27635,27558,27481,27403,27324,27245,27165,27085,27004,26923 DC.W 26841,26759,26676,26593,26509,26425,26340,26255,26169,26083,25996,25909 DC.W 25821,25732,25644,25554,25465,25375,25284,25193,25101,25009,24916,24823 DC.W 24730,24636,24541,24446,24351,24255,24158,24062,23964,23867,23768,23670 DC.W 23571,23471,23371,23271,23170,23068,22967,22865,22762,22659,22555,22451 DC.W 22347,22242,22137,22031,21925,21819,21712,21605,21497,21389,21280,21172 DC.W 21062,20953,20842,20732,20621,20510,20398,20286,20173,20061,19947,19834 DC.W 19720,19605,19491,19375,19260,19144,19028,18911,18794,18677,18559,18441 DC.W 18323,18204,18085,17966,17846,17726,17606,17485,17364,17242,17121,16999 DC.W 16876,16754,16631,16507,16383,16260,16135,16011,15886,15761,15635,15509 DC.W 15383,15257,15130,15003,14876,14748,14621,14492,14364,14235,14107,13977 DC.W 13848,13718,13588,13458,13328,13197,13066,12935,12803,12671,12539,12407 DC.W 12275,12142,12009,11876,11743,11609,11475,11341,11207,11073,10938,10803 DC.W 10668,10533,10397,10261,10126,9990,9853,9717,9580,9443,9306,9169 DC.W 9032,8894,8757,8619,8481,8343,8204,8066,7927,7788,7649,7510 DC.W 7371,7232,7092,6952,6813,6673,6533,6393,6252,6112,5971,5831 DC.W 5690,5549,5408,5267,5126,4985,4843,4702,4560,4419,4277,4135 DC.W 3993,3851,3709,3567,3425,3283,3141,2998,2856,2713,2571,2428 DC.W 2286,2143,2000,1858,1715,1572,1429,1286,1144,1001,858,715 DC.W 572,429,286,143,0 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;-------------C-O-P-E-R-L-I-S-T-S---A-N-D---B-U-F-F-E-R-S--------------- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ copper: dc.w $1c01,$fffe dc.w $0100,$2200 bplcop: dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $00e4,$0000 dc.w $00e6,$0000 Colors: dc.w $0180,$0124 dc.w $0182,$0245 dc.w $0184,$0356 dc.w $0186,$0356 dc.w $ffdf,$fffe dc.w $2c01,$fffe dc.w $0100,$0200 dc.w $ffff,$fffe ;----------------------------------------------------------------------- XRot = 22 YRot = 24 ZRot = 06 AntallSider = 24 AntallPunkter = 14 PunkterOrig: dc.w -700,700,700 dc.w 700,700,700 dc.w 700,700,700 dc.w 700,-700,700 dc.w -700,-700,700 dc.w -700,700,-700 dc.w 700,700,-700 dc.w 700,700,-700 dc.w 700,-700,-700 dc.w -700,-700,-700 dc.w -700,700,700 ; 10 dc.w 700,700,700 dc.w 700,700,700 dc.w 700,-700,700 Sider: dc.w 6,0,1,2,0,0,2 dc.w 6,1,3,2,1,1,1 dc.w 6,1,4,3,1,1,2 dc.w 6,0,4,1,0,0,1 dc.w 6,7,6,5,7,7,2 dc.w 6,7,8,6,7,7,1 dc.w 6,8,9,6,8,8,2 dc.w 6,6,9,5,6,6,1 dc.w 6,4,0,10,4,4,2 dc.w 6,4,10,9,4,4,1 dc.w 6,10,5,9,10,10,2 dc.w 6,5,10,0,5,5,1 dc.w 6,2,3,11,2,2,2 dc.w 6,11,3,8,11,11,1 dc.w 6,11,8,7,11,11,2 dc.w 6,2,11,7,2,2,1 dc.w 6,2,12,0,2,2,1 dc.w 6,12,2,7,12,12,2 dc.w 6,12,7,5,12,12,1 dc.w 6,0,12,5,0,0,2 dc.w 6,4,13,3,4,4,1 dc.w 6,3,13,8,3,3,2 dc.w 6,13,9,8,13,13,1 dc.w 6,9,13,4,9,9,2 Var1: dc.l 0 Var2: dc.l 0 Var3: dc.l 0 StackPnt_Buf: dc.l 0 LightCnt: dc.w 0 Light: dcb.l 50,0 ; 6 Punkter: blk.l 500,0 XYZRotasjon: dc.w 160,300,0 ;----------------------------------------------------------------------- ScreenPnt: dc.l 0,0,0 Screen1: blk.l 5120,0 Screen2: blk.l 5120,0 Screen3: blk.l 5120,0 ;-----------------------------------------------------------------------