有个关于Intel Visual Fortran中Quickwin作图的问题

li913

[Fortran] 纯文本查看 复制代码

program test
    use ifqwin
    implicit none
	real(8) wx, wy
    TYPE(wxycoord) wxy
	type(windowconfig) wc
    integer(2) istatus
    logical(4) Lgc
    !x，y 坐标范围
    wx = 4.0; wy = 3.0
    !获取默认窗口配置信息
	istatus = getwindowconfig(wc)
    !更改窗口大小，使x、y方向像素密度相同： wc%numXPixels/wx = wc%numYPixels/wy
	wc%numXPixels = 800
	wc%numYPixels = 600
    do
        !重新配置窗口。需要循环，因为可能执行一次不会成功
	    Lgc = setwindowconfig(wc)
        if(Lgc) exit
    end do
    !设置x, y 范围
    istatus = setwindow(.true., -wx, wy, wx, -wy)
	call moveto_w(-wx,0.d0,wxy)
    istatus = lineto_w(wx,0.)
	call moveto_w(0.d0,-wy,wxy)
    istatus = lineto_w(0,wy)
	istatus = ellipse_w($gborder, -1,1,1,-1)
    !最后显示时不要全屏
end

li913

这段代码是自己写的。你可以看看周振红的书《Intel Visual Fortran应用程序开发》
http://fcode.cn/resource_ebook-2-1.html