~rabbits/macintosh-cookbook

d8a070b5d7c4d553f614b627e272f78dbea44fbc — neauoire 4 years ago 306a88f
Removed fixed units from stairs
1 files changed, 6 insertions(+), 6 deletions(-)

M projects/Neauismetica/Graf3DStructures.pas
M projects/Neauismetica/Graf3DStructures.pas => projects/Neauismetica/Graf3DStructures.pas +6 -6
@@ 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);