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

close (FIM2); SetActivePage (0); SetVisualPage (0); with ViewPort do SetViewPort (xl, vl, x2, yZ, True); end; ■( G2_Get > Такомуспособусохраненияизображенияприсущряднедос татков : во-первых, сохранитьможнотолькочасть изобра жения, поэтомуприходится"разрезать" изображениенадвечас тиихранитьввидедвухфайлов, во-вторых, записьивосста новлениеизображениятребуетмноговремени, в-третьих, фор матхраненияизображенияопределяетсяконкретнойпрограммой наТурбо-Паскале, чтозатрудняетпросмотризображенияиздру гихпрограмм. Другойспособсохраненияизображениясвязансиспользо ваниемпакетаToolKit, спомощьюкоторогоможнохранить изображениявстандартномформатетипаPCX (пример3.8). Ес линажатаклавиша"g" или"G", тоизображениесохраняетсяв файлесименем, состоящимизсимволаG иномераграфика, и расширениемPCX. Сначаланомерграфикасчитаетсяравным1, затемпроверяется, существуетлифайлсименемG1.PCX; если существует, тономерувеличиваетсянаединицу, еслинет- изображениезаписываетсявфайл. Передзаписьюфайларазда етсяодинарныйсигнал, апослезаписи- двойной, чтопозво ляетконтролироватьзаписьизображения. Пример3.6 < Запись в файлизображенияграфика> procedure G2_Write_pcx; var ngr : integer; sngr : string [53; fiiepcx : string; begin repeat until KeyPressed; if UpCase(ReadKey) - ’G’then begin fiiepcx *6' + '1' + ’.pcx'; w^ile FileExists (fiiepcx) do begin Inc (ngr); Str (ngr, sngr); fiiepcx 'G' + sngr + ’.pcx’; end; wri te (#7)* i := pcxDišplayFile (Fiiepcx, 0, 0, MaxX, MaxY. 0); 47