Графическое программирование на Ms Fortran
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение 8 класс, рефераты бесплатно
Добавил(а) на сайт: Janutan.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
! Рисование диагональной линии
call getvideoconfig(vc) ! определение видеоконфигурации
dum=setcolor(2)
call moveto(-50,-100,xy)
dum=lineto(vc.numxpixels-50,vc.numypixels-100)
read*
call setviewport(100,100,200,200) ! окно просмотра, координаты - физические
dum=floodfill(1,1,3) ! заполнение области (окна просмотра) текущим цветом
! при отсутствии окна просмотра заполняется весь экран
read*
! Рисование и масштабирование эллипса в квадратном окне просмотра
call clearscreen($gclearscreen)
write(5,*)'Введите диаметры эллипса по горизонтали и вертикали'
read(5,*)dg,dv
call setviewport(100,100,300,300) ! окно просмотра, координаты - физические
dum=rectangle($gborder,1,1,199,199) !рамка окна
maxdim=max(dg,dv) ! Максимальный габарит рисунка
dum=setwindow(.false.,0.,0.,maxdim,maxdim)
if(dum.eq.0) write(5,*)'Ошибка установки окна'
! Рисование, масштабирование эллипса и его центровка
xcen=0.5*(maxdim-dg)
ycen=0.5*(maxdim-dv)
dum=ellipse_w($gfillinterior,xcen,ycen,xcen+dg,ycen+dv)
end
Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата