| 查看: 232 | 回复: 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 ] |
回复此楼» 猜你喜欢
265求调剂
已经有9人回复
-
085600材料与化工调剂
已经有20人回复
-
专硕 351 086100 也是考的材科基 本科也是材料
已经有6人回复
-
085600专硕材料与化工348分求调剂
已经有10人回复
-
085600 295分求调剂
已经有21人回复
-
285求调剂
已经有5人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有9人回复
-
一志愿0817化学工程与技术，求调剂
已经有8人回复
-
271分求调剂学校
已经有3人回复
-
生物学308分求调剂（一志愿华东师大）
已经有7人回复
