| 查看: 231 | 回复: 0 | |||
linliuqiu新虫 (初入文坛)
|
[交流]
【求助】高手指点下该怎么改
|
我想通过编程画出下图这样的图形，但是，我画出来的是椭圆的，怎样画出大小形状一样的图。 我的程序是： SUBROUTINE DRAW ! ! USE DFLIB USE DATA_MODULE TYPE (wxycoord) poly(4) bcolor=SETBKCOLORRGB(#FFFFFF) !white CALL CLEARSCREEN( $GCLEARSCREEN ) status = SETWINDOW( .TRUE., 0.0_8, 0.0_8, DofX+1.0_8, REAL (DofY+1.0_8)) !!!!!!!!!!!!! DO j = 1, DofY DO i = 1, DofX X1=i-0.5 Y1=j-0.5 X2=i+0.5 Y2=j+0.5 IF (ET(i,j)==0) THEN color = SETCOLORRGB (#FFFFFF) !white status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) ELSE IF (ET(i,j)==1) THEN color = SETCOLORRGB (#C0C0C0) !Gray status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) ELSE IF (ET(i,j)==2) THEN color = SETCOLORRGB (#0000FF) !red status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) END IF END DO END DO END SUBROUTINE DRAW 各位高手看下我该怎么改，才能出来像上图那样的图形 [ Last edited by linliuqiu on 2010-9-2 at 16:34 ] |
回复此楼» 猜你喜欢
085801 总分275 本科新能源 求调剂
已经有22人回复
-
298分 070300求调剂
已经有3人回复
-
材料与化工306分找调剂
已经有13人回复
-
070305高分子化学与物理 304分求调剂
已经有15人回复
-
260求调剂
已经有4人回复
-
299求调剂
已经有5人回复
-
求调剂求调剂
已经有7人回复
-
265求调剂
已经有15人回复
-
070300化学求调剂
已经有5人回复
-
296材料专硕求调剂
已经有13人回复
120