' *** BITBLT_A.LST *** 2nd GFA-Manual, page 20-23 > PROCEDURE bitblt_a(sx1,sy1,sx2,sy2,dx1,dy1,mode,s.offset,d.offset) ' ' *** Copy source-rectangle to destination-rectangle using mode& (= PUT-mode) ' *** Coordinates source and destination: (sx1,sy1,sx2,sy2) (dx1,dy1) ' *** Offset for source and destination usually is the length of a scanline ' *** Call Procedure Bitblt_a_screen_init first ' ' *** Global: blt.a%() ' LOCAL width,height ' width=SUCC(SUB(sx2,sx1)) height=SUCC(SUB(sy2,sy1)) blt.a%(0)=width ! width in pixels *** general parameters *** blt.a%(1)=height ! height in pixels blt.a%(5)=MUL(mode,&H1010101) ! PUT-mode for each bit-combination blt.a%(6)=sx1 ! x1 of source-rectangle *** source *** blt.a%(7)=sy1 ! y1 of source-rectangle blt.a%(10)=s.offset ! byte-offset to next line blt.a%(12)=dx1 ! x1 of destination *** destination *** blt.a%(13)=dy1 ! y1 of destination-rectangle blt.a%(16)=d.offset ! byte-offset to next line BITBLT blt.a%() ! do the bitblock transfer RETURN ' ********* '