;FastGfx (FGfx) V0.3a By David Newton (dave@nbsamiga.demon.co.uk);;Please read the docs include on how to use this include.;;bb2objtypes.res must be resident in compiler options/resident;(that file should be in the blitzlibs: assign!)А END_OF_FastGfx;#FGFX_COMPACT=0 ;- this should be in your main source file;My FGfx setups;Include these parts#FGFXDRAW=1 ;include 2d drawing functions??#FGFXFILE=1 ;include save+load functions??#FGFXBLIT=1 ;include blit/block/scroll functions;FGfx file types#IFF_FILE=0#FGFX_FILE=1#FORMCHECK=$464F524D ;FORM file type#FGFXCHECK=$46476678 ;FGfx file type;Shape data#FastShapeShift=5 ;2^n=sizeof .fastshapeА .fastshape ;Sizeof 32 ebwidth.w ;even byte width of shape height.w ;height in lines of shape _depth.w ;depth of shape flags.w ;shape attributes planes.l ;pointer to planes cookie.l ;pointer to cookie planesize.l ;size of a single bitplane of shape pad.b[12] ;padА А;Do some heavy Macro Magic.........:))))А CpuBlitPlanesMacro А~.l (a5),d4:АB.l d5,d4:АБ.l #0,d6 А~.w (a1)+,d6:А|.l d0,d6:АК.l d6,d4:А~.l d4,(a5):А=.l a3,a5 А `1>1:!CpuBlitPlanesMacro{`1-1}:АА А А CpuBlitMacroCpuBlit1_`1: А~.w a6,d2CpuBlit2_`1: А~.l a2,a5:АБ.l #0,d5:А~.w (a0)+,d5:А|.l d0,d5:АЙ.l d5 !CpuBlitPlanesMacro{`1} А@.w #2,a2:Аo d2,CpuBlit2_`1 А=.l a4,a2:Аo d3,CpuBlit1_`1:АX CpuBlitExitА А А CpuBlockPlanesMacro А~.w (a0)+,(a3):А=.l d7,a3 А `1>1:!CpuBlockPlanesMacro{`1-1}:АА А А CpuBlockMacroCpuBlock1_`1: А~.w d0,d5CpuBlock2_`1: А~.l a2,a3 !CpuBlockPlanesMacro{`1} А@.w #2,a2:Аo d5,CpuBlock2_`1 А=.w d4,a2:Аo d1,CpuBlock1_`1:АX CpuBlockExitА А А CpuBlockScrollPlusMacro1CpuBlockScrollPlus1_`1: А~.w d3,d0:А~.l a2,a0:А~.l a3,a1 ;height-1 into d0CpuBlockScrollPlus2_`1: А~.w d2,d1:АX CpuBlockScrollPlus4_`1 ;width into d1CpuBlockScrollPlus3_`1: А~.l (a0)+,(a1)+CpuBlockScrollPlus4_`1: Аo d1,CpuBlockScrollPlus3_`1 А `1=2:А~.w (a0)+,(a1)+:А А=.w d6,a0:А=.w d7,a1 Аo d0,CpuBlockScrollPlus2_`1 А=.l a4,a2:А=.l a5,a3 Аo d4,CpuBlockScrollPlus1_`1 АX CpuBlockScrollExitА А А CpuBlockScrollMinusMacro1CpuBlockScrollMinus1_`1: А~.w d3,d0:А~.l a2,a0:А~.l a3,a1 ;height-1 into d0CpuBlockScrollMinus2_`1: А~.w d2,d1:АX CpuBlockScrollMinus4_`1 ;width into d1CpuBlockScrollMinus3_`1: А~.l -(a0),-(a1)CpuBlockScrollMinus4_`1: Аo d1,CpuBlockScrollMinus3_`1 А `1=2:А~.w -(a0),-(a1):А Аз.w d6,a0:Аз.w d7,a1 Аo d0,CpuBlockScrollMinus2_`1 А=.l a4,a2:А=.l a5,a3 Аo d4,CpuBlockScrollMinus1_`1 АX CpuBlockScrollExitА А ;FGfx Internal routines....don't call them directly.......А FGfx_LeavedCopy{src.l,dest.l,ebsize.l,leaved.l} ;ebsize must be even bytes, leaved= the number of words to interleave А~.l d0,a0 ;src into a0 А~.l d1,a1 ;dest into a1 А~.l d2,a3 ;total size into a3 А=.l a1,a3 ;end of dest in a3 А~.w d3,d4 Ак.w #1,d4 А|.w #1,d3 ;skip into words (number of words*2)FGfx_LeavedCopy1: А~.l a1,a2 ;dest into a2 А@.w #2,a1 ;move to next leaved dest offsetFGfx_LeavedCopy2: А~.w (a0)+,(a2):А=.w d3,a2:А\.l a2,a3:АJ FGfx_LeavedCopy2 ;copy then do rest until end of dest Аo d4,FGfx_LeavedCopy1 АА АА GrabFastShape{FastShape.w,x.w,y.w} АВ.l a4-a6,-(a7) А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0:А~.l FastGfxBitmap(pc),a1 А~.w d1,d0:АB.w #15,d0:А}.w #3,d1:АU.w #0,d1 А~.w (a1),d4:АД d4,d2:А~.l d2,a4:А=.w d1,a4:Аz.l 8(a1),a3 А~.w (a0),d6:Аз.w d6,d4:А~.w d4,a6 А}.w #1,d6:Ак.w #1,d6:А~.w 2(a0),d7:Ак.w #1,d7 А~.w 4(a0),d3:А~.w d3,d4:А|.w #1,d4:А~.w d4,a5 Ак.w #1,d3:АБ.l #2,d4:А~.l 8(a0),a0GrabFastShape1: А~.l a0,a1:А~.l (a3)+,a2:А=.l a4,a2:А~.w d7,d2GrabFastShape2: А~.w d6,d1GrabFastShape3: А~.l (a2),d5:А|.l d0,d5:Ам d5:А~.w d5,(a1):А=.w a5,a1:А=.w d4,a2 Аo d1,GrabFastShape3 А=.l a6,a2:Аo d2,GrabFastShape2 А@.w #2,a0:Аo d3,GrabFastShape1 АВ.l (a7)+,a4-a6 АА АА SetFastGfxBitmap{bmapaddr.l} Аz.l FastGfxBitmap(pc),a0:А~.l d0,(a0) А~.l d0,a0:А~.w (a0),d0:АД 2(a0),d0 Аz.l FastGfxBitmapAdd(pc),a0:А~.l d0,(a0) АА АА .l GetFastGfxBitmap{} А~.l FastGfxBitmap(pc),d0 АА АА SetFastGfxScrollBitmap{bmapaddr.l} Аz.l FastGfxScrollBitmap(pc),a0:А~.l d0,(a0) А~.l d0,a0:А~.w (a0),d0:АД 2(a0),d0 Аz.l FastGfxScrollBitmapAdd(pc),a0:А~.l d0,(a0) АА АА .l GetFastGfxScrollBitmap{} А~.l FastGfxScrollBitmap(pc),d0 АА АА SetFastShapeBase{FastShapeBase.l} Аz.l FastShapeBase(pc),a0:А~.l d0,(a0) АА АА .l GetFastShapeBase{} А~.l FastShapeBase(pc),d0 АА А А SetFastShapeMax{FastShapeMax.w} Аz.l FastShapeMax(pc),a0:А~.w d0,(a0) АА АА .w GetFastShapeMax{} А~.w FastShapeMax(pc),d0 АА А А .l GetFastShapeOffset{FastShape.w} Аv.l d0:А~.l FastShapeBase(pc),d1:А|.l #FastShapeShift,d0:А=.l d1,d0 АА А ;FGfx User Functions.................А FreeFastShape{FastShape.w} *tmpfs.fastshape=GetFastShapeOffset{FastShape} А *tmpfs\ebwidth>0 А *tmpfs\planes<>0 А! ж *tmpfs\planes,*tmpfs\planesize*(*tmpfs\_depth) А *tmpfs\cookie<>0 А! ж *tmpfs\cookie,*tmpfs\planesize *tmpfs\ebwidth=0 А└А АА RemoveFastShapes{} fsbase.l=GetFastShapeBase{} А fsbase<>0 fsmax.w=GetFastShapeMax{} А loop.w=0 А fsmax-1:FreeFastShape{loop}:А loop ж fsbase,fsmax*А/ .fastshape SetFastShapeBase{0}:SetFastShapeMax{0} А└А АА .b InitFastShapes{FastShapeMax.w} fsbase.l=GetFastShapeBase{}:А fsbase<>0 А! RemoveFastShapes{} fsadr.l=ж(FastShapeMax*А/ .fastshape,$10001) А fsadr<>0 SetFastShapeBase{fsadr}:SetFastShapeMax{FastShapeMax} А А ╝ А" А А ╝ А└А А А .b TestCpuBitmap{bmap.w} bmapokay.b=╝:*testbmap.bitmap=А╕ ╨(bmap) А *testbmap<>0 А (*testbmap\_flags=0)&(*testbmap_bitplanemod<>0) bmapokay=╝ А└ А└ А А bmapokayА А А SetCpuBitmap{bmap.w} SetFastGfxBitmap{А╕ ╨(bmap)}А АА SetCpuScrollBitmap{bmap.w} SetFastGfxScrollBitmap{А╕ ╨(bmap)}А АА .b MakeBitmap{bmap.w,bwidth.w,bheight.w,bdepth.w,bmemtype.l} bmemadr.l=ж((bwidth/8)*bdepth*bheight,bmemtype) А bmemadr<>0 ╨ bmap,bwidth,bheight,bdepth,bmemadr А А ╝ А" А А ╝ А└А А ;Function.b SaveCpuBitmap{bmap.w,filename$,filetype.w,key.w}; If WriteFile(0,filename$); Select filetype; Case #IFF_FILE:checktype=#ILBMCHECK:WriteMem 0,&checktype,4:CpuEncodeILBM{bmap}; Case #FGFX_FILE:checktype=#FBMPCHECK:WriteMem 0,&checktype,4:CpuEncodeFBMP{bmap,key}; End Select; Function Return True; Else; Function Return False; EndIf;End Statement;Function.b LoadCpuBitmap{bmap.w,filename$,key.w}; ;automatically check for iff, or FGfx type, then load accordingly; bmapokay.b=False:checktype.l=0; If ReadFile(0,filename$); ReadMem 0,&checktype,4; Select checktype; Case #ILBMCHECK:bmapokay=CpuDecodeILBM{bmap}; Case #FBMPCHECK:bmapokay=CpuDecodeFBMP{bmap,key}; End Select; CloseFile 0; EndIf; Function Return bmapokay;End FunctionА FreeFastCookie{FastShape.w} *tmpfs.fastshape=GetFastShapeOffset{FastShape} А *tmpfs\ebwidth>0 А *tmpfs\cookie<>0 А! ж *tmpfs\cookie,*tmpfs\planesize:*tmpfs\cookie=0 А└А АА MakeFastCookie{FastShape.w} А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0 А~.w (a0),d0:А}.w #1,d0:Ак.w #1,d0:А~.w 2(a0),d1:Ак.w #1,d1 А~.w 4(a0),d2:Ак.w #1,d2:А~.l 12(a0),a1:А~.l 8(a0),a0MakeFastCookie1: А~.w d0,d3MakeFastCookie2: А~.w d2,d4:АБ.l #0,d5MakeFastCookie3: АК.w (a0)+,d5 Аo d4,MakeFastCookie3 ;do all planes (single word) А~.w d5,(a1)+ Аo d3,MakeFastCookie2 ;do single line (all planes) Аo d1,MakeFastCookie1 ;do all lines АА АА GetFastShape{FastShape.w,x.w,y.w,width.w,height.w} *tmpfs.fastshape=GetFastShapeOffset{FastShape} А *tmpfs\ebwidth>0 А! FreeFastShape{FastShape} ebwidth.w=width/8:А (ebwidth*8)0 *tmpfs\ebwidth=ebwidth:*tmpfs\height=height *tmpfs\planesize=planesize:*tmpfs\_depth=planes GrabFastShape{FastShape,x,y} *tmpfs\cookie=ж(planesize,$1) А *tmpfs\cookie<>0 А! MakeFastCookie{FastShape} А└А АА ShapeToFastShape{numshape.w,FastShape.w} *shp.shape=А╕ ═(numshape) *tmpfs.fastshape=GetFastShapeOffset{FastShape} А *tmpfs\ebwidth>0 А! FreeFastShape{FastShape} А╩ *shp *tmpfs\ebwidth=\_ebwidth,\_pixheight,\_depth,0,0,0,\_onebpmem singleplane.l=*tmpfs\planesize:totalplanes.l=singleplane*\_depth А \_data<>0 *tmpfs\planes=ж(totalplanes,$1) А *tmpfs\planes<>0 А! FGfx_LeavedCopy{\_data,*tmpfs\planes,totalplanes,\_depth} А└ А \_cookie<>0 *tmpfs\cookie=ж(singleplane,$1) А *tmpfs\cookie<>0 А! MakeFastCookie{FastShape} А└А АА #FGFX_COMPACT=1А CpuBlit{FastShape.w,x.w,y.w} АВ.l a4-a6,-(a7) А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0 А~.l FastGfxBitmap(pc),a1:А~.l FastGfxBitmapAdd(pc),a3:А~.w d1,d0 АB.w #15,d0:А}.w #3,d1:АU.w #0,d1:А~.w (a1),d4:АД d4,d2:А~.l d2,a2 А=.w d1,a2:А=.l 8(a1),a2:АБ.l #16,d1:Аз.w d0,d1:А~.l d1,d0:А~.w (a0),d6 Аз.w d6,d4:А~.w d4,a4:А}.w #1,d6:Ак.w #1,d6:А~.w d6,a6:А~.w 2(a0),d3 Ак.w #1,d3:А~.l 8(a0),a1:А~.w 4(a0),d7:Ак.w #1,d7:А~.l 12(a0),a0CpuBlit1: А~.w a6,d2CpuBlit2: А~.l a2,a5:А~.w d7,d1:АБ.l #0,d5 А~.w (a0)+,d5:А|.l d0,d5:АЙ.l d5CpuBlit3: А~.l (a5),d4:АB.l d5,d4:АБ.l #0,d6 А~.w (a1)+,d6:А|.l d0,d6:АК.l d6,d4:А~.l d4,(a5) А=.l a3,a5:Аo d1,CpuBlit3 А@.w #2,a2:Аo d2,CpuBlit2 А=.l a4,a2:Аo d3,CpuBlit1 АВ.l (a7)+,a4-a6 АА АА CpuBlock{FastShape.w,x.w,y.w} А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0 А~.l FastGfxBitmap(pc),a1:А~.l FastGfxBitmapAdd(pc),d7 А}.w #3,d1:АU.w #0,d1:А~.w (a1),d4:АД d4,d2:А~.l d2,a2:А=.w d1,a2 А=.l 8(a1),a2:А~.w (a0),d0:Аз.w d0,d4:А}.w #1,d0:Ак.w #1,d0 А~.w 2(a0),d1:Ак.w #1,d1:А~.w 4(a0),d2:Ак.w #1,d2:А~.l 8(a0),a0CpuBlock1: А~.w d0,d5CpuBlock2: А~.l a2,a3:А~.w d2,d6CpuBlock3: А~.w (a0)+,(a3):А=.l d7,a3 Аo d6,CpuBlock3 А@.w #2,a2:Аo d5,CpuBlock2 А=.w d4,a2:Аo d1,CpuBlock1 АА ААА CpuBlit{FastShape.w,x.w,y.w} АВ.l a4-a6,-(a7) А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0 А~.l FastGfxBitmap(pc),a1:А~.l FastGfxBitmapAdd(pc),a3:А~.w d1,d0 АB.w #15,d0:А}.w #3,d1:АU.w #0,d1:А~.w (a1),d4:АД d4,d2:А~.l d2,a2 А=.w d1,a2:А=.l 8(a1),a2:АБ.l #16,d1:Аз.w d0,d1:А~.l d1,d0 А~.w (a0),d6:Аз.w d6,d4:А~.w d4,a4:А}.w #1,d6:Ак.w #1,d6:А~.w d6,a6 А~.w 2(a0),d3:Ак.w #1,d3:А~.l 8(a0),a1:А~.w 4(a0),d7:А~.l 12(a0),a0 А|.w #2,d7:Аz.l CpuBlitJumpTable(pc),a5:А=.w d7,a5:А~.l (a5),a5:Аx (a5)CpuBlitExit: АВ.l (a7)+,a4-a6 А А'CpuBlitJumpTable: А%.l CpuBlitExit,CpuBlit1_1,CpuBlit1_2,CpuBlit1_3,CpuBlit1_4 А%.l CpuBlit1_5,CpuBlit1_6,CpuBlit1_7,CpuBlit1_8 !CpuBlitMacro{1}:!CpuBlitMacro{2}:!CpuBlitMacro{3}:!CpuBlitMacro{4} !CpuBlitMacro{5}:!CpuBlitMacro{6}:!CpuBlitMacro{7}:!CpuBlitMacro{8}А АА CpuBlock{FastShape.w,x.w,y.w} А~.l FastShapeBase(pc),a0:Аv.l d0:А|.l #FastShapeShift,d0:А=.l d0,a0 А~.l FastGfxBitmap(pc),a1:А~.l FastGfxBitmapAdd(pc),d7 А}.w #3,d1:АU.w #0,d1:А~.w (a1),d4:АД d4,d2:А~.l d2,a2:А=.w d1,a2 А=.l 8(a1),a2:А~.w (a0),d0:Аз.w d0,d4:А}.w #1,d0:Ак.w #1,d0 А~.w 2(a0),d1:Ак.w #1,d1:А~.w 4(a0),d2:А~.l 8(a0),a0 А|.w #2,d2:Аz.l CpuBlockJumpTable(pc),a1:А=.w d2,a1:А~.l (a1),a1:Аx (a1)CpuBlockExit: А А'CpuBlockJumpTable: А%.l CpuBlockExit,CpuBlock1_1,CpuBlock1_2,CpuBlock1_3,CpuBlock1_4 А%.l CpuBlock1_5,CpuBlock1_6,CpuBlock1_7,CpuBlock1_8 !CpuBlockMacro{1}:!CpuBlockMacro{2}:!CpuBlockMacro{3}:!CpuBlockMacro{4} !CpuBlockMacro{5}:!CpuBlockMacro{6}:!CpuBlockMacro{7}:!CpuBlockMacro{8}А ААА CpuBlockScroll{srcx.w,srcy.w,width.w,height.w,destx.w,desty.w} АВ.l a4-a5,-(a7) А~.l FastGfxScrollBitmap(pc),a0:А~.l FastGfxBitmap(pc),a1 А~.l FastGfxScrollBitmapAdd(pc),a4:А~.l FastGfxBitmapAdd(pc),a5 А\.l a0,a1:АP CpuBlockScrollPlus А\.w d1,d5:АN CpuBlockScrollPlus:АJ CpuBlockScrollMinus А\.w d0,d4:АN CpuBlockScrollPlus:АJ CpuBlockScrollMinusCpuBlockScrollExit: АВ.l (a7)+,a4-a5 А А'CpuBlockScrollPlus: ;scroll from the bitmap in a0, to the bitmap in a1, going left-right, top to bottom А~.w (a0),d6:АД d6,d1:А}.w #3,d0:АU.w #0,d0:А~.l d1,a2:А=.w d0,a2:А=.l 8(a0),a2 ;src offset in a2 (plane1) А~.w (a1),d7:АД d7,d5:А}.w #3,d4:АU.w #0,d4:А~.l d5,a3:А=.w d4,a3:А=.l 8(a1),a3 ;dest offset in a3 (plane1) А}.w #3,d2:АU.w #0,d2:Аз.w d2,d6:Аз.w d2,d7 А~.w 4(a0),d4:А~.w 4(a1),d5:А\.w d5,d4:АN CpuBlockScrollPlusSkip:А~.w d5,d4CpuBlockScrollPlusSkip: Ак.w #1,d4:Ак.w #1,d3:А~.w d2,d0:А}.w #2,d2:АW.w #1,d0:АP CpuBlockScrollPlus1_2 !CpuBlockScrollPlusMacro1{1} !CpuBlockScrollPlusMacro1{2}CpuBlockScrollMinus: ;scroll from the bitmap in a0, to the bitmap in a1, going right-left, bottom to top А~.w (a0),d6:АД d6,d1:А}.w #3,d0:АU.w #0,d0:А~.l d1,a2:А=.w d0,a2:А=.l 8(a0),a2 ;src offset in a2 (plane1) А~.w (a1),d7:АД d7,d5:А}.w #3,d4:АU.w #0,d4:А~.l d5,a3:А=.w d4,a3:А=.l 8(a1),a3 ;dest offset in a3 (plane1) Ак.w #1,d3:А~.w d3,d0:АД d6,d0:А=.l d0,a2:А~.w d3,d0:АД d7,d0:А=.l d0,a3 А}.w #3,d2:АU.w #0,d2:Аз.w d2,d6:Аз.w d2,d7:А=.w d2,a2:А=.w d2,a3 А~.w 4(a0),d4:А~.w 4(a1),d5:А\.w d5,d4:АN CpuBlockScrollMinusSkip:А~.w d5,d4CpuBlockScrollMinusSkip: Ак.w #1,d4:А~.w d2,d0:А}.w #2,d2:АW.w #1,d0:АP CpuBlockScrollMinus1_2 !CpuBlockScrollMinusMacro1{1} !CpuBlockScrollMinusMacro1{2} АX CpuBlockScrollExitА АFastGfxBitmap: А%.l 0FastGfxBitmapAdd: А%.l 0FastGfxScrollBitmap: А%.l 0FastGfxScrollBitmapAdd: А%.l 0FastShapeBase: А%.l 0FastShapeMax: А%.w 0FastShapeVer: А%.b "$FVER: FGfxV0.3a By David Newton - NBSAmiga'98",$A А%.b "You are free to use these routines, aslong as",$A А%.b "this version info is left intact, and some credit",$A А%.b "for these routines is given in the software.",$AА #FGFX_COMPACT=1 А%.b "FastGfx Compact Version",$A,$0,$0А А%.b "FastGfx Non-Compact Version",$A,$0,$0А А'END_OF_FastGfx: