Helenčin blog

V sobotu bylo jediné štěstí, že Terezka zpívala jako poslední. Neměla jsem zapnutou telku, takže první tři zpívající jsem prošvihla. Ostatně stejná „nehoda“ mě potkala i v pondělí. 🙂
Pro své vystoupení si vybrala i mě neznámou skladbičku. Ostatně to řekla ve svém medialonku (1 MB). I My Immortal jsem neznala, ale tahle skladbička ve mě vybudila zvědavost, jaký že je originál. Není to ani za mák můj šálek kávy (ostatně kafe nepiju). Ani porota nebyla nadšená (2 MB)…
Teri, příště něco, co znám! 😆

One Light Burning (video YouTube)

Oh, tak si zase malujeme. Tentokrát opravdu vážně. 😉

 uses Graph, Crt;

var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;

begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,' ');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { domecek jednim tahem}
   MoveTo (round (GetMaxX/2),     round (GetMaxY/2));
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+50,  round (GetMaxY/2)-100-50);
   LineTo (round (GetMaxX/2),     round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2),     round (GetMaxY/2));
   LineTo (round (GetMaxX/2),     round (GetMaxY/2)-100);
   LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));

repeat until KeyPressed;
end.