第12章 FORTRAN图形用户界面.ppt

文档介绍：第十二章 FORTRAN图形用户界面的设计
图形界面的设计
QuickWin绘图应用
对话框的设计
一、图形界面的设计
1. QuickWin应用程序的创建过程
在Microsoft Fortran PowerStation中调用QuickWin 库来创建QuickWin应用程序。

窗口特征
控制窗口的函数

(1)基于事件的函数。当鼠标事件发生时调用应用程序预先定义的回调函数;
(2)中断函数。将程序挂起等候用户鼠标事件输入。
二、QuickWin绘图应用
1. 图形库函数 MSFLIB
2. QuickWin绘图坐标系
视口
坐标原点
左手坐标系
基本绘图函数
例:绘制正弦曲线
USE MSFLIB
INTEGER(2) result
INTEGER(4) color
TYPE(xycoord) XY
result=INITIALIZEFONTS() !初始化前景
result=SETFONT('Arial''h18w10i') !设置前景字体
color=SETCOLORRGB(#0000ff) !设置当前绘图颜色为红色
CALL (200,200,XY) !改变视口坐标原点位置
CALL MOVETO(INT2(-50),INT2(0),XY) !移动到指定位置
result=O(INT2(400),INT2(0)) !绘制直线
CALL MOVETO(INT2(-10),INT2(5),XY)
CALL OUTGTEXT("0") !输出字符
DO x=0,360,3
y=-SIN(x/180*)*100
result=SETPIXELRGB(INT2(x),INT2(y), #ffffff) !指定像素点色值
END DO
END
(1)视口的设置
将视口坐标原点移动到指定的物理点:CALL (x,y,origin)
其中x、y均为INTEGER(2)型输入变量,表示视口新原点的物理坐标。origin为派生类型XYCOORD。
(2)图形位置函数
位置移动:CALL MOVETO(x,y,origin)
(3)颜色函数
图形色值设定:result=SETCOLORRGB(color)
参数color、函数返回值result为INTEGER(4)型。RGB色彩在其每一个色值中,三原色各表示成2位16进制数字。从右往坐依次为红、绿、蓝;数字越大,所对应的