From 0d3ba24107dcef15c214e959ca2eca4b279cba15 Mon Sep 17 00:00:00 2001 From: neauoire Date: Fri, 15 May 2020 12:11:47 +0900 Subject: [PATCH] Fixed issue with circle --- units/Graf3DScene/Graf3DPrimitives.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/units/Graf3DScene/Graf3DPrimitives.pas b/units/Graf3DScene/Graf3DPrimitives.pas index 18460fc..d8b7c17 100644 --- a/units/Graf3DScene/Graf3DPrimitives.pas +++ b/units/Graf3DScene/Graf3DPrimitives.pas @@ -132,8 +132,8 @@ implementation SetPt3D(shape.origin, Long2Fix(x), Long2Fix(y), Long2Fix(z)); AddCircle3D(shape, x, y, z + d div 2, r); AddCircle3D(shape, x, y, z - d div 2, r); - for i := 1 to 16 do - AddLink3D(shape, i, i + 16); + for i := 1 to 12 do + AddLink3D(shape, i, i + 12); end; end. \ No newline at end of file