ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Evgenij Masherov                     2:5020/175.2   26 Sep 2001  14:32:50
 To : Alexey Danov
 Subject : Re: 2D cash
 -------------------------------------------------------------------------------- 
 

 Wed Sep 26 2001 13:25, Alexey Danov wrote to Yurij Zabelyshynskij:
 
  AD> procedure TForm1.FormPaint(Sender: TObject);
  AD> const
  AD>   SquareSize = 512;
  AD> var
  AD>   i,x0,y0,u,Px,Py: integer;
 
  AD>   procedure Line(N,dS:integer);
  AD>   var dx,dy,i:integer;
  AD>   begin
  AD>     dx := 0; dy := 0;
  AD>     case N of
  AD>       0: dy := -dS;
  AD>       2: dx :=  dS;
  AD>       4: dy :=  dS;
  AD>       6: dx := -dS;
  AD>     end;
  AD>     Canvas.MoveTo(Px,Py);
  AD>     inc(Px,dX); inc(Py,dY);
  AD>     Canvas.LineTo(Px,Py);
  AD>     // тормоз, чтоб видно было КАК рисуется ;-)
  AD>        for i := 0 to 1000000 do begin end;
  AD>   end;
 
  AD>   procedure B(i: integer);forward;
  AD>   procedure C(i: integer);forward;
  AD>   procedure D(i: integer);forward;
 
  AD>   procedure A(i: integer);
  AD>   begin
  AD>     if i > 0 then begin
  AD>       D(i-1); line(4,u); A(i-1); line(6,u);
  AD>       A(i-1); line(0,u); B(i-1)
  AD>       end;
  AD>   end;
 
  AD>   procedure B(i: integer);
  AD>   begin
  AD>     if i > 0 then begin
  AD>       C(i-1); line(2,u); B(i-1); line(0,u);
  AD>       B(i-1); line(6,u); A(i-1)
  AD>       end;
  AD>   end;
 
  AD>   procedure C(i: integer);
  AD>   begin
  AD>     if i > 0 then begin
  AD>       B(i-1); line(0,u); C(i-1); line(2,u);
  AD>       C(i-1); line(4,u); D(i-1)
  AD>       end;
  AD>   end;
 
  AD>   procedure D(i: integer);
  AD>   begin
  AD>     if i > 0 then begin
  AD>       A(i-1); line(6,u); D(i-1); line(4,u);
  AD>       D(i-1); line(2,u); C(i-1)
  AD>       end;
  AD>   end;
 
  AD> begin
  AD>   x0 := ClientWidth - (ClientWidth - ClientHeight) div 2; y0 := 10;
  AD>   u := SquareSize; i := 6;
  AD>     u := u shr i;
  AD>     x0 := x0 + (u div 2);
  AD>     y0 := y0 + (u div 2);
  AD>     Px := x0; Py := y0;
  AD>     A(i);
  AD> end;
 
 А чтобы замкнутая? 
 
 Евгений Машеров АКА СанитарЖеня
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    2D cash   Yurij Zabelyshynskij   25 Sep 2001 23:40:52   Re: 2D cash   Alexey Danov   26 Sep 2001 13:19:06   Re: 2D cash   Yurij Zabelyshynskij   26 Sep 2001 19:35:29   Re: 2D cash   Alexey Danov   27 Sep 2001 09:19:07   Re: 2D cash   Alexey Danov   26 Sep 2001 13:25:17   Re: 2D cash   Evgenij Masherov   26 Sep 2001 14:32:50   Re: 2D cash   Alexey Danov   26 Sep 2001 15:21:36