fortran圖形操作ppt課件(參考版)
2025-05-15 05:50本頁面
【正文】 y = sin(tper)* CALL MOVETO_W( x, y, t) CALL OUTGTEXT(str(i)) END DO END 。 y4 = sin(per) bcolor = bcolor*2F status = SETCOLORRGB(bcolor) status = PIE_W($GFILLINTERIOR, x1, y1, x2, y2, x3, y3, x4, y4) x3 = x4。 y2 = 1 x3 = 1。) x1 = 1。 n=n+1 END DO REWIND(10) ALLOCATE(score(n)) DO i=1,n READ(10,*) score(i) END DO DO i=1,n IF(score(i)60) THEN p(5)=p(5)+1 ELSEIF(score(i)==100) THEN p(1)=p(1)+1 ELSE p(10score(i)/10) = p(10score(i)/10)+1 ENDIF END DO CALL PLOT_PIE(p, n, 5, str) END SUBROUTINE PLOT_PIE(p, n, k, str) USE MSFLIB INTEGER status, p(k) CHARACTER*10 str(n) REAL(8) x1, y1, x2, y2, x3, y3, x4, y4, x, y INTEGER(4)::bcolor=1,tcolor PARAMETER(pi=) TYPE(WXYCOORD) t status = SETWINDOW(.TRUE., , , , ) ! 設(shè)置視窗大小 status = SETBKCOLORRGB(FFFFFF) CALL CLEARSCREEN($GCLEARSCREEN) status = INITIALIZEFONTS() status = SETFONT(39。 （ 2）過程 PLOT_PIE繪制餅圖。要求在圖中標(biāo)注各塊的意義。h,I2,w,I2,39。t39。華文彩云 39?？w _GB231239。隸書 39。輸出的字符串在當(dāng)前圖形位置，使用當(dāng)前字體（由 SETFONT設(shè)定）和當(dāng)前圖形色（由 SETCOLORRGB設(shè)定）顯示。 取值 意義 ‘ t’ ‘fontname’ 指定字體 hx 字符高度 wy 字符寬度 f 選擇一種固定間距的字形 p 選擇一種比例間距的字形 e 粗體 u 下劃線 i 斜體 例： index = SETFONT(‘t’ ‘ Times New Roman’ ‘h18wl0’) 以像素為單位 3．設(shè)置文本顯示角度 CALL SETGTEXTROTATION (degrees) 其中 degrees為 INTEGER(4)型，計量單位是十分之一度。 result = SETFONT( options ) 其中， result為 INTEGER(2)型，如果函數(shù)執(zhí)行成功，返回字型的索引號，否則返回負(fù)整數(shù)。 USE MSFLIB INTEGER(2) status INTEGER(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 = E
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1