Inicializace grafiky, domeček jedním tahem :-)

Oh, tak si zase malujeme. Tentokrát opravdu vážně. 😉
Domeček jedním tahem

 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.

7 thoughts on “Inicializace grafiky, domeček jedním tahem :-)

  1. Co ej tohle za domecek???
    Jooo to za mejc mladejch let byl domecek se slunickem, stromeckem, kominkem, strechou, s taskama, travnickem, okynkem se zavesem, dverma s klikou… no proste super dilo!!

  2. Máme Benedikoviče, studenti u Péti přirozeně dělali vše, co popisuješ 🙂
    Krásně nám všechno vysvětloval, proč to tak je… takže konečně třeba vím, jaký je rozdíl mezi TP a BP (pokud nekecal :-))

    a tohle je taky super dílo 😉 Zvlášť, když já úplně sama! 😆

  3. Nevím ti proč, ale připomíná mi to mé začátky v pascalu….. :-)))))))))))

Comments are closed.