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

і Построениеизолинийизстандартныхэлементов > i ngm - числоградацийZ > { их, пу- числоградацийпокоординатамX иY > < zmax, zmin - максимальноекминимальноезначенияZ > procecure IZ0LIN; type ColAr- array [1.. ngm); i массивцветовградацийZ> Nci - arrav t1..23 of integer; ncpa - array tl..ny+l of Npi; i массив.цветовк координатY верхнихугловэлементов> const Соіѵ гСоІАг- (8, 1, 9, 3, 2, 10, 14, 12, 4, б); var Qpi : array [1..41 of Npi; < массивкоординат (X,Y) угловэлемента ix, зу : integer; zcur, zd, xcur : real; ncp, ncps : ncpa; jcp, ppY : integer; zkk, prx2 : reab <8i IZ01> Ш IZ02) begin zc (zmax - zmin) / ngm xcur xmin; { начальныезначенияпередрасчетом> Qpi [3.1] :- XgT (xmin): prX2 :- DX / ПХ/ 2; for ix 1 to nx+1 do begin jcp - 1, for зу 1 to ny do IZ01; if ix <> 1 then IZ02; ncps :- ncp; end; end; { IZOLIN > Пример 4.3 Пример4 4 (Считываниеданныхиопределениецветаикоординатэлементов» procedure IZCi; var се : integer; і номерцветовойградации> Zi;i : real ; { значениефункциь ) Degir; TPEArray.RETA (ТРА, ix-1, Jy-1, Zij); { Определениецветаэлемента> се Trunc ((Zij - zmin)/ zd) * 1; if ce > ngm then ce ngm; if jcp - i then begin zkk YM [jy]; ncp [1,1] :■ce; ncp [1,2] :- zkk; jcp 2; end else begin 6-4