Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!ucsd!nosc!cod!kirkb From: kirkb@cod.NOSC.MIL (Kirk Baker) Newsgroups: comp.sys.amiga Subject: Flipping bitmaps Keywords: FlipBitMapX() FlipBitMapY() Message-ID: <1673@cod.NOSC.MIL> Date: 18 Oct 89 15:48:59 GMT References: <4657@ncar.ucar.edu> <8133@cbmvax.UUCP> <138@cbmtor.UUCP> <1815@nigel.udel.EDU> Reply-To: kirkb@cod.nosc.mil.UUCP (Kirk Baker) Organization: Bonehead Research Lines: 116 [] Well, here it is, by popular demand I have chosen to post this to comp.sys.amiga, so that everyone can read it. The flip bitmap routines were written in assembler (manx/aztec). Also there is a test program that will flip the workbench/active screen 50 times in the x and y directions. These routines are hereby placed in the public domain. If you use them in a commercial product, then I would appreciate it if you would mention my name somewhere in the documentation. If you improve upon these routines, then please mail me a copy. Thank you. Also, the Zoom routines are on their way, as soon as I port them from JForth assembler to manx. kirkb@cod.nosc.mil.UUCP begin 600 flip.zoo M6D]/(#(N,#`@07)C:&EV92X:``#!0((&YX`0D[!-&#@JW[@!@05$&#=D0&2Q MB2>-RHM`)\:`T2*&C18X"2-G3(SPX"`\R:-&SHD0=!Y(Q=-&9MBWIP=6!`.D3!TU-[,J9:M6[ARY-)5 MBY`.6#@L^!IL_%BLP#MIV+`!8::O3S5OJ4C%MO@C)`W<.%))2WMP!421*%1`P%`#_DOS.3XK-G\N0 M'IQ(&3ATT%3,#J(&]R]01+LAC=TY"!Q+%4B$4D4(DR1#0'SIFN5OX*4G]459 M6"B8T$8>C:V6P@Y+S5????GM)^!782TEX604PI&%#O(%U89>9;3APF82D3%# M"V34\$(8,LQ&`PLMH#`''"ET"-2'9XU(D0PXR$@C"RP&9=$.`[(6!AED).:6 M3=L)R489:EETH8;^A0'D#$)&M`-_5:[5UEMQ+1G&##9>A&,9+BPWT735S8$" MBRFP0`8,68+`H)!SU"%&'#I.-$(,9%IW99XDPR%G# MH$/.$889=XWTG5MGM&9:H8=:QVA%9_))8D0C1$I&#)16=*>'(*9)T73#%7>< M'-6]*4.+KR:JR0R5Z4YY["#@LH M&=,>JR49SXJG:)-!'4F&J12-,%UZH\T!9+?4SA&8''1X:I,<T.8A!W%\"=&90T"";J3/"R$L'PY@QRSI!F MU8/NT#4<<)214]9P?1UVG8Y";7'*O&J\,=9:*\:99XHZC#?9$9D]IIPTK,W" MFU1GN0,<==2;\@DJO1WWW($O"7F-A^>H-]AHOPE#"BO\3;GE,6`^N$&;K]3Y M3*:#GN48;<"1;-0;*O`0D2&&&;).-"<+(K,/@LWRUQ!H M^'*0-E?_(!A!J.;`/O?!3TWRDP$+(,:^,XFH8CY"7=I0I"(6N8A]]"*@A;@$ MF#!P*")D&(,+]%8"&)CPA":T40A'&)$2#`6%*02A"$D(@Q>B4(4S;&$,;'A" M'+(0(B6L(0Q]2,*A\)!F[4<:0I&1*RSB(]'8R!:><(V&#"0DW5A"(VZR MC(_\)`WA2,E(ZI"4;#1E%^E82D[2$9.)A.$+,YG'5')2C+-,Y!IS.<@E6I&7 ME9SC+VV)QS,"4Y5\-"8Q1[G(99ZRF79$9B>AF4DO'O.63+0B+2<9S5NR\IJ@ M_*8S?:E%<&:QG.,$)#J[&I,J:I463[5E7G\:C$O M*59)DG6DORSK*36I4[96TZTU]21';:K6@,IUJMELZ5U-:L^8YG6K?^TJ6>O* MQ\'JE)\K)25062E4QF95L3.%K&`-.E?*IM2Q2@TE%/6*V:,J\I6$[21H0SI: MCMJJKC:S8JSA1U_KV7]JT;1];&INB8I+O-ZVJKN%[2[]^MO, MVC9G-?TE:@.I6N:R5KFN=:YPH=M5;B+7N!V]KF?/*EN<&O.RQ:VM7+LKV']J M5YJ>E.YV'7I>5[+7M#9%[2)5.]_GUK>\\>5K?JN[T[?N=[LY;2\H`YS2^XJW MF0(>95%?:F"HBC/!3UQPU M/>D."XQD]&;7R/%<,E\U25PI8Y?*$VXR6.G:7"VW,ZJ+]?(\/3E;,D?6S),- MI6[1O%ZGSMB>5@;P-]],8B/+^,UWMC$=Y;MGWO)SH']V+1R%.NC'%AJ[@4[S MH9,<53LW&J]]+F]Z&1SI]6KVK9.><*5=S$]'&Q30KUSLIL&:7CN7.L2CQF.G MZ;Q0%,?9R:T&;JBG/&O^@A;3H0:09+SBF)=@H4`'2M!+:E0F^M@'/_KI2I&P ML,$)]1H.S%88B!XHOQ.1P08K4F",9F0[IV4+!#*@003?=;74K,8F2%)26LCE M-'1)A%B]$EJU&H6XX#D+/&B(EIR"%I1Y5^1:[G[WMOC]-W#AVV[:G=A9`GZP M8H6O@;%"8$38A"A]P80^7=HXDCIK@ MU(HTM\H5G!CG*Y6CJ6)@>U&*4@ZKDE&$##JW0?A>;ASD*,=N-F!?0]CP[0!N M:U+R%H$8PC"&-=0!#B+PE!GF4(9Z*-*3R9U.O8C!FQ`/,9S/"100.\C?R`$*-JS>]36>MR&,2:"(MC&(ABD$+I6!$]@ M!`H0$-RGQ/T"```````````````````````````````````````````````` M`````````````````/R#W*?$_0(!30P``%L*``!2$V1`.=3N`@``N@$```$` M``````````!F;&EP=&5S="YC````"@`<$Z\`````@`%`````0"DC*```7Z@` M881-&CA4RLRAXV(,B(<0(TJ<2+$BQ"5IY*P!$<0%""%AUI21`T+%"P4"+:I< MR;)B#!@M8MAH@2/'1),*%(Q(XV8,FSIDRH`0P9-.G31TTKQQ\Z+HT:1+7:`1 MH9.G3Z!"B;HQBE0I4Z==EXH),Z>,5*H[>_X,.O2,G#!PT*09,^?%&3-XSE95 MBW7H0C)*]2I8**?.&#H@DFQ]ZA5DV9**N4)UX[@,"Q5/X)1QPR2-F+=R\J!( ML2-GFS`\1RO8HR`B8<.(IXR14V9SR3EC2KNF4_CP1Z1-X)84TT8WQ*(@TI1N M?=P,"!0A4$1FO+0RB!X@,F_N_#E,:!1:)7MU8;![:!$L8*18'S&E=C>)%X>% M7QYTGI(G([*N"$=.43/@5>%&&&*P(10=;X#PAF;P33$```>`T``%(3AT*;-#X%``!F`P```0```````````%)%041- M10`````````*`!SOE@````"``4````!`*2,H``"E%`E"I$D1!0H27'ES)P0( M$$'$O*E#!X2,&B#@E'D#ATT9$&W"I/%(!N3',!(I@LP#P@B;-'"$I*'3)`P< M+"#"N"GI$J9,FC:S*)`SD4X:-V7FN'AXI0P;-BQ`)`&!)HR=CV3*C$F3M22= M-R#TO`%+!TV9-B#JP,FY$\2<,FW+G@7Q%<28-VW@N)B31VF8-FG.A&&A8`[9 MJA5UYGF#%,0=-S`%QE$X9.4DMESQ*URS:.R/9@!!S4HQ'NF#/E*DHM\U2 MJ8Y#*R#M%BZ9HV3YIQLF/%PV"?@O)%#YX1NM'5#NL$S_&T; MTY>7HDBBH,Z<.F&>LO3^48F1Y66/MV$)1TZ:D')89KW*AF,;N!79Z#P#7G6* MAU14Y<8:("Q6!VHY/>489`J$-%(99+P&A4=AO`6"1Q7=!\(:;C!$F1D%3D25 M52>YP1Y1V+4Q&6CIR>5;4<$IE9`33U!1A`Y,F>4&"&:\!`<:=6$99I2E4TES$)Q(7!DH$)5765D#;0$`,>,L``@UNK>KHC1W"]EL5$<@Q:*&@*?BE> MIR#84(,-Q!H;6U:$)3#G8Y\:R*./E-$1E;G4BG9"?6\Y!X>7%07J)IQZ`8@& MDV2\D51"'698ADYT5C0O%G9JQW$>\)C`''?0V^A`2'M:E6F*B3LED M>V^DB",(1D<554RX'0KZ`ZPW'ECEF^=7"='RD-AYQQZ2@Y6%F:-C'3!-;E8LN@N9$; MW