MODULE Init;

IMPORT DrawAdd, Math, Strings, Log, JS;

VAR x1,y1,x2,y2,angle : REAL;

​

PROCEDURE Setup;

BEGIN

 DrawAdd.SetSize(300, 300);

 DrawAdd.SetBackground(DrawAdd.black);

 DrawAdd.SetFrameRate(30);

 DrawAdd.Fill(DrawAdd.white);

END Setup;

​

PROCEDURE Polygon(ax,ay,bx,by,cx,cy,dx,dy : REAL);

BEGIN

 DrawAdd.Line(ax,ay,bx,by);

 DrawAdd.Line(bx,by,cx,cy);

 DrawAdd.Line(cx,cy,dx,dy);

 DrawAdd.Line(dx,dy,ax,ay);

END Polygon;

​

PROCEDURE Loop;

VAR x,y : ARRAY 4 OF REAL;

BEGIN

 DrawAdd.FillRGBA(0,0,0,1.0);

 DrawAdd.Recti(0, 0, 400, 400);

 angle := angle + 0.03;

 x1 := Math.Sin(angle) * 70.7;

 y1 := Math.Cos(angle) * 70.7;

 x2 := Math.Sin(angle + 1.57079) * 70.7;

 y2 := Math.Cos(angle + 1.57079) * 70.7; 

 x[0] := x1 + 150.0;

 x[1] := x2 + 150.0;

 x[2] := (x1 * (-1.0))+ 150.0;

 x[3] := (x2 * (-1.0))+ 150.0;

 y[0] := y1 + 150.0;

 y[1] := y2 + 150.0;

 y[2] := (y1 * (-1.0))+ 150.0;

 y[3] := (y2 * (-1.0))+ 150.0;

 DrawAdd.FillRGB(255,255,255);

 DrawAdd.Polygon(x,y);

END Loop;

​

​

BEGIN

 angle := 1.5;

 DrawAdd.SetSetupProc(Setup);

 DrawAdd.SetDrawProc(Loop);

 DrawAdd.Start;

END Init.