Topspeed_JPI/TS-V3/EXAMPLES/MIX_MOD.MOD

MODULE MIX_MOD;

IMPORT GWinC2M,IO;

TYPE
  A6G=ARRAY[1..6] OF GWinC2M.GCoord;
  A4G=ARRAY[1..4] OF GWinC2M.GCoord;

VAR
  W:GWinC2M.GWindow;
  it:INTEGER;
  penx,peny:A6G;
  trix,triy:A4G;
  I:INTEGER;

BEGIN
  W.ct__@Fssssi(0,0,1024,1024,4);
  FOR it:=0 TO 4 DO
    W.ReSize(it*75,it*75,1024-it*25,1024-it*25);
    W.SetColor(1,0);
    W.Clear(-1);
    penx:=A6G(300,700,1000,512,30,0);
    peny:=A6G(1000,1000,300,10,300,0);
    trix:=A4G(300,700,512,0);
    triy:=A4G(800,800,300,0);
    W.Polygon(5,ADR(penx),ADR(peny),-1);
    W.Polygon(3,ADR(trix),ADR(triy),-1);
    W.Fill(512,900,-1,TRUE);
    W.SetColor(3,-1);
    W.CursorPosition(200,512);
    GWinC2M.cputs(ADR('C++/Modula-2 Graphics Library Class Interface'+0C));
    FOR I:=0 TO 1023 DO
      W.SetColor(I,-1);
      W.Plot(I,I,-1);
      W.Plot(I,1024-I,-1)
    END;
    W.SetColor(4,-1);
    I:=511;
    WHILE I>0 DO
      W.EllipticArc(512,512,I,I,I,I+90);
      I:=I-20
    END;
    I:=0;
    WHILE I<360 DO
      W.SetColor(I DIV 30,-1);
      W.EllipticPie(900,500,100,500,I,I+30,1);
      I:=I+30
    END;
    I:=900;
    WHILE I>0 DO
      W.SetColor(I DIV 100+1,-1);
      W.Cuboid(1000-I,I,I DIV 10,I DIV 10,I DIV 10,0,0);
      I:=I-100
    END;
    W.CursorPosition(362,512+W.CharHeight());
    GWinC2M.cputs(ADR('Press any key to continue'+0C));
    IF (IO.RdKey()=0C) AND (IO.RdKey()=0C) THEN END;
  END;
  W.dt__;
END MIX_MOD.