Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
boribaev-algoritmdeu
| GetLineSettings процедурасы. Түзудің ағымдағы стилін қай-тарады. Процедура тақырыбы:
Procedure GetLineSettings(var Stylelnfo: LineSettingstype) Мұндағы Stylelnfo – ағымдағы стилді қайтаратын, LineSet- tingstype типті айнымалы. LineSettingstype типі Graph модулінде төмендегідей анық-талған: type LineSettingstype = record LineStyle: Word;{Түзу типі} Pattern : Word;{Үлгі} 185 Thickness: Word {Қалыңдығы} end; SetWriteMode процедурасы. Жағадан салынатын түзу мен экранда бұрын салынған түзулер арасындағы қатынас тəсілін орнатады. Процедура тақырыбы: Procedure SetWriteMode(Mode); Мұндағы Mode – салынатын бейнелі түзулер арасындағы қатынас тəсілін анықтайтын, Integer типті өрнек. Егер Mode параметрінің мəні 0 болса, онда салынатын түзу экранда бар түзудің үстіне салынады (орталық процессордың MOV нұсқауы). Егер мəн 1 болса, онда жаңа түзу салу XOR логикалық операциясының көмегімен орындалады (ерекше ИЛИ): жаңа түзу мен экрандағы түзудің қилысу нүктелерінде пикселдің жануы инверсияланады, сондықтан бірінен соң бірі са-лынатын екі түзу экрандағы түзудің түсін өзгертпейді. SetWriteMode процедурасы орнатқан режим, Drawpoly, Line, LineRel, LineTo жəне Rectangle процедураларына да таралады. Mode параметрін беру үшін модульде анықталған төмендегі тұрақтыларды қолдануға болады: const CopyPut = 0;{ MOV операциясымен салу} XORPut = 1;{ XOR операциясымен салу } Келесі мысалда, экранда сағат циферблаты салынады (7.6-су-рет). Көрнекі болу үшін сағат жүрісі 600 есе жылдамдатыл-ған (Delay (100) операторын қараңыз). Қалауыңызша програм-маны жүйелік сағатқа қосып жəне секунд стрелкасын салып, жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|