Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

      integer*2 i2

      integer*2 nx,ny       ! Max кол-во пиксел по X и Y

      integer*2 xdin,ydin ! Координаты общей точки областей

!     integer*2 nr,nc       ! Max кол-во строк и столбцов

      real kx,ky

      record /videoconfig/ vc    ! Подключ. структуры videoconfig

!     record /rcCOORD/ rc      ! и rccoord, определенных в файле fgraph.fd

      record /xyCOORD/ xy     ! xy - образец типа xycoord

      call clearscreen($GCLEARSCREEN)! Очистка экрана

      call getvideoconfig(vc)     ! Определение видеоконфигурации

      kx=75.0   ! Коэф-ты в %, определяющие положе-

      ky=80.0   ! ние общей точки областей

      nx=vc.numxpixels ! см. файл fgraph.fd

      ny=vc.numypixels ! см. файл fgraph.fd

      xdin=int2(kx*nx/100)

      ydin=int2(ky*ny/100)

      i2 = setbkcolor($GRAY)        ! Установка цвета фона

       i2=setcolor(6)                       ! Цвет красный

       i2=rectangle($GBORDER,1,1,nx-1,ny-1) ! Рамка всей области экрана

       i2=rectangle($GBORDER,2,2,xdin,ydin) ! Рамка области чертежа

       i2=rectangle($GBORDER,2,ydin+1,xdin,ny-2)! Рамка области ввода

       i2=rectangle($GBORDER,xdin+1,2,nx-2,ydin)!Рамка информац. области

       i2=rectangle($GBORDER,xdin+1,ydin+1,nx-2,ny-2)! Область автора

       i2=setcolor(12)                       ! Цвет светлокрасный

 !    Оформление области автора

Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки