;RIAnimlib v1.0;(C)1994 Reflective Images;Written by Stephen McNamara;June-July 1994;Updates:; - fixed anim loop off bug (nextframe ignored flag);#rianimlib=57А bmapА `0<>2 А "Not enough parameters"А!libs {#bitmaplib,#ia`1|#pd`2}А А !libheader {#rianimlib,0,0,0,0}!acommand {#long}!args {#long,#long,#long}!libs!subs {_InitAnim2,0,0}!args {#long,#long,#long,#long}!libs!subs {_InitAnim,0,0}!name {"RIAnimInit","(address,bitmap#,palette#[,xy_offset])"}!acommand {#long}!args {#byte}!bmap {0,0}!subs {_NextAnimFrame,0,0}!name {"RINextAnimFrame","(bitmap#)"}!astatement!args {#byte}!libs!subs {_AnimLoop,0,0}!name {"AnimLoop","On|Off"}!libfin_libfinit: АФ.GetChunkHeader:'loop: А\.l (a0),d0 АH 'gotit А@.l #2,a0 А\.l a0,a1 АQ 'loop АБ.l #0,d0 АФ'gotit: АБ.l #-1,d0 АФ_AnimLoop: А~.l #0,doanimloop А░.b d0 АP 'gotit АФ'gotit: А~.l #-1,doanimloop АФ;================================================_InitAnim2: АБ.l #0,d3._InitAnim: А~.b d1,bitmapnumber А~.b d2,palettenumber А~.l d3,bitplaneoffset А~.l d0,a0 А].l #"ANIM",8(a0) АH 'gotit АБ.l #0,d0 АФ'gotit: А~.l 4(a0),animsize А=.l d0,animsize А~.l d0,animaddress А~.l d0,nextanimframe А=.l #28,nextanimframe А~.l #"BMHD",d0 А~.l a0,a1 А=.l #2000,a1 АY GetChunkHeader А░.l d0 АP 'gotBMHD АФ'gotBMHD: А@.l #8,a0 А~.w (a0),animwidth А~.w 2(a0),animheight А~.b 8(a0),animdepth А~.l animaddress,d0 АБ.l #0,d1 А~.b bitmapnumber,d1 А~.l #-1,d2 А~.l bitplaneoffset,d3 А8 дГ,1 А~.l animaddress,d0 АБ.l #0,d1 А~.b palettenumber,d1 А8 дД А~.l animaddress,a0 А~.l a0,thirdframe А~.l animsize,a1 А~.l #"FORM",d0 АY GetChunkHeader А@.l #8,a0 А~.l #"FORM",d0 АY GetChunkHeader А@.l #8,a0 А~.l #"FORM",d0 АY GetChunkHeader А~.l a0,nextanimframe А@.l #8,a0 А~.l #"FORM",d0 АY GetChunkHeader А░.l d0 АH 'nothirdframe А~.l a0,thirdframe'nothirdframe:; MOVE.l thirdframe,d0; MOVE.l d0,nextanimframe АБ.l #-1,d0 АФ;a0=bitmap address;d1=offset._NextAnimFrame: А~.l nextanimframe,d0 АP 'gotanim А~.l #0,d0 АФ'gotanim: АВ.l d1-d7/a0-a6,-(a7) А@.l #8,a0 А~.l a0,bitmapaddress А~.l d0,a0 А].l #"FORM",(a0) АH 'gotaframe'looparound: А░.b doanimloop АP 'yesloop АВ.l (a7)+,d1-d7/a0-a6 АБ.l #0,d0 АФ'yesloop: А~.l thirdframe,a0'gotaframe: А~.l 4(a0),d7 А@.l #8,a0 А~.l a0,nextanimframe А=.l d7,nextanimframe А@.l #4,a0 ;skip ILBM А].l #"ANHD",(a0) АH 'gotANHD АВ.l (a7)+,d1-d7/a0-a6 АБ.l #0,d0 АФ'gotANHD А~.b 8(a0),animtype А~.l 28(a0),animtype7 А=.l 4(a0),a0 А@.l #8,a0 А].l #"CMAP",(a0) АP 'heynopalette А~.l a0,-(a7) А~.l a0,d0 АБ.l #0,d1 А~.b palettenumber,d1 ;palette number А8 дД А~.l (a7)+,a0 А=.l 4(a0),a0 А@.l #8,a0'heynopalette: А].l #"DLTA",(a0) АH 'yesdelta АБ.l #0,d0 АФ'yesdelta: А~.l bitmapaddress,a6 А~.b animtype,d0 А].b #5,d0 АH UnpackAnim5 А].b #65,d0 АH UnpackAnim5 А].b #7,d0 АH UnpackAnim7 АВ.l (a7)+,d1-d7/a0-a6 АБ.l #0,d0 АФ;a0=delta chunk header;a6=pointer to bitplane array.UnpackAnim7: А@.l #8,a0 А~.l a0,a5 А~.l a0,a4 АБ.l #0,d7 А~.w -8(a6),d7 А~.l #0,d4 А░.b d0 АH UnpackAnim7Short АБ.l #0,d0 А~.w animwidth,d0 АE.w #5,d0 Ак.w #1,d0 А~.w d0,animwidthtempunpacklooplong: А~.l (a6)+,a1 ; get a bitplane А=.l bitplaneoffset,a1 А~.l (a5)+,d0 А~.l 28(a5),a3 А░.l d0 АH 'nodata;got some plane data to unpack А=.l a4,d0 А~.l d0,a0 А=.l a4,a3 АY 'unpackaplane'nodata: А@.b #1,d4 А\.b animdepth,d4 АP unpacklooplong АВ.l (a7)+,d1-d7/a0-a6 АБ.l #-1,d0 АФ'unpackaplane: А~.w animwidthtemp,d6 ; 40 columns'columnloop: А~.l a1,a2 А@.l #4,a1 А~.b (a0)+,d3 АP 'getdata Аo d6,'columnloop АФ'getdata: АБ.l #0,d0 А~.b (a0)+,d0 АH 'condition0 АW #7,d0 АP 'condition1;case 0: top bit is 0;so adjust y value downwards А~.w d0,d1 АД.w d7,d1 А=.l d1,a2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 1: condition=0 so get repeat number and value'condition0: А~.b (a0)+,d0 ; repeat number А~.l (a3)+,d1 ; data Аз.b d0,d5 Ак.b #1,d0'loop: А~.l d1,(a2) А=.l d7,a2 Аo d0,'loop Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 2: condition>0 and condition<128 so get raw data'condition1: АC.b #%01111111,d0 Аз.b d0,d5 Ак.b #1,d0'loop2: А~.l (a3)+,(a2) А=.l d7,a2 Аo d0,'loop2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;Short ANIM7 unpacking.UnpackAnim7Short: А~.l animtype7,d0 АE.w #4,d0 Ак.w #1,d0 А~.w d0,animwidthtempunpackloopshort: А~.l (a6)+,a1 ; get a bitplane А=.l bitplaneoffset,a1 А~.l (a5)+,d0 А~.l 28(a5),a3 А░.l d0 АH 'nodata;got some plane data to unpack А=.l a4,d0 А~.l d0,a0 А=.l a4,a3 АY 'unpackaplane'nodata: А@.b #1,d4 А\.b animdepth,d4 АP unpackloopshort АВ.l (a7)+,d1-d7/a0-a6 АБ.l #-1,d0 АФ'unpackaplane: А~.w animwidthtemp,d6 ; 40 columns'columnloop: А~.l a1,a2 А@.l #2,a1 А~.b (a0)+,d3 АP 'getdata Аo d6,'columnloop АФ'getdata: АБ.l #0,d0 А~.b (a0)+,d0 АH 'condition0 АW #7,d0 АP 'condition1;case 0: top bit is 0;so adjust y value downwards А~.w d0,d1 АД.w d7,d1 А=.l d1,a2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 1: condition=0 so get repeat number and value'condition0: А~.b (a0)+,d0 ; repeat number А~.w (a3)+,d1 ; data Аз.b d0,d5 Ак.b #1,d0'loop: А~.w d1,(a2) А=.l d7,a2 Аo d0,'loop Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 2: condition>0 and condition<128 so get raw data'condition1: АC.b #%01111111,d0 Аз.b d0,d5 Ак.b #1,d0'loop2: А~.w (a3)+,(a2) А=.l d7,a2 Аo d0,'loop2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;a0=pointer to DLTA chunk;a6=pointer to bitplanes array.UnpackAnim5: А~.l bitmapaddress,a6 А@.l #8,a0 А~.l a0,a5 А~.l a0,a4 АБ.l #0,d7 А~.w -8(a6),d7 А~.w animwidth,d0 АE.w #3,d0 Ак.w #1,d0 А~.w d0,animwidthtemp А~.l #0,d4'unpackloop: А~.l (a6)+,a1 ; get a bitplane А=.l bitplaneoffset,a1 А~.l (a5)+,d0 А░.l d0 АH 'nodata;got some plane data to unpack А=.l a4,d0 А~.l d0,a0 АY 'unpackaplane'nodata: А@.b #1,d4 А\.b animdepth,d4 АP 'unpackloop АВ.l (a7)+,d1-d7/a0-a6 АБ.l #-1,d0 АФ'unpackaplane: А~.w animwidthtemp,d6 ; 40 columns'columnloop: А~.l a1,a2 А@.l #1,a1 А~.b (a0)+,d3 АP 'getdata Аo d6,'columnloop АФ'getdata: АБ.l #0,d0 А~.b (a0)+,d0 АH 'condition0 АW #7,d0 АP 'condition1;case 0: top bit is 0;so adjust y value downwards А~.w d0,d1 АД.w d7,d1 А=.l d1,a2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 1: condition=0 so get repeat number and value'condition0: А~.b (a0)+,d0 ; repeat number А~.b (a0)+,d1 ; data Ак.b #1,d0'loop: А~.b d1,(a2) А=.l d7,a2 Аo d0,'loop Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФ;case 2: condition>0 and condition<128 so get raw data'condition1: АC.b #%01111111,d0 Ак.b #1,d0'loop2: А~.b (a0)+,(a2) А=.l d7,a2 Аo d0,'loop2 Ак.b #1,d3 АP 'getdata Аo d6,'columnloop АФanimaddress: А%.l 0animsize: А%.l 0nextanimframe: А%.l 0animheight: А%.l 0animdepth: А%.l 0animwidth: А%.l 0animwidthtemp: А%.w 0bitmapaddress: А%.l 0animtype7: А%.l 0bitplaneoffset: А%.l 0thirdframe: А%.l 0 А'doanimloop: А%.b -1bitmapnumber: А%.b 0palettenumber: А%.b 0animtype: А%.b 0