资源描述：
《fortran中quickwin绘图基础》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1 QuickWin绘图基础QuickWin支持以像素为基础的图形，其图形库包括了一套完整的图形函数集。1．QuickWin应用程序QuickWin图形库提供了MSFLIB.F90和MSFLIB.MOD两个文件，其中包括了访问所有图形函数的说明。文件MSFLIB.F90中包含绘图子程序的定义及接口，文件MSFLIB.MOD中包含了图形过程符号常量说明以及与绘图过程相关的结构体的定义。因此，任何使用QuickWin的程序必须包含USEMSFLIB语句以访问QuickWin的图形库，USEMSFLIB语句应出现在任何声明语句和其他模块包含语句之前
2、。在默认情况下，QuickWin应用程序拥有一个框架主窗口和一个输出子窗口。在主窗口中，有对子窗口及其图形和文本实施操作的菜单栏，其中，File菜单中的Save命令可以把绘图结果保存成*.BMP位图文件。2．QuickWin应用程序的创建例1 创建显示正弦波形的QuickWin应用程序。操作步骤如下： （1）在MicrosoftDeveloperStudio中单击File菜单下的New菜单项，在New对话框中选择ProjectWorkspace，单击OK按钮。 （2）在NewProjectWorkspace对话框中，选择QuickWi
3、nApplication，将工程名称设置为My_win，单击Create按钮。（3）在MicrosoftDeveloperStudio中单击File菜单下的New菜单项，在New对话框中选择TextFile，单击OK按钮，在编辑区输入以下源程序：USEMSFLIBPARAMETER(PI=3.141593)TYPE(QWINFO)winfoTYPE(WXYCOORD) xyINTEGER(2)resultREALaREAL(8)x,yCHARACTERC*4!设置子窗口最大化winfo.type=QWIN$MAXresult=SETWSIZE
4、QQ(0,winfo)result=SETWSIZEQQ(QWIN$FRAMEWINDOW,winfo)!设置子窗口的背景色为白色result=SETBKCOLORRGB(#FFFFFF)CALLCLEARSCREEN($GCLEARSCREEN)!设置绘图的颜色为黑色result=SETCOLORRGB(#000000)!设置视窗result=SETWINDOW(.TRUE.,-2*pi-1,1.5,2*pi+1,-1.5)!绘制坐标轴x=2*pi+0.5CALLMOVETO_W(-x,0D0,XY)result=LINETO_W(x,0D
5、0) !横轴y=1.2CALLMOVETO_W(0D0,y,XY)RESULT=LINETO_W(0D0,-y) !纵轴!坐标轴刻度RESULT=INITIALIZEFONTS()RESULT=SETFONT('h16w12i')DO i=-360,360,90 x=pi*i/180-0.5 CALLMOVETO_W(x,0D0,XY) WRITE(c,"(I4)")i CALLOUTGTEXT(c)ENDDO!绘制正弦曲线DOa=-360,360,0.5 x=pi*a/180
6、 y =SIN(x) result=SETPIXEL_W(x,y)ENDDOREAD(*,*)!按回车键结束END（4）以文件名demo.f90保存源程序，然后在MicrosoftDeveloperStudio中单击Insert菜单下的FilesintoProject菜单项，将Demo.f90文件加入到My_win工程中；（5）在MicrosoftDeveloperStudio中分别单击Build菜单下的Compile、Build、Execute菜单项，用以编译、生成并运行My_win文件。 2 QuickWin窗口的创建QuickWin
7、库包含了许多创建和控制QuickWin窗口的过程。下面介绍这些过程。2.1访问窗口属性设置图形模式,可使用SETWINDOWCONFIG函数。通过给派生类WINDOWCONFIG中的分量赋值，指定当前的窗口大小等。函数调用方法如下： RESULT=SETWINDOWCONFIG(WC)其中，返回值RESULT为LOGICAL型变量，若调用成功，返回值为.TRUE.，否则为.FALSE.。WC为WINDOWCONFIG结构体类型变量，该类型在MSFLIB.MOD中定义，包含了窗口的大小、颜色、字符集等属性，其定义如下：TYPE WI
8、NDOWCONFIG INTEGER(2) NUMXPIXELS !X轴的像素个数 INTEGER(2) NUMYPIXE
