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

zkk (zkk + YM [jy]) / 2; ncp [jcp,l] ce; ncp [jcp, 2] zkk; Inc (jep); zkk YM [jy]; end; end; { IZ01 > Пример4.5 { Построениеполосыизлевыхиправыхэлементов> procedure IZ02; var jp : integer; cv, eg, cd, j : byte; { Закрашиваниеэлемента> procedure FiIIP (j : byte); begin SetColor (Colv [ 3 ]); SetFillStyle (1, Colv [j] ); FillPoly (4, Qpi); end; { FillP > begin 7 Изображениеполосылевыхэлементов> Qpi [1,23 Ygr (ncps [1,23); Qpi [2,23 Qpi [1,23; xcur xcur + prX2; Qpi [1,13 Qpi [3,13; Qpi [4,1] :« Qpi [1,13; Qpi [3,13 Xgr (xcur); Qpi [2,1] Qpi [3,13; { сглаживаниеэлементов> for jp 1 to jcp-1 do begin Qpi [4,23 Ygr (ncps [jp+1,23); Qpi [3,2] Qpi [4,23; j ncps [jp, 1]; if (jp+1) < jcp then begin cv ncps [jp+1,1]; eg ncp [jp,1]; cd ncp [jp+1,1]; if ( (CV - eg) AND (eg - cd) AND (cd <> j ) ) OR ((cv - eg) AND (cd <> j)) then Qpi[3,2] Ygr((ncps [jp+l,2]+ncps[jp,23) div 2) else if ((j - eg) AND (eg - cd) AND (cd 0 cv)) OR ((j - cd) AND (eg <> cv)) then Qpi[3,2] Ygr((ncps[jp+l,2]+ncps[jp+2,2]) div 2); end; FillP (j); Qpi [1,2] Qpi [4,2]; Qpi [2,2] Qpi [3,2]; end; { jp } { Изображениеполосыправыхэлементов> end; { IZ02 > 65