253 lines
6 KiB
ObjectPascal
253 lines
6 KiB
ObjectPascal
program five_cubes_in_a_row;
|
|
const MAX_Y = 400;
|
|
pi = 3.1415926;
|
|
|
|
type pointtype = record x,y:integer end;
|
|
|
|
var cube:array[1..6] of record
|
|
position:array[1..5] of record x,y,z:real end;
|
|
end;
|
|
c:char;
|
|
pcos,ncos,psin,nsin:real;
|
|
|
|
procedure rotx(dir:integer);
|
|
var y1,z1:real;i,o:integer;
|
|
begin
|
|
if dir=1 then
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
y1:=pcos*cube[i].position[o].y-psin*cube[i].position[o].z;
|
|
z1:=psin*cube[i].position[o].y+pcos*cube[i].position[o].z;
|
|
cube[i].position[o].y:=y1;
|
|
cube[i].position[o].z:=z1;
|
|
end
|
|
else
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
y1:=ncos*cube[i].position[o].y-nsin*cube[i].position[o].z;
|
|
z1:=nsin*cube[i].position[o].y+ncos*cube[i].position[o].z;
|
|
cube[i].position[o].y:=y1;
|
|
cube[i].position[o].z:=z1
|
|
end
|
|
end;
|
|
|
|
procedure roty(dir:integer);
|
|
var x1,z1:real;i,o:integer;
|
|
begin
|
|
if dir=1 then
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
x1:=pcos*cube[i].position[o].x-psin*cube[i].position[o].z;
|
|
z1:=psin*cube[i].position[o].x+pcos*cube[i].position[o].z;
|
|
cube[i].position[o].x:=x1;
|
|
cube[i].position[o].z:=z1;
|
|
end
|
|
else
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
x1:=ncos*cube[i].position[o].x-nsin*cube[i].position[o].z;
|
|
z1:=nsin*cube[i].position[o].x+ncos*cube[i].position[o].z;
|
|
cube[i].position[o].x:=x1;
|
|
cube[i].position[o].z:=z1
|
|
end
|
|
end;
|
|
|
|
procedure rotz(dir:integer);
|
|
var y1,x1:real;i,o:integer;
|
|
begin
|
|
if dir=1 then
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
y1:=pcos*cube[i].position[o].y-psin*cube[i].position[o].x;
|
|
x1:=psin*cube[i].position[o].y+pcos*cube[i].position[o].x;
|
|
cube[i].position[o].y:=y1;
|
|
cube[i].position[o].x:=x1;
|
|
end
|
|
else
|
|
for i:=1 to 6 do
|
|
for o:=1 to 5 do
|
|
begin
|
|
y1:=ncos*cube[i].position[o].y-nsin*cube[i].position[o].x;
|
|
x1:=nsin*cube[i].position[o].y+ncos*cube[i].position[o].x;
|
|
cube[i].position[o].y:=y1;
|
|
cube[i].position[o].x:=x1
|
|
end
|
|
end;
|
|
|
|
procedure display_cube(col:integer);
|
|
var i,o,a:integer;c:integer;
|
|
stran:array[1..4] of pointtype;
|
|
color:integer;
|
|
begin
|
|
for i:=1 to 6 do
|
|
if cube[i].position[5].z>0 then
|
|
with cube[i] do
|
|
begin
|
|
for a:=1 to 5 do
|
|
begin
|
|
if col>0 then c:=a else c:=0;
|
|
if((a=4)and(c>0))then color :=6 else color:= c;
|
|
for o:=1 to 4 do
|
|
begin
|
|
stran[o].x:=a*100+round(position[o].x);
|
|
stran[o].y:=MAX_Y div 2+round(position[o].y);
|
|
end;
|
|
drawline(stran[1].x,stran[1].y,stran[2].x,stran[2].y,color);
|
|
drawline(stran[2].x,stran[2].y,stran[3].x,stran[3].y,color);
|
|
drawline(stran[3].x,stran[3].y,stran[4].x,stran[4].y,color);
|
|
drawline(stran[4].x,stran[4].y,stran[1].x,stran[1].y,color);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure init;
|
|
var i,gm,gd:integer;
|
|
entrance:array[1..11]of integer;
|
|
begin
|
|
entrance := [ 1,2,3,4,5,20,7,56,57,58,59 ];
|
|
InitGraphics;
|
|
ClearGraphics;
|
|
pcos:=cos(6*2*pi/360);
|
|
ncos:=cos(-6*2*pi/360);
|
|
psin:=sin(6*2*pi/360);
|
|
nsin:=sin(-6*2*pi/360);
|
|
setpalette(1,$700);
|
|
with cube[1] do
|
|
begin
|
|
position[1].x:=-25;
|
|
position[1].y:=-25;
|
|
position[1].z:=+25;
|
|
position[2].x:=+25;
|
|
position[2].y:=-25;
|
|
position[2].z:=+25;
|
|
position[3].x:=+25;
|
|
position[3].y:=+25;
|
|
position[3].z:=+25;
|
|
position[4].x:=-25;
|
|
position[4].y:=+25;
|
|
position[4].z:=+25;
|
|
position[5].x:=0;
|
|
position[5].y:=0;
|
|
position[5].z:=25;
|
|
end;
|
|
with cube[2] do
|
|
begin
|
|
position[1].x:=-25;
|
|
position[1].y:=-25;
|
|
position[1].z:=-25;
|
|
position[2].x:=+25;
|
|
position[2].y:=-25;
|
|
position[2].z:=-25;
|
|
position[3].x:=+25;
|
|
position[3].y:=-25;
|
|
position[3].z:=+25;
|
|
position[4].x:=-25;
|
|
position[4].y:=-25;
|
|
position[4].z:=+25;
|
|
position[5].x:=0;
|
|
position[5].z:=0;
|
|
position[5].y:=-25;
|
|
end;
|
|
with cube[3] do
|
|
begin
|
|
position[1].x:=-25;
|
|
position[1].y:=+25;
|
|
position[1].z:=+25;
|
|
position[2].x:=+25;
|
|
position[2].y:=+25;
|
|
position[2].z:=+25;
|
|
position[3].x:=+25;
|
|
position[3].y:=+25;
|
|
position[3].z:=-25;
|
|
position[4].x:=-25;
|
|
position[4].y:=+25;
|
|
position[4].z:=-25;
|
|
position[5].x:=0;
|
|
position[5].z:=0;
|
|
position[5].y:=25;
|
|
end;
|
|
with cube[4] do
|
|
begin
|
|
position[1].x:=-25;
|
|
position[1].y:=-25;
|
|
position[1].z:=-25;
|
|
position[2].x:=-25;
|
|
position[2].y:=-25;
|
|
position[2].z:=+25;
|
|
position[3].x:=-25;
|
|
position[3].y:=+25;
|
|
position[3].z:=+25;
|
|
position[4].x:=-25;
|
|
position[4].y:=+25;
|
|
position[4].z:=-25;
|
|
position[5].y:=0;
|
|
position[5].z:=0;
|
|
position[5].x:=-25;
|
|
end;
|
|
with cube[5] do
|
|
begin
|
|
position[1].x:=+25;
|
|
position[1].y:=-25;
|
|
position[1].z:=+25;
|
|
position[2].x:=+25;
|
|
position[2].y:=-25;
|
|
position[2].z:=-25;
|
|
position[3].x:=+25;
|
|
position[3].y:=+25;
|
|
position[3].z:=-25;
|
|
position[4].x:=+25;
|
|
position[4].y:=+25;
|
|
position[4].z:=+25;
|
|
position[5].x:=25;
|
|
position[5].y:=0;
|
|
position[5].z:=0;
|
|
end;
|
|
with cube[6] do
|
|
begin
|
|
position[1].x:=-25;
|
|
position[1].y:=+25;
|
|
position[1].z:=-25;
|
|
position[2].x:=+25;
|
|
position[2].y:=+25;
|
|
position[2].z:=-25;
|
|
position[3].x:=+25;
|
|
position[3].y:=-25;
|
|
position[3].z:=-25;
|
|
position[4].x:=-25;
|
|
position[4].y:=-25;
|
|
position[4].z:=-25;
|
|
position[5].x:=0;
|
|
position[5].y:=0;
|
|
position[5].z:=-25;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
init;
|
|
repeat
|
|
display_cube(1);
|
|
repeat
|
|
c:=conin;
|
|
until(upcase(c)in['E','Q','S','W','D','A','J','K','L','U','I','O'])or(c=#27);
|
|
display_cube(0);
|
|
case upcase(c) of
|
|
'E':rotz(0);
|
|
'Q':rotz(1);
|
|
'S':rotx(0);
|
|
'W':rotx(1);
|
|
'D':roty(0);
|
|
'A':roty(1);
|
|
'J':begin rotx(1);roty(1);rotz(1);end;
|
|
'L':begin rotx(0);roty(0);rotz(0);end;
|
|
'K':begin rotx(1);roty(0);rotz(1);end;
|
|
'I':begin rotx(0);roty(1);rotz(0);end;
|
|
'U':begin rotx(0);roty(1);rotz(1);end;
|
|
'O':begin rotx(1);roty(0);rotz(0);end;
|
|
end;
|
|
until c=#27;
|
|
end.
|