m   GTIA PIXEL AVERAGINGBY LYN BUCHANAN (c) 1985, ANTIC PUBLISHING( AdPIXEL AVERAGING ROUTINEnSET AREA TO BE ENHANCEDoY-COORDINATE RANGEp-@@qX-COORDINATE RANGEr-@@wsSTOP ATTRACT MODEt@wx::LOCATE EACH PIXEL AND ASSIGN ITS VALUE TO A VARIABLEy1&@&@z1&@{1&@%@|1&@} 1~1%@1%@&@1%@1%@%@AVERAGE ALL PIXEL VALUES&&6-P:+%%%%%%%%,'@ ,LIGHTEN THE BACKGROUND"6-@REPLOT PIXEL IN NEW COLOR,%@RETURN FOR THE NEXT PIXEL   LOCK SCREEN IN GR.9 MODEA@w72@e@@A AaDRAW STICK FIGURE BIRD +@ AADDRAW TAILY-@@/,@%@uU/@%'@@q&'@Y DRAW BODY` -@@6@$B,@%'?`@t&`/@`&'@@t&C!,@%'?`@f%?/@`&'@@f%C DRAW WINGS-@@-,@@cK/@%@&'@q/$@%@ @f&'@/$@%@$@f&'@7!/@F%@ &'@3/@u@E7 DRAW HEADq @!-@@"G,@H%'@@`&'@m/@h&'@@`&'@q DRAW BEAK @!-@@3,@s@gI/@H%@g&M a-@@},@I%'@@g/@u@U DRAW EYE= !-@T@V-,@`9/@b=  A+,C +A@(1A@(CA @->( (#(̠;( by Lyn Buchanan>(.OO(GThis demo program draws a stick-figurebird using normal PLOT and DRAWTO/QQ(Icommands. Then the program 'computer enhances' the image by sampling the0g&(color value of each pixel, andd(9averaging it with the values of the surrounding pixels.g(1`](UThe BASIC routine is slow (takes about12 minutes), but the results are worththe wait.`(6SAR@'-@@"A(READY? PRESS ԠSB2y@@ F:B2y,@A JB2y@ A D1:BIRD.BAS