绘图、界面功能简介.doc

fortran绘图、界面功能简介 Science Tools 2007-11-29 20:43:00 阅读78 评论0 ??字号：大中小?订阅 -??Fortran中文网?? (/bbs/index.asp)--??Fortran语言开发经验交流?? (/bbs/list.asp?boardid=3)----??[分享]fortran绘图、界面功能简介?? (/bbs/dispbbs.asp?boardid=3id=569) --?? 作者：lm_lxt--?? 发布时间：2006-12-29 9:17:11--?? [分享]fortran绘图、界面功能简介对于fortran的绘图、界面功能，我仅仅做一个简单的罗列，这样方便大家的讨论： 1.利用fortran的扩充函数绘图，下面是一个简单的例子，是/上面有人贴出的； ??????? Visual Fortran中有提供绘图功能。Visual Fortran的绘图功能不完全是以扩充函数的类型存在，使用它的绘图功能必须在选择Project类型时，选择Standard Graphics或QuickWin模式。 Visual Fortran的QuickWin及Standard Graphics模式在简单的绘图使用上会比较方便，它的绘图函数功能比较多样，不过效率会比较差，而且不支持动画功能。 ??????? Standard Graphics和QuickWin模式在绘图方面的使用方法完全相同，它们都是调用相同的函数来绘图。差别在于Standard Graphics只能打开一个窗口来绘图、QuickWin模式则可以打开多个窗口来绘图。QuickWin模式下可以有菜单及对话窗的功能，Standard Graphics则不行。Standard Graphics模式的程序代码可以原封不动直接转换到QuickWin模式下使用，但是QuickWin的程序代码并不一定可以直接拿到Standard Graphics模式下使用。 ??????? 下面这个程序会在屏幕上画出一条斜线、一个方形及一个椭圆。编译程序时，请选择Fortran Standard Graphics or QuickWin Application这个模式。这个程序可以在Standard Graphics或QuickWin模式下使用。打开好Project后，再把下面的程序加入Project中来编译。 1.! 简单的绘图范例 2.! By Perng 1997/9/19 3.program Plot_Demo 4.! 使用Visual Fortran的绘图功能时需要module dflib 5.use DFLIB??? 6.implicit none 7.?? type(xycoord) :: t 8.?? integer :: result 9.?? call MoveTo(10,10,t)?? ! 把目前绘图的位置移动到坐标(10,10) 10.?? result=LineTo(100,50) ! 从(10,10)到(100,50)间绘一条直线 11.?? ! 画一个左上角为(110,10), 右下角为(150,50)的实心方形 12.?? result=Rectangle( $GFILLINTERIOR, 110,10, 150, 50 ) 13.?? ! 画一个可以放入在(10,60)--(150,100)方形当中的空心椭圆 14.?? result=Ellipse($GBORDER, 10, 60, 150, 100) 15.end program Plot_Demo 使用Standard Graphics模式时，会出现一个绘图窗口来画图。使用QuickWin模式时，除了绘图窗口外，还有内定的菜单可以使用。File菜单中的Print可以把图形显示出，Save可以把绘图结果储存成*.BMP图文件。 ??????? 使用Visual Fortran的绘图功能时，打开窗口的工作是自动完成的。程序代码只需要直接调用绘图函数就可以进行绘图，下面对程序中所使用的绘图函数做一些介绍： subroutine MoveTo(x,y,t) 使用这个子程序时，要先把屏幕想像成一张画纸，程序会使用一只画笔在屏幕上画画。MoveTo(x,y,t)可以把这只画笔移动到画纸上的(x,y)坐标处，参数t则会返回移动之前的画笔所在位置（这个参数其实没有什么用，不过既然有规定就一定要把它放入）。 请注意，原点(0,0)是位在窗口的左上角，x坐标轴向右为正，y坐标轴向下为正。 integer(2) function LineTo(x,y) 这个函数可以把画笔从目前的位置到(x,y)处画一条直线。返回值如果不为0，代表函数运行不正常。 intege