Пример работы с координатными
системами. Приведены стандартная головная программа и п/п.
$DEBUG !
Производит дополнительные проверки при компиляции
include 'fgraph.fi' ! Включение интерфейсов графических
interface to function getch()
integer
getch[C,alias:’_getch’]
end
program
graph_examples
implicit NONE ! Запретить неявное объявление типов
integer *2 dum !
Фиктивная переменная
integer getch[EXTERN]
include
'fgraph.fd' ! Объявление типов
графических функций
dum=setvideomode($MAXRESMODE) ! Установить видеорежим с максимальным разрешением
call graph_win()
dum=getch() ! Задержка до нажатия любой клавиши
dum=setvideomode($DEFAULTMODE) ! Установить предыдущий
видеорежим
end
subroutine graph_win()
include
'fgraph.fd'
integer*2 dum
!
DOUBLE PRECISION dg,dv,maxdim,xcen,ycen
real*4 dg,dv,maxdim,xcen,ycen
record /xycoord/xy
record /videoconfig/vc
! Перемещение начала координат в точку (50,100)
call setvieworg(50,100,xy)
Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.Предыдущая страница реферата |
2
3
4
5
6
7
8
9
10
11
12 |
Следующая страница реферата