[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 : Turtle overdraw with coordinate system     ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
    This program work with coordinate system. What you draw in one
    quadrant this is overdraw in other quadrants. It is nice effekt
    and work with mouse and turtle.
    Principe :
    1. Define to coordinate system momental mouse sytuation if you
    turn mouse button.
    2. Overdraw it to other quadrants. Just work with Xsur and Ysur
    and make all combinations. (+x,+y,+c,-y,-x,+y,-x,-y)
    3. If we turn right button then quit the program
}

uses  graph,mys,okor;

var
  k1,k2,k3,k4:kor;
  gd,gm:integer;

begin
  if not inicmys then
  begin
    outtext('Probkem with mouse driver!');
    exit;
  end;
  zmenkurzormysi(kurzor_sipka);
  ukazmys;
  k1.init(0,0,0);
  k2.init(0,0,0);
  k3.init(0,0,0);
  k4.init(0,0,0);
  while stavmysi<>2 do
  begin
    case stavmysi of
    0:begin
        k1.ph;
        k2.ph;
        k3.ph;
        k4.ph;
      end;
    1:begin
        skrymys;
        k1.zmenxy(mysx-x0,y0-mysy);
        k2.zmenxy(x0-mysx,y0-mysy);
        k3.zmenxy(x0-mysx,mysy-y0);
        k4.zmenxy(mysx-x0,mysy-y0);
        ukazmys;
        if not k1.dole then
        begin
          k1.pd;
          k2.pd;
          k3.pd;
          k4.pd;
        end;
      end;
    end;
  end;
  closegraph;
end.

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