| 查看: 221 | 回复: 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 ] |
回复此楼» 猜你喜欢
参与限项
已经有3人回复
-
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复