[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]