Чтение TIFF-файла (Изменение программы для вывода двух изображений на ТВ-экран: одно – исходное, а другое – негативное), страница 3

                         Mode=1                640 x 350

                         Mode=2                640 x 480}

        InitGraph(Driv,Mode,'');

                   {процедура инициализации графики            }

                   {InitGraph(GraphDriver, GraphMode, PathBGI);}

                   {GraphDriver - тип адаптера (9-VGA)         }

                   {GraphMode   - режим графики                }

                   {PathBGI     - путь к файлу EGAVGA .BGI     }

        for y:=0 to 15 do               {установка палитры}

        begin                           {16  градаций     }

        SetRGBpalette(y,y*4,y*4,y*4);   {серой шкалы      }

        SetPalette(y,y);

        end;

        for y:=1 to Wy do

        for x:=1 to Wx do

         begin

            col:=po[y]^[x] ;

            col:=col shr 4;

            putpixel(x+5,y+10,col);

         end;

       {Наш ввод}

         if (2*Wx+15) < 640 then

          begin

            for y:=1 to Wy do

             for x:=1 to Wx do {

              begin

               col:=po[y]^[x] ;

               col:=col shr 4;

               putpixel(x+Wx+10,y+10,15-col);

              end;

           end

          else

           if (2*Wy+20)< 480 then

            begin

             for y:=1 to Wy do

              for x:=1 to Wx do

               begin

                col:=po[y]^[x] ;

                col:=col shr 4;

                putpixel(x+5,y+Wy+15,15-col);

               end;

             end

            else

             begin

              OutTextXY(Getmaxx -200 ,getmaxy-20,'Dlia vivoda negativa Press any key  ');

              c:=readkey;

              clrscr;

               for y:=1 to Wy do

                for x:=1 to Wx do

                 begin

                  col:=po[y]^[x] ;

                  col:=col shr 4;

                  putpixel(x+5,y+10,15-col);

                 end;

              end;

         OutTextXY(Getmaxx -200 ,getmaxy-20,'Press any key  ');

        str(getmaxx+1,Xmax);  {преобразование числа GetMaxX+1  }

                              {в  строку     Xmax              }

        str(getmaxy+1,Ymax);

                      {GetMaxX+1,GetMaxY+1  максимальное число }

                      {точек по горизонтали и вертикали        }

        SetColor(15);                              {цвет букв      }

        OutTextXY(10,0,'     File  '+ImageFile1);  {вывод текста   }

        OutTextXY(getmaxx-220,0,'Resolution   - '  {в граф. режиме }

                  +Xmax+' x '+Ymax);

        str(Wx,Xmax);

        str(Wy,Ymax);

        OutTextXY(getmaxx-220,15,'Picture size - '

                  +Xmax+' x '+Ymax);

     Xpal:=0; Ypal:=getmaxy-30;

     SetColor(15);                           {выбор цвета букв     }

     OutTextXY(Xpal,Ypal,'  Palitra  ');

     for col:=0 to 15 do

     for   y:=0 to 10 do

     for   x:=0 to 10 do

     putpixel(Xpal+col*12+x,Ypal+16+y,col);

     c:=readkey;

  Closegraph;                            {закрыть графический режим}

End.

4. Инструкция пользователя. Запустить файл (*.exe), первого файла, следуйте инструкциям на экране, затем повторите действия со вторым.