home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DOMEK.IPS < prev    next >
Encoding:
Text File  |  1997-08-16  |  926 b   |  19 lines
  1. PROCEDURE main
  2.    ImageShow;                     {aktivace grafickΘ plochy}
  3.    ImageInit(200, 150);           {inicializace grafickΘ plochy}
  4.    ImageBrushColor(clLime);       {nastevenφ zelenΘ barvy plochy}
  5.    Rectangle(0, 130, 200, 150);   {nakreslenφ zahrßdky}
  6.    ImageBrushColor(clOlive);      {nastavenφ tmav∞ zelenΘ barvy}
  7.    Rectangle(20,60, 105, 130);    {nakreslenφ st∞ny domu}
  8.    ImageBrushColor(clYelow);      {nastavenφ ₧lutΘ barvy}
  9.    Rectangle(28, 70, 48, 90);     {hornφ levΘ okno}
  10.    Rectangle(52, 70, 72, 90);     {hornφ st°ednφ okno}
  11.    Rectangle(76, 70, 96, 90);     {hornφ pravΘ okno}
  12.    Rectangle(28, 100, 48, 120);   {levΘ dolnφ okno}
  13.    Rectangle(52, 100, 72, 130);   {dve°e}
  14.    Rectangle(76, 100, 96, 120);   {pravΘ dolnφ okno}
  15.    Ellipse(140,20, 170, 50);      {slunφΦko}
  16.    ImageBrushColor(clRed);        {nastavenφ ΦervenΘ barvy}
  17.    Triangle(20,60, 60,25, 105,60);{st°echa}
  18. ENDPROC
  19.