FORTRAN图形操作.pptVIP

第十二章 FORTRAN图形操作 绘图基础 QuickWin窗口的创建 图形坐标系 图形属性 基本图形函数 图形字符操作 一、QuickWin绘图基础 QuickWin支持以像素为基础的图形，其图形库包括了一套完整的图形函数集。 1．QuickWin图形库 MSFLIB.F90:绘图子程序的定义及接口 MSFLIB.MOD:图形过程符号常量说明以及与绘图过程相关的结构体的定义 2. QuickWin应用程序的创建 二、QuickWin窗口的创建 设置图形模式 RESULT = SETWINDOWCONFIG(WC) RESULT为LOGICAL型变量，若调用成功，返回值为.TRUE.，否则为.FALSE.。WC为WINDOWCONFIG结构体类型变量。 TYPE WINDOWCONFIG INTEGER(2) NUMXPIXELS ! X轴的像素个数 INTEGER(2) NUMYPIXELS ! Y轴的像素个数 INTEGER(2) NUMTEXTCOLS ! 最大文本列数 INTEGER(2) NUMTEXTROWS ! 最大文本行数 INTEGER(2) NUMCOLORS ! 颜色索引数 INTEGER(4) FONTSIZE ! 缺省的字体大小。 CHARACTER(80) TITLE ! 窗口标题 …… END TYPE WINDOWCONFIG 2.窗口操作 (1) 打开子窗口 OPEN（UNIT = n, FILE = ‘USER’, TITLE = wname, IOFOCUS = status） (2) 激活窗口 result = SETACTIVEQQ(unit) (3) 控制窗口的大小和位置 result = SETWSIZEQQ(unit, winfo) winfo为结构体QWINFO类型。结构体QWINFO包含窗口的位置和大小信息，它在模块MSFLIB.MOD中的定义为： TYPE QWINFO INTEGER(2) TYPE ! 窗口类型 INTEGER(2) X ! 左上角的X轴坐标 INTEGER(2) Y ! 左上角的Y轴坐标 INTEGER(2) H ! 窗口的高度 INTEGER(2) W ! 窗口的宽度 END TYPE QWINFO 三、图形坐标系 QuickWin坐标系均为左手坐标系。默认为像素坐标系,坐标值为整数，从0开始计数，故分辨率为640×480的屏幕如下: 视窗坐标 :实数坐标系 result = SETWINDOW (finvert, wx1, wy1, wx2, wy2) 其中，finvert为逻辑量，其值为真，则视窗的Y 轴与视口Y轴相反，否则与视口坐标系相同。wx1、wy1、wx2、wy2均为双精度实型，(wx1, wy1)和(wx2, wy2)分别定义视窗的左下角和右上角，视窗原点由(wx1, wy1)和(wx2, wy2)的值所确定。设置了视窗坐标系，就不再需要进行数据转换工作，可调用绘图过程在子窗口中直接绘图。 四、图形属性 图形颜色 RGB的色值由3字节组成，每一字节取值范围为 0~255，分别代表蓝、绿、红三色的颜色深度，各表示成2位16进制数字，从右往左依次为红、绿、蓝；数字越大，所对应的颜色强度越强。 例4 设置绘图窗口为白色，用PRINT语句输出兰色文字，用OUTGTEXT函数输出红色字符。 USE MSFLIB INTEGER(4) RESULT TYPE(XYCOORD) XY RESULT = SETBKCOLORRGB(#FFFFFF) CALL CLEARSCREEN ($GCLEARSCREEN) RESULT = SETTEXTCOLORRGB(#FF0000) PRINT *, This is blue RESULT = SETCOLORRGB(#0000FF) CALL MOVETO(20,20,XY) CALL OUTGTEXT(This is red) END 线型 线型（LineStyle）是点、横线和空格等按一定规律重复出现而形成的图案，是构成直线条的基本图元。 CALL SETLINESTYLE (mask) mask是一个16位二进制数，其中每位对应线型图元的一个像素。若位值为零，则像素保持当前背景色；若位值为1，则像素被置为当前前景色。缺省线型模式是#