楼主
use DFLIB
integer(4),dimension(200,200)::phxs,Engh
integer(4),dimension(600,200)::rhxs,Feng
integer(4) oldcolor,CC2,kk,result5
integer(2) fontnum,status,result1,style,wfontnum,wnumfonts
logical(4) result4
logical stausmode
type(qwinfo)winfo
TYPE(xycoord) xy
TYPE(windowconfig) wc
wc.numxpixels=1024
wc.numypixels=768
wc.numtextcols=-1
wc.numtextrows=-1
wc.numcolors=-1
wc.fontsize=-1
wc.title="growth"C
stausmode=SETWINDOWCONFIG(wc)
if(.NOT.stausmode)stausmode=SETWINDOWCONFIG(wc)
winfo.type=qwin$max
result4=setwsizeqq(qwin$framewindow,winfo) !主窗口最大化
result4=setwsizeqq(0,winfo) !子窗口最大化
CALL SETVIEWPORT(int2(400),int2(25),int2(600),int2(625)) !选定了一个200X600的区域
status=SETWINDOW(.false.,0.0D0,0.0D0,200.0D0,600.0D0)
CALL CLEARSCREEN($GCLEARSCREEN)
fontnum=INITIALIZEFONTS()
oldcolor=SETCOLORRGB(#ffffbb)
CC3=FLOODFILLRGB(0,0,#ffbbbb)
……
逐行扫描数据
利用以下命令绘图
CALL MOVETO(INT2(**),INT2(**),xy)
result1=LINETO(INT2(**),INT2(**))
……
很奇怪的是我读取数组的顺序是从左向右，即从第一行，逐行扫描。
可是输出的图像跟我的数组正好偏置了！！！ 读完数组的一行，却以列来输出图像！（即水平成了Y轴，竖直方向成了X轴）
实在找不出问题出在哪，
请各位帮忙看看那，指点一二，小弟在此谢过！
integer(4),dimension(200,200)::phxs,Engh
integer(4),dimension(600,200)::rhxs,Feng
integer(4) oldcolor,CC2,kk,result5
integer(2) fontnum,status,result1,style,wfontnum,wnumfonts
logical(4) result4
logical stausmode
type(qwinfo)winfo
TYPE(xycoord) xy
TYPE(windowconfig) wc
wc.numxpixels=1024
wc.numypixels=768
wc.numtextcols=-1
wc.numtextrows=-1
wc.numcolors=-1
wc.fontsize=-1
wc.title="growth"C
stausmode=SETWINDOWCONFIG(wc)
if(.NOT.stausmode)stausmode=SETWINDOWCONFIG(wc)
winfo.type=qwin$max
result4=setwsizeqq(qwin$framewindow,winfo) !主窗口最大化
result4=setwsizeqq(0,winfo) !子窗口最大化
CALL SETVIEWPORT(int2(400),int2(25),int2(600),int2(625)) !选定了一个200X600的区域
status=SETWINDOW(.false.,0.0D0,0.0D0,200.0D0,600.0D0)
CALL CLEARSCREEN($GCLEARSCREEN)
fontnum=INITIALIZEFONTS()
oldcolor=SETCOLORRGB(#ffffbb)
CC3=FLOODFILLRGB(0,0,#ffbbbb)
……
逐行扫描数据
利用以下命令绘图
CALL MOVETO(INT2(**),INT2(**),xy)
result1=LINETO(INT2(**),INT2(**))
……
很奇怪的是我读取数组的顺序是从左向右，即从第一行，逐行扫描。
可是输出的图像跟我的数组正好偏置了！！！ 读完数组的一行，却以列来输出图像！（即水平成了Y轴，竖直方向成了X轴）
实在找不出问题出在哪，
请各位帮忙看看那，指点一二，小弟在此谢过！
