Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

дваизображениядлякаждогографика: цветноедляэкранаи черно-белоедлявыводанапринтер. Тольковэтомслучаене обойтисьпростымпревращениемцветныхэлементоввчерно-бе лые. Ведьнеобходимо,чтобыполямеждуизолиниямиимелиуни кальнуюзакраску. Единственныйвыходвидитсявподборедля каждогоцветаэквивалентногоемучетно-белогозаполнителя. Приэтомдолжнавыполнятьсямонотонностьизменениянасыщен ностизаполнителяприизмененииизображаемогофактора. 3 Турбо-Паскалеимеетсястандартныйнабориз12 запол нителей: фоновымцветом, заданнымцветом, редкая, частая, гарнаяштриховкивразныхнаправлениях, редкиеичастыеточ ки, прерывистыелинии. Видзаполнителязадаетсяпривызове процедурыSetFillStyie. Однакотакогонаборазаполнителей оказываетсянедостаточнодляобеспечениятребованиямонотон ностиизменениязакраски. Приходитсяприбегатькразработке собственныхзаполнителей, какэтосделановпрограмме, при веденнойвпримере3.11. Вразделеописанийввидемассива константтипаFiilPatternType (подробнееэтоможнопосмот ретьвдокументациипоТурбо-Паскалю) приводятсяобразцы10 заполнителей. Передзаполнениемпромежуткамеждуизолиниями процедуройFillPolууказываетсяномеробразцазакраскив процедуреSetFillPattern. Нарисункевприлож. 4 можноуви детьэтупалитрузаполнителей. Пример3.11 const PattB : array [1..10] of FillPatternTyoe - Ш ((*FF, SFF, SFF, SFF, SFF, SFF. $F~, *FF), І2У (*3F, *3F,*FF, SFF, *F3, *F3, SFF, SFF), {3> i*33, $33, SFF, SFF, $33, $33, SFF, SFF). Ш (SFQ, *F0, SFO, SFO, SOF, SOF, SOF, SOF), *5) (SAA, S55, *AA, S55, SAA, *55, SAA, *55), {6> (SAA, *11, SAA, *11, SAA, *11, SAA, *11), Ш (SAA, *00, S55, SCO, SAA, S00, *55. *00), t8> (*88, *00, *22, *00, S88, S00, *22, *00), (9) (*88, *00, *00, *00, *22, *00, *00, *00), U0 > (*00, *00, *00, *00, *00, *00, *00, *00)); SetFillPattern (PattB [1], Black); FillPoly (...)-, Теперьунасестьизображениенаэкране, пригоднеедля выводанапринтер. Еслизагружендрайверграфическогорежима печатиGRAPHICS.COM, то, нажавклавишѵ PrtScr, получимкопию