[Back to TURTLE SWAG index]  [Back to Main SWAG index]  [Original]

(* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
   ³ Programated by Vladimir Zahoransky                        ³
   ³                Vladko software                            ³
   ³ Contact      : zahoran@cezap.ii.fmph.uniba.sk             ³
   ³ Program tema : Line in general direction version          ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
    In january this year one programer who work with my turtles (have
 own graphical unit) and write me a suggestion to make graph04.pas in
 version with relation : (a=k)  k=tg(alfa) (alfa is line-agle with
 x-coordinate) Alfa=arctg(k) It is good to use this relation because
 we muth to work with one extreme point. [x,-240]

  If sometimes is message Division by zero - it is problem with relation :
             -50+random(100)
             ---------------
             -50+random(100)

 If random=50 in denominator then -50+50=0 and this make this message.
}

Uses Okor;

Type Mygraph=Object(kor)
             Procedure Init;
             Procedure Coordinate_system;
             End;

Procedure Mygraph.Init;
Begin
kor.init(0,0,0);
End;

Procedure Mygraph.Coordinate_system;
Var i:integer;
Begin
ZmenFp(15);
PresunXY(-320,0);
ZmenXY(320,0);
PresunXY(315,5);
ZmenXY(320,0);
ZmenXY(315,-5);
PresunXY(310,-10);
Pis('x');

PresunXY(0,-240);;
ZmenXY(0,240);
PresunXY(-5,235);
ZmenXY(0,240);
ZmenXY(5,235);
PresunXY(8,230);
Pis('y');

For i:=0 to 32 do Begin
                  PresunXY(-320+20*i,-3);
                  ZmenXY(-320+20*i,3);
                  End;

For i:=0 to 23 do Begin
                  PresunXY(-3,-240+20*i);
                  ZmenXY(3,-240+20*i);
                  End;

End;

Type Analytical_line=Object(kor)
                     a,b:real;
                     Procedure Init(a1,b1:real);
                     Procedure Draw_line;
                     End;

Procedure Analytical_line.Init;
Begin
a:=a1;
b:=b1;
If a<>0 Then kor.Init( (-240-b1)/a,-240,90-arctan(a)*180/Pi)
        Else kor.Init(-320,b1,0);
End;

Procedure Analytical_line.Draw_line;
Begin
If a<>0 Then Kor.Dopredu(480/(sin(arctan(a))))
        Else ZmenXY(320,b);
End;

Var Mg:MyGraph;
    Al:Analytical_line;
    I:integer;
Begin

With Mg do Begin
           Init;
           Coordinate_system;
           End;
Randomize;

With Al Do
           For i:=1 to 10 do Begin
                             init((-50+random(100))/(-50+random(100)),
                                   -100+random(200));
                             ZmenFp(1+ i mod 14);
                             Draw_line;

           CakajKlaves;
           Koniec;
           End;

End.

[Back to TURTLE SWAG index]  [Back to Main SWAG index]  [Original]