IPB

> Setgbfsz.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

    {Setgbfsz.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the SetGraphBufSize procedure.}

 uses
   Graph;
 const
   BigPoly : array[1..700] of PointType =
    ((x:  50; y: 100),
     (x: 100; y: 100),
        { ...etc...} );
 var
   Gd, Gm : Integer;
 begin
   { Allocate 8K of buffer space so we
     can fill a 700-vertex polygon }
   SetGraphBufSize(8*1024);
   Gd := Detect; InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then Halt(1);
   FillPoly(SizeOf(BigPoly) div
             SizeOf(PointType), BigPoly);
   ReadLn;
   CloseGraph;
 end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"