home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katB.exe / katB / CERVI / Cervi_fc.c < prev    next >
Encoding:
Text File  |  2002-09-20  |  2.9 KB  |  104 lines
  1. /*
  2. *
  3. * cervi_fc.c     Krátké a zjednoduτující funkce pro program Cervi
  4. *
  5. * Dan Lessner, 9/2002
  6. *
  7. */
  8.  
  9. void Kl¼ekejNaUdálostKlávesnice()
  10.        {
  11.           do {
  12.              Kl¼tiUdálost(gKlUdálost);  /* ƒekání na klávesu */
  13.              ¼ekej(10);
  14.           }
  15.        while (gKlUdálost.Typ == KlUdálostªádná);
  16.        }
  17.  
  18. int APPX(TypAnimP²edm╪t A){    /*zkrácení zápisu funkce AnimP²edm╪tPoziceX*/
  19.        return (AnimP²edm╪tPoziceX(A));
  20.        }
  21.  
  22. int APPY(TypAnimP²edm╪t A){    /*zkrácení zápisu funkce AnimP²edm╪tPoziceY*/
  23.        return (AnimP²edm╪tPoziceY(A));
  24.        }
  25.  
  26. double Vzdálenost(int X1,Y1,X2,Y2) /*vrátí vzdálenost dvou bodà na obrazovce,
  27.                                     *Pythagorova v╪ta*/
  28.        {
  29.        return (sqrt(sqr(X1 - X2) + sqr(Y1 - Y2)));
  30.        }
  31.  
  32. void DeaktivujTlaƒítkoNa(short int X,Y){  /* deaktivuje tl. menu na X,Y v Baltov∞ch ƒtvercích */
  33.      if (P²edm╪tNaPozici(X,Y) % 2 == 1) ¼arujNaPozici(P²edm╪tNaPozici(X,Y) - 1,X,Y);
  34. }
  35.  
  36. void AktivujTlaƒítkoNa(short int X,Y){    /* aktivuje viz fce Deaktivuj v∞τe */
  37.      if (P²edm╪tNaPozici(X,Y) % 2 == 0) ¼arujNaPozici(P²edm╪tNaPozici(X,Y) + 1,X,Y);
  38. }
  39.  
  40. void GrPiτHláτku(string ⁿádek1, string ⁿádek2) {
  41.      /* hláτka */
  42.      GrSmaºOkno();
  43.      GrNastavBarvuPop²edí(¼ervená);
  44.      GrNastavPozici(20,30);
  45.      GrPiτⁿet╪zec(ⁿádek1);
  46.      GrNastavPozici(20,50);
  47.      GrPiτⁿet╪zec(ⁿádek2);
  48.      GrNastavPozici(20,70);
  49.      GrPiτⁿet╪zec("Stiskn╪te libovolnou klávesu.");
  50.      GrNastavBarvuPop²edí(Sv╪tloτedá);
  51.      /* ƒekání na p²eƒtení hláτky */
  52.      ¼ekejNaKlávesu();   /* nebo ¼ekejNaUdálostKlávesnice(); */
  53. }
  54.  
  55. void GrPiτSoubor(char* Cesta, int X,Y) /* vypíτe na plochu soubor z Cesty jak leºí a b╪ºí */
  56. {
  57.      char Znak;
  58.      TypSoubor Soubor = SouborOtev²i(Cesta,SouborP²ístup¼tení|SouborP²ístupTextov∞);
  59.      if (Soubor == 0) return;
  60.      /* nastavení */
  61.      GrNastavV∞stup(GrV∞stupPlocha);
  62.      GrNastavPozici(X,Y);
  63.      GrNastavBarvuPozadí(Bílá);
  64.      GrNastavBarvuPop²edí(¼erná);
  65.      /* v∞pis */
  66.      while (!SouborKonec(Soubor)) {
  67.            Znak = Soubor¼tiZnak(Soubor);
  68.            /* nov∞ ²ádek? */
  69.            if (Znak != '\n') GrPiτZnak(Znak);
  70.            else {
  71.                 GrPiτNov∞ⁿádek();
  72.                 GrNastavPozici(X,GrPoziceY());
  73.            }
  74.  
  75.      }
  76.      /* nastavení zpátky */
  77.      GrNastavBarvuPozadí(¼erná);
  78.      GrNastavBarvuPop²edí(Sv╪tloτedá);
  79.      GrNastavV∞stup(GrV∞stupOkénko);
  80.      SouborZav²i(Soubor);
  81. }
  82.  
  83.  
  84.  
  85. void GrDopiτSoubor(TypSoubor Soubor, int X,Y) /* vypíτe na plochu soubor Souubor jak leºí a b╪ºí */
  86. {
  87.      char Znak;
  88.      /* nastavení */
  89.      GrNastavPozici(X,Y);
  90.      /* v∞pis */
  91.      while (!SouborKonec(Soubor)) {
  92.            Znak = Soubor¼tiZnak(Soubor);
  93.            /* nov∞ ²ádek? */
  94.            if (Znak != '\n') GrPiτZnak(Znak);
  95.            else {
  96.                 GrPiτNov∞ⁿádek();
  97.                 GrNastavPozici(X,GrPoziceY());
  98.            }
  99.      }
  100. }
  101.  
  102. //
  103. // konec souboru
  104. //