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

if i - 0 then repeat -I считывание с о с т о я н и й клавиатауры> ch ReadKl (Scan); case ch of #0:case Scar; of #72: begin Dec (pk); if pk < 1 then pk :- 1 end;-(up) #80: ІПС (pk); {dn> end; #13:Inc (pk); end’ if (ch О #27) AND (pk > 0) then LOOK; until (5 <> pcx SUCCESS) OR (ch - #27); end; { 3how_CB > 3.8. Выводграфиканапринтер Еслиимеетсяцветнойпринтер, тонетособыхпроблем сделатькопиюэкранасцветнымграфикомнапринтер. Однако такиепринтерыпокавстречаютсякрайнередко, поэтомубудем рассматриватьслучайчерно-белогопринтера. Припечатицветногоизображенияначерно-беломпринтере производитсязаменараскраскиэлементоврисункасцветнойна оттенкисерого. Приэтомкаждыйцветимеетсвойсерыйэкви валент, ксожалению, неуникальный- некоторыецветавчер- но-беломизображенииимеютодинаковыйсерыйэквивалент. Это однапроблема. Другаясостоитвтом, чтозаменацветныхли нийитекстанасерыеоттенкиприводиткснижениюкачества рисунка: разноцветныелинииитекстовыенадписивчерно-бе ломвариантеимеютравнуюинтенсивностьокраскиистановятся прерывистыми. Все это заставляетиметьдвавариантакаждого изображения: дляпросмотранаэкранеидлявыводаначер- яо-белуюпечать. Простейшимрешениемявляетсязаменавсех цветных элементовизображения, выводимогонапечать, начер ные (наэкранеонибѵдутбелыми). Дляграфиковфункцийтаки делается: послевыводацветногоизображениянаэкранвыво дитсячерно-белое- дляпечати. Проблемавозникаетприпопыткепередатьвчерно-белом изображениизакраскуполеймеждуизолиниями. Еслимыпопыта емсясделатькопиюцветногоэкрананачерно-белыйпринтер, то, во-первых, мыполучимодинаковуюсеруюзакраскудляраз ныхцветныхполей, во-вторых, самокачествотакойсеройзак раскиоставляетжелатьлучшего. Опятьприходитсяформировать