fortran圖形操作ppt課件-免費(fèi)閱讀
【正文】 y3 = 0 per = 0 DO i=1, k ! 計(jì)算扇形大小 per = per + 2*pi*p(i)/n x4 = cos(per)。 分析： （ 1）用 score數(shù)組存放成績(jī)，用 p數(shù)組存放各成績(jī)段的人數(shù)（ p(1) 存放 90~100的人數(shù)， ……， p(5) 存放低于 60分的人數(shù)）。, 39。當(dāng)前字形特征（如字體、字符的高和寬等）由 options指定，其取值及意義如表所示。 USE MSFLIB REAL(8) x, y PARAMETER(pi=) INTEGER(2) status REAL(8):: DZ = , XJG = CALL SETVIEWPORT( 49, 49, 80050, 60050) DO x = 0, DZ, XJG ! 畫(huà)函數(shù)曲線 y = sin(x)**3 status=SETPIXELRGB_W(x, y, FFFFFF) END DO END xy 3sin?? 設(shè)置繪圖起點(diǎn) CALL MOVETO(x, y, xy) CALL MOVETO_W (wx, wy, wxy) wx、 wy均為 REAL(8)型，其意義為目標(biāo)點(diǎn)的視窗坐標(biāo)； wxy為結(jié)構(gòu)體WXYCOORD型的變量，結(jié)構(gòu)體 WXYCOORD類(lèi)型在 定義如下： TYPE wxycoord REAL(8) wx ! x坐標(biāo) REAL(8) wy ! y坐標(biāo) END TYPE wxycoord ? 繪制形狀 ? 繪制直線 result = LINETO (x， y) result = LINETO_ W (wx， wy) USE MSFLIB INTEGER(2) status TYPE (xycoord) xy status=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 (*,*) ! 按回車(chē)鍵結(jié)束程序 END ? 繪制矩形 result = RECTANGLE (control, xl, yl, x2, y2) result = RECTANGLE_W(control, wxl, wyl, wx2, wy2) 說(shuō)明： （ 1） result為 INTEGER (2)型。若位值為零，則像素保持當(dāng)前背景色；若位值為 1，則像素被置為當(dāng)前前景色。 TYPE xycoord INTEGER(2) xcoord ! x坐標(biāo) INTEGER(2) ycoord ! y坐標(biāo) END TYPE xycoord ?視窗坐標(biāo) :實(shí)數(shù)坐標(biāo)系 result = SETWINDOW (finvert, wx1, wy1, wx2, wy2) 其中， finvert為邏輯量，其值為真，則視窗的 Y 軸與視口 Y軸相反，否則與視口坐標(biāo)系相同。第十二章 FORTRAN圖形操作 繪圖基礎(chǔ) QuickWin窗口的創(chuàng)建 圖形坐標(biāo)系 圖形屬性 基本圖形函數(shù) 圖形字符操作 一、 QuickWin繪圖基礎(chǔ) QuickWin支持以像素為基礎(chǔ)的圖形，其圖形庫(kù)包括了一套完整的圖形函數(shù)集。 wx wy wx wy2均為雙精度實(shí)型， (wx1, wy1)和 (wx2,
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1