Iron Stream

IS (IronStream) - мультимедийный двухмерный движок, на котором создается засекреченный проект БС. Скорее всего это будет игрушка. Сам движок представляет набор инструментов для обработки векторной и растровой графики,и музыки формата PCMusic. Версия продукта на данный момент 0.12.2.
Ниже приведена реализация мигающего светофора, с использованием этого движка. Прежде чем запускать компилированную программу, убедитесь что в директории с ней лежит файл EGAVGA.bgi!

uses graph,crt;
const
k1: array[1..5] of pointtype =((x:280;y:40),(x:360;y:40),
(x:360;y:50),(x:320;y:70),(x:240;y:70));

k2: array[1..5] of pointtype =((x:280;y:120),(x:360;y:120),
(x:360;y:130),(x:320;y:150),(x:240;y:150));

k3: array[1..5] of pointtype =((x:280;y:200),(x:360;y:200),
(x:360;y:210),(x:320;y:230),(x:240;y:230));

procedure ko1(color:integer);
begin
setfillstyle(solidfill,color);
setcolor(color);
pieslice(320,80,0,360,34);
setcolor(15);
setfillstyle(solidfill,0);
fillpoly(5,k1);
line(360,40,320,70);
end;
procedure ko2(color:integer);
begin
setfillstyle(solidfill,color);
setcolor(color);
pieslice(320,160,0,360,34);
setcolor(15);
setfillstyle(solidfill,0);
fillpoly(5,k2);
line(360,120,320,150);
end;
procedure ko3(color:integer);
begin
setfillstyle(solidfill,color);
setcolor(color);
pieslice(320,240,0,360,34);
setcolor(15);
setfillstyle(solidfill,0);
fillpoly(5,k3);
line(360,200,320,230);
end;

var
i,grdriver,grmode:integer;
begin
grdriver:=detect;
grmode:=detect;
initgraph(grdriver,grmode,'');
if graphresult <>grOk then begin writeln('error ',graphresult); halt;end else;
setcolor(15);
setfillstyle(solidfill,0);
bar3d(270,410,350,430,40,topon);
setfillstyle(solidfill,0);
bar3d(320,280,340,400,0,topon);
setfillstyle(solidfill,0);
bar3d(280,40,360,280,20,topon);
rectangle(280,120,360,280);
rectangle(280,200,360,280);

repeat
ko1(4);ko2(8);ko3(8);
delay(60000);
ko1(8);ko2(14);ko3(8);
delay(60000);
ko1(8);ko2(8);ko3(2);
delay(50000);
for i:=1 to 5 do begin
delay(10000);
ko3(8);
delay(10000);
ko3(2);
end;
until keypressed;
closegraph;
end.