program Vale;
{ --------------------------------- }
{ KPDEMOG1.p                        }
{ dimostrativo per l'utilizzo della }
{ unit TPGRAFICA.   By Filippo Bosi }
{ Maggio 1991                       }
{ --------------------------------- }
{ VERSIONE KICKPASCAL               }
{ --------------------------------- }

  uses TPGrafica;

  var
    ErrCode  : Integer;
    xinc,yinc,
    i,x,y    : Integer;

  const
    numlinee = 50;

  begin
    { * apri le librerie grafiche * }
    Gr_OpenLibs;

    { * schermo a bassa risoluzione * }
    { * con 6 piani di bit, cioe'   * }
    { * 2^6=64 colori --> Extra     * }
    { *                   HalfBrite * }
    InitGraph(GR_LORES,6);
    ErrCode := GraphResult;
    
    { * se e' tutto Ok, allora disegna * }
    if ErrCode = grOk then
      begin
      xinc:=round(GetMaxX/numlinee);
      yinc:=round(GetMaxY/numlinee);
      x := 0;
      y := 0;

      for i:=0 to numlinee do
               begin
               SetColor(Random(64));
               Line(0,y,x,GetMaxY);
               x:=x+xinc;
               y:=y+yinc;
               end;

      { * attendi che venga premuto un * }
      { * tasto oppure un bottone del  * }
      { * mouse sullo schermo grafico  * }
      Gr_AttendiUnTasto;

      { * chiudi lo schermo grafico * }
      CloseGraph;

      end
    else
      WriteLn('Errore in InitGraph');

    { * chiudi le librerie * }
    Gr_CloseLibs;
end.