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

{ Соединениеточекграфикаотрезкомпрямой> const SG - CG - 10; var хе,уе, { экранныекоорд.текущейточки > хер.уер, < экранныекоорд.предыдущейточки> xel,yel,xe2,ye2 : integer; { координатыотрезка > SetViewPort (xen, yen+v, xen+g, yne, TRUE); SetColcr (CG); SetTextJustify (CentrText, CentrText); SetTextStyle (DefaultFont, HorizDir.l): xe ’(xCil - xn) * Kx; ye v - (yCl] - yn) * Ky: OutTextXY (xe, ye, SG); { Расчеткоординатначалаиконцаотрезка, соединяющеготочки> NKLine (xe, ye, хер, yep, xel, уеі, хе2, уе2); SetLineStyle (SolidLn, 0, NormWidth); Line (xel, yel, xe2, ye2); xep xe; yep ye; Пример 4.2 Второйвопроссвязанссоединениемточекграфикалиния ми. Посколькумыздесьнебудемрассматриватьвопроссглажи ванияточекграфика, тоограничимсяслучаемсоединенияточек графикаотрезкамипрямыхлинии. Вэтойзадачевозникаютсле дующиевопросы: порядоксоединенияточек, видлинииие цвет, атакжеповедениеотрезкавточках. ПустьунасимеетсярядточекТі,... ,ТЬ... ,Тт, гдеTs- точка с координатами(Хі.Уі). Если х\ .... хь...,хт~ это последовательныеотм-л-кивремени, томожносоединятьмежду собойпоследовательноизображаемыеточкиТі-і и Т;. Однаков общемслучаесоединятьпоследовательновыводимыеточкинеп равомерно. Еслимыхотимизобразитьзависимость y-f(x), то необходимопредварительнопроизвестисортировкуточекпопе ременнойх (например, впорядкевозрастанияе значений) и толькотогдапоследовательносоединять, выводянаграфик, отсортированныеточки. ВТурбо-Паскалеимеютсяследующиестандартныеформы изображениялиний: одинарной (NormWidth) итройной (ThickWidth) ширины. Неплохобылобыиметьидвойнойширины, ноэтоможноисправить, изобразивдвеодинарныелиниисо смещениемзпиксель. Каждаяизлинийможетбытьсплошной