home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / ctenari / Plavja / Exe / rytz.dk < prev    next >
Text File  |  1999-09-02  |  358b  |  17 lines
  1. rytz (Ro, M, N, K, L) {
  2.   MN = usecka(M, N);
  3.   KL = usecka(K, L);
  4.   S = p(MN,KL);
  5.   k = kolmice(Ro, MN, S);
  6.   M2 = bod(k, S, v(M,S)):1;
  7.   d = primka(M2, L);
  8.   o = (M2+L)/2;
  9.   kr = kruz(Ro, o, v(o,S));
  10.   R = p(kr, d);
  11.   osa = primka(S,R);
  12.   A = bod(osa:0, S, v(R:1, L)):0;
  13.   B = bod(osa:1, S, v(R:1, M2)):0;
  14.   e = elipsa(A, B, S);
  15.   vrat e;
  16. }
  17.