Macintosh-SW/macintosh_cookbook
1
0
Fork 0
mirror of https://git.sr.ht/~rabbits/macintosh_cookbook synced 2024-05-29 06:41:28 +00:00
Code Issues Projects Releases Wiki Activity

Removed fixed units from stairs

Browse Source
This commit is contained in:
neauoire 2020-05-16 15:21:38 +09:00
parent 306a88f554
commit d8a070b5d7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
projects/Neauismetica/Graf3DStructures.pas
View File

@ -14,13 +14,13 @@ implementation
procedure SetStairs3D (var shape: Shape3D; x, y, z, w, h, d: Fixed);
var
hq: Fixed;
hq: Longint;
begin
hq := FixDiv(h, 4);
AddRec3D(shape, x, y - h + FixMul(hq div 2, 5), z + d - FixMul(hq, 2), w, h div 4);
AddRec3D(shape, x, y - h + FixMul(hq div 2, 7), z + d - FixMul(hq, 3), w, h div 4);
AddRec3D(shape, x, y - h + FixMul(hq div 2, 9), z + d - FixMul(hq, 4), w, h div 4);
AddRec3D(shape, x, y - h + FixMul(hq div 2, 11), z + d - FixMul(hq, 5), w, h div 4);
hq := h div 4;
AddRec3D(shape, x, y - h + hq div 2 * 5, z + d - hq * 2, w, h div 4);
AddRec3D(shape, x, y - h + hq div 2 * 7, z + d - hq * 3, w, h div 4);
AddRec3D(shape, x, y - h + hq div 2 * 9, z + d - hq * 4, w, h div 4);
AddRec3D(shape, x, y - h + hq div 2 * 11, z + d - hq * 5, w, h div 4);
AddEdge3D(shape, 4, 7);
AddEdge3D(shape, 1, 6);
AddEdge3D(shape, 8, 11);