vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 08:42:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

XYplane and X wrappers added

Browse source
This commit is contained in:
Norayr Chilingarian 2014-01-29 23:59:31 +04:00
parent 4bacf7f752
commit 47c51986a1
17 changed files with 4666 additions and 410 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/test/X11/test.Mod Normal file
View file

@ -0,0 +1,29 @@
MODULE test;
IMPORT p := oocXYplane, Out := Console;
VAR ch : CHAR;
i : INTEGER;
BEGIN
p.Open;
(*p.Clear;*)
FOR i := 1 TO 555 DO
p.Dot(i,300 ,p.draw)
END;
(*
FOR i := 100 TO 500 DO
p.Dot(i,300 ,p.erase)
END;
*)
IF p.IsDot (5, 300) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
IF p.IsDot (5, 500) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
REPEAT
ch := p.Key();
UNTIL ch # 0X;
p.Close;
END test.