Курсовая работа: Графическое программирование на Ms Fortran
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
На рисунке в круглых скобках ( ) показаны физические координаты, в квадратных [ ] координаты порта просмотра, в фигурных { } оконные координаты.
3.4. Установка атрибутов фигур.
Под атрибутами рисования понимается:
установка текущего фона рисования
установка текущего цвета рисования
установка текущего способа изображения линии (типа)
установка текущей маски заполнения цветом (штриховки)
Установка цвета фона с индексом 2:
dum = setbcolor (2). По умолчанию индекс 2 соответствует зеленому цвету.
Аналогично dum = SetBkColor ($green). $green – символическая константа, указанная в файле fgraph.fd.
Toже цвета рисования.
dum = setcolor (2)
В случае неуспешного выполнения возвращается значение -1.