fortran圖形操作ppt課件(已修改)
2025-05-24 05:50 本頁(yè)面
【正文】 第十二章 FORTRAN圖形操作 繪圖基礎(chǔ) QuickWin窗口的創(chuàng)建 圖形坐標(biāo)系 圖形屬性 基本圖形函數(shù) 圖形字符操作 一、 QuickWin繪圖基礎(chǔ) QuickWin支持以像素為基礎(chǔ)的圖形，其圖形庫(kù)包括了一套完整的圖形函數(shù)集。 1． QuickWin圖形庫(kù) ? :繪圖子程序的定義及接口 ? :圖形過(guò)程符號(hào)常量說(shuō)明以及與繪圖過(guò)程相關(guān)的結(jié)構(gòu)體的定義 2. QuickWin應(yīng)用程序的創(chuàng)建 二、 QuickWin窗口的創(chuàng)建 RESULT = SETWINDOWCONFIG(WC) RESULT為 LOGICAL型變量，若調(diào)用成功，返回值為 .TRUE.，否則為 .FALSE.。 WC為 WINDOWCONFIG結(jié)構(gòu)體類(lèi)型變量。 TYPE WINDOWCONFIG INTEGER(2) NUMXPIXELS ! X軸的像素個(gè)數(shù) INTEGER(2) NUMYPIXELS ! Y軸的像素個(gè)數(shù) INTEGER(2) NUMTEXTCOLS ! 最大文本列數(shù) INTEGER(2) NUMTEXTROWS ! 最大文本行數(shù) INTEGER(2) NUMCOLORS ! 顏色索引數(shù) INTEGER(4) FONTSIZE ! 缺省的字體大小。 CHARACTER(80) TITLE ! 窗口標(biāo)題 …… END TYPE WINDOWCONFIG (1) 打開(kāi)子窗口 OPEN（ UNIT = n, FILE = ‘USER’, TITLE = wname, IOFOCUS = status） (2) 激活窗口 result = SETACTIVE(unit) (3) 控制窗口的大小和位置 result = SETWSIZE(unit, winfo) winfo為結(jié)構(gòu)體 QWINFO類(lèi)型。結(jié)構(gòu)體 QWINFO包含窗口的位置和大小信息，它在模塊 ： TYPE QWINFO INTEGER(2) TYPE ! 窗口類(lèi)型 INTEGER(2) X ! 左上角的 X軸坐標(biāo) INTEGER(2) Y ! 左上角的 Y軸坐標(biāo) INTEGER(2) H ! 窗口的高度 INTEGER(2) W ! 窗口的寬度 END TYPE QWINFO ? QWIN$MIN ? QWIN$MAX QuickWin坐標(biāo)系均為左手坐標(biāo)系 。 默認(rèn)為像素坐標(biāo)系 ,坐標(biāo)值為整數(shù) ， 從 0開(kāi)始計(jì)數(shù) ， 故分辨率為 640 480的屏幕如下 : 三、 圖形坐標(biāo)系 將坐標(biāo)原點(diǎn)設(shè)置在物理坐標(biāo)點(diǎn) (x， y) ： CALL SETVIEWORG (x, y, t) 其中 (x, y)為新原點(diǎn)的物理坐標(biāo)， t為 XYCOORD 結(jié)構(gòu)體類(lèi)型的變量。 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)系相同。 wx wy wx wy2均為雙精度實(shí)型， (wx1,
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1