******************************************************* *** Line Vector example for TSB's Vectordesigner *** *** -------------------------------------------- *** *** *** *** written by ALLOC *** *** *** ******************************************************* ;--------------------------------------- ; a (return) ;(return) ; y (return) ; jm (return) >extern "df0:readyobjects/lineship.l",lineobject org $30000 load $30000 clear: MACRO lea $dff000,a5 move.l ?1,$54(a5) move.w ?2,d0 ;x move.w ?3,d1 ;y move.w #$0,$66(a5) move.w #%0000000100000000,$40(a5) move.w #0,$42(a5) lsl.w #6,d1 or.w d1,d0 move.w d0,$58(a5) ENDM m: lea $dff000,a5 movem.l d0-d7/a0-a6,-(a7) moveq #61,d0 lea zero,a0 lea 8,a1 copyzero: move.l (a1)+,(a0)+ dbf d0,copyzero move.l #raus,$020 raus: move.w #$2700,sr adda #6,a7 move.l a7,sstack move.l #stackend,a7 move.w $1c(a5),intbuff move.w #$7fff,$9a(a5) move.w #$7fff,$9c(a5) bra.L main oson: move.w #$2700,sr move.w``,dnf`fn```!5o`fogclam`fff`cf`foff`f`J laf`l`fgf`c`f`falaf`fl`gcccc `ff`fd7lc`c````cl,0`,kffff```: g fgf``n*fffafc goffffgj*ffffc f`````mmffffmamogcf``llffffla0falcl`q1t`#%a```/oaacc#0၀fcfffff`**afcg`: aac`ffa0 ``fac#0!0 cca ``a afffc`a `nd agfag a` j* aLJ`a a`ffffff*`` a` gfgI#ff`a fff`ha cc灀 cce, m(a`` dg)+fcffc$cfcfc gf``f**g 2.` m`` gc cfff`cff`00fff`g`03fff`cfa,$c`c000 0,7 $0$0#,$f d4asewqwpÁwwpwwwp0wwpwwpwwwImwp0pwpwwpwwngwqwpÁpswwwd7spwwwand.w d77t#m (!69(/t$1 0 %. m#)%l,d l$5 (-o.e7 : b0,)e$24a#o#m-o(a 1,), d!0,d,d$43 .l/v/t,s".-o1.5 6,!6,2,2,2,2,1,1,7  <3,?>>8<~?88 ~?>>8x88 8 ?>>88x< ?831?>>8x?8-?>>8<~??89? >8 <<<?8,-219,-(237 `f`25nfg3,`ffc-2macf`30laff`,-l`c#.,-11,-67,-61.w4,7,5,6,9,2, $c$c.w -9708,-114,-120,-125,-131,-136 dc.w -141,-5,d2 vy: muls #0,d5 vz: muls #0,d1 sub.w d1,d5 ;x vz2: muls #0,d3 vx: muls #0,d2 sub.w d2,d3 ;y vx2: muls #0,d4 vy2: muls #0,d0 sub.w d0,d4 ;z move.w a3,d0 move.w a4,d1 move.w a5,d2 muls d0,d5 muls d1,d3 muls d2,d4 add.l d3,d4 add.l d4,d5 tst.l d5 bge.s unsich sich: move.w #0,(a0) bra.s sichtend unsich: move.w #1,(a0) sichtend: movem.l (a7)+,d0-d7/a0-a6 rts ************************* **** Flaechenfuellen **** ************************* ;a0 Tabelle mit Coordszeiger ;a1 Coords fill: movem.l d0-d7/a2-a6,-(a7) clrscr #$72d10,with,high,modu move.w 2(a0),d7 move.w d7,coordsanzahl clr.w fcolor move.b 5(a0),fcolor+1 subq.w #1,d7 addq.l #6,a0 move.w #$7fff,xminwert move.w #$7fff,yminwert clr.w xmaxwert clr.w ymaxwert lea fillcoordstable(pc),a5 makefillcoordstable: move.w (a0)+,d0 lsl.w #3,d0 move.l a0,a3 sub.l a6,a3 move.w (a1,d0.w),d1 move.w 2(a1,d0.w),d2 cmp.w xminwert(pc),d1 bge.s xminset move.w d1,xminwert xminset: cmp.w yminwert(pc),d2 bge.s yminset move.w d2,yminwert yminset: cmp.w xmaxwert(pc),d1 ble.s xmaxset move.w d1,xmaxwert xmaxset: cmp.w ymaxwert(pc),d2 ble.s ymaxset move.w d2,ymaxwert ymaxset: move.w d1,(a5)+ move.w d2,(a5)+ dbf d7,makefillcoordstable lea fillcoordstable(pc),a2 move.w coordsanzahl(pc),d7 subq.w #2,d7 move.w xminwert(pc),d4 move.w yminwert(pc),a5 lea $72d10,a0 lea 40,a1 filldraw: move.w (a2)+,d0 move.w (a2)+,d1 move.w (a2),d2 move.w 2(a2),d3 sub.w d4,d0 sub.w d4,d2 sub.w a5,d1 sub.w a5,d3 cmp.w d1,d3 beq fillend cmp.w d1,d3 bge.s nochange exg d1,d3 exg d0,d2 nochange: move.w d2,d5 move.w d3,d6 sub.w d0,d5 bpl.s nomin neg.w d5 nomin: sub.w d1,d6 asl.w #1,d6 cmp.w d5,d6 bgt.s nomore subq.w #1,d3 nomore: bsr linedraw fillend: dbf d7,filldraw move.w xmaxwert(pc),d2 move.w ymaxwert(pc),d3 sub.w d4,d2 sub.w a5,d3 addq.w #1,d3 cmp.w #2,d3 blt allfend moveq #0,d1 lsr.w #4,d2 addq.w #1,d2 move.w d2,d1 lsl.w #1,d1 moveq #40,d7 sub.w d1,d7 move.w d2,with move.w d3,high move.w d7,modu lea $dff000,a5 blittfillwait: btst #14,2(a5) bne.s blittfillwait move.l #$ffffffff,$44(a5) move.w d7,$64(a5) move.w d7,$66(a5) move.w d3,d4 mulu #40,d4 add.l d1,d4 sub.l #82,d4 add.l #$72d10,d4 move.l d4,$50(a5) move.l d4,$54(a5) move.w #%0000100111110000,$40(a5) move.w #%1010,$42(a5) subq.w #1,d3 lsl.w #6,d3 or.w d3,d2 move.w d2,$58(a5) fillwait: btst #14,2(a5) bne.s fill`` ynf`fn```$0o`fogcdam`fff`cf`foff`f`nwlaf`l`fgf`c`f`f,laf`fl`gcccc `ff`fJ lc`c````c, c`%.ffff``` mg fgf``nafffafc goffffgp,ffffc f`````mmffffmaI gcf``llfffflaofalcl`p, `) a```14aacc0,၀fcfffff`%mafcg`: aac`ffa: ``fac 07f cca ``$ afffc`a `J  agfag a` n  aLJ`a a`ffffffx`` a` gfgz ff`a fff`ab cc灀 ccnw,d3r``3ug4 fcffc,sfcfc,dgf``f4,g: 3,`8,``#7gc.wfff`cff`,dfff`g`3rfff`cfa!dc`c2 -u!s a6