paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 13:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed warnings about type conversion

Browse Source
This commit is contained in:
alex 2000-03-08 22:20:04 +00:00
parent 7a00f36b23
commit dac636a097
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
install/demo/voxel.pp
View File

@ -99,7 +99,7 @@ procedure draw(xp,yp,dir:integer);
var z,zobs,ix,iy,iy1,iyp,ixp,x,y,s,csf,snf,mpc,i,j:integer;
begin
fillchar(rng,sizeof(rng),200); zobs:=100+mp^[WORD(256*yp+xp)];
csf:=round(256*cos(dir/180*pi)); snf:=round(256*sin(dir/180*pi));
csf:=round(256*cos(Real(dir)/180*pi)); snf:=round(256*sin(Real(dir)/180*pi));
fillchar(scr^,64000,0);
for iy:=yp to yp+55 do
begin
@ -152,12 +152,12 @@ begin
#75:dec(dir,10);
#77:inc(dir,10);
#72:begin
y:=y+round(5*cos(dir/180*pi));
x:=x+round(5*sin(dir/180*pi));
y:=y+round(5*cos(Real(dir)/180*pi));
x:=x+round(5*sin(Real(dir)/180*pi));
end;
#80:begin
y:=y-round(5*cos(dir/180*pi));
x:=x-round(5*sin(dir/180*pi));
y:=y-round(5*cos(Real(dir)/180*pi));
x:=x-round(5*sin(Real(dir)/180*pi));
end;
end;
#27: begin
@ -170,7 +170,10 @@ begin
end.
{
$Log$
Revision 1.3 2000-02-22 04:12:42 alex
Revision 1.4 2000-03-08 22:20:04 alex
fixed warnings about type conversion
Revision 1.3 2000/02/22 04:12:42 alex
removed game unit reference for non fpc version
Revision 1.2 2000/01/03 13:51:08 marco
@ -179,4 +182,4 @@ end.
Revision 1.1 2000/01/01 14:58:01 marco
* initial version
}
}