第12章FORTRAN图形操作.ppt
QWIN$MIN QWIN$MAX将坐标原点设置在物理坐标点(x，y)：CALL SETVIEWORG(x,y,t)其中(x,y)为新原点的物理坐标，t为XYCOORD 结构体类型的变量。TYPE xycoord INTEGER(2)xcoord !x坐标 INTEGER(2)ycoord !y坐标END TYPE xycoord 1设置颜色result=SETCOLORRGB(color)result=SETBKCOLORRGB(color)result=SETTEXTCOLORRGB(color)color为Integer(4)型，一般用16进制表示颜色取值。要使设置的背景色发生作用，须使用CLEARSCREEN函数清空目标区域，填充样式（FillMask）是横线、竖线和斜线等按一定规律重复出现而形成的图案，是构成填充部分的基本图元。位元素位元素其中(x,y)为INTEGER(2)型，为视口坐标系中目标像素的坐标；(wx.wy)为 REAL(8)型，为视窗坐标系中目标像素的坐标。xy3sinUSE MSFLIB INTEGER(2)statusTYPE(xycoord)xystatus=SETCOLORRGB(#FFFFFF)CALL MOVETO(INT2(80),INT2(50),xy)status=LINETO(INT2(240),INT2(150)CALL SETLINESTYLE(#FF00)status=LINETO(INT2(240),INT2(50)READ(*,*)!按回车键结束程序ENDUSE MSFLIBINTEGER(2)statusINTEGER(1):style(8)/#01,#02,#04,#08,#10,#20,#40,#80/!右斜线!绘制红色空心椭圆status=SETCOLORRGB(#0000FF)status=ELLIPSE($GBORDER,80,50,240,150)!绘制白色填充斜线圆status=SETCOLORRGB(#FFFFFF)CALL SETFILLMASK(style)status=ELLIPSE($GFILLINTERIOR,280,50,380,150)END例：index=SETFONT(t Times New Roman h18wl0)以像素为单位USE MSFLIBTYPE(XYCOORD)xyINTEGER(4)tcolorINTEGER(2)statusCHARACTER*8:tfont,ttype(3)*20ttype=(/隶书,楷体_GB2312,华文彩云/)tcolor=#0000FFstatus=SETTEXTCOLORRGB(#FFFFFF)status=INITIALIZEFONTS()CALL MOVETO(50,100,xy)DO i=1,3WRITE(tfont,10)i*5+20,i*3+20status=SETCOLORRGB(tcolor)status=SETFONT(t/TRIM(ttype(i)/tfont)CALL SETGTEXTROTATION(i*150)CALL OUTGTEXT(欢迎)tcolor=tcolor*#100END DO10 FORMAT(h,I2,w,I2,)ENDUSE MSFLIBINTEGER,ALLOCATABLE:score(:)INTEGER:p(5)=0CHARACTER*10 str(5)str=(/90分以上,8089分,7079分,6069分,60分以下/)OPEN(10,FILE=score.dat)n=0DO WHILE(.NOT.EOF(10)READ(10,*);n=n+1END DOREWIND(10)ALLOCATE(score(n)DO i=1,nREAD(10,*)score(i)END DODO i=1,nIF(score(i)60)THENp(5)=p(5)+1ELSEIF(score(i)=100)THENp(1)=p(1)+1ELSE p(10-score(i)/10)=p(10-score(i)/10)+1ENDIFEND DOCALL PLOT_PIE(p,n,5,str)ENDSUBROUTINE PLOT_PIE(p,n,k,str)USE MSFLIBINTEGER status,p(k)CHARACTER*10 str(n)REAL(8)x1,y1,x2,y2,x3,y3,x4,y4,x,yINTEGER(4):bcolor=1,tcolorPARAMETER(pi=3.141593)TYPE(WXYCOORD)tstatus=SETWINDOW(.TRUE.,-1.2,1.2,1.2,-1.2)!设置视窗大小status=SETBKCOLORRGB(#FFFFFF)CALL CLEARSCREEN($GCLEARSCREEN)status=INITIALIZEFONTS()status=SETFONT(h32p)x1=-1;y1=-1x2=1;y2=1x3=1;y3=0per=0DO i=1,k!计算扇形大小per=per+2*pi*p(i)/nx4=cos(per);y4=sin(per)bcolor=bcolor*#2F status=SETCOLORRGB(bcolor)status=PIE_W($GFILLINTERIOR,x1,y1,x2,y2,x3,y3,x4,y4)x3=x4;y3=y4!显示数据标签tcolor=#1000000-bcolorstatus=SETCOLORRGB(tcolor)tper=per-pi*p(i)/n x=cos(tper)*0.7;y=sin(tper)*0.7 CALL MOVETO_W(x,y,t)CALL OUTGTEXT(str(i)END DOEND
