Mail

В этот день много лет назад...
27 января. В 1302 году (724 года назад) - Данте Алигьери покидает Флоренцию. Фактически это - изгнание поэта из родного города, так как он принадлежит к партии "белых" гвельфов, потерпевших поражение в политической борьбе с "черными" гвельфами. Заочно Данте приговорен к сожжению с конфискацией имущества. Позже поэт станет, по его выражению, "сам себе партией". Городские власти попытаются заставить его вернуться назад, но поставленые ими условия будут унизительными для достоинства Данте, и он вновь будет приговорен к смерти. Поэт проведет всю оставшуюся жизнь в скитаниях по городам Италии и за рубежом и закончит свой жизненный путь в Равенне. Вынесенный ему приговор будет отменен в 1966!

Turbo Pascal Documentation

Процедура PutPixel

     Функция: Строит элемент изображения) в точке (x,y).
     Описание: PutPixel(x,y : integer; эл_изображ : word).
     Примечания: Строит в (x,y) точку, цвет которой  опреде-
ляется параметром "эл_изобр".
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetImage, GetPixel,  PutIm-
age.
     Пример:
uses Graph;
var
    p  : pointer;
Color : word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  ig GraphResult <> grOk then
     Halt(1);
  Color := GetMaxColor;
Randomize;
repeat
   PutPixel(Random(100),Random(100),Color); { строит "звездочки" }
   Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.